home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE / background_10147.txt < prev    next >
Text File  |  1990-07-20  |  2KB  |  69 lines
  1. -- background: 10147 from stack: in
  2. -- bmap block id: 10590
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: MacJAIL
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=0 top=265 right=293 bottom=104
  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: Info
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the visible of card field Programminfo is false
  23.   then
  24.   show card field Programminfo
  25. else
  26.   hide card field Programminfo
  27. end if
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 2 (button)
  33. -- low flags: 00
  34. -- high flags: 2000
  35. -- rect: left=131 top=265 right=293 bottom=241
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: start
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   hide card field ProgrammInfo
  47.   set cursor to watch
  48.   lock screen
  49.   get line 1 of card field Einstiegskarte
  50.   put it into letztgeseheneKarte
  51.   if it is not empty
  52.   then
  53.   put "" into card field Einstiegskarte
  54.   get letztgeseheneKarte
  55.   go it
  56.   if the number of this card < 5 then go card 5
  57.   set the name of bkgnd btn id 147 to char 1 to 5 of the long time
  58.   if char 5 of the short name of bkgnd btn id 147 = ":"
  59.   then
  60.   set the name of bkgnd btn id 147 to char 1 to 4 of the long time
  61. end if
  62. set the name of bkgnd btn id 148 to "00:00"
  63. else
  64.   pop card
  65. end if
  66. unlock screen
  67. end mouseUp
  68.  
  69.