on openCard
put "Click on a word in the list." into fld "current"
set the textfont of fld "current" to "Lucida Grand"
set the textsize of fld "current" to 24
set the filename of image "illustration" to empty
set the resizequality of image "illustration" to "best"
end openCard
function getNewDims oldW,oldH,maxW,maxH
# check to see if width is larger or smaller than the max
if oldW <> maxW then
put maxW / oldW into resizeFactor
put oldW * resizeFactor into newW
put oldH * resizeFactor into newH
end if
# now check to see if height too much
if newH > maxH then
put maxH / newH into resizeFactor
put newW * resizeFactor into newW
put newH * resizeFactor into newH
end if
# return the new dimensions
return newW,newH
end getNewDims
list 5)x local imageURL on mouseUp put word 2 of the clickLine into lineClicked put line lineClicked of the audioNames of me into sndName put the audioWebSite of me & sndName into audioURL put line lineClicked of the EnglishList of me into fld "current" hide image "illustration" -- until the image is downloaded and resized put line lineClicked of the imageNames of me into picName put the imageWebSite of me & picName into imageURL -- by using the load command to load the URL first, then waiting until the downloadDone message -- is sent, we can avoid the potential problem of the image being -- blank, because it's still waiting for the file to download load URL imageURL with message "downloadDone" lock screen play url audioURL set the cursor to watch -- a visual signal to the user to wait wait until the sound is done with messages end mouseUp on downloadDone set the filename of image "illustration" to imageURL put the width of this stack - the right of fld "list" - 10 into maxWdth put the top of btn "quit" - the bottom of fld "current" into maxHgt put the formattedWidth of img "illustration" into nativeWdth put the formattedheight of img "illustration" into nativeHgt put getNewDims(nativeWdth,nativeHgt,maxWdth,maxHgt) into newDims --function in card script set the width of img "illustration" to item 1 of newDims set the height of img "illustration" to item 2 of newDims -- reposition the image so it's completely on the card set the topLeft of img "illustration" to the right of fld "list" + 5,the bottom of fld "current" show image "illustration" unlock screen with visual effect dissolve very fast --resizeImage end downloadDone B audioWebSite %http://chumweb.byu.edu/russian/audio/ englishList America Baku equator Germany Holland camera kangaroo contract mania Norway St. Petersburg rose airplane tractor Ukraine veteran Japan humor Jupiter zebra audioNames amerika.wav baku.wav ekvator.wav germaniya.wav gollandiya.wav kamera.wav kenguru.wav kontrakt.wav maniya.wav norvegiya.wav peterburg.wav roza.wav samolyot.wav traktor.wav ukraina.wav veteran.wav yaponiya.wav yumor.wav yupiter.wav zebra.wav imageWebSite $http://chum310.byu.edu/media/images/ imageNames usa-map.gif baku.gif equator.gif germmap.gif holland-windmill.jpg camera.png kangaroo.jpg contract.jpg mania-pyro.gif norwaymap.gif petrpavl.jpg rose.gif airplane.jpg tractor.gif ukraine_map.jpg sov-vets.jpg japan_map.gif laugh.gif jupiter.gif zebra.gif cREVTable currentviewАмерика
Баку
екватор
германия
Голландия
камера
кенгуру
контракт
мания
Норвегия
Петербург
роза
самолет
трактор
Украина
ветеран
Япония
юмор
Юпитер
зебра
cREVGeneral scriptChecksum XK^l handlerList mouseUp downloadDone breakPoints scriptSelection char 871 to 870 revUniqueID 1086297806456 bookmarks tempScript prevHandler mouseUpscript Ilocal imageURL
on mouseUp
put word 2 of the clickLine into lineClicked
put line lineClicked of the audioNames of me into sndName
put the audioWebSite of me & sndName into audioURL
put line lineClicked of the EnglishList of me into fld "current"
hide image "illustration" -- until the image is downloaded and resized
put line lineClicked of the imageNames of me into picName
put the imageWebSite of me & picName into imageURL
-- by using the load command to load the URL first, then waiting until the downloadDone message
-- is sent, we can avoid the potential problem of the image being
-- blank, because it's still waiting for the file to download
load URL imageURL with message "downloadDone"
lock screen
play url audioURL
set the cursor to watch -- a visual signal to the user to wait
wait until the sound is done with messages
end mouseUp
on downloadDone
set the filename of image "illustration" to imageURL
put the width of this stack - the right of fld "list" - 10 into maxWdth
put the top of btn "quit" - the bottom of fld "current" into maxHgt
put the formattedWidth of img "illustration" into nativeWdth
put the formattedheight of img "illustration" into nativeHgt
put getNewDims(nativeWdth,nativeHgt,maxWdth,maxHgt) into newDims --function in card script
set the width of img "illustration" to item 1 of newDims
set the height of img "illustration" to item 2 of newDims
-- reposition the image so it's completely on the card
set the topLeft of img "illustration" to the right of fld "list" + 5,the bottom of fld "current"
show image "illustration"
unlock screen with visual effect dissolve very fast
--resizeImage
end downloadDone
<5@8:0 0:C 5:20B>@ 35@<0=8O >;;0=48O :0<5@0 :5=3C@C :>=B@0:B <0=8O >@2538O 5B5@1C@3 @>70 A0<>;5B B@0:B>@ #:@08=0 25B5@0= /?>=8O N<>@ .?8B5@ 751@0 illustration ` t<k maxHgt 400 TLAnchor 253,119maxWdth 534 cREVGeneral revUniqueID 1086299359108 wordPlayer !@ cREVGeneral revUniqueID 1086299385309 chasing arrows.gif @ V 210073 GIF89a ! NETSCAPE2.0 ! , < DPB *(C fx"G )zX#F%+8QC?D ! , : HA !6on mouseUp
answer "Do you really want to quit?" with "No" or "Yes"
if it is "yes" then close this stack
end mouseUp
current H Blue @ A 3 cREVGeneral revUniqueID 1203008002231 Click on a word in the list.