home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / ejector.sit / EjectorXCMD / background_2777.txt < prev    next >
Text File  |  1989-11-11  |  3KB  |  131 lines
  1. -- background: 2777 from stack: in
  2. -- bmap block id: 3476
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=21 top=310 right=335 bottom=47
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 20689 / 20689
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Home
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   visual effect iris close
  23.   go Home
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 4 (button)
  29. -- low flags: 00
  30. -- high flags: A000
  31. -- rect: left=11 top=39 right=95 bottom=74
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 4479 / 4479
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Eject Internal
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   Ejector 1
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 5 (button)
  48. -- low flags: 00
  49. -- high flags: A000
  50. -- rect: left=7 top=114 right=172 bottom=79
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 4479 / 4479
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Eject External
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   Ejector 2
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 7 (button)
  67. -- low flags: 00
  68. -- high flags: 0000
  69. -- rect: left=368 top=286 right=318 bottom=402
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: right dogear
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   if the optionkey is down then pass mouseup
  81.   -- this script handles a diagonally divided button, intended to be
  82.   --  a right dogear
  83.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  84.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  85.   if (x < y) then              -- click is in upper left
  86.     visual scroll left very fast to gray
  87.     visual scroll left very fast
  88.     go next card
  89.   else
  90.     visual scroll right very fast to gray
  91.     visual scroll right very fast
  92.     go previous card
  93.   end if
  94. end mouseUp
  95.  
  96.  
  97.  
  98. -- part 8 (field)
  99. -- low flags: 00
  100. -- high flags: 0000
  101. -- rect: left=235 top=296 right=313 bottom=280
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 3
  106. -- text size: 12
  107. -- style flags: 0
  108. -- line height: 16
  109. -- part name: pageNumber
  110.  
  111.  
  112. -- part 9 (button)
  113. -- low flags: 00
  114. -- high flags: A000
  115. -- rect: left=16 top=181 right=228 bottom=73
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 26898 / 26898
  118. -- text alignment: 1
  119. -- font id: 0
  120. -- text size: 12
  121. -- style flags: 0
  122. -- line height: 16
  123. -- part name: Install
  124. ----- HyperTalk script -----
  125. on mouseUp
  126.   put installRes (XCMD, Ejector) into it
  127.   if it is empty then play oops
  128.   else answer it
  129. end mouseUp
  130.  
  131.