#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" Thumb Browser 1 qon openStack if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor if tColor <> "" then put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor set the backgroundColor of this stack to tColor end if end if end openStack W Verdana U Verdana U Verdana U Verdana W Courier New W Courier New W Verdana U Courier New U ms sans serif @U ms sans serif U Verdana size= U Verdana @U Verdana W ms sans serif W Verdana U Verdana W Verdana W ms sans serif U Courier New W Verdana W Verdana W Verdana U Verdana U Verdana cREVGeneral scriptChecksum n͡*^`!il bookmarks handlerList openStackscriptSelection char 342 to 341prevHandler tempScript script
on openStack
if word 1 of the systemVersion is "NT" and word 2 of the systemVersion > 5 then
put queryRegistry("HKEY_CURRENT_USER\Control Panel\Colors\MenuBar") into tColor
if tColor <> "" then
put word 1 of tColor,word 2 of tColor,word 3 of tColor into tColor
set the backgroundColor of this stack to tColor
end if
end if
end openStack
P on mouseUp #passed from the scrollbar if the target contains "altImgScroll" then put the altImageFile of img "altThumbImg" into fld "ImgName" end if end mouseUp altImgFiles blueprint.jpg widget.GIF main_header2.jpg sunblack_x.gif humanresources.jpg splash01.jpg splash02.jpg splash03.jpg evercommunicator.jpg holiday.jpg JHoagland.jpg brussell.jpg kashcraft.jpg whoswho.jpg evercom120x40.jpg disk.gif new.gif folder.gif camera.gif prefs.gif preview.gif disk2.gif chart.gif splashk.jpg header2.gif test.JPG icons.jpg toolbar.jpg toolbar.gif altuit.gif res.jpg chris.jpg testbut1.png aaa.jpg altconvolve.jpg bg701.gif bg717.gif bg709.gif 4tuviah.jpg aaevercom.jpg motionbooks.jpg motionbooks2.jpg motionbooks.gif registered.png Four-0-Four.jpg yet_another_siemple_screenshot.jpg discovmap.jpg runrev.jpg link_x.gif abrowser.PNG cREVGeneral scriptChecksum ;zB5* bookmarks handlerList mouseUpscriptSelection char 65 to 64prevHandler mouseUptempScript scripton mouseUp
#passed from the scrollbar
if the target contains "altImgScroll" then
put the altImageFile of img "altThumbImg" into fld "ImgName"
end if
end mouseUp
Browse Folder... Ep on mouseUp answer folder "choose a directory" if it is not empty then set the altImageFolder of grp "altThumbBrowser" to it put the altImageFile of img "altThumbImg" into fld "ImgName" end if end mouseUp " r +Click to find a folder of images to browse cREVGeneral scriptChecksum \k@nsN[ bookmarks revUniqueID 1042369100069handlerList mouseUpscriptSelection char 197 to 196prevHandler mouseUptempScript script "on mouseUp
answer folder "choose a directory"
if it is not empty then
set the altImageFolder of grp "altThumbBrowser" to it
put the altImageFile of img "altThumbImg" into fld "ImgName"
end if
end mouseUp
altThumbBrowser setProp altImageFolder tFolder set the altImageFile of img "altThumbImg" to empty set the filename of img "altThumbImg" to empty put the defaultFolder into tDF set the defaultFolder to tFolder -- Fix path if it's root if the number of Chars of tFolder > 3 then put "/" after tFolder put the altImageFilter of me into tFilter repeat for each line l in the files put lower(getExt(l)) into tExt put the itemDel repeat for each item i in tFilter if lower(i) = tExt then put tFolder & l & cr after tFiles exit repeat end if end repeat end repeat delete last char of tFiles set the defaultFolder to tDF set the altImgFiles of me to tFiles set the startValue of sb "altImgScroll" to 1 set the endValue of sb "altImgScroll" to the number of lines in tFiles + 1 set the thumbPos of sb "altImgScroll" to 1 set the lineInc of sb "altImgScroll" to 1 set the pageInc of sb "altImgScroll" to 2 set the thumbSize of sb "altImgScroll" to 1 set the altImageFile of img "altThumbImg" to line 1 of the altImgFiles of grp "altThumbBrowser" pass altImageFolder end altImageFolder setProp altThumbLoc tVal set the loc of grp "altThumbBrowser" to tVal set the altLoc of img "altThumbImg" to the loc of fld "altBackFld" pass altThumbLoc end altThumbLoc setProp altThumbWxH tVal put item 1 of tVal into tW put item 2 of tVal into tH lock screen # called to set the width of the group. Note: tW is the width of the image, not the grp set the width of img "altThumbImg" to tW set the altwidth of img "altThumbImg" to tW set the width of fld "altBackFld" to tW + 4 set the left of fld "altBackFld" to the left of img "altThumbImg" - 2 set the height of img "altThumbImg" to tH set the altheight of img "altThumbImg" to tH set the height of fld "altBackFld" to tH + 4 set the top of fld "altBackFld" to the top of img "altThumbImg" - 2 set the altLoc of img "altThumbImg" to the loc of img "altThumbImg" set the height of sb "altImgScroll" to the height of fld "altBackFld" set the topleft of sb "altImgScroll" to the right of fld "altBackFld" -2, the top of fld "altBackFld" set the lockloc of sb "altImgScroll" to true set the lockloc of fld "altBackFld" to true unlock screen pass altThumbWxH end altThumbWxH function getExt tFile set itemDel to "." return last item of tFile end getExt CB altThumbWxH 300,200altImageFolder @C:/Documents and Settings/Chipp Walters/My Documents/My PicturesaltImgFiles C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/gorevnet.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/evernet.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/EvershareIF.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/leologo.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/4695.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/headerbg.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/ted.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/Hank01.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/LEOif.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/unabomber.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/LEOif2.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/addplugin.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/evernetsplash.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/addplugin_dn.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/CosmicGelDa4.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/CosmicGelDg4.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/BlurMetalLa4.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/BlurMetalLh4.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/CosmicGelLa4.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/earthspin.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/CosmicGelLg4.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/LEOsplash.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/leoslice.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/Leosplash2.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/test.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/mpgPlayermask.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/title.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/title.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/test2.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/test3.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/mpgPlayer.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/soundbut.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/screengrap.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/mask2.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/HemTrainer.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/hemtrainer2.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/hemtr.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/hemtra.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/hem.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/imsplash.JPG C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/splash01.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/splash02.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/splash03.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/superfly_1600x1200.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/superfly_1280x1024.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/www.astrodesign.com_2.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/after_SR_1_.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/EverShare.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/sitehistory.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/HemingwayLogo.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/rack.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/blueprint.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/ICBSheader.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/reportheader.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/buttonleft.GIF C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/infodn.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/info.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/qtam.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/mailto_white_x.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/books.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/b2.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/aaaa.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/but_dn.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/but_over.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/but.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/compex.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/brushed metal.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/email.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/email_over.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/emailnote.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/email_drugs.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/email_kill.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/email_murder.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/email_heroin.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/email_bomb.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/buttonoven.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/buttongadgetlogo.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/websplash.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/ButtonGadgetScreen1.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/Butlibrary.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/buttonsplash.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/runrev.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/butt.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/buttongadgetdrip.png C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/metalmedium.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/metalmedium_down.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/logo-xclick.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/altLogo.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/bambi.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/www.mmicons.com.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/buttonsetsplash.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/rev_x.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/altFldHeader.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/runrev2.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/runrevlogo.gif C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/fg2alike.jpg C:/Documents and Settings/Chipp Walters/My Documents/My Pictures/background.gifaltImageFilter png,jpg,gif,bmpaltThumbLoc 228,360 cREVGeneral scriptChecksum On ʟ( bookmarks revUniqueID 1042376336986handlerList -altImageFolder altThumbLoc altThumbWxH getExtscriptSelection char 2363 to 2362prevHandler IsItImagetempScript scriptsetProp altImageFolder tFolder
set the altImageFile of img "altThumbImg" to empty
set the filename of img "altThumbImg" to empty
put the defaultFolder into tDF
set the defaultFolder to tFolder
-- Fix path if it's root
if the number of Chars of tFolder > 3 then put "/" after tFolder
put the altImageFilter of me into tFilter
repeat for each line l in the files
put lower(getExt(l)) into tExt
put the itemDel
repeat for each item i in tFilter
if lower(i) = tExt then
put tFolder & l & cr after tFiles
exit repeat
end if
end repeat
end repeat
delete last char of tFiles
set the defaultFolder to tDF
set the altImgFiles of me to tFiles
set the startValue of sb "altImgScroll" to 1
set the endValue of sb "altImgScroll" to the number of lines in tFiles + 1
set the thumbPos of sb "altImgScroll" to 1
set the lineInc of sb "altImgScroll" to 1
set the pageInc of sb "altImgScroll" to 2
set the thumbSize of sb "altImgScroll" to 1
set the altImageFile of img "altThumbImg" to line 1 of the altImgFiles of grp "altThumbBrowser"
pass altImageFolder
end altImageFolder
setProp altThumbLoc tVal
set the loc of grp "altThumbBrowser" to tVal
set the altLoc of img "altThumbImg" to the loc of fld "altBackFld"
pass altThumbLoc
end altThumbLoc
setProp altThumbWxH tVal
put item 1 of tVal into tW
put item 2 of tVal into tH
lock screen
# called to set the width of the group. Note: tW is the width of the image, not the grp
set the width of img "altThumbImg" to tW
set the altwidth of img "altThumbImg" to tW
set the width of fld "altBackFld" to tW + 4
set the left of fld "altBackFld" to the left of img "altThumbImg" - 2
set the height of img "altThumbImg" to tH
set the altheight of img "altThumbImg" to tH
set the height of fld "altBackFld" to tH + 4
set the top of fld "altBackFld" to the top of img "altThumbImg" - 2
set the altLoc of img "altThumbImg" to the loc of img "altThumbImg"
set the height of sb "altImgScroll" to the height of fld "altBackFld"
set the topleft of sb "altImgScroll" to the right of fld "altBackFld" -2, the top of fld "altBackFld"
set the lockloc of sb "altImgScroll" to true
set the lockloc of fld "altBackFld" to true
unlock screen
pass altThumbWxH
end altThumbWxH
function getExt tFile
set itemDel to "."
return last item of tFile
end getExt
altBackFld ` C0 cREVGeneral scriptChecksum ُ B~revUniqueID 1042374760461 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0script altThumbImg TsetProp altImageFile tFile if IsItImage(tFile)is true then put the altwidth of the target into oW put the altheight of the target into oH set cursor to watch lock screen set the lockloc of the target to false set the fileName of the target to tFile put the width of the target into nW put the height of the target into nH # now clear the filename because you can't resize an animated gif # but you can resize an empty img then load the anim gif into it. set the fileName of the target to empty if nW>oW or nH>oH then #it's bigger than the box if nW/nH > oW/oh then # must fit width set the width of the target to oW set the height of the target to oW/nW*nH else # must fit height set the height of the target to oH set the width of the target to oH/nH*nW end if end if set the loc of the target to the altLoc of the target set the lockLoc of the target to true set the filename of the target to tFile unlock screen else # not an image file end if pass altImageFile end altImageFile function IsItImage tFile put the itemDel into tID set the itemDel to "." put lower(last item of tFile) into tExt set itemDel to tID switch tExt case "png" case "gif" case "jpg" case "bmp" case "jpeg" return true break default return false break end switch end IsItImage T altWidth 300 altHeight 200 altImageFile MC:/Documents and Settings/Chipp Walters/My Documents/My Pictures/gorevnet.jpgaltLoc 219,360 NC:/Documents and Settings/Chipp Walters/My Documents/My Pictures/gorevnet.jpg cREVGeneral scriptChecksum KB S.D;OCj. bookmarks revUniqueID 1042369309541handlerList altImageFile IsItImagescriptSelection char 1438 to 1437prevHandler tempScript scriptsetProp altImageFile tFile
if IsItImage(tFile)is true then
put the altwidth of the target into oW
put the altheight of the target into oH
set cursor to watch
lock screen
set the lockloc of the target to false
set the fileName of the target to tFile
put the width of the target into nW
put the height of the target into nH
# now clear the filename because you can't resize an animated gif
# but you can resize an empty img then load the anim gif into it.
set the fileName of the target to empty
if nW>oW or nH>oH then #it's bigger than the box
if nW/nH > oW/oh then # must fit width
set the width of the target to oW
set the height of the target to oW/nW*nH
else # must fit height
set the height of the target to oH
set the width of the target to oH/nH*nW
end if
end if
set the loc of the target to the altLoc of the target
set the lockLoc of the target to true
set the filename of the target to tFile
unlock screen
else
# not an image file
end if
pass altImageFile
end altImageFile
function IsItImage tFile
put the itemDel into tID
set the itemDel to "."
put lower(last item of tFile) into tExt
set itemDel to tID
switch tExt
case "png"
case "gif"
case "jpg"
case "bmp"
case "jpeg"
return true
break
default
return false
break
end switch
end IsItImage
altImgScroll ipon scrollbarLineDec drawThumb end scrollbarLineDec on scrollbarLineInc drawThumb end scrollbarLineInc on scrollbarPageDec drawThumb end scrollbarPageDec on scrollbarPageInc drawThumb end scrollbarPageInc on scrollbarDrag drawThumb end scrollbarDrag on drawThumb put the thumbPos of me into tL if the altImgFiles of grp "altThumbBrowser" is not empty then set the altImageFile of img "altThumbImg" to line tL of the altImgFiles of grp "altThumbBrowser" end if end drawThumb q revscrollbar false G 1 98 cREVGeneral scriptChecksum =M]PgSV+E bookmarks revUniqueID 1042369423355handlerList [scrollbarLineDec scrollbarLineInc scrollbarPageDec scrollbarPageInc scrollbarDrag drawThumbscriptSelection char 245 to 244prevHandler mouseUptempScript script %on scrollbarLineDec
drawThumb
end scrollbarLineDec
on scrollbarLineInc
drawThumb
end scrollbarLineInc
on scrollbarPageDec
drawThumb
end scrollbarPageDec
on scrollbarPageInc
drawThumb
end scrollbarPageInc
on scrollbarDrag
drawThumb
end scrollbarDrag
on drawThumb
put the thumbPos of me into tL
if the altImgFiles of grp "altThumbBrowser" is not empty then
set the altImageFile of img "altThumbImg" to line tL of the altImgFiles of grp "altThumbBrowser"
end if
end drawThumb
imgName )` CB cREVGeneral bookmarks revUniqueID 1042377421907handlerList scriptSelection prevHandler tempScript script NC:/Documents and Settings/Chipp Walters/My Documents/My Pictures/gorevnet.jpg Set Width & Height Epon mouseUp answer "This will set the width and height of the altThumbViewer." with "Okay" and "Cancel" if it is "Cancel" then exit mouseUp ask "Enter the width in pixels:" with "200" if the result is "Cancel" then exit mouseUp if not isNumber(it) then exit mouseUp put it into tW ask "Enter the height in pixels" with "200" if the result is "Cancel" then exit mouseUp if not isNumber(it) then exit mouseUp put it into tH put tW,tH into WxH set the altThumbWxH of grp "altThumbBrowser" to WxH end mouseUp r .sets the altThumbWxH of grp "altThumbBrowser" cREVGeneral scriptChecksum XmqbWF& bookmarks revUniqueID 1042382890875handlerList mouseUpscriptSelection char 487 to 486prevHandler mouseUptempScript scripton mouseUp
answer "This will set the width and height of the altThumbViewer." with "Okay" and "Cancel"
if it is "Cancel" then exit mouseUp
ask "Enter the width in pixels:" with "200"
if the result is "Cancel" then exit mouseUp
if not isNumber(it) then exit mouseUp
put it into tW
ask "Enter the height in pixels" with "200"
if the result is "Cancel" then exit mouseUp
if not isNumber(it) then exit mouseUp
put it into tH
put tW,tH into WxH
set the altThumbWxH of grp "altThumbBrowser" to WxH
end mouseUp
Set Loc Epon mouseUp set the cursor to arrow set the rect of grc 1 to the rect of grp "altThumbBrowser" show grc 1 repeat until mouseclick() set the loc of grc 1 to the mouseLoc end repeat hide grc 1 set the altThumbLoc of grp "altThumbBrowser" to the clickLoc end mouseUp , r .sets the altThumbLoc of grp "altThumbBrowser" cREVGeneral scriptChecksum E