home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / schedule.sit / Scheduler / background_12137.txt < prev    next >
Text File  |  1988-02-12  |  22KB  |  1,011 lines
  1. -- background: 12137 from stack: in
  2. -- bmap block id: 12883
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Requests Off
  6. ----- HyperTalk script -----
  7. on openBackground
  8.  
  9.   -- menu set up
  10.  
  11.   global menu1
  12.   put NewMenu ("Options","Delete this Card", "New SchedulER Card","Next Card/8", "Prior Card/9","Clear All Buttons", "Clear Data Field","(-","Set Days On","Scheduler", "(-","Find An Employees Card" ) into menu1
  13.   if menu1 is 0 then answer ("Unable to make menu "Beep") with "Drat"
  14. end openBackground
  15.  
  16. on closebackground
  17.   global menu1
  18.   put deleteMenu(menu1) into menu1
  19. end closebackground
  20.  
  21. on idle
  22.  
  23.   -- personal menu setup
  24.  
  25.   global menu1,lastTick
  26.   if (the ticks-lasttick)> 120 then
  27.     put the ticks into lastTick
  28.     showMenu(menu1)
  29.   end if
  30.   pass idle
  31. end idle
  32.  
  33. on doMenu which
  34.   global menu1
  35.   if which is "New SchedulER Card" then
  36.     send "mouseUp" to bkgnd button "New SchedulER Card" -- my version of new card
  37.   else if which is "Delete this Card" then
  38.     send "mouseUp" to bkgnd button "DeleteCard"
  39.   else if which is "Next Card" then
  40.     send "mouseUp" to bkgnd button "Next Card"
  41.   else if which is "Prior Card" then
  42.     send "mouseUp" to bkgnd button "Prior Card"
  43.   else if which is "Clear All Buttons" then
  44.     send "mouseUp" to bkgnd button "Clear buttons"
  45.   else if which is "Select Whole Days Off" then
  46.     send "mouseUp" to bkgnd button "Select Whole Days"
  47.   else if which is "Clear Data Field" then
  48.     put "" into field "Data"
  49.   else if which is "set days On" then
  50.     closebackground
  51.     go to first card of bkgnd "Requests On"
  52.   else if which is "Scheduler" then
  53.     closebackground
  54.     pop card
  55.   else if which is "Find An Employees Card" then
  56.     Ask "Which Employee's Card are you Looking for"
  57.     find it in field "Name"
  58.   else pass doMenu
  59. end doMenu
  60.  
  61.  
  62. -- part 1 (field)
  63. -- low flags: 00
  64. -- high flags: 4000
  65. -- rect: left=45 top=69 right=87 bottom=164
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 0
  69. -- font id: 21
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Name
  74.  
  75.  
  76. -- part 144 (field)
  77. -- low flags: 01
  78. -- high flags: 4000
  79. -- rect: left=157 top=257 right=272 bottom=250
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 3
  84. -- text size: 10
  85. -- style flags: 0
  86. -- line height: 13
  87. -- part name: Shiftlimit1
  88.  
  89.  
  90. -- part 145 (field)
  91. -- low flags: 01
  92. -- high flags: 4000
  93. -- rect: left=158 top=277 right=292 bottom=252
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 10
  99. -- style flags: 0
  100. -- line height: 13
  101. -- part name: ShiftLimit2
  102.  
  103.  
  104. -- part 183 (button)
  105. -- low flags: 00
  106. -- high flags: 2005
  107. -- rect: left=258 top=51 right=66 bottom=274
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: 
  116.  
  117.  
  118. -- part 184 (button)
  119. -- low flags: 00
  120. -- high flags: 2005
  121. -- rect: left=274 top=51 right=66 bottom=290
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 0 / 0
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: 
  130.  
  131.  
  132. -- part 185 (button)
  133. -- low flags: 00
  134. -- high flags: 2005
  135. -- rect: left=290 top=51 right=66 bottom=306
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: 
  144.  
  145.  
  146. -- part 186 (button)
  147. -- low flags: 00
  148. -- high flags: 2005
  149. -- rect: left=306 top=51 right=66 bottom=322
  150. -- title width / last selected line: 0
  151. -- icon id / first selected line: 0 / 0
  152. -- text alignment: 1
  153. -- font id: 0
  154. -- text size: 12
  155. -- style flags: 0
  156. -- line height: 16
  157. -- part name: 
  158.  
  159.  
  160. -- part 187 (button)
  161. -- low flags: 00
  162. -- high flags: 2005
  163. -- rect: left=322 top=51 right=66 bottom=338
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: 
  172.  
  173.  
  174. -- part 188 (button)
  175. -- low flags: 00
  176. -- high flags: 2005
  177. -- rect: left=338 top=51 right=66 bottom=354
  178. -- title width / last selected line: 0
  179. -- icon id / first selected line: 0 / 0
  180. -- text alignment: 1
  181. -- font id: 0
  182. -- text size: 12
  183. -- style flags: 0
  184. -- line height: 16
  185. -- part name: 
  186.  
  187.  
  188. -- part 189 (button)
  189. -- low flags: 00
  190. -- high flags: 2005
  191. -- rect: left=354 top=51 right=66 bottom=370
  192. -- title width / last selected line: 0
  193. -- icon id / first selected line: 0 / 0
  194. -- text alignment: 1
  195. -- font id: 0
  196. -- text size: 12
  197. -- style flags: 0
  198. -- line height: 16
  199. -- part name: 
  200.  
  201.  
  202. -- part 190 (button)
  203. -- low flags: 00
  204. -- high flags: 2005
  205. -- rect: left=258 top=85 right=100 bottom=274
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 0 / 0
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: 
  214.  
  215.  
  216. -- part 191 (button)
  217. -- low flags: 00
  218. -- high flags: 2005
  219. -- rect: left=274 top=85 right=100 bottom=290
  220. -- title width / last selected line: 0
  221. -- icon id / first selected line: 0 / 0
  222. -- text alignment: 1
  223. -- font id: 0
  224. -- text size: 12
  225. -- style flags: 0
  226. -- line height: 16
  227. -- part name: 
  228.  
  229.  
  230. -- part 192 (button)
  231. -- low flags: 00
  232. -- high flags: 2005
  233. -- rect: left=290 top=85 right=100 bottom=306
  234. -- title width / last selected line: 0
  235. -- icon id / first selected line: 0 / 0
  236. -- text alignment: 1
  237. -- font id: 0
  238. -- text size: 12
  239. -- style flags: 0
  240. -- line height: 16
  241. -- part name: 
  242.  
  243.  
  244. -- part 193 (button)
  245. -- low flags: 00
  246. -- high flags: 2005
  247. -- rect: left=306 top=85 right=100 bottom=322
  248. -- title width / last selected line: 0
  249. -- icon id / first selected line: 0 / 0
  250. -- text alignment: 1
  251. -- font id: 0
  252. -- text size: 12
  253. -- style flags: 0
  254. -- line height: 16
  255. -- part name: 
  256.  
  257.  
  258. -- part 194 (button)
  259. -- low flags: 00
  260. -- high flags: 2005
  261. -- rect: left=322 top=85 right=100 bottom=338
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 0 / 0
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: 
  270.  
  271.  
  272. -- part 195 (button)
  273. -- low flags: 00
  274. -- high flags: 2005
  275. -- rect: left=338 top=85 right=100 bottom=354
  276. -- title width / last selected line: 0
  277. -- icon id / first selected line: 0 / 0
  278. -- text alignment: 1
  279. -- font id: 0
  280. -- text size: 12
  281. -- style flags: 0
  282. -- line height: 16
  283. -- part name: 
  284.  
  285.  
  286. -- part 196 (button)
  287. -- low flags: 00
  288. -- high flags: 2005
  289. -- rect: left=354 top=85 right=100 bottom=370
  290. -- title width / last selected line: 0
  291. -- icon id / first selected line: 0 / 0
  292. -- text alignment: 1
  293. -- font id: 0
  294. -- text size: 12
  295. -- style flags: 0
  296. -- line height: 16
  297. -- part name: 
  298.  
  299.  
  300. -- part 197 (button)
  301. -- low flags: 00
  302. -- high flags: 2005
  303. -- rect: left=257 top=116 right=131 bottom=273
  304. -- title width / last selected line: 0
  305. -- icon id / first selected line: 0 / 0
  306. -- text alignment: 1
  307. -- font id: 0
  308. -- text size: 12
  309. -- style flags: 0
  310. -- line height: 16
  311. -- part name: 
  312.  
  313.  
  314. -- part 198 (button)
  315. -- low flags: 00
  316. -- high flags: 2005
  317. -- rect: left=273 top=116 right=131 bottom=289
  318. -- title width / last selected line: 0
  319. -- icon id / first selected line: 0 / 0
  320. -- text alignment: 1
  321. -- font id: 0
  322. -- text size: 12
  323. -- style flags: 0
  324. -- line height: 16
  325. -- part name: 
  326.  
  327.  
  328. -- part 199 (button)
  329. -- low flags: 00
  330. -- high flags: 2005
  331. -- rect: left=289 top=116 right=131 bottom=305
  332. -- title width / last selected line: 0
  333. -- icon id / first selected line: 0 / 0
  334. -- text alignment: 1
  335. -- font id: 0
  336. -- text size: 12
  337. -- style flags: 0
  338. -- line height: 16
  339. -- part name: 
  340.  
  341.  
  342. -- part 200 (button)
  343. -- low flags: 00
  344. -- high flags: 2005
  345. -- rect: left=305 top=116 right=131 bottom=321
  346. -- title width / last selected line: 0
  347. -- icon id / first selected line: 0 / 0
  348. -- text alignment: 1
  349. -- font id: 0
  350. -- text size: 12
  351. -- style flags: 0
  352. -- line height: 16
  353. -- part name: 
  354.  
  355.  
  356. -- part 201 (button)
  357. -- low flags: 00
  358. -- high flags: 2005
  359. -- rect: left=321 top=116 right=131 bottom=337
  360. -- title width / last selected line: 0
  361. -- icon id / first selected line: 0 / 0
  362. -- text alignment: 1
  363. -- font id: 0
  364. -- text size: 12
  365. -- style flags: 0
  366. -- line height: 16
  367. -- part name: 
  368.  
  369.  
  370. -- part 202 (button)
  371. -- low flags: 00
  372. -- high flags: 2005
  373. -- rect: left=337 top=116 right=131 bottom=353
  374. -- title width / last selected line: 0
  375. -- icon id / first selected line: 0 / 0
  376. -- text alignment: 1
  377. -- font id: 0
  378. -- text size: 12
  379. -- style flags: 0
  380. -- line height: 16
  381. -- part name: 
  382.  
  383.  
  384. -- part 203 (button)
  385. -- low flags: 00
  386. -- high flags: 2005
  387. -- rect: left=353 top=116 right=131 bottom=369
  388. -- title width / last selected line: 0
  389. -- icon id / first selected line: 0 / 0
  390. -- text alignment: 1
  391. -- font id: 0
  392. -- text size: 12
  393. -- style flags: 0
  394. -- line height: 16
  395. -- part name: 
  396.  
  397.  
  398. -- part 204 (button)
  399. -- low flags: 00
  400. -- high flags: 2005
  401. -- rect: left=256 top=145 right=160 bottom=272
  402. -- title width / last selected line: 0
  403. -- icon id / first selected line: 0 / 0
  404. -- text alignment: 1
  405. -- font id: 0
  406. -- text size: 12
  407. -- style flags: 0
  408. -- line height: 16
  409. -- part name: 
  410.  
  411.  
  412. -- part 205 (button)
  413. -- low flags: 00
  414. -- high flags: 2005
  415. -- rect: left=272 top=145 right=160 bottom=288
  416. -- title width / last selected line: 0
  417. -- icon id / first selected line: 0 / 0
  418. -- text alignment: 1
  419. -- font id: 0
  420. -- text size: 12
  421. -- style flags: 0
  422. -- line height: 16
  423. -- part name: 
  424.  
  425.  
  426. -- part 206 (button)
  427. -- low flags: 00
  428. -- high flags: 2005
  429. -- rect: left=288 top=145 right=160 bottom=304
  430. -- title width / last selected line: 0
  431. -- icon id / first selected line: 0 / 0
  432. -- text alignment: 1
  433. -- font id: 0
  434. -- text size: 12
  435. -- style flags: 0
  436. -- line height: 16
  437. -- part name: 
  438.  
  439.  
  440. -- part 207 (button)
  441. -- low flags: 00
  442. -- high flags: 2005
  443. -- rect: left=304 top=145 right=160 bottom=320
  444. -- title width / last selected line: 0
  445. -- icon id / first selected line: 0 / 0
  446. -- text alignment: 1
  447. -- font id: 0
  448. -- text size: 12
  449. -- style flags: 0
  450. -- line height: 16
  451. -- part name: 
  452.  
  453.  
  454. -- part 208 (button)
  455. -- low flags: 00
  456. -- high flags: 2005
  457. -- rect: left=320 top=145 right=160 bottom=336
  458. -- title width / last selected line: 0
  459. -- icon id / first selected line: 0 / 0
  460. -- text alignment: 1
  461. -- font id: 0
  462. -- text size: 12
  463. -- style flags: 0
  464. -- line height: 16
  465. -- part name: 
  466.  
  467.  
  468. -- part 209 (button)
  469. -- low flags: 00
  470. -- high flags: 2005
  471. -- rect: left=336 top=145 right=160 bottom=352
  472. -- title width / last selected line: 0
  473. -- icon id / first selected line: 0 / 0
  474. -- text alignment: 1
  475. -- font id: 0
  476. -- text size: 12
  477. -- style flags: 0
  478. -- line height: 16
  479. -- part name: 
  480.  
  481.  
  482. -- part 210 (button)
  483. -- low flags: 00
  484. -- high flags: 2005
  485. -- rect: left=352 top=145 right=160 bottom=368
  486. -- title width / last selected line: 0
  487. -- icon id / first selected line: 0 / 0
  488. -- text alignment: 1
  489. -- font id: 0
  490. -- text size: 12
  491. -- style flags: 0
  492. -- line height: 16
  493. -- part name: 
  494.  
  495.  
  496. -- part 211 (button)
  497. -- low flags: 00
  498. -- high flags: 2005
  499. -- rect: left=258 top=177 right=192 bottom=274
  500. -- title width / last selected line: 0
  501. -- icon id / first selected line: 0 / 0
  502. -- text alignment: 1
  503. -- font id: 0
  504. -- text size: 12
  505. -- style flags: 0
  506. -- line height: 16
  507. -- part name: 
  508.  
  509.  
  510. -- part 212 (button)
  511. -- low flags: 00
  512. -- high flags: 2005
  513. -- rect: left=274 top=177 right=192 bottom=290
  514. -- title width / last selected line: 0
  515. -- icon id / first selected line: 0 / 0
  516. -- text alignment: 1
  517. -- font id: 0
  518. -- text size: 12
  519. -- style flags: 0
  520. -- line height: 16
  521. -- part name: 
  522.  
  523.  
  524. -- part 214 (button)
  525. -- low flags: 00
  526. -- high flags: 2005
  527. -- rect: left=290 top=177 right=192 bottom=306
  528. -- title width / last selected line: 0
  529. -- icon id / first selected line: 0 / 0
  530. -- text alignment: 1
  531. -- font id: 0
  532. -- text size: 12
  533. -- style flags: 0
  534. -- line height: 16
  535. -- part name: 
  536.  
  537.  
  538. -- part 215 (button)
  539. -- low flags: 00
  540. -- high flags: 2005
  541. -- rect: left=204 top=85 right=100 bottom=220
  542. -- title width / last selected line: 0
  543. -- icon id / first selected line: 0 / 0
  544. -- text alignment: 1
  545. -- font id: 0
  546. -- text size: 12
  547. -- style flags: 0
  548. -- line height: 16
  549. -- part name: 
  550.  
  551.  
  552. -- part 216 (button)
  553. -- low flags: 00
  554. -- high flags: 2005
  555. -- rect: left=204 top=106 right=121 bottom=220
  556. -- title width / last selected line: 0
  557. -- icon id / first selected line: 0 / 0
  558. -- text alignment: 1
  559. -- font id: 0
  560. -- text size: 12
  561. -- style flags: 0
  562. -- line height: 16
  563. -- part name: 
  564.  
  565.  
  566. -- part 217 (button)
  567. -- low flags: 00
  568. -- high flags: 2005
  569. -- rect: left=204 top=126 right=141 bottom=220
  570. -- title width / last selected line: 0
  571. -- icon id / first selected line: 0 / 0
  572. -- text alignment: 1
  573. -- font id: 0
  574. -- text size: 12
  575. -- style flags: 0
  576. -- line height: 16
  577. -- part name: 
  578.  
  579.  
  580. -- part 218 (button)
  581. -- low flags: 00
  582. -- high flags: 2005
  583. -- rect: left=204 top=147 right=162 bottom=220
  584. -- title width / last selected line: 0
  585. -- icon id / first selected line: 0 / 0
  586. -- text alignment: 1
  587. -- font id: 0
  588. -- text size: 12
  589. -- style flags: 0
  590. -- line height: 16
  591. -- part name: 
  592.  
  593.  
  594. -- part 219 (button)
  595. -- low flags: 00
  596. -- high flags: 2006
  597. -- rect: left=443 top=73 right=88 bottom=459
  598. -- title width / last selected line: 0
  599. -- icon id / first selected line: 0 / 0
  600. -- text alignment: 1
  601. -- font id: 0
  602. -- text size: 12
  603. -- style flags: 0
  604. -- line height: 16
  605. -- part name: Select Days
  606. ----- HyperTalk script -----
  607. on mouseUp
  608.   set cursor to 4
  609.   put "" into day
  610.   put "" into shiftflag
  611.   put "A B C D" into shifts
  612.   put "False" into set
  613.  
  614.   repeat with i = 32 to 35
  615.     if hilite of bkgnd button i = "True" -- is one of them set?
  616.     then put "true" into set
  617.   end repeat
  618.  
  619.   if set = "False" then
  620.     answer "You have to set one of the shift buttons"
  621.     exit mouseUp
  622.   end if
  623.  
  624.   repeat with i = 1 to 31
  625.     if hilite of bkgnd button i = "True" then
  626.       repeat with shift = 32 to 35
  627.         if hilite of bkgnd button shift = "True" then
  628.           put " " & i & (word (shift - 31) of shifts) after day
  629.         end if
  630.       end repeat
  631.     end if
  632.   end repeat
  633.  
  634.   repeat with shift = 1 to 35
  635.     set hilite of bkgnd button shift to "False"
  636.   end repeat
  637.   put " " & day after bkgnd field "Data"
  638.   set hilite of bkgnd button "Select Days" to "False"
  639.  
  640. end mouseUp
  641.  
  642.  
  643.  
  644. -- part 220 (button)
  645. -- low flags: 00
  646. -- high flags: 0000
  647. -- rect: left=411 top=0 right=16 bottom=511
  648. -- title width / last selected line: 0
  649. -- icon id / first selected line: 0 / 0
  650. -- text alignment: 1
  651. -- font id: 0
  652. -- text size: 12
  653. -- style flags: 0
  654. -- line height: 16
  655. -- part name: New SchedulER Card
  656. ----- HyperTalk script -----
  657. on mouseUp
  658.   doMenu "Copy Card"
  659.   doMenu "Paste Card"
  660.   put "Blank" into field Name
  661. end mouseUp
  662.  
  663.  
  664.  
  665. -- part 221 (button)
  666. -- low flags: 00
  667. -- high flags: 0000
  668. -- rect: left=433 top=113 right=142 bottom=469
  669. -- title width / last selected line: 0
  670. -- icon id / first selected line: 22308 / 22308
  671. -- text alignment: 1
  672. -- font id: 0
  673. -- text size: 12
  674. -- style flags: 0
  675. -- line height: 16
  676. -- part name: Next Card
  677. ----- HyperTalk script -----
  678. on mouseUp
  679.   get id of card
  680.   put id of last card of background "requests off" into lastcard
  681.   if it = lastcard then
  682.     go to first card of background "requests off"
  683.   else
  684.     visual effect wipe right
  685.     go to next card of bkgnd "Requests off"
  686.   end if
  687. end mouseUp
  688.  
  689.  
  690.  
  691. -- part 222 (button)
  692. -- low flags: 00
  693. -- high flags: 0000
  694. -- rect: left=104 top=0 right=16 bottom=203
  695. -- title width / last selected line: 0
  696. -- icon id / first selected line: 0 / 0
  697. -- text alignment: 1
  698. -- font id: 0
  699. -- text size: 12
  700. -- style flags: 0
  701. -- line height: 16
  702. -- part name: Select Whole Days
  703.  
  704.  
  705. -- part 223 (button)
  706. -- low flags: 00
  707. -- high flags: 0000
  708. -- rect: left=194 top=0 right=16 bottom=274
  709. -- title width / last selected line: 0
  710. -- icon id / first selected line: 0 / 0
  711. -- text alignment: 1
  712. -- font id: 0
  713. -- text size: 12
  714. -- style flags: 0
  715. -- line height: 16
  716. -- part name: DeleteCard
  717. ----- HyperTalk script -----
  718. on mouseUp
  719.   set lockscreen to true
  720.   get id of card
  721.   put it into cardID
  722.   put id of first card of bkgnd "requests off" into firstcard
  723.   put id of last card of bkgnd "requests off" into lastcard
  724.   if cardID = firstcard and cardID = lastcard then
  725.     answer "Can't Delete the last card"
  726.   else
  727.     answer "Are You Sure" with "Yes" or "No"
  728.     if it = "yes" then domenu "delete card"
  729.     if cardID = lastcard then go to First card of bkgnd "Requests Off"
  730.   end if
  731.   set lockscreen to false
  732. end mouseUp
  733.  
  734.  
  735.  
  736. -- part 224 (button)
  737. -- low flags: 00
  738. -- high flags: 0000
  739. -- rect: left=434 top=161 right=191 bottom=469
  740. -- title width / last selected line: 0
  741. -- icon id / first selected line: 19381 / 19381
  742. -- text alignment: 1
  743. -- font id: 0
  744. -- text size: 12
  745. -- style flags: 0
  746. -- line height: 16
  747. -- part name: Prior Card
  748. ----- HyperTalk script -----
  749. on mouseUp
  750.   get id of card
  751.   put id of first card of background "requests off" into firstcard
  752.   if it = firstcard then
  753.     visual effect wipe left
  754.     go to last card of background "requests off"
  755.   else
  756.  
  757.     visual effect wipe left
  758.     go to previous card of bkgnd "requests off"
  759.   end if
  760. end mouseUp
  761.  
  762.  
  763.  
  764. -- part 225 (button)
  765. -- low flags: 00
  766. -- high flags: 0000
  767. -- rect: left=20 top=0 right=14 bottom=101
  768. -- title width / last selected line: 0
  769. -- icon id / first selected line: 0 / 0
  770. -- text alignment: 1
  771. -- font id: 0
  772. -- text size: 12
  773. -- style flags: 0
  774. -- line height: 16
  775. -- part name: Clear Buttons
  776. ----- HyperTalk script -----
  777. on mouseUp
  778.   repeat with i = 1 to 35
  779.     set hilite of bkgnd button i to "False"
  780.   end repeat
  781. end mouseUp
  782.  
  783.  
  784.  
  785. -- part 228 (field)
  786. -- low flags: 01
  787. -- high flags: 4007
  788. -- rect: left=4 top=156 right=193 bottom=184
  789. -- title width / last selected line: 0
  790. -- icon id / first selected line: 0 / 0
  791. -- text alignment: 0
  792. -- font id: 21
  793. -- text size: 10
  794. -- style flags: 0
  795. -- line height: 13
  796. -- part name: Data
  797.  
  798.  
  799. -- part 229 (button)
  800. -- low flags: 00
  801. -- high flags: 2000
  802. -- rect: left=273 top=222 right=252 bottom=294
  803. -- title width / last selected line: 0
  804. -- icon id / first selected line: 16692 / 16692
  805. -- text alignment: 1
  806. -- font id: 0
  807. -- text size: 12
  808. -- style flags: 0
  809. -- line height: 16
  810. -- part name: shiftanumup
  811. ----- HyperTalk script -----
  812. on mouseUp
  813.   get field shiftindicatorA
  814.   if it = "A" then
  815.     put 1 into num
  816.   else if it = "B" then
  817.     put 2 into num
  818.   else if it = "C" then
  819.     put 3 into num
  820.   else if it = "D" then
  821.     put 4 into num
  822.   end if
  823.   get word num of field shiftlimit1
  824.   if it >= 31 then put 0 into it
  825.   put 1 + it into it
  826.   put it into word num of field shiftlimit1
  827. end mouseUp
  828.  
  829.  
  830.  
  831. -- part 230 (button)
  832. -- low flags: 00
  833. -- high flags: 0000
  834. -- rect: left=297 top=246 right=261 bottom=313
  835. -- title width / last selected line: 0
  836. -- icon id / first selected line: 16560 / 16560
  837. -- text alignment: 1
  838. -- font id: 0
  839. -- text size: 12
  840. -- style flags: 0
  841. -- line height: 16
  842. -- part name: New Button
  843. ----- HyperTalk script -----
  844. on mouseUp
  845.   Get field shiftindicatorA
  846.   if it = "A" then
  847.     put "B" into it
  848.   else if it = "B" then
  849.     put "C" into it
  850.   else if it = "C" then
  851.     put "D" into it
  852.   else if it = "D" then
  853.     put "A" into it
  854.   end if
  855.   put it into field shiftindicatorA
  856. end mouseUp
  857.  
  858.  
  859.  
  860. -- part 231 (field)
  861. -- low flags: 01
  862. -- high flags: 0000
  863. -- rect: left=295 top=225 right=242 bottom=312
  864. -- title width / last selected line: 0
  865. -- icon id / first selected line: 0 / 0
  866. -- text alignment: 0
  867. -- font id: 3
  868. -- text size: 14
  869. -- style flags: 256
  870. -- line height: 18
  871. -- part name: ShiftindicatorA
  872.  
  873.  
  874. -- part 233 (button)
  875. -- low flags: 00
  876. -- high flags: 2000
  877. -- rect: left=315 top=222 right=252 bottom=336
  878. -- title width / last selected line: 0
  879. -- icon id / first selected line: 3584 / 3584
  880. -- text alignment: 1
  881. -- font id: 0
  882. -- text size: 12
  883. -- style flags: 0
  884. -- line height: 16
  885. -- part name: shiftanumup
  886. ----- HyperTalk script -----
  887. on mouseUp
  888.   get field shiftindicatorA
  889.   if it = "A" then
  890.     put 1 into num
  891.   else if it = "B" then
  892.     put 2 into num
  893.   else if it = "C" then
  894.     put 3 into num
  895.   else if it = "D" then
  896.     put 4 into num
  897.   end if
  898.   get word num of field shiftlimit1
  899.   if it <= 0  then put 31 into it
  900.   put it - 1 into it
  901.   put it into word num of field shiftlimit1
  902. end mouseUp
  903.  
  904.  
  905.  
  906. -- part 234 (field)
  907. -- low flags: 01
  908. -- high flags: 0000
  909. -- rect: left=295 top=268 right=285 bottom=312
  910. -- title width / last selected line: 0
  911. -- icon id / first selected line: 0 / 0
  912. -- text alignment: 0
  913. -- font id: 3
  914. -- text size: 14
  915. -- style flags: 256
  916. -- line height: 18
  917. -- part name: Shiftindicatorb
  918.  
  919.  
  920. -- part 235 (button)
  921. -- low flags: 00
  922. -- high flags: 2000
  923. -- rect: left=273 top=265 right=295 bottom=294
  924. -- title width / last selected line: 0
  925. -- icon id / first selected line: 16692 / 16692
  926. -- text alignment: 1
  927. -- font id: 0
  928. -- text size: 12
  929. -- style flags: 0
  930. -- line height: 16
  931. -- part name: shiftanumup
  932. ----- HyperTalk script -----
  933. on mouseUp
  934.   get field shiftindicatorb
  935.   if it = "A" then
  936.     put 1 into num
  937.   else if it = "B" then
  938.     put 2 into num
  939.   else if it = "C" then
  940.     put 3 into num
  941.   else if it = "D" then
  942.     put 4 into num
  943.   end if
  944.   get word num of field shiftlimit2
  945.   if it >= 31 then put 0 into it
  946.   put 1 + it into it
  947.   put it into word num of field shiftlimit2
  948. end mouseUp
  949.  
  950.  
  951.  
  952. -- part 236 (button)
  953. -- low flags: 00
  954. -- high flags: 2000
  955. -- rect: left=317 top=265 right=295 bottom=338
  956. -- title width / last selected line: 0
  957. -- icon id / first selected line: 3584 / 3584
  958. -- text alignment: 1
  959. -- font id: 0
  960. -- text size: 12
  961. -- style flags: 0
  962. -- line height: 16
  963. -- part name: shiftanumup
  964. ----- HyperTalk script -----
  965. on mouseUp
  966.   get field shiftindicatorb
  967.   if it = "A" then
  968.     put 1 into num
  969.   else if it = "B" then
  970.     put 2 into num
  971.   else if it = "C" then
  972.     put 3 into num
  973.   else if it = "D" then
  974.     put 4 into num
  975.   end if
  976.   get word num of field shiftlimit2
  977.   if it < 0  then put 31 into it
  978.   put it - 1 into it
  979.   put it into word num of field shiftlimit2
  980. end mouseUp
  981.  
  982.  
  983.  
  984. -- part 237 (button)
  985. -- low flags: 00
  986. -- high flags: 0000
  987. -- rect: left=296 top=295 right=310 bottom=312
  988. -- title width / last selected line: 0
  989. -- icon id / first selected line: 16560 / 16560
  990. -- text alignment: 1
  991. -- font id: 0
  992. -- text size: 12
  993. -- style flags: 0
  994. -- line height: 16
  995. -- part name: New Button
  996. ----- HyperTalk script -----
  997. on mouseUp
  998.   Get field shiftindicatorb
  999.   if it = "A" then
  1000.     put "B" into it
  1001.   else if it = "B" then
  1002.     put "C" into it
  1003.   else if it = "C" then
  1004.     put "D" into it
  1005.   else if it = "D" then
  1006.     put "A" into it
  1007.   end if
  1008.   put it into field shiftindicatorb
  1009. end mouseUp
  1010.  
  1011.