home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / diskmana.sit / DiskManager / background_2669.txt < prev    next >
Text File  |  1988-11-26  |  7KB  |  331 lines
  1. -- background: 2669 from stack: in
  2. -- bmap block id: 3265
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on newStack
  8.   extend
  9. end newStack
  10.  
  11. on extend
  12.   -- type "extend" into the message box and press return to make
  13.   -- three months worth of new cards.
  14.   if the name of this stack contains "stack ideas"
  15.   then
  16.   answer "Please make a new stack before extending it." with "OK"
  17. else
  18.   answer "Make three months more of new cards?" with "OK" or "Cancel"
  19.   if it is "Cancel" then exit extend
  20.   go to last card of this background
  21.   put getStartDate() into start      --what date to begin on
  22.   if start is "Cancel" then exit extend
  23.   put 60*60*24 into OneDay      --seconds in a day
  24.   repeat with cnt = 1 to (365 div 4)   --three months
  25.     put start into it        --a copy
  26.     convert it to long date
  27.     put it into field "Date"
  28.     add OneDay to start
  29.     doMenu New Card
  30.   end repeat
  31.   convert start to long date     --fix the last card
  32.   put start into field "Date"
  33. end if
  34. end extend
  35.  
  36. function getStartDate
  37. -- end of stack or today, whichever is newer
  38. get field "Date"
  39. if it is empty then put the short date into it
  40. convert it to seconds    --so we can compare
  41. put the short date into today
  42. convert today to seconds
  43. if today < 2587766400 then
  44.   answer "Set the Control Panel to today's date" with "OK"
  45.   return "Cancel"
  46. end if
  47. if it >= today then return it   --calendar already beyond today
  48. convert it to short date
  49. answer "Start from which date?" with it or the short date or "Cancel"
  50. if it is "Cancel" then return it
  51. convert it to seconds
  52. return it
  53. end getStartDate
  54.  
  55. on openBackground
  56.   push recent card
  57. end openBackground
  58.  
  59.  
  60. -- part 11 (button)
  61. -- low flags: 00
  62. -- high flags: 0000
  63. -- rect: left=150 top=300 right=334 bottom=189
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 1011 / 1011
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Home
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   visual effect iris close
  75.   go "Home"
  76. end mouseUp
  77.  
  78.  
  79.  
  80. -- part 43 (field)
  81. -- low flags: 00
  82. -- high flags: 0000
  83. -- rect: left=10 top=35 right=62 bottom=205
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 0
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 24
  91. -- part name: 
  92.  
  93.  
  94. -- part 44 (field)
  95. -- low flags: 00
  96. -- high flags: 4000
  97. -- rect: left=8 top=82 right=303 bottom=166
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 0 / 0
  100. -- text alignment: 1
  101. -- font id: 3
  102. -- text size: 10
  103. -- style flags: 0
  104. -- line height: 13
  105. -- part name: 
  106.  
  107.  
  108. -- part 45 (field)
  109. -- low flags: 00
  110. -- high flags: 4000
  111. -- rect: left=172 top=82 right=303 bottom=413
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 0 / 0
  114. -- text alignment: 0
  115. -- font id: 3
  116. -- text size: 10
  117. -- style flags: 0
  118. -- line height: 13
  119. -- part name: 
  120.  
  121.  
  122. -- part 58 (field)
  123. -- low flags: 01
  124. -- high flags: 0000
  125. -- rect: left=29 top=23 right=37 bottom=147
  126. -- title width / last selected line: 0
  127. -- icon id / first selected line: 0 / 0
  128. -- text alignment: 0
  129. -- font id: 3
  130. -- text size: 10
  131. -- style flags: 16896
  132. -- line height: 13
  133. -- part name: 
  134.  
  135.  
  136. -- part 66 (field)
  137. -- low flags: 00
  138. -- high flags: 0007
  139. -- rect: left=415 top=56 right=303 bottom=505
  140. -- title width / last selected line: 0
  141. -- icon id / first selected line: 0 / 0
  142. -- text alignment: 0
  143. -- font id: 3
  144. -- text size: 10
  145. -- style flags: 0
  146. -- line height: 13
  147. -- part name: 
  148.  
  149.  
  150. -- part 68 (field)
  151. -- low flags: 01
  152. -- high flags: 0000
  153. -- rect: left=397 top=33 right=55 bottom=506
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 0
  157. -- font id: 3
  158. -- text size: 10
  159. -- style flags: 16896
  160. -- line height: 13
  161. -- part name: 
  162.  
  163.  
  164. -- part 70 (button)
  165. -- low flags: 00
  166. -- high flags: A003
  167. -- rect: left=260 top=311 right=333 bottom=355
  168. -- title width / last selected line: 0
  169. -- icon id / first selected line: 0 / 0
  170. -- text alignment: 1
  171. -- font id: 0
  172. -- text size: 12
  173. -- style flags: 0
  174. -- line height: 16
  175. -- part name: Find
  176. ----- HyperTalk script -----
  177. on mouseUp
  178.   doMenu "Find..."
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 71 (button)
  184. -- low flags: 00
  185. -- high flags: A003
  186. -- rect: left=404 top=310 right=332 bottom=502
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 0 / 0
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: Sort
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  198.   if it is "First Name"
  199.   then sort by first word of first line of field 1
  200. else if it is "Last Name"
  201. then sort by last word of first line of field 1
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 72 (button)
  207. -- low flags: 00
  208. -- high flags: 8000
  209. -- rect: left=350 top=26 right=72 bottom=399
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 17343 / 17343
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Application
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   open the short name of the target
  221. end mouseUp
  222.  
  223.  
  224.  
  225. -- part 74 (button)
  226. -- low flags: 00
  227. -- high flags: 0000
  228. -- rect: left=79 top=299 right=338 bottom=127
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 19381 / 19381
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: 
  237. ----- HyperTalk script -----
  238. on mouseUp
  239.   go to previous card
  240. end mouseUp
  241.  
  242.  
  243.  
  244. -- part 75 (button)
  245. -- low flags: 00
  246. -- high flags: 0000
  247. -- rect: left=210 top=299 right=338 bottom=258
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 22308 / 22308
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: 
  256. ----- HyperTalk script -----
  257. on mouseUp
  258.   go to next card
  259. end mouseUp
  260.  
  261.  
  262.  
  263. -- part 79 (field)
  264. -- low flags: 01
  265. -- high flags: 0000
  266. -- rect: left=15 top=65 right=83 bottom=136
  267. -- title width / last selected line: 0
  268. -- icon id / first selected line: 0 / 0
  269. -- text alignment: 0
  270. -- font id: 3
  271. -- text size: 10
  272. -- style flags: 17920
  273. -- line height: 13
  274. -- part name: 
  275.  
  276.  
  277. -- part 80 (field)
  278. -- low flags: 01
  279. -- high flags: 0000
  280. -- rect: left=216 top=63 right=81 bottom=327
  281. -- title width / last selected line: 0
  282. -- icon id / first selected line: 0 / 0
  283. -- text alignment: 0
  284. -- font id: 3
  285. -- text size: 12
  286. -- style flags: 0
  287. -- line height: 16
  288. -- part name: 
  289.  
  290.  
  291. -- part 82 (button)
  292. -- low flags: 00
  293. -- high flags: 8000
  294. -- rect: left=19 top=291 right=336 bottom=69
  295. -- title width / last selected line: 0
  296. -- icon id / first selected line: 3877 / 3877
  297. -- text alignment: 1
  298. -- font id: 0
  299. -- text size: 12
  300. -- style flags: 0
  301. -- line height: 16
  302. -- part name: New Card
  303. ----- HyperTalk script -----
  304. on mouseUp
  305.   set the cursor to 4
  306.   DoMenu New Card
  307.   wait 30
  308.   set the cursor to 1
  309.   tabKey
  310. end mouseUp
  311.  
  312.  
  313.  
  314. -- part 84 (button)
  315. -- low flags: 00
  316. -- high flags: 0004
  317. -- rect: left=360 top=303 right=337 bottom=399
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 32670 / 32670
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: 
  326. ----- HyperTalk script -----
  327. on mouseUp
  328.   show all cards
  329. end mouseUp
  330.  
  331.