home *** CD-ROM | disk | FTP | other *** search
/ The Net Power 1996 July / netPOWER_07_Jul_1996.iso / mac / WebTools / PREVIEW.DIR / 00024_Field_24.txt < prev    next >
Text File  |  1996-03-06  |  12KB  |  249 lines
  1.  
  2. --> if ShiftDown() then put fName -- just display path (utility function)
  3. --> else displayimage getMacFileNameFromPath(fName), fName, 128 -- view ot
  4. == Script: Main stage interface scripts Handler: getMacFileNameFromPath 
  5. --> set the itemdelimiter = ":"
  6. --> set fname = item ( the number of items in aMacPath) of aMacPath
  7. == fName = "D01__128.PIC"
  8. --> set the itemdelimiter = ","
  9. --> return fname
  10. == Script: open tile128 Handler: mouseUp 
  11. --> else displayimage getMacFileNameFromPath(fName), fName, 128 -- view ot
  12. == Script: Main stage interface scripts Handler: displayimage 
  13. --> global ScrollMode , FileCast , FileSprite, idlechore, FitCount, DelayedAction, DepthSym, MIAWViewerMode, hiddenTileSwap
  14. --> cursor 4 -- watch
  15. --> set DepthSym = "-" & string(the colorDepth) -- 1/20/96  used for depth specific linked cast
  16. == DepthSym = "-8"
  17. --> -- replace last btn image with small placeholder, reduce potential large ram load
  18. --> if MIAWViewerMode then set the title of window movie() = " " -- rename after valid images are gotton
  19. --> -- if not integerp(FileCast) then setUpMIAW -- not open yet init globals
  20. --> setUpMIAW -- try always
  21. == Script: Main stage interface scripts Handler: setUpMIAW 
  22. --> global idleChore, FileSprite, ThumbScale, MIAWViewerMode, FileCast, PlaySpeed, MIAWViewerMode
  23. --> set DepthSym = "-" & string(the colorDepth) -- used for depth specific linked cast
  24. == DepthSym = "-8"
  25. --> set idleChore = empty
  26. == idleChore = ""
  27. --> if MIAWViewerMode then set the windowtype of window movie() = 12 -- zoom, no size
  28. --> set ThumbScale = 8 -- thumbnail rect size ratio 1/8 initialy, new image may change
  29. == ThumbScale = 8
  30. --> set FileSprite = 2 -- the image on display's track
  31. == FileSprite = 2
  32. --> set FileCast = the number of cast ("ButtonCast" & DepthSym)  -- the castNum of sprite FileSprite (large image mode)
  33. == FileCast = 25
  34. --> end
  35. == Script: Main stage interface scripts Handler: displayimage 
  36. --> if the paramcount > 2 then -- may display 2 icon versions in fixed win, or tile sample
  37. --> set ScrollMode = false -- scroll only for large buttons and bars ( tile fixed in UL )
  38. == scrollMode = 0
  39. --> endScrollMode -- hide thumbnails
  40. == Script: viewer scripts Handler: EndScrollMode 
  41. --> set the puppet of sprite 10 = false -- image rect thumbnail -- free up for tiles
  42. --> set the puppet of sprite 11 = false -- window rect thumbnail
  43. --> -- set the locV of sprite 10 = -1000 -- hide image thumbnail
  44. --> updateStage
  45. --> end
  46. == Script: Main stage interface scripts Handler: displayimage 
  47. --> set the puppet of sprite FileSprite = false -- no image scrolling w/ icons
  48. --> --  NOT showing Btn/Bar replace last btn image with small placeholder
  49. --> if the machineType = 256 then  set the fileName of cast ("ButtonCast" & DepthSym) =  pathname() & "Buttons\PICTs\Small\Little04.PIC" 
  50. --> else set the fileName of cast ("ButtonCast" & DepthSym) = "WebTools:Buttons:PICTs:Small:Little04.PIC" 
  51. --> if OptionalSecondParam = 64  then -- small tile sample
  52. --> if OptionalSecondParam = 128 then -- large tile sample
  53. --> --%%% new cast change hide 2/3/96
  54. --> if hiddenTileSwap then -- go to trails version of current tile 2/3/96
  55. --> if marker(0) = label("Tile128" & DepthSym) then
  56. --> if marker(0) = label("Tile128_Big" & DepthSym) then
  57. --> end if
  58. --> set the fileName of cast ("Tile_128"  & DepthSym) =  FilePath
  59. --> if the fileName of cast ("Tile_128"  & DepthSym) <> FilePath then -- didn't find or finish import
  60. --> end if
  61. --> set the picture of cast ("Tile_128"  & DepthSym) = the picture of cast ("Tile_128"  & DepthSym) --%%% so it's read width is right
  62. --> if the width of cast ("Tile_128"  & DepthSym) > 200 then   go to ("Tile128_Big" & DepthSym) -- 222 wide
  63. == Frame: 53 
  64. --> else  go to ("Tile128" & DepthSym) -- square
  65. --> else -- icon(s) second param: icon down image file name
  66. --> end if -- 2 icon
  67. --> if MIAWViewerMode then
  68. --> end if
  69. .--> cursor 0 -- standard
  70. --> end
  71. == Script: open tile128 Handler: mouseUp 
  72. --> else
  73. --> end if
  74. == Script: Main stage interface scripts Handler: idle 
  75. --> -- some window messages actual update is delayed, waited for it
  76. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  77. --> if idleChore <> empty then -- instruction left by someone
  78. --> end if
  79. == Script: 6 Handler: exitFrame 
  80. --> go to frame frame()
  81. --> end
  82. == Script: Main stage interface scripts Handler: idle 
  83. --> -- some window messages actual update is delayed, waited for it
  84. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  85. --> if idleChore <> empty then -- instruction left by someone
  86. --> end if
  87. == Script: 6 Handler: exitFrame 
  88. --> go to frame frame()
  89. --> end
  90. == Script: Main stage interface scripts Handler: idle 
  91. --> -- some window messages actual update is delayed, waited for it
  92. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  93. --> if idleChore <> empty then -- instruction left by someone
  94. --> end if
  95. == Script: 6 Handler: exitFrame 
  96. --> go to frame frame()
  97. --> end
  98. == Script: Main stage interface scripts Handler: idle 
  99. --> -- some window messages actual update is delayed, waited for it
  100. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  101. --> if idleChore <> empty then -- instruction left by someone
  102. --> end if
  103. == Script: 6 Handler: exitFrame 
  104. --> go to frame frame()
  105. --> end
  106. == Script: Main stage interface scripts Handler: idle 
  107. --> -- some window messages actual update is delayed, waited for it
  108. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  109. --> if idleChore <> empty then -- instruction left by someone
  110. --> end if
  111. == Script: 6 Handler: exitFrame 
  112. --> go to frame frame()
  113. --> end
  114. == Script: Main stage interface scripts Handler: idle 
  115. --> -- some window messages actual update is delayed, waited for it
  116. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  117. --> if idleChore <> empty then -- instruction left by someone
  118. --> end if
  119. == Script: 6 Handler: exitFrame 
  120. --> go to frame frame()
  121. --> end
  122. == Script: Main stage interface scripts Handler: idle 
  123. --> -- some window messages actual update is delayed, waited for it
  124. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  125. --> if idleChore <> empty then -- instruction left by someone
  126. --> end if
  127. == Script: 6 Handler: exitFrame 
  128. --> go to frame frame()
  129. --> end
  130. == Script: Main stage interface scripts Handler: idle 
  131. --> -- some window messages actual update is delayed, waited for it
  132. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  133. --> if idleChore <> empty then -- instruction left by someone
  134. --> end if
  135. == Script: 6 Handler: exitFrame 
  136. --> go to frame frame()
  137. --> end
  138. == Script: Main stage interface scripts Handler: idle 
  139. --> -- some window messages actual update is delayed, waited for it
  140. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  141. --> if idleChore <> empty then -- instruction left by someone
  142. --> end if
  143. == Script: 6 Handler: exitFrame 
  144. --> go to frame frame()
  145. --> end
  146. == Script: Main stage interface scripts Handler: idle 
  147. --> -- some window messages actual update is delayed, waited for it
  148. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  149. --> if idleChore <> empty then -- instruction left by someone
  150. --> end if
  151. == Script: 6 Handler: exitFrame 
  152. --> go to frame frame()
  153. --> end
  154. == Script: Main stage interface scripts Handler: idle 
  155. --> -- some window messages actual update is delayed, waited for it
  156. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  157. --> if idleChore <> empty then -- instruction left by someone
  158. --> end if
  159. == Script: 6 Handler: exitFrame 
  160. --> go to frame frame()
  161. --> end
  162. == Script: Main stage interface scripts Handler: idle 
  163. --> -- some window messages actual update is delayed, waited for it
  164. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  165. --> if idleChore <> empty then -- instruction left by someone
  166. --> end if
  167. == Script: 6 Handler: exitFrame 
  168. --> go to frame frame()
  169. --> end
  170. == Script: Main stage interface scripts Handler: idle 
  171. --> -- some window messages actual update is delayed, waited for it
  172. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  173. --> if idleChore <> empty then -- instruction left by someone
  174. --> end if
  175. == Script: 6 Handler: exitFrame 
  176. --> go to frame frame()
  177. --> end
  178. == Script: Main stage interface scripts Handler: idle 
  179. --> -- some window messages actual update is delayed, waited for it
  180. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  181. --> if idleChore <> empty then -- instruction left by someone
  182. --> end if
  183. == Script: 6 Handler: exitFrame 
  184. --> go to frame frame()
  185. --> end
  186. == Script: Main stage interface scripts Handler: idle 
  187. --> -- some window messages actual update is delayed, waited for it
  188. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  189. --> if idleChore <> empty then -- instruction left by someone
  190. --> end if
  191. == Script: 6 Handler: exitFrame 
  192. --> go to frame frame()
  193. --> end
  194. == Script: Main stage interface scripts Handler: idle 
  195. --> -- some window messages actual update is delayed, waited for it
  196. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  197. --> if idleChore <> empty then -- instruction left by someone
  198. --> end if
  199. == Script: 6 Handler: exitFrame 
  200. --> go to frame frame()
  201. --> end
  202. == Script: Main stage interface scripts Handler: idle 
  203. --> -- some window messages actual update is delayed, waited for it
  204. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  205. --> if idleChore <> empty then -- instruction left by someone
  206. --> end if
  207. == Script: 6 Handler: exitFrame 
  208. --> go to frame frame()
  209. --> end
  210. == Script: Main stage interface scripts Handler: idle 
  211. --> -- some window messages actual update is delayed, waited for it
  212. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  213. --> if idleChore <> empty then -- instruction left by someone
  214. --> end if
  215. == Script: 6 Handler: exitFrame 
  216. --> go to frame frame()
  217. --> end
  218. == Script: Main stage interface scripts Handler: idle 
  219. --> -- some window messages actual update is delayed, waited for it
  220. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  221. --> if idleChore <> empty then -- instruction left by someone
  222. --> end if
  223. == Script: 6 Handler: exitFrame 
  224. --> go to frame frame()
  225. --> end
  226. == Script: Main stage interface scripts Handler: idle 
  227. --> -- some window messages actual update is delayed, waited for it
  228. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  229. --> if idleChore <> empty then -- instruction left by someone
  230. --> end if
  231. == Script: 6 Handler: exitFrame 
  232. --> go to frame frame()
  233. --> end
  234. == Script: Main stage interface scripts Handler: idle 
  235. --> -- some window messages actual update is delayed, waited for it
  236. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  237. --> if idleChore <> empty then -- instruction left by someone
  238. --> end if
  239. == Script: 6 Handler: exitFrame 
  240. --> go to frame frame()
  241. --> end
  242. == Script: Main stage interface scripts Handler: idle 
  243. --> -- some window messages actual update is delayed, waited for it
  244. --> if not stringp(idleChore) then set idleChore = empty --%%% init fail backup
  245. --> if idleChore <> empty then -- instruction left by someone
  246. --> end if
  247. == Script: 6 Handler: exitFrame 
  248. --> go to frame frame()
  249.