home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE.Komposita / card_8548.txt < prev    next >
Text File  |  1990-07-20  |  3KB  |  133 lines
  1. -- card: 8548 from stack: in.Komposita
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 8851
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.  
  9. end opencard
  10.  
  11. on closecard
  12.  
  13. end closecard
  14.  
  15. on arrowKey whichKey
  16. end arrowKey
  17.  
  18. -on returnkey
  19. click at the loc of card btn start
  20. end returnkey
  21.  
  22.  
  23.  
  24. -- part 2 (field)
  25. -- low flags: 80
  26. -- high flags: 0004
  27. -- rect: left=394 top=2 right=79 bottom=508
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 0
  31. -- font id: 3
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: Einstiegskarte
  36.  
  37.  
  38. -- part 5 (button)
  39. -- low flags: 00
  40. -- high flags: 2000
  41. -- rect: left=131 top=265 right=293 bottom=241
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: start
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   hide card field ProgrammInfo
  53.   set cursor to watch
  54.   lock screen
  55.   get line 1 of card field Einstiegskarte
  56.   put it into letztgeseheneKarte
  57.   if it is not empty
  58.   then
  59.   put "" into card field Einstiegskarte
  60.   get letztgeseheneKarte
  61.   go it
  62.   set the name of bkgnd btn id 147 to char 1 to 5 of the long time
  63.   if char 5 of the short name of bkgnd btn id 147 = ":"
  64.   then
  65.   set the name of bkgnd btn id 147 to char 1 to 4 of the long time
  66. end if
  67. set the name of bkgnd btn id 148 to "00:00"
  68. else
  69.   pop card
  70. end if
  71. unlock screen
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 8 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=0 top=265 right=293 bottom=104
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: 
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   if the visible of card field Programminfo is false
  91.   then
  92.   show card field Programminfo
  93. else
  94.   hide card field Programminfo
  95. end if
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part 9 (field)
  101. -- low flags: 81
  102. -- high flags: 2004
  103. -- rect: left=9 top=2 right=265 bottom=504
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 0
  107. -- font id: 176
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: ProgrammInfo
  112.  
  113.  
  114. -- part contents for card part 9
  115. ----- text -----
  116.  idea & background
  117.                                                         wolfgang hadamitzky
  118.                                                        tempelhofer damm 4
  119.                                                                 1000 berlin 42
  120.  
  121.                                     tel                                           fax
  122.                                     (+049) 30 785-1713             (+049) 30 785-1993
  123.  
  124.  
  125. concept & realisation
  126.                                                                softdesign berlin
  127.                                                                    donaustr. 54
  128.                                                                 1000 berlin 44
  129.  
  130.                                     tel                                           fax
  131.                                     (+049) 30 681-8301             (+049) 30 785-1993
  132.   
  133.