home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / macsunrs.sit / MacSUNRISE.Komposita / background_264098.txt < prev    next >
Text File  |  1990-07-20  |  4KB  |  218 lines
  1. -- background: 264098 from stack: in.Komposita
  2. -- bmap block id: 264324
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Kanji.Standard.wèhlen
  6. ----- HyperTalk script -----
  7. on idle
  8.   if the visible of card btn OK is true
  9.   then
  10.   repeat until the mouse is down
  11.     set cursor to L├╢sch
  12.   end repeat
  13.   set cursor to gel├╢scht
  14.   click at the clickloc
  15.   exit idle
  16. end if
  17. pass idle
  18. end idle
  19.  
  20.  
  21.  
  22. -- part 10 (field)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=20 top=123 right=177 bottom=91
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: 
  34.  
  35.  
  36. -- part 13 (field)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=18 top=66 right=99 bottom=52
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: 
  48.  
  49.  
  50. -- part 14 (field)
  51. -- low flags: 00
  52. -- high flags: 0000
  53. -- rect: left=31 top=116 right=150 bottom=62
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: 
  62.  
  63.  
  64. -- part 17 (field)
  65. -- low flags: 00
  66. -- high flags: 0000
  67. -- rect: left=21 top=222 right=273 bottom=81
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: 
  76.  
  77.  
  78. -- part 18 (field)
  79. -- low flags: 00
  80. -- high flags: 0000
  81. -- rect: left=31 top=300 right=315 bottom=56
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 12
  87. -- style flags: 0
  88. -- line height: 16
  89. -- part name: 
  90.  
  91.  
  92. -- part 19 (field)
  93. -- low flags: 00
  94. -- high flags: 0000
  95. -- rect: left=44 top=281 right=314 bottom=65
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 12
  101. -- style flags: 0
  102. -- line height: 16
  103. -- part name: 
  104.  
  105.  
  106. -- part 23 (field)
  107. -- low flags: 00
  108. -- high flags: 0000
  109. -- rect: left=34 top=56 right=78 bottom=47
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: 
  118.  
  119.  
  120. -- part 26 (field)
  121. -- low flags: 00
  122. -- high flags: 0000
  123. -- rect: left=6 top=173 right=197 bottom=26
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: 
  132.  
  133.  
  134. -- part 27 (field)
  135. -- low flags: 00
  136. -- high flags: 0000
  137. -- rect: left=27 top=247 right=282 bottom=71
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 3
  142. -- text size: 12
  143. -- style flags: 0
  144. -- line height: 16
  145. -- part name: 
  146.  
  147.  
  148. -- part 30 (field)
  149. -- low flags: 00
  150. -- high flags: 0000
  151. -- rect: left=11 top=41 right=116 bottom=50
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 0
  155. -- font id: 3
  156. -- text size: 12
  157. -- style flags: 0
  158. -- line height: 16
  159. -- part name: 
  160.  
  161.  
  162. -- part 31 (field)
  163. -- low flags: 00
  164. -- high flags: 0000
  165. -- rect: left=60 top=124 right=162 bottom=95
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 0
  169. -- font id: 3
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: 
  174.  
  175.  
  176. -- part 34 (field)
  177. -- low flags: 00
  178. -- high flags: 0000
  179. -- rect: left=1 top=276 right=325 bottom=59
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 0
  183. -- font id: 3
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: 
  188.  
  189.  
  190. -- part 36 (field)
  191. -- low flags: 01
  192. -- high flags: 0007
  193. -- rect: left=118 top=69 right=341 bottom=231
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 0
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: GemerkteZeichen
  202. ----- HyperTalk script -----
  203. on mouseup
  204.   if the visible of card btn OK is true
  205.   then
  206.   set cursor to gel├╢scht
  207.   lock screen
  208.   set locktext of me to false
  209.   click at the clickloc
  210.   click at the clickloc
  211.   delete line word 2 of the selectedLine of me
  212.   set locktext of me to true
  213.   unlock screen
  214.   if me is empty then send mouseup to card btn ok
  215. end if
  216. end mouseup
  217.  
  218.