home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / zoomrect.sit / ZoomRect / background_2785.txt < prev    next >
Text File  |  1988-02-13  |  8KB  |  328 lines
  1. -- background: 2785 from stack: in
  2. -- bmap block id: 3094
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8004
  11. -- rect: left=72 top=311 right=325 bottom=215
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Watch here...
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set hilite of me to true
  23.   ZoomRect the rect of bkgnd button "Open Button", the rect of bkgnd field "NewField 1"
  24.   set lockscreen to true
  25.   show bkgnd button "Close Button"
  26.   show bkgnd field "NewField 1"
  27.   show bkgnd field "NewField 2"
  28.   hide bkgnd button "Hider 2"
  29.   show bkgnd button "Hider 1"
  30.   hide bkgnd button "Open Button"
  31.   set the name of bkgnd button "Push this button!" to "Watch here..."
  32.   set the name of bkgnd button "This space reserved." to "Click here..."
  33.   set lockscreen to false
  34.   set hilite of me to false
  35. end mouseUp
  36.  
  37.  
  38.  
  39. -- part 3 (button)
  40. -- low flags: 80
  41. -- high flags: 0000
  42. -- rect: left=23 top=301 right=335 bottom=55
  43. -- title width / last selected line: 0
  44. -- icon id / first selected line: 23270 / 23270
  45. -- text alignment: 1
  46. -- font id: 0
  47. -- text size: 12
  48. -- style flags: 0
  49. -- line height: 16
  50. -- part name: Open Button
  51. ----- HyperTalk script -----
  52. on mouseUp
  53.   set hilite of me to true
  54.   ZoomRect the rect of me, the rect of bkgnd field "NewField 1"
  55.   set lockscreen to true
  56.   show bkgnd button "Close Button"
  57.   show bkgnd field "NewField 1"
  58.   show bkgnd field "NewField 2"
  59.   hide bkgnd button "Hider 2"
  60.   show bkgnd button "Hider 1"
  61.   hide bkgnd button "Open Button"
  62.   set the name of bkgnd button "Push this button!" to "Watch here..."
  63.   set the name of bkgnd button "This space reserved." to "Click here..."
  64.   set lockscreen to false
  65.   set hilite of me to false
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part 2 (button)
  71. -- low flags: 00
  72. -- high flags: 0000
  73. -- rect: left=51 top=302 right=333 bottom=77
  74. -- title width / last selected line: 0
  75. -- icon id / first selected line: 902 / 902
  76. -- text alignment: 1
  77. -- font id: 0
  78. -- text size: 12
  79. -- style flags: 0
  80. -- line height: 16
  81. -- part name: New Button
  82. ----- HyperTalk script -----
  83. on mouseUp
  84.   set hilite of me to true
  85.   ZoomRect the rect of bkgnd button "Open Button", the rect of bkgnd field "NewField 1"
  86.   set lockscreen to true
  87.   show bkgnd button "Close Button"
  88.   show bkgnd field "NewField 1"
  89.   show bkgnd field "NewField 2"
  90.   hide bkgnd button "Hider 2"
  91.   show bkgnd button "Hider 1"
  92.   hide bkgnd button "Open Button"
  93.   set the name of bkgnd button "Push this button!" to "Watch here..."
  94.   set the name of bkgnd button "This space reserved." to "Click here..."
  95.   set lockscreen to false
  96.   set hilite of me to false
  97. end mouseUp
  98.  
  99.  
  100.  
  101. -- part 4 (button)
  102. -- low flags: 00
  103. -- high flags: 8004
  104. -- rect: left=23 top=61 right=75 bottom=190
  105. -- title width / last selected line: 0
  106. -- icon id / first selected line: 0 / 0
  107. -- text alignment: 1
  108. -- font id: 0
  109. -- text size: 12
  110. -- style flags: 0
  111. -- line height: 16
  112. -- part name: Click here...
  113. ----- HyperTalk script -----
  114. on mouseDown
  115.   ZoomRect the rect of bkgnd field "NewField 1", the rect of bkgnd button "Open Button"
  116.   set lockscreen to true
  117.   show bkgnd button "Open Button"
  118.   hide bkgnd field "NewField 1"
  119.   hide bkgnd field "NewField 2"
  120.   hide bkgnd button "Close Button"
  121.   show bkgnd button "Hider 2"
  122.   hide bkgnd button "Hider 1"
  123.   set the name of bkgnd button "Watch here..." to "Push this button!"
  124.   set the name of bkgnd button "Click here..." to "This space reserved."
  125.   set lockscreen to false
  126. end mouseDown
  127.  
  128.  
  129.  
  130.  
  131. -- part 7 (field)
  132. -- low flags: 01
  133. -- high flags: 0004
  134. -- rect: left=203 top=59 right=261 bottom=478
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 3
  139. -- text size: 12
  140. -- style flags: 256
  141. -- line height: 16
  142. -- part name: NewField 1
  143.  
  144.  
  145. -- part 8 (field)
  146. -- low flags: 01
  147. -- high flags: 2007
  148. -- rect: left=203 top=77 right=259 bottom=476
  149. -- title width / last selected line: 0
  150. -- icon id / first selected line: 0 / 0
  151. -- text alignment: 0
  152. -- font id: 3
  153. -- text size: 12
  154. -- style flags: 0
  155. -- line height: 16
  156. -- part name: NewField 2
  157.  
  158.  
  159. -- part 9 (button)
  160. -- low flags: 00
  161. -- high flags: 0000
  162. -- rect: left=208 top=63 right=75 bottom=220
  163. -- title width / last selected line: 0
  164. -- icon id / first selected line: 14184 / 14184
  165. -- text alignment: 1
  166. -- font id: 0
  167. -- text size: 12
  168. -- style flags: 0
  169. -- line height: 16
  170. -- part name: Close Button
  171. ----- HyperTalk script -----
  172. on mouseDown
  173.   ZoomRect the rect of bkgnd field "NewField 1", the rect of bkgnd button "Open Button"
  174.   set lockscreen to true
  175.   show bkgnd button "Open Button"
  176.   hide bkgnd field "NewField 1"
  177.   hide bkgnd field "NewField 2"
  178.   hide bkgnd button "Close Button"
  179.   show bkgnd button "Hider 2"
  180.   hide bkgnd button "Hider 1"
  181.   set the name of bkgnd button "Watch here..." to "Push this button!"
  182.   set the name of bkgnd button "Click here..." to "This space reserved."
  183.   set lockscreen to false
  184. end mouseDown
  185.  
  186.  
  187.  
  188.  
  189.  
  190. -- part 5 (button)
  191. -- low flags: 00
  192. -- high flags: 0000
  193. -- rect: left=186 top=52 right=83 bottom=212
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 26425 / 26425
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: New Button
  202. ----- HyperTalk script -----
  203. on mouseDown
  204.   ZoomRect the rect of bkgnd field "NewField 1", the rect of bkgnd button "Open Button"
  205.   set lockscreen to true
  206.   show bkgnd button "Open Button"
  207.   hide bkgnd field "NewField 1"
  208.   hide bkgnd field "NewField 2"
  209.   hide bkgnd button "Close Button"
  210.   show bkgnd button "Hider 2"
  211.   hide bkgnd button "Hider 1"
  212.   set the name of bkgnd button "Watch here..." to "Push this button!"
  213.   set the name of bkgnd button "Click here..." to "This space reserved."
  214.   set lockscreen to false
  215. end mouseDown
  216.  
  217.  
  218.  
  219.  
  220. -- part 10 (button)
  221. -- low flags: 80
  222. -- high flags: 0000
  223. -- rect: left=20 top=52 right=83 bottom=212
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: Hider 2
  232.  
  233.  
  234. -- part 11 (button)
  235. -- low flags: 00
  236. -- high flags: 0000
  237. -- rect: left=51 top=302 right=333 bottom=217
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 0 / 0
  240. -- text alignment: 1
  241. -- font id: 0
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Hider 1
  246.  
  247.  
  248. -- part 12 (button)
  249. -- low flags: 00
  250. -- high flags: 2004
  251. -- rect: left=62 top=147 right=189 bottom=107
  252. -- title width / last selected line: 0
  253. -- icon id / first selected line: 32644 / 32644
  254. -- text alignment: 1
  255. -- font id: 0
  256. -- text size: 12
  257. -- style flags: 0
  258. -- line height: 16
  259. -- part name: Install
  260. ----- HyperTalk script -----
  261. on mouseUp
  262.   if the optionkey is down then pass mouseup
  263.   put installres(XCMD,ZoomRect) into it
  264.   if it is empty then play boing
  265.   else answer it
  266. end mouseUp
  267.  
  268. --
  269. --this function is used by the 'install' button
  270. --It then attempts to install the resource into
  271. --a target stack & returns the result.
  272. --
  273. function installres type, resname
  274. --
  275. --Original script by Steve Drazga, ART Incorpoated
  276. --XFCNs used: fileName,
  277. --XCMDs used: modResCopy,
  278. --HANDLERS used: none
  279. --FUNCTIONS used: none
  280. --
  281. put (long name of this stack) into sourceStack
  282. delete first word of sourceStack
  283. delete first character of sourceStack
  284. delete last character of sourceStack
  285. put "Select a stack to copy this resource into."
  286. put filename("STAK") into fname
  287. if fname is empty then exit installres
  288. if sourcestack=fname then
  289.   play "Boing"
  290.   return "Get real.  You can't install it in this stack"
  291.   exit installres
  292. end if
  293. hide the message window
  294. --
  295. ModResCopy sourceStack,fname,type,resname
  296. --
  297. get the result
  298. if first char of it is "E" then
  299.   play "Boing"
  300.   return "Attempt to install resource has failed."
  301. else
  302.   return "Resource installation successful"
  303. end if
  304. end installres
  305.  
  306.  
  307.  
  308.  
  309. -- part 13 (button)
  310. -- low flags: 00
  311. -- high flags: 2004
  312. -- rect: left=105 top=147 right=189 bottom=150
  313. -- title width / last selected line: 0
  314. -- icon id / first selected line: 20098 / 20098
  315. -- text alignment: 1
  316. -- font id: 0
  317. -- text size: 12
  318. -- style flags: 0
  319. -- line height: 16
  320. -- part name: Home
  321. ----- HyperTalk script -----
  322. on mouseUp
  323.   visual effect barn door close to black
  324.   visual effect barn door open to inverse
  325.   go home
  326. end mouseUp
  327.  
  328.