home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / applicat.sit / Applications / background_2652.txt < prev    next >
Text File  |  1988-08-16  |  5KB  |  264 lines
  1. -- background: 2652 from stack: in
  2. -- bmap block id: 2976
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put the abbr date into field "Date"
  9.   put the time into field "Time"
  10.   pass idle
  11. end idle
  12.  
  13.  
  14.  
  15. -- part 1 (button)
  16. -- low flags: 00
  17. -- high flags: 8000
  18. -- rect: left=10 top=66 right=101 bottom=52
  19. -- title width / last selected line: 0
  20. -- icon id / first selected line: 1011 / 1011
  21. -- text alignment: 1
  22. -- font id: 0
  23. -- text size: 12
  24. -- style flags: 0
  25. -- line height: 16
  26. -- part name: 
  27. ----- HyperTalk script -----
  28. on mouseUp
  29.   visual effect dissolve
  30.   go "Home"
  31. end mouseUp
  32.  
  33.  
  34.  
  35. -- part 3 (button)
  36. -- low flags: 00
  37. -- high flags: 8000
  38. -- rect: left=5 top=97 right=137 bottom=56
  39. -- title width / last selected line: 0
  40. -- icon id / first selected line: 20965 / 20965
  41. -- text alignment: 1
  42. -- font id: 0
  43. -- text size: 12
  44. -- style flags: 0
  45. -- line height: 16
  46. -- part name: 
  47. ----- HyperTalk script -----
  48. on mouseUp
  49.   go to card id 16690 of stack "Datebook"
  50. end mouseUp
  51.  
  52.  
  53.  
  54.  
  55. -- part 4 (button)
  56. -- low flags: 00
  57. -- high flags: 0000
  58. -- rect: left=14 top=130 right=158 bottom=49
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 22855 / 22855
  61. -- text alignment: 1
  62. -- font id: 0
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: Yearly
  67. ----- HyperTalk script -----
  68. on mouseUp
  69.   get the seconds
  70.   convert it to dateItems
  71.   put ((item 1 of it) - 1987) *2 into whichSix
  72.   if item 2 of it > 6 then add 1 to whichSix
  73.   visual effect zoom open
  74.   if whichSix < 1 then go card 1 of stack "DateBook"
  75.   else if whichSix > 5 then go card 5 of stack "DateBook"
  76.   else
  77.     go to card whichSix of stack "DateBook"
  78.     send "bracketWeek" && the seconds to this card
  79.   end if
  80. end mouseUp
  81.  
  82.  
  83.  
  84. -- part 5 (button)
  85. -- low flags: 00
  86. -- high flags: 0000
  87. -- rect: left=12 top=165 right=196 bottom=52
  88. -- title width / last selected line: 0
  89. -- icon id / first selected line: 11645 / 11645
  90. -- text alignment: 1
  91. -- font id: 0
  92. -- text size: 12
  93. -- style flags: 0
  94. -- line height: 16
  95. -- part name: View
  96. ----- HyperTalk script -----
  97. on mouseUp
  98.   visual effect zoom open
  99.   go to "Address"
  100. end mouseUp
  101.  
  102.  
  103.  
  104. -- part 8 (button)
  105. -- low flags: 00
  106. -- high flags: 2000
  107. -- rect: left=221 top=295 right=324 bottom=263
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 19381 / 19381
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: 
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   visual scroll right
  119.   go to previous card
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 9 (button)
  125. -- low flags: 00
  126. -- high flags: 2000
  127. -- rect: left=436 top=295 right=326 bottom=477
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 14953 / 14953
  130. -- text alignment: 1
  131. -- font id: 0
  132. -- text size: 12
  133. -- style flags: 0
  134. -- line height: 16
  135. -- part name: 
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   visual effect iris close
  139.   pop card
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 10 (button)
  145. -- low flags: 00
  146. -- high flags: 2000
  147. -- rect: left=267 top=295 right=324 bottom=311
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 22308 / 22308
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: 
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   visual scroll left
  159.   go to next card
  160. end mouseUp
  161.  
  162.  
  163.  
  164. -- part 14 (field)
  165. -- low flags: 01
  166. -- high flags: 0000
  167. -- rect: left=19 top=23 right=58 bottom=281
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 0
  171. -- font id: 21
  172. -- text size: 24
  173. -- style flags: 2816
  174. -- line height: 32
  175. -- part name: Applications File
  176.  
  177.  
  178. -- part 15 (field)
  179. -- low flags: 01
  180. -- high flags: 0000
  181. -- rect: left=354 top=4 right=21 bottom=507
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 65535
  185. -- font id: 3
  186. -- text size: 10
  187. -- style flags: 2048
  188. -- line height: 13
  189. -- part name: Date
  190.  
  191.  
  192. -- part 16 (field)
  193. -- low flags: 01
  194. -- high flags: 0000
  195. -- rect: left=414 top=23 right=39 bottom=507
  196. -- title width / last selected line: 0
  197. -- icon id / first selected line: 0 / 0
  198. -- text alignment: 65535
  199. -- font id: 3
  200. -- text size: 10
  201. -- style flags: 2304
  202. -- line height: 13
  203. -- part name: Time
  204.  
  205.  
  206. -- part 18 (button)
  207. -- low flags: 00
  208. -- high flags: 8000
  209. -- rect: left=15 top=278 right=326 bottom=48
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 146 / 146
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Finder
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   doMenu "Quit HyperCard"
  221. end mouseUp
  222.  
  223.  
  224. -- part 19 (button)
  225. -- low flags: 00
  226. -- high flags: 8003
  227. -- rect: left=74 top=294 right=319 bottom=155
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 1
  231. -- font id: 0
  232. -- text size: 12
  233. -- style flags: 0
  234. -- line height: 16
  235. -- part name: ShutDown
  236. ----- HyperTalk script -----
  237. on mouseUp
  238.   answer "Complete the ShutDown Procedure ?" with "Cancel" or "OK"
  239.   if it is "OK" then ShutDown
  240. end mouseUp
  241.  
  242.  
  243.  
  244.  
  245. -- part 20 (button)
  246. -- low flags: 00
  247. -- high flags: 0000
  248. -- rect: left=13 top=203 right=241 bottom=52
  249. -- title width / last selected line: 0
  250. -- icon id / first selected line: 28782 / 28782
  251. -- text alignment: 1
  252. -- font id: 0
  253. -- text size: 12
  254. -- style flags: 0
  255. -- line height: 16
  256. -- part name: Phone Log
  257. ----- HyperTalk script -----
  258. on mouseUp
  259.   visual effect dissolve
  260.   go to stack "Telephone Log"
  261. end mouseUp
  262.  
  263.  
  264.