home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / john / hc_hyper.hqx / HyperFTP-10 / card_3751.txt < prev    next >
Encoding:
Text File  |  1989-12-15  |  2.0 KB  |  107 lines
  1. -- card: 3751 from stack: in
  2. -- bmap block id: 4081
  3. -- flags: 4000
  4. -- background id: 2574
  5. -- name: Password Dialog
  6. ----- HyperTalk script -----
  7. on openCard
  8.   click at the loc of cd fld "Password"
  9. end openCard
  10.  
  11. on closeCard
  12.   put empty into cd fld "Password"
  13. end closeCard
  14.  
  15. on OKbtn
  16.   sendLine "PASS" && cd fld "Password"
  17.   go card "Main"
  18. end OKbtn
  19.  
  20. on CANCELbtn
  21.   go card "Main"
  22. end CANCELbtn
  23.  
  24. on idle
  25.   -- check for return pressed in password
  26.   put cd fld "Password" into pw
  27.   get offset( return, pw )
  28.   if it > zero then
  29.     put char 1 to it of pw into cd fld "Password"
  30.     OKbtn
  31.   end if
  32. end idle
  33.  
  34.  
  35.  
  36. -- part 4 (button)
  37. -- low flags: 00
  38. -- high flags: 0000
  39. -- rect: left=0 top=0 right=342 bottom=512
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: Catch All
  48. ----- HyperTalk script -----
  49. -- prevent clicks on background and stack items
  50.  
  51. on mouseUp
  52.   beep
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 1 (button)
  58. -- low flags: 00
  59. -- high flags: 8000
  60. -- rect: left=260 top=96 right=126 bottom=329
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: OK
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   OKbtn -- send message to card script
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 2 (button)
  77. -- low flags: 00
  78. -- high flags: 8000
  79. -- rect: left=338 top=100 right=121 bottom=406
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Cancel
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   CANCELbtn -- send message to card script
  91. end mouseUp
  92.  
  93.  
  94.  
  95. -- part 3 (field)
  96. -- low flags: 00
  97. -- high flags: 0000
  98. -- rect: left=100 top=68 right=85 bottom=402
  99. -- title width / last selected line: 0
  100. -- icon id / first selected line: 0 / 0
  101. -- text alignment: 0
  102. -- font id: 86
  103. -- text size: 12
  104. -- style flags: 0
  105. -- line height: 16
  106. -- part name: Password
  107.