home *** CD-ROM | disk | FTP | other *** search
/ The Electronic Whole Earth Catalog / ElectronicWholeEarthCatalog.img / INTRODUCTION / card_66833.txt < prev    next >
Text File  |  1989-02-08  |  3KB  |  152 lines
  1. -- card: 66833 from stack: in
  2. -- bmap block id: 3530
  3. -- flags: 0000
  4. -- background id: 85999
  5. -- name: 
  6.  
  7.  
  8. -- part 11 (field)
  9. -- low flags: 01
  10. -- high flags: 2004
  11. -- rect: left=55 top=97 right=140 bottom=191
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 256
  18. -- line height: 18
  19. -- part name: sMap
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   lookup "card id 64901", "iris open"
  23. end mouseUp
  24.  
  25.  
  26.  
  27. -- part 13 (field)
  28. -- low flags: 01
  29. -- high flags: 2004
  30. -- rect: left=153 top=258 right=297 bottom=289
  31. -- title width / last selected line: 0
  32. -- icon id / first selected line: 0 / 0
  33. -- text alignment: 1
  34. -- font id: 3
  35. -- text size: 14
  36. -- style flags: 256
  37. -- line height: 18
  38. -- part name: sMap
  39. ----- HyperTalk script -----
  40. on mouseUp
  41.   lookup "card id 63588", "iris open"
  42. end mouseUp
  43.  
  44.  
  45.  
  46. -- part 23 (field)
  47. -- low flags: 01
  48. -- high flags: 2004
  49. -- rect: left=254 top=44 right=90 bottom=450
  50. -- title width / last selected line: 0
  51. -- icon id / first selected line: 0 / 0
  52. -- text alignment: 0
  53. -- font id: 3
  54. -- text size: 14
  55. -- style flags: 256
  56. -- line height: 18
  57. -- part name: install
  58. ----- HyperTalk script -----
  59. on mouseUp
  60.   installWEButton
  61. end mouseUp
  62.  
  63. on installWEButton
  64.   answer "Install Whole Earth Button in Home Stack?" with "Yes" or "No"
  65.   if it = "yes" then
  66.     set lockscreen to true
  67.     choose button tool
  68.     select btn "Whole Earth"
  69.     domenu "Copy Button"
  70.     go Home
  71.     repeat with i = 1 to the number of buttons
  72.       if the short name of button i is "Whole Earth" then
  73.         choose browse tool
  74.         go back
  75.         answer "Whole Earth is already installed."
  76.         unlock screen with iris close
  77.         exit installWEButton
  78.       end if
  79.     end repeat
  80.  
  81.     domenu "paste button"
  82.     put "on mouseUp" & Return & "  go to stack" && Quote & "Whole Earth" & Quote & Return & "end mouseUp" & Return into weBtnScript
  83.     set the script of btn "Whole Earth" to weBtnScript
  84.     set the showName of btn "Whole Earth" to true
  85.     set the rect of btn "Whole Earth" to "216,83,276,130"
  86.     set lockscreen to false
  87.  
  88.     put "Click and slowly drag the button to the correct position."
  89.     wait until the mouse is down
  90.     repeat until the mouse is up
  91.       set the loc of card btn "Whole Earth" to the mouseLoc
  92.     end repeat
  93.   else
  94.     choose browse tool
  95.     exit installWEButton
  96.   end if
  97.  
  98.   choose browse tool
  99.   answer "Return to Whole Earth Introduction?" with "No" or "Yes"
  100.   hide the message box
  101.   if it = "Yes" then
  102.     go back
  103.   end if
  104. end installWEButton
  105.  
  106.  
  107.  
  108.  
  109. -- part 24 (button)
  110. -- low flags: 00
  111. -- high flags: 0000
  112. -- rect: left=406 top=50 right=84 bottom=442
  113. -- title width / last selected line: 0
  114. -- icon id / first selected line: 13297 / 13297
  115. -- text alignment: 1
  116. -- font id: 0
  117. -- text size: 12
  118. -- style flags: 0
  119. -- line height: 16
  120. -- part name: Whole Earth
  121. ----- HyperTalk script -----
  122. on mouseUp
  123.   send mouseUp to card field "install"
  124. end mouseUp
  125.  
  126.  
  127.  
  128. -- part contents for background part 1
  129. ----- text -----
  130. Section Map
  131.  
  132. -- part contents for background part 2
  133. ----- text -----
  134. INTRODUCTION
  135.  
  136. -- part contents for card part 11
  137. ----- text -----
  138. ABOUT THE
  139. DISC
  140.  
  141. -- part contents for card part 13
  142. ----- text -----
  143. HELP
  144.  
  145. -- part contents for background part 3
  146. ----- text -----
  147. 12115519
  148.  
  149. -- part contents for card part 23
  150. ----- text -----
  151. INSTALL BUTTON
  152.   IN HOME STACK