home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / barbutto.sit / BarButton / card_6173.txt < prev    next >
Text File  |  1987-11-23  |  3KB  |  163 lines
  1. -- card: 6173 from stack: in
  2. -- bmap block id: 6908
  3. -- flags: 0000
  4. -- background id: 6007
  5. -- name: Card 1
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global NeedSetup
  9.   put 0 into NeedSetup
  10. end opencard
  11.  
  12. on idle
  13.   global NeedSetup
  14.   if NeedSetup is 0 then
  15.     play "boing"
  16.     get the rect of card button id 1
  17.     repeat with proportion = 0 to 10
  18.       BarButton -1,10,0,proportion
  19.     end repeat
  20.   end if
  21.  
  22.   if NeedSetup is 1 then
  23.     get the rect of card button id 3
  24.     repeat with proportion = 0 to 10
  25.       BarButton -2,10,0,proportion
  26.     end repeat
  27.   end if
  28.  
  29.   if NeedSetup is 2 then
  30.     get the rect of card button id 4
  31.     repeat with proportion = 0 to 10
  32.       BarButton -4,10,0,proportion
  33.     end repeat
  34.   end if
  35.  
  36.   if NeedSetup is 3 then
  37.     get the rect of card button id 7
  38.     repeat with proportion = 0 to 10
  39.       BarButton 1,10,0,proportion
  40.     end repeat
  41.   end if
  42.  
  43.   if NeedSetup is 5 then
  44.     play "boing"
  45.     go next card
  46.   end if
  47.  
  48.   add 1 to NeedSetup
  49.   pass idle
  50. end idle
  51.  
  52.  
  53. -- part 1 (button)
  54. -- low flags: 00
  55. -- high flags: 0002
  56. -- rect: left=28 top=40 right=59 bottom=130
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 0 / 0
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 24
  62. -- style flags: 0
  63. -- line height: 32
  64. -- part name: 
  65. ----- HyperTalk script -----
  66. on mousedown
  67.   set cursor to 2
  68.   get the rect of me
  69.   BarButton
  70. end mousedown
  71.  
  72.  
  73.  
  74. -- part 3 (button)
  75. -- low flags: 00
  76. -- high flags: 0002
  77. -- rect: left=28 top=70 right=89 bottom=130
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 1
  81. -- font id: 0
  82. -- text size: 24
  83. -- style flags: 0
  84. -- line height: 32
  85. -- part name: 
  86. ----- HyperTalk script -----
  87. on mousedown
  88.   set cursor to 2
  89.   get the rect of me
  90.   BarButton
  91. end mousedown
  92.  
  93.  
  94.  
  95. -- part 4 (button)
  96. -- low flags: 00
  97. -- high flags: 0002
  98. -- rect: left=67 top=100 right=238 bottom=86
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 1
  102. -- font id: 0
  103. -- text size: 24
  104. -- style flags: 0
  105. -- line height: 32
  106. -- part name: 
  107. ----- HyperTalk script -----
  108. on mousedown
  109.   set cursor to 2
  110.   get the rect of me
  111.   BarButton
  112. end mousedown
  113.  
  114.  
  115.  
  116. -- part 7 (button)
  117. -- low flags: 00
  118. -- high flags: 0002
  119. -- rect: left=28 top=264 right=283 bottom=468
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 24
  125. -- style flags: 0
  126. -- line height: 32
  127. -- part name: 
  128. ----- HyperTalk script -----
  129. on mousedown
  130.   set cursor to 2
  131.   get the rect of me
  132.   BarButton
  133. end mousedown
  134.  
  135.  
  136.  
  137. -- part 8 (field)
  138. -- low flags: 00
  139. -- high flags: 2004
  140. -- rect: left=155 top=35 right=241 bottom=479
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 0 / 0
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: 
  149.  
  150.  
  151. -- part contents for card part 8
  152. ----- text -----
  153.  
  154. BarButton
  155.  
  156. A Public Domain XCMD for Hypercard
  157.  
  158. ┬áwritten by Lloyd Maxfield 
  159.  
  160. Infosynthesis
  161. 2960 Ferry Street
  162. Eugene, OR 97405
  163. (503) 344-3322