home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / hyperter.sit / HyperTerm / card_3047.txt < prev    next >
Text File  |  1988-10-30  |  2KB  |  95 lines
  1. -- card: 3047 from stack: in
  2. -- bmap block id: 3831
  3. -- flags: 0000
  4. -- background id: 2755
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on idle
  8.   put empty into theString
  9.   repeat 3
  10.     put recvUpTo(1,return,2,false,false) into newIn
  11.     put newIn after theString
  12.   end repeat
  13.   if the length of theString > 0 then
  14.     delete last character of card field "inField"
  15.     put theString & "ΓÇó" after card field "inField"
  16.     repeat while the number of lines in card field "inField" > 24
  17.       delete first line of card field "inField"
  18.     end repeat
  19.   end if
  20. end idle
  21.  
  22. on returnKey
  23.   sendSPort 1,false,message box & return
  24.   put empty into message box
  25. end returnKey
  26.  
  27. on clearKey
  28.   sendSPort 1,false,linefeed
  29. end clearKey
  30.  
  31. on openCard
  32.   show message box
  33. end openCard
  34.  
  35.  
  36.  
  37. -- part 3 (field)
  38. -- low flags: 00
  39. -- high flags: 4002
  40. -- rect: left=2 top=23 right=280 bottom=510
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 4
  45. -- text size: 9
  46. -- style flags: 0
  47. -- line height: 10
  48. -- part name: inField
  49. ----- HyperTalk script -----
  50. on mouseDown
  51.   beep
  52. end mouseDown
  53.  
  54.  
  55.  
  56. -- part 4 (button)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=2 top=289 right=307 bottom=20
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 26635 / 26635
  62. -- text alignment: 1
  63. -- font id: 0
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: Help
  68. ----- HyperTalk script -----
  69. on mouseUp
  70.   push card
  71.   visual effect iris open
  72.   go to card "help"
  73. end mouseUp
  74.  
  75.  
  76. -- part 5 (button)
  77. -- low flags: 00
  78. -- high flags: A002
  79. -- rect: left=4 top=313 right=331 bottom=19
  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: ╔
  88. ----- HyperTalk script -----
  89. on mouseDown
  90.   breakSPort 1,true
  91.   wait until the mouse is up
  92.   breakSPort 1,false
  93. end mouseDown
  94.  
  95.