home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / xcmd / mntnmntx.bin / mountunmountxcmd106.bin / card_3666.txt < prev    next >
Text File  |  1989-06-06  |  4KB  |  191 lines
  1. -- card: 3666 from stack: in.bin
  2. -- bmap block id: 4080
  3. -- flags: 0000
  4. -- background id: 2805
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=192 top=55 right=74 bottom=396
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: zone
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=192 top=78 right=97 bottom=396
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: server
  34.  
  35.  
  36. -- part 3 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=192 top=101 right=120 bottom=396
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: volume
  48.  
  49.  
  50. -- part 4 (button)
  51. -- low flags: 00
  52. -- high flags: A003
  53. -- rect: left=420 top=154 right=205 bottom=485
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Mount
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   Mount card field "zone", card field "server", card field "volume", card field "username", card field "password", card field "vpassword"
  65.   if the result <> "" then put the result into msg
  66.   --
  67.   --  After logging in, clobber the password fields.  Network security
  68.   --  is bad enough as it is!
  69.   --
  70.   put "" into card field "password"
  71.   put "" into card field "vpassword"
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 5 (field)
  77. -- low flags: 00
  78. -- high flags: 0002
  79. -- rect: left=192 top=127 right=146 bottom=396
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 0
  83. -- font id: 3
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: username
  88.  
  89.  
  90. -- part 6 (field)
  91. -- low flags: 00
  92. -- high flags: 0002
  93. -- rect: left=192 top=170 right=189 bottom=396
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 0
  97. -- font id: 3
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: password
  102.  
  103.  
  104. -- part 7 (field)
  105. -- low flags: 00
  106. -- high flags: 0002
  107. -- rect: left=192 top=195 right=214 bottom=396
  108. -- title width / last selected line: 0
  109. -- icon id / first selected line: 0 / 0
  110. -- text alignment: 0
  111. -- font id: 3
  112. -- text size: 12
  113. -- style flags: 0
  114. -- line height: 16
  115. -- part name: vpassword
  116.  
  117.  
  118. -- part 8 (button)
  119. -- low flags: 00
  120. -- high flags: 0004
  121. -- rect: left=447 top=286 right=320 bottom=486
  122. -- title width / last selected line: 0
  123. -- icon id / first selected line: 20098 / 20098
  124. -- text alignment: 1
  125. -- font id: 0
  126. -- text size: 12
  127. -- style flags: 0
  128. -- line height: 16
  129. -- part name: Home
  130. ----- HyperTalk script -----
  131. on mouseUp
  132.   visual effect iris close
  133.   go "Home"
  134. end mouseUp
  135.  
  136.  
  137.  
  138. -- part 9 (button)
  139. -- low flags: 00
  140. -- high flags: 0000
  141. -- rect: left=9 top=296 right=319 bottom=35
  142. -- title width / last selected line: 0
  143. -- icon id / first selected line: 1014 / 1014
  144. -- text alignment: 1
  145. -- font id: 0
  146. -- text size: 12
  147. -- style flags: 0
  148. -- line height: 16
  149. -- part name: Prev
  150. ----- HyperTalk script -----
  151. on mouseUp
  152.   go to prev card
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 10 (button)
  158. -- low flags: 00
  159. -- high flags: A003
  160. -- rect: left=420 top=222 right=244 bottom=485
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Unmount
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   --
  172.   --  Just unmount the volume that's currently in the Cheap Chooser's
  173.   --  volume field.
  174.   --
  175.   Unmount card field "volume"
  176.   if the result <> "" then put the result into msg
  177. end mouseUp
  178.  
  179.  
  180.  
  181. -- part contents for card part 2
  182. ----- text -----
  183. Linker
  184.  
  185. -- part contents for card part 3
  186. ----- text -----
  187. Sources
  188.  
  189. -- part contents for card part 1
  190. ----- text -----
  191. Development Tools