It's a nice example of:
- Custom graphic for buttons
- Custom top bar
- Custom shape windows (see the bottom window corners)
- Windows slowly disappearing
revZipOpenArchive "C:/myarchive.zip", "write"
revZipAddItemWithFile "C:/myarchive.zip", "test.txt", "C:/Programs/RunRev/test.txt"
revZipAddItemWithFile "C:/myarchive.zip", "folder1/test.txt", "C:/Programs/RunRev/test.txt"
revZipAddItemWithFile "C:/myarchive.zip", "temp/folder2/test.txt", "C:/Programs/RunRev/test.txt"
revZipCloseArchive "C:/myarchive.zip"
on mouseUp
answer file "Select Zip file to decommpress:"
put it into myzip
revZipOpenArchive myzip,
"read"
put revZipEnumerateItems(myzip) into tItems
repeat for each line tline in tItems
if last char of tline is "/" then
create folder "C:/Documents and Settings/max/Desktop/" & tline
else
put "C:/Documents and Settings/max/Desktop/" & tline into temp
revZipExtractItemToFile myzip, tline, temp
end if
end repeat
revZipCloseArchive myzip
end mouseUp
on MouseUp
quit
end MouseUp
on mouseUp
set the iconic of this stack to true
end mouseUp
on mouseStillDown
set the loc of this stack to globalloc(the mouseLoc)
end mouseStillDown
on MouseUp
put the hilite2 of me into hitemp
if hiTemp then
set the hilite2 of me to false
else
set the hilite2 of me to true
end if
end MouseUp
setprop hilite2 temp
set the hilite of me to temp
set the hilite2 of me to temp
end hilite2
on mouseUp
set the rect of the templateImage to 100,100,400,400
create image "test"
choose brush tool
set the brush to 8
set the brushColor to red -- could use an RGB triplet here
set the dragSpeed to 20 -- very slow
#H
drag from 120,120 to 120,300
drag from 120,200 to 150,200
drag from 150,300 to 150,120
#i
drag from 180,120 to 180,150
drag from 180,180 to 180,300
end mouseUp