home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / hyperftp.sit / HyperFTP / card_5321.txt < prev    next >
Text File  |  1990-09-07  |  2KB  |  73 lines
  1. -- card: 5321 from stack: in
  2. -- bmap block id: 5418
  3. -- flags: 4000
  4. -- background id: 2574
  5. -- name: Host List
  6. ----- HyperTalk script -----
  7. on idle
  8.   -- don't pass idle messages to bg
  9. end idle
  10.  
  11. -- Pressing enter simulates clicking on the Done button
  12. on enterKey
  13.   set the hilite of cd btn "Done" to true
  14.   wait 15 ticks
  15.   set the hilite of cd btn "Done" to false
  16.   send mouseUp to cd btn "Done"
  17. end enterKey
  18.  
  19. -- Swallow returnKey messages so the Connect button never highlights.
  20. on returnKey
  21. end returnKey
  22.  
  23. on mouseUp
  24.   beep -- don't accept mouse clicks outside the 'dialog'
  25. end mouseUp
  26.  
  27.  
  28.  
  29. -- part 2 (field)
  30. -- low flags: 00
  31. -- high flags: 0007
  32. -- rect: left=112 top=73 right=243 bottom=396
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 3
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 14
  40. -- part name: Host List
  41. ----- HyperTalk script -----
  42. on enterInField
  43.   enterKey -- send to card
  44. end enterInField
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: A003
  50. -- rect: left=289 top=247 right=267 bottom=367
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 0 / 0
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: Done
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   global FTPHostList
  62.  
  63.   put cd fld "Host List" into FTPHostList
  64.   visual effect iris close fast
  65.   go card "Main"
  66. end mouseUp
  67.  
  68.  
  69.  
  70. -- part contents for card part 2
  71. ----- text -----
  72. sumex-aim.stanford.edu
  73. Apple.apple.com