home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / mathgrap.sit / MathGrapher / card_3642.txt < prev    next >
Encoding:
Text File  |  1989-07-28  |  2.8 KB  |  150 lines
  1. -- card: 3642 from stack: in
  2. -- bmap block id: 5515
  3. -- flags: 4000
  4. -- background id: 3368
  5. -- name: First
  6. ----- HyperTalk script -----
  7. on CloseCard
  8.   show menubar
  9. end CloseCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 1 (button)
  15. -- low flags: 00
  16. -- high flags: 2002
  17. -- rect: left=2 top=97 right=145 bottom=53
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 1011 / 1011
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: 
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   -- This is a script
  29.   global HereOrNot
  30.   if HereOrNot is empty then
  31.   else
  32.     go to card "Sample Work" of stack "Promotion"
  33.     exit to HyperCard
  34.   end if
  35.   visual effect iris close
  36.   go home
  37. end mouseUp
  38.  
  39. on mouseEnter
  40.   set the hilite of the target to true
  41. end mouseEnter
  42.  
  43. on MouseLeave
  44.   set the hilite of the target to false
  45. end MouseLeave
  46.  
  47.  
  48.  
  49. -- part 3 (field)
  50. -- low flags: 01
  51. -- high flags: 0002
  52. -- rect: left=6 top=23 right=56 bottom=296
  53. -- title width / last selected line: 0
  54. -- icon id / first selected line: 0 / 0
  55. -- text alignment: 1
  56. -- font id: 158
  57. -- text size: 24
  58. -- style flags: 0
  59. -- line height: 32
  60. -- part name: 
  61.  
  62.  
  63. -- part 4 (button)
  64. -- low flags: 00
  65. -- high flags: A002
  66. -- rect: left=2 top=145 right=193 bottom=53
  67. -- title width / last selected line: 0
  68. -- icon id / first selected line: 21060 / 21060
  69. -- text alignment: 1
  70. -- font id: 0
  71. -- text size: 12
  72. -- style flags: 0
  73. -- line height: 16
  74. -- part name: Help
  75. ----- HyperTalk script -----
  76. on mouseUp
  77.   visual zoom out to white
  78.   domenu "help"
  79. end mouseUp
  80.  
  81. on mouseEnter
  82.   set the hilite of the target to true
  83. end mouseEnter
  84.  
  85. on MouseLeave
  86.   set the hilite of the target to false
  87. end MouseLeave
  88.  
  89.  
  90.  
  91. -- part 5 (button)
  92. -- low flags: 00
  93. -- high flags: A002
  94. -- rect: left=2 top=193 right=239 bottom=53
  95. -- title width / last selected line: 0
  96. -- icon id / first selected line: 2478 / 2478
  97. -- text alignment: 1
  98. -- font id: 0
  99. -- text size: 12
  100. -- style flags: 0
  101. -- line height: 16
  102. -- part name: Aboutâ•”
  103. ----- HyperTalk script -----
  104. on mouseUp
  105.   visual zoom out to white
  106.   push card
  107.   go to card "About"
  108. end mouseUp
  109.  
  110. on mouseEnter
  111.   set the hilite of the target to true
  112. end mouseEnter
  113.  
  114. on MouseLeave
  115.   set the hilite of the target to false
  116. end MouseLeave
  117.  
  118.  
  119.  
  120. -- part 6 (button)
  121. -- low flags: 00
  122. -- high flags: A002
  123. -- rect: left=2 top=239 right=285 bottom=53
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 22308 / 22308
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Onwardâ•”
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   visual effect scroll left
  135.   go to card "Branch"
  136. end mouseUp
  137.  
  138. on mouseEnter
  139.   set the hilite of the target to true
  140. end mouseEnter
  141.  
  142. on MouseLeave
  143.   set the hilite of the target to false
  144. end MouseLeave
  145.  
  146.  
  147.  
  148. -- part contents for card part 3
  149. ----- text -----
  150. The MathGrapher Stack  v 1.1