-- card: 5321 from stack: in
-- bmap block id: 5418
-- flags: 4000
-- background id: 2574
-- name: Host List
----- HyperTalk script -----
on idle
  -- don't pass idle messages to bg
end idle

-- Pressing enter simulates clicking on the Done button
on enterKey
  set the hilite of cd btn "Done" to true
  wait 15 ticks
  set the hilite of cd btn "Done" to false
  send mouseUp to cd btn "Done"
end enterKey

-- Swallow returnKey messages so the Connect button never highlights.
on returnKey
end returnKey

on mouseUp
  beep -- don't accept mouse clicks outside the 'dialog'
end mouseUp



-- part 2 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=112 top=73 right=243 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 14
-- part name: Host List
----- HyperTalk script -----
on enterInField
  enterKey -- send to card
end enterInField


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=289 top=247 right=267 bottom=367
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Done
----- HyperTalk script -----
on mouseUp
  global FTPHostList

  put cd fld "Host List" into FTPHostList
  visual effect iris close fast
  go card "Main"
end mouseUp



-- part contents for card part 2
----- text -----
sumex-aim.stanford.edu
Apple.apple.com