BBS in a Box 11/AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso/Files/Hyper/T/The Personal Touch.sit/The Personal Touch/The Personal Touch/background_4872.txt

Text File | 1988-05-03 | 12.9 KB | 619 lines

-- background: 4872 from stack: in
-- bmap block id: 76867
-- flags: 4000
-- background id: 0
-- name: File Card
----- HyperTalk script -----
on opencard
  global lastfile
  put the name of this card into lastfile
  set hilite of bkgnd button "File Card" to true
  if bkgnd field "Last Call" is empty then
    set showname of bkgnd button id 83 to true
  end if
end opencard

on closecard
  set hilite of bkgnd button "File Card" to false
  set showname of bkgnd button id 83 to false
  set hilite of bkgnd button "Notes" to false
  hide field "Notes"
end closecard

on hidestuff
  set cursor to 4
  set lockscreen to true
  hide bkgnd button "Select Label"
  hide bkgnd button "Sort Cards"
  hide bkgnd button "Delete Card"
  hide bkgnd button "Duplicate Card"
  hide bkgnd button "New Card"
  hide bkgnd button id 77
end hidestuff




-- part 1 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=127 top=64 right=130 bottom=440
-- 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: Name / Address


-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=225 top=275 right=304 bottom=265
-- title width / last selected line: 0
-- icon id / first selected line: 17779 / 17779
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  wait 20
  if the mouse is down then go to first card of this bkgnd
  else
    go to prev card of this bkgnd
  end if
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=279 top=275 right=304 bottom=320
-- title width / last selected line: 0
-- icon id / first selected line: 8419 / 8419
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  wait 20
  if the mouse is down then go to last card of this bkgnd
  else
    go to next card of this bkgnd
  end if
end mouseUp



-- part 11 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=131 top=150 right=170 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Home Phone


-- part 36 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=9 top=290 right=336 bottom=47
-- title width / last selected line: 0
-- icon id / first selected line: 20098 / 20098
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  wait 20
  if the mouse is down then
    domenu "Open Stack..."
  else
    visual effect iris close
    go to Home
  end if
end mouseUp



-- part 39 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=8 top=91 right=116 bottom=127
-- 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: Sort Cards
----- HyperTalk script -----
on mouseUp
  hidestuff
  sort by first line of field "Name / Address" in bkgnd "File Card"
  go to bkgnd "File Card"
end mouseUp




-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=105 top=149 right=169 bottom=131
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  get first line of field "Home Phone"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    put it & ";" & return into number
    dial number with modem "ATDT"
    Wait 3 seconds
    dial "" with modem "ath"
  end if
end mouseUp



-- part 43 (field)
-- low flags: 00
-- high flags: 4001
-- rect: left=307 top=150 right=170 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Work Phone


-- part 44 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=280 top=149 right=169 bottom=307
-- title width / last selected line: 0
-- icon id / first selected line: 30696 / 30696
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  set cursor to 4
  get first line of field "Work Phone"
  if it is empty then ask "Dial what number?"
  if it is not empty then
    put it & ";" & return into number
    dial number with modem "ATDT"
    Wait 3 seconds
    dial "" with modem "ath"
  end if
end mouseUp



-- part 48 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=224 top=196 right=215 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Date


-- part 49 (field)
-- low flags: 80
-- high flags: 0007
-- rect: left=104 top=146 right=224 bottom=440
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Notes


-- part 50 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=115 top=234 right=263 bottom=198
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Notes
----- HyperTalk script -----
on mouseUp
  if hilite of bkgnd button "Notes" is false then
    Show field "Notes"
    set hilite of bkgnd button "Notes" to true
  else
    hide field "Notes"
    set hilite of bkgnd button "Notes" to false
  end if
end mouseUp



-- part 54 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=8 top=43 right=68 bottom=127
-- 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: Duplicate Card
----- HyperTalk script -----
on mouseUp
  hidestuff
  domenu "Copy Card"
  domenu "Paste Card"
end mouseUp



-- part 55 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=8 top=67 right=92 bottom=127
-- 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: Delete Card
----- HyperTalk script -----
on mouseUp
  hidestuff
  put the name of next card in bkgnd "File Card" into temp
  domenu "Delete Card"
  go to temp
end mouseUp



-- part 56 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=349 top=235 right=248 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Last Call


-- part 63 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=349 top=248 right=262 bottom=431
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: E/T
----- HyperTalk script -----




-- part 52 (button)
-- low flags: 00
-- high flags: 8004
-- rect: left=60 top=290 right=336 bottom=98
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseup
  Global findname
  wait 20
  if the mouse is down and findname is not empty then
    findperson
  else
    ask "Find..." with findname
    if it is "Cancel" then
      exit mouseup
    end if

    if it is not empty then
      put it into findname
      findperson
    end if
  end if
end mouseup

on findperson
  Global findname
  set lockscreen to true
  go to next card in this bkgnd
  Find findname in bkgnd field "Name / Address"
  if the result is not empty then
    Find findname in bkgnd field "Notes"
    if the result is not empty then
      answer "No match found." with "OK"
      go to prev card in this bkgnd
    end if
  end if
end findperson



-- part 53 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=8 top=19 right=44 bottom=127
-- 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: New Card
----- HyperTalk script -----
on mouseUp
  hidestuff
  go to last card in bkgnd "File Card"
  domenu "New Card"
  set lockscreen to false
  click at 185,75
end mouseUp



-- part 73 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=133 top=2 right=20 bottom=252
-- 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: Calender
----- HyperTalk script -----
on mouseUp
  global topcal
  set cursor to 4
  if topcal is empty then
    go to bkgnd "Calender"
  else
    go to topcal
  end if
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=259 top=2 right=20 bottom=378
-- 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: Label Maker
----- HyperTalk script -----
on mouseUp
  global topcard
  set cursor to 4
  if topcard is empty then
    go to bkgnd "Label Maker"
  else
    go to topcard
  end if
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=385 top=2 right=20 bottom=504
-- 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: Note Organizer
----- HyperTalk script -----
on mouseUp
  global topnote
  set cursor to 4
  if topnote is empty then
    go to bkgnd "Note Organizer"
  else
    go to topnote
  end if
end mouseUp



-- part 76 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=8 top=2 right=20 bottom=127
-- 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: File Card
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  show bkgnd button "New Card"
  show bkgnd button "Duplicate Card"
  show bkgnd button "Delete Card"
  show bkgnd button "Sort Cards"
  show bkgnd button "Select Label"
  show bkgnd button id 77
end mouseUp



-- part 77 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=8 top=2 right=20 bottom=127
-- 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:
----- HyperTalk script -----
on mouseUp
  hidestuff
end mouseUp




-- part 78 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=8 top=115 right=141 bottom=127
-- 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: Select Label
----- HyperTalk script -----
on mouseUp
  global topcard
  set lockscreen to true
  set cursor to 4
  push card
  get field "Name / Address"
  go to last card in bkgnd "Label Maker"
  domenu "Copy Card"
  domenu "Paste Card"
  put the name of this card into topcard
  put line 1 of it into card field "Name"
  put line 2 of it into card field "Address1"
  if line 3 of it is empty then
    put line 4 of it into card field "Address2"
    put empty into card field "City"
  else
    put line 3 of it into card field "Address2"
    put line 4 of it into card field "City"
  end if
  pop card
end mouseUp



-- part 83 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=348 top=234 right=263 bottom=432
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Timer
----- HyperTalk script -----
on mouseUp
  wait 20
  if the mouse is down then
    put empty into bkgnd field "Last Call"
    put empty into bkgnd field "E/T"
    set showname of bkgnd button id 83 to true
    exit mouseup
  end if
  set cursor to 4
  set showname of bkgnd button id 83 to false
  set hilite of bkgnd button id 83 to true
  put the date into field "Last Call"
  put the seconds into starting
  repeat until the mouseclick
    put the seconds into present
    put present - starting into elapsed
    convert elapsed to dateitems
    put item 4 of elapsed & ":" & item 5 of elapsed & ":" & item 6 of elapsed into field "E/T"
  end repeat
  set hilite of bkgnd button id 83 to false

end mouseUp