-- card: 4743 from stack: in
-- bmap block id: 4915
-- flags: 4000
-- background id: 2574
-- name: Show Text
----- HyperTalk script -----
on idle
  -- don't pass idle messages to bkg:
end idle

-- Bypass arrowKey handler in the bkg so arrows work with field editing:
on arrowKey whichKey
  send "arrowKey" && whichKey to HyperCard
end arrowKey

on openCard
  show menuBar -- make sure menu is shown for copy and paste
end openCard

on closeCard
  if item 2 of the loc of card window ≤ 20 then hide menuBar
  put empty into cd fld "File Name"
  put empty into cd fld "The Text"
end closeCard

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


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=7 top=50 right=292 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: The Text


-- part 2 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=87 top=24 right=42 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: File Name


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=343 top=307 right=329 bottom=420
-- 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: Save AsÉ
----- HyperTalk script -----
on mouseUp
  if visible of cd fld "Too Long" then
    beep
    answer "WARNING: File will be incomplete!" with "OK" or "Cancel"
    if it is "Cancel" then exit mouseUp
  end if

  put NewFileName( "Save display as:", cd fld "File Name" ) into fileName
  if fileName is empty then exit mouseUp

  set cursor to watch
  open file fileName
  write cd fld "The Text" to file fileName
  close file fileName
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=422 top=307 right=329 bottom=499
-- 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
  lock screen
  put empty into cd fld "File Name"
  put empty into cd fld "The Text"
  set the scroll of cd fld "The Text" to zero
  go card "Main"
  unlock screen with visual effect iris close fast
end mouseUp



-- part 5 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=17 top=309 right=327 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Too Long


-- part 6 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=264 top=307 right=329 bottom=341
-- 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: SendÉ
----- HyperTalk script -----
on mouseUp
  if visible of cd fld "Too Long" then
    beep
    answer "WARNING: File will be incomplete!" with "OK" or "Cancel"
    if it is "Cancel" then exit mouseUp
  end if

  put cd fld "File Name" into fileName
  put cd fld "The Text"  into theText
  lock screen
  go card "Main"
  unlock screen with visual effect iris close

  sendFile "memory", fileName, theText
end mouseUp



-- part contents for background part 37
----- text -----
established

-- part contents for background part 45
----- text -----
Please enter a host name or address

-- part contents for background part 79
----- text -----
.profile
cco
ccp
dead.letter
ltalk
Mail
Makefile
mbox
mcvert
mh
mv
popd.c
popdo.c
readme23.tel
readme23.xyz
single
single.c
ss1.hqx
ss2.hqx
ss3.hqx
ss4.hqx
ss5.hqx
whereis

-- part contents for background part 64
----- text -----
/u/dug

-- part contents for card part 5
----- text -----
Display has been truncated