home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 3 / INTERACTIF.BIN / pc / planeten / internet / hyperftp / card_4743.txt < prev    next >
Text File  |  1990-09-07  |  4KB  |  202 lines
  1. -- card: 4743 from stack: in
  2. -- bmap block id: 4915
  3. -- flags: 4000
  4. -- background id: 2574
  5. -- name: Show Text
  6. ----- HyperTalk script -----
  7. on idle
  8.   -- don't pass idle messages to bkg:
  9. end idle
  10.  
  11. -- Bypass arrowKey handler in the bkg so arrows work with field editing:
  12. on arrowKey whichKey
  13.   send "arrowKey" && whichKey to HyperCard
  14. end arrowKey
  15.  
  16. on openCard
  17.   show menuBar -- make sure menu is shown for copy and paste
  18. end openCard
  19.  
  20. on closeCard
  21.   if item 2 of the loc of card window Γëñ 20 then hide menuBar
  22.   put empty into cd fld "File Name"
  23.   put empty into cd fld "The Text"
  24. end closeCard
  25.  
  26. on enterKey
  27.   set the hilite of cd btn "Done" to true
  28.   wait 15 ticks
  29.   set the hilite of cd btn "Done" to false
  30.   send mouseUp to cd btn "Done"
  31. end enterKey
  32.  
  33.  
  34. -- part 1 (field)
  35. -- low flags: 00
  36. -- high flags: 0007
  37. -- rect: left=7 top=50 right=292 bottom=502
  38. -- title width / last selected line: 0
  39. -- icon id / first selected line: 0 / 0
  40. -- text alignment: 0
  41. -- font id: 4
  42. -- text size: 9
  43. -- style flags: 0
  44. -- line height: 12
  45. -- part name: The Text
  46.  
  47.  
  48. -- part 2 (field)
  49. -- low flags: 01
  50. -- high flags: 0000
  51. -- rect: left=87 top=24 right=42 bottom=500
  52. -- title width / last selected line: 0
  53. -- icon id / first selected line: 0 / 0
  54. -- text alignment: 0
  55. -- font id: 3
  56. -- text size: 12
  57. -- style flags: 256
  58. -- line height: 16
  59. -- part name: File Name
  60.  
  61.  
  62. -- part 3 (button)
  63. -- low flags: 00
  64. -- high flags: A003
  65. -- rect: left=343 top=307 right=329 bottom=420
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 0
  70. -- text size: 12
  71. -- style flags: 0
  72. -- line height: 16
  73. -- part name: Save As╔
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   if visible of cd fld "Too Long" then
  77.     beep
  78.     answer "WARNING: File will be incomplete!" with "OK" or "Cancel"
  79.     if it is "Cancel" then exit mouseUp
  80.   end if
  81.  
  82.   put NewFileName( "Save display as:", cd fld "File Name" ) into fileName
  83.   if fileName is empty then exit mouseUp
  84.  
  85.   set cursor to watch
  86.   open file fileName
  87.   write cd fld "The Text" to file fileName
  88.   close file fileName
  89. end mouseUp
  90.  
  91.  
  92.  
  93. -- part 4 (button)
  94. -- low flags: 00
  95. -- high flags: A003
  96. -- rect: left=422 top=307 right=329 bottom=499
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Done
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   lock screen
  108.   put empty into cd fld "File Name"
  109.   put empty into cd fld "The Text"
  110.   set the scroll of cd fld "The Text" to zero
  111.   go card "Main"
  112.   unlock screen with visual effect iris close fast
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 5 (field)
  118. -- low flags: 81
  119. -- high flags: 0000
  120. -- rect: left=17 top=309 right=327 bottom=262
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 0
  124. -- font id: 3
  125. -- text size: 12
  126. -- style flags: 256
  127. -- line height: 16
  128. -- part name: Too Long
  129.  
  130.  
  131. -- part 6 (button)
  132. -- low flags: 00
  133. -- high flags: A003
  134. -- rect: left=264 top=307 right=329 bottom=341
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 0
  139. -- text size: 12
  140. -- style flags: 0
  141. -- line height: 16
  142. -- part name: Send╔
  143. ----- HyperTalk script -----
  144. on mouseUp
  145.   if visible of cd fld "Too Long" then
  146.     beep
  147.     answer "WARNING: File will be incomplete!" with "OK" or "Cancel"
  148.     if it is "Cancel" then exit mouseUp
  149.   end if
  150.  
  151.   put cd fld "File Name" into fileName
  152.   put cd fld "The Text"  into theText
  153.   lock screen
  154.   go card "Main"
  155.   unlock screen with visual effect iris close
  156.  
  157.   sendFile "memory", fileName, theText
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part contents for background part 37
  163. ----- text -----
  164. established
  165.  
  166. -- part contents for background part 45
  167. ----- text -----
  168. Please enter a host name or address
  169.  
  170. -- part contents for background part 79
  171. ----- text -----
  172. .profile
  173. cco
  174. ccp
  175. dead.letter
  176. ltalk
  177. Mail
  178. Makefile
  179. mbox
  180. mcvert
  181. mh
  182. mv
  183. popd.c
  184. popdo.c
  185. readme23.tel
  186. readme23.xyz
  187. single
  188. single.c
  189. ss1.hqx
  190. ss2.hqx
  191. ss3.hqx
  192. ss4.hqx
  193. ss5.hqx
  194. whereis
  195.  
  196. -- part contents for background part 64
  197. ----- text -----
  198. /u/dug
  199.  
  200. -- part contents for card part 5
  201. ----- text -----
  202. Display has been truncated