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 myzipend mouseUpon MouseUp quit end MouseUpon mouseUp set the iconic of this stack to trueend mouseUpon 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 ifend MouseUp
setprop hilite2 temp set the hilite of me to temp set the hilite2 of me to tempend hilite2on 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