home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / byndhypr.sit / OsmoIsland / card_2956.txt < prev    next >
Text File  |  1990-12-15  |  3KB  |  123 lines
  1. -- card: 2956 from stack: in
  2. -- bmap block id: 3588
  3. -- flags: 0000
  4. -- background id: 2660
  5. -- name: 
  6.  
  7.  
  8. -- part 4 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=3 top=2 right=36 bottom=37
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 24613 / 24613
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: 
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the windows contains "View" then
  23.     close window "View"
  24.   else
  25.     picture "View",resource,rect,false
  26.     set the rect of window "View" to "5,42,168,205"
  27.     set the scroll of window "View" to "5,42"
  28.     show window "View"
  29.   end if
  30. end mouseUp
  31.  
  32.  
  33.  
  34. -- part 5 (button)
  35. -- low flags: 00
  36. -- high flags: 0000
  37. -- rect: left=226 top=121 right=203 bottom=308
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 1
  41. -- font id: 0
  42. -- text size: 12
  43. -- style flags: 0
  44. -- line height: 16
  45. -- part name: dragger
  46.  
  47.  
  48. -- part 6 (button)
  49. -- low flags: 00
  50. -- high flags: 0000
  51. -- rect: left=47 top=3 right=27 bottom=63
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 8538 / 8538
  54. -- text alignment: 1
  55. -- font id: 0
  56. -- text size: 12
  57. -- style flags: 0
  58. -- line height: 16
  59. -- part name: New Button
  60. ----- HyperTalk script -----
  61. on mouseDown
  62.   if the windows contains "View" then
  63.     get the scale of window "View"
  64.     if it is 5 then
  65.       beep
  66.       exit mouseDown
  67.     end if
  68.     set the scale of window "View" to (it + 1)
  69.     adjustWindow
  70.   else
  71.     beep
  72.   end if
  73. end mouseDown
  74.  
  75.  
  76. -- part 7 (button)
  77. -- low flags: 00
  78. -- high flags: 0000
  79. -- rect: left=67 top=3 right=27 bottom=83
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 8539 / 8539
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: New Button
  88. ----- HyperTalk script -----
  89. on mouseDown
  90.   if the windows contains "View" then
  91.     get the scale of window "View"
  92.     if it is -2 then
  93.       beep
  94.       exit mouseDown
  95.     end if
  96.     set the scale of window "View" to (it - 1)
  97.     adjustWindow
  98.   else
  99.     beep
  100.   end if
  101. end mouseDown
  102.  
  103.  
  104. -- part 11 (button)
  105. -- low flags: 00
  106. -- high flags: 4002
  107. -- rect: left=105 top=3 right=37 bottom=141
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 22031 / 22031
  110. -- text alignment: 1
  111. -- font id: 0
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: BH
  116. ----- HyperTalk script -----
  117. on mouseUp
  118.   if the stacks contains "Beyond HyperCard" then doMenu "Close Stack"
  119.   else go to card id 5710 of stack "Beyond HyperCard"
  120. end mouseUp
  121.  
  122.  
  123.