home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / notepads.sit / LooseNotes / background_2766.txt < prev    next >
Text File  |  1987-11-24  |  8KB  |  361 lines
  1. -- background: 2766 from stack: in
  2. -- bmap block id: 3876
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on closeField
  8.   put char 2 to 99 of item 2 of the abbrev date into field "Date"
  9. end closeField
  10.  
  11.  
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 00
  16. -- high flags: 0000
  17. -- rect: left=18 top=52 right=317 bottom=461
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 2
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: 
  26.  
  27.  
  28. -- part 2 (field)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=123 top=29 right=49 bottom=461
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 0 / 0
  34. -- text alignment: 0
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: 
  40.  
  41.  
  42. -- part 6 (button)
  43. -- low flags: 00
  44. -- high flags: 2000
  45. -- rect: left=475 top=29 right=49 bottom=499
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 11045 / 11045
  48. -- text alignment: 1
  49. -- font id: 0
  50. -- text size: 12
  51. -- style flags: 0
  52. -- line height: 16
  53. -- part name: Home
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   go to last card
  57.   if bkgnd field 1 is empty then
  58.     if bkgnd field 2 is empty then
  59.       doMenu delete card
  60.       visual effect iris close
  61.       go Home
  62.     end if
  63.  
  64.   else
  65.  
  66.     visual effect iris close
  67.     go Home
  68.   end if
  69.  
  70. end mouseUp
  71.  
  72.  
  73. -- part 10 (field)
  74. -- low flags: 01
  75. -- high flags: 0000
  76. -- rect: left=393 top=322 right=337 bottom=461
  77. -- title width / last selected line: 0
  78. -- icon id / first selected line: 0 / 0
  79. -- text alignment: 0
  80. -- font id: 3
  81. -- text size: 9
  82. -- style flags: 0
  83. -- line height: 12
  84. -- part name: Date
  85.  
  86.  
  87. -- part 11 (button)
  88. -- low flags: 00
  89. -- high flags: 2000
  90. -- rect: left=472 top=55 right=78 bottom=503
  91. -- title width / last selected line: 0
  92. -- icon id / first selected line: 17481 / 17481
  93. -- text alignment: 1
  94. -- font id: 0
  95. -- text size: 12
  96. -- style flags: 0
  97. -- line height: 16
  98. -- part name: Address
  99. ----- HyperTalk script -----
  100. on mouseUp
  101.   go to last card
  102.   if bkgnd field 1 is empty then
  103.     if bkgnd field 2 is empty then
  104.       doMenu delete card
  105.       get the selection
  106.       visual effect zoom open
  107.       go to "Address"
  108.       if it is not empty then find it
  109.     end if
  110.  
  111.   else
  112.     get the selection
  113.     visual effect zoom open
  114.     go to "Address"
  115.     if it is not empty then find it
  116.   end if
  117.  
  118. end mouseUp
  119.  
  120.  
  121.  
  122. -- part 12 (button)
  123. -- low flags: 00
  124. -- high flags: 2000
  125. -- rect: left=469 top=82 right=108 bottom=503
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 22855 / 22855
  128. -- text alignment: 1
  129. -- font id: 0
  130. -- text size: 12
  131. -- style flags: 0
  132. -- line height: 16
  133. -- part name: Yearly
  134. ----- HyperTalk script -----
  135. on mouseUp
  136.   go to last card
  137.   if bkgnd field 1 is empty then
  138.     if bkgnd field 2 is empty then
  139.       doMenu delete card
  140.       get the seconds
  141.       convert it to dateItems
  142.       put ((item 1 of it) - 1987) *2 into whichSix
  143.       if item 2 of it > 6 then add 1 to whichSix
  144.       visual effect zoom open
  145.       if whichSix < 1 then go card 1 of stack "DateBook"
  146.       else if whichSix > 5 then go card 5 of stack "DateBook"
  147.       else
  148.         go to card whichSix of stack "DateBook"
  149.         send "bracketWeek" && the seconds to this card
  150.       end if
  151.     end if
  152.   else
  153.     get the seconds
  154.     convert it to dateItems
  155.     put ((item 1 of it) - 1987) *2 into whichSix
  156.     if item 2 of it > 6 then add 1 to whichSix
  157.     visual effect zoom open
  158.     if whichSix < 1 then go card 1 of stack "DateBook"
  159.     else if whichSix > 5 then go card 5 of stack "DateBook"
  160.     else
  161.       go to card whichSix of stack "DateBook"
  162.       send "bracketWeek" && the seconds to this card
  163.     end if
  164.   end if
  165.  
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 13 (button)
  171. -- low flags: 00
  172. -- high flags: 2000
  173. -- rect: left=473 top=114 right=138 bottom=503
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 2478 / 2478
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Tell Me About...
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   go to card "About LooseNotes"
  185. end mouseUp
  186.  
  187.  
  188. -- part 14 (button)
  189. -- low flags: 00
  190. -- high flags: 2000
  191. -- rect: left=476 top=142 right=166 bottom=504
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 23739 / 23739
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: Add Card
  200. ----- HyperTalk script -----
  201. on mouseUp
  202.   if the optionKey is down then
  203.     get bkgnd field "Number"
  204.     doMenu new card
  205.     put it + .01 into bkgnd field "Number"
  206.   else
  207.     if the optionKey is up then
  208.       go to last card
  209.       get bkgnd field "Number"
  210.       doMenu new card
  211.       put round (it) + 1 into bkgnd field "Number"
  212.     end if
  213.   end if
  214.  
  215. end mouseUp
  216.  
  217.  
  218.  
  219. -- part 15 (button)
  220. -- low flags: 00
  221. -- high flags: 2000
  222. -- rect: left=475 top=168 right=193 bottom=505
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 10412 / 10412
  225. -- text alignment: 1
  226. -- font id: 0
  227. -- text size: 12
  228. -- style flags: 0
  229. -- line height: 16
  230. -- part name: Delete
  231. ----- HyperTalk script -----
  232. on mouseUp
  233.   show bkgnd button "Keep Card"
  234.   show bkgnd button "Delete Card"
  235. end mouseUp
  236.  
  237.  
  238.  
  239. -- part 21 (button)
  240. -- low flags: 80
  241. -- high flags: A003
  242. -- rect: left=226 top=290 right=312 bottom=326
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: Delete Card
  251. ----- HyperTalk script -----
  252. on mouseUp
  253.   doMenu delete card
  254.   hide bkgnd button "Delete Card"
  255.   hide bkgnd button "Keep Card"
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 22 (button)
  261. -- low flags: 80
  262. -- high flags: A003
  263. -- rect: left=111 top=290 right=312 bottom=211
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 0 / 0
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Keep Card
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   hide bkgnd button "Keep Card"
  275.   hide bkgnd button "Delete Card"
  276. end mouseUp
  277.  
  278.  
  279.  
  280. -- part 23 (field)
  281. -- low flags: 01
  282. -- high flags: 0000
  283. -- rect: left=47 top=318 right=333 bottom=112
  284. -- title width / last selected line: 0
  285. -- icon id / first selected line: 0 / 0
  286. -- text alignment: 0
  287. -- font id: 3
  288. -- text size: 9
  289. -- style flags: 0
  290. -- line height: 12
  291. -- part name: Number
  292.  
  293.  
  294. -- part 24 (button)
  295. -- low flags: 00
  296. -- high flags: 2000
  297. -- rect: left=473 top=196 right=222 bottom=507
  298. -- title width / last selected line: 0
  299. -- icon id / first selected line: 32670 / 32670
  300. -- text alignment: 1
  301. -- font id: 0
  302. -- text size: 12
  303. -- style flags: 0
  304. -- line height: 16
  305. -- part name: Show All Cards
  306. ----- HyperTalk script -----
  307. on mouseUp
  308.   show all cards
  309. end mouseUp
  310.  
  311.  
  312.  
  313. -- part 25 (button)
  314. -- low flags: 00
  315. -- high flags: 2000
  316. -- rect: left=474 top=224 right=252 bottom=504
  317. -- title width / last selected line: 0
  318. -- icon id / first selected line: 1009 / 1009
  319. -- text alignment: 1
  320. -- font id: 0
  321. -- text size: 12
  322. -- style flags: 0
  323. -- line height: 16
  324. -- part name: Find
  325. ----- HyperTalk script -----
  326. on mouseUp
  327.   doMenu "Find..."
  328. end mouseUp
  329.  
  330.  
  331.  
  332. -- part 26 (button)
  333. -- low flags: 00
  334. -- high flags: 0000
  335. -- rect: left=481 top=312 right=334 bottom=503
  336. -- title width / last selected line: 0
  337. -- icon id / first selected line: 0 / 0
  338. -- text alignment: 1
  339. -- font id: 0
  340. -- text size: 12
  341. -- style flags: 0
  342. -- line height: 16
  343. -- part name: right dogear
  344. ----- HyperTalk script -----
  345. on mouseUp
  346.   -- this script handles a diagonally divided button, intended to be
  347.   --  a right dogear
  348.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  349.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  350.   if (x < y) then              -- click is in upper left
  351.     visual effect zoom open
  352.     play "click"
  353.     go to next card
  354.   else
  355.     visual effect wipe right
  356.     play "click"
  357.     go to prev card
  358.   end if
  359. end mouseUp
  360.  
  361.