home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / x_tools1.sit / X-Tools1.1 / background_8025.txt < prev    next >
Text File  |  1988-01-27  |  5KB  |  195 lines
  1. -- background: 8025 from stack: in.1
  2. -- bmap block id: 8721
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: A004
  11. -- rect: left=396 top=42 right=64 bottom=496
  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: Do it
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get FileName()
  23.   -- name of a file the user picks goes into "it"
  24.   put "You choseΓǪ" & return into bkgnd field 1
  25.   if it is not empty then
  26.     put it after bkgnd field 1
  27.   else
  28.     -- we return a null string if user hits Cancel
  29.     put "to click the Cancel button" after bkgnd field 1
  30.   end if
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 2 (field)
  36. -- low flags: 00
  37. -- high flags: 0004
  38. -- rect: left=30 top=35 right=199 bottom=355
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 0 / 0
  41. -- text alignment: 0
  42. -- font id: 3
  43. -- text size: 9
  44. -- style flags: 0
  45. -- line height: 12
  46. -- part name: 
  47.  
  48.  
  49. -- part 5 (button)
  50. -- low flags: 00
  51. -- high flags: 2000
  52. -- rect: left=431 top=313 right=331 bottom=460
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 2162 / 2162
  55. -- text alignment: 1
  56. -- font id: 0
  57. -- text size: 12
  58. -- style flags: 0
  59. -- line height: 16
  60. -- part name: Home
  61. ----- HyperTalk script -----
  62. on mouseUp
  63.   visual effect iris close
  64.   go card filename
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 10 (button)
  70. -- low flags: 00
  71. -- high flags: A000
  72. -- rect: left=396 top=66 right=113 bottom=496
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 4895 / 4895
  75. -- text alignment: 1
  76. -- font id: 3
  77. -- text size: 9
  78. -- style flags: 0
  79. -- line height: 12
  80. -- part name: Look at this script
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   set the highlight of bkgnd button "do it" to true
  84.   waitasec
  85.   set the highlight of bkgnd button "do it" to false
  86.   play "Boing" c5e
  87.   put the script of bkgnd button "do it" into bkgnd field 1
  88.   wait until the sound is "done"
  89.   set the highlight of bkgnd button "do it" to true
  90.   waitasec
  91.   set the highlight of bkgnd button "do it" to false
  92. end mouseUp
  93.  
  94.  
  95.  
  96. -- part 12 (button)
  97. -- low flags: 00
  98. -- high flags: A004
  99. -- rect: left=396 top=139 right=161 bottom=496
  100. -- title width / last selected line: 0
  101. -- icon id / first selected line: 0 / 0
  102. -- text alignment: 1
  103. -- font id: 0
  104. -- text size: 12
  105. -- style flags: 0
  106. -- line height: 16
  107. -- part name: Read a file
  108. ----- HyperTalk script -----
  109. on mouseUp
  110.   put FileName("TEXT") into theFile
  111.   if theFile is not empty then
  112.     open file theFile
  113.     read from file theFile for 1000
  114.     put it into bkgnd field 1
  115.     close file theFile
  116.   end if
  117. end mouseUp
  118.  
  119.  
  120.  
  121. -- part 13 (button)
  122. -- low flags: 00
  123. -- high flags: A004
  124. -- rect: left=396 top=229 right=251 bottom=496
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: Launch╔
  133. ----- HyperTalk script -----
  134. on mouseUp
  135.   put FileName("APPL") into theFile
  136.   if theFile is not empty then
  137.     open theFile
  138.   end if
  139. end mouseUp
  140.  
  141.  
  142.  
  143. -- part 15 (button)
  144. -- low flags: 00
  145. -- high flags: A000
  146. -- rect: left=396 top=163 right=210 bottom=496
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 4895 / 4895
  149. -- text alignment: 1
  150. -- font id: 3
  151. -- text size: 9
  152. -- style flags: 0
  153. -- line height: 12
  154. -- part name: Look at this script
  155. ----- HyperTalk script -----
  156. on mouseUp
  157.   set the highlight of bkgnd button "read a file" to true
  158.   waitasec
  159.   set the highlight of bkgnd button "read a file" to false
  160.   play "Boing" c5e
  161.   put the script of bkgnd button "read a file" into bkgnd field 1
  162.   wait until the sound is "done"
  163.   set the highlight of bkgnd button "read a file" to true
  164.   waitasec
  165.   set the highlight of bkgnd button "read a file" to false
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 16 (button)
  171. -- low flags: 00
  172. -- high flags: A000
  173. -- rect: left=396 top=253 right=300 bottom=496
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 4895 / 4895
  176. -- text alignment: 1
  177. -- font id: 3
  178. -- text size: 9
  179. -- style flags: 0
  180. -- line height: 12
  181. -- part name: Look at this script
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   set the highlight of bkgnd button "launchΓǪ" to true
  185.   waitasec
  186.   set the highlight of bkgnd button "launchΓǪ" to false
  187.   play "Boing" c5e
  188.   put the script of bkgnd button "launchΓǪ" into bkgnd field 1
  189.   wait until the sound is "done"
  190.   set the highlight of bkgnd button "launchΓǪ" to true
  191.   waitasec
  192.   set the highlight of bkgnd button "launchΓǪ" to false
  193. end mouseUp
  194.  
  195.