-- background: 2669 from stack: in
-- bmap block id: 3265
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on newStack
  extend
end newStack

on extend
  -- type "extend" into the message box and press return to make
  -- three months worth of new cards.
  if the name of this stack contains "stack ideas"
  then
  answer "Please make a new stack before extending it." with "OK"
else
  answer "Make three months more of new cards?" with "OK" or "Cancel"
  if it is "Cancel" then exit extend
  go to last card of this background
  put getStartDate() into start      --what date to begin on
  if start is "Cancel" then exit extend
  put 60*60*24 into OneDay      --seconds in a day
  repeat with cnt = 1 to (365 div 4)   --three months
    put start into it        --a copy
    convert it to long date
    put it into field "Date"
    add OneDay to start
    doMenu New Card
  end repeat
  convert start to long date     --fix the last card
  put start into field "Date"
end if
end extend

function getStartDate
-- end of stack or today, whichever is newer
get field "Date"
if it is empty then put the short date into it
convert it to seconds    --so we can compare
put the short date into today
convert today to seconds
if today < 2587766400 then
  answer "Set the Control Panel to today's date" with "OK"
  return "Cancel"
end if
if it >= today then return it   --calendar already beyond today
convert it to short date
answer "Start from which date?" with it or the short date or "Cancel"
if it is "Cancel" then return it
convert it to seconds
return it
end getStartDate

on openBackground
  push recent card
end openBackground


-- part 11 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=150 top=300 right=334 bottom=189
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  go "Home"
end mouseUp



-- part 43 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=35 right=62 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 24
-- part name: 


-- part 44 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=8 top=82 right=303 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 45 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=172 top=82 right=303 bottom=413
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 58 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=29 top=23 right=37 bottom=147
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 16896
-- line height: 13
-- part name: 


-- part 66 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=415 top=56 right=303 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 


-- part 68 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=397 top=33 right=55 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 16896
-- line height: 13
-- part name: 


-- part 70 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=260 top=311 right=333 bottom=355
-- 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: Find
----- HyperTalk script -----
on mouseUp
  doMenu "Find..."
end mouseUp



-- part 71 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=404 top=310 right=332 bottom=502
-- 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
----- HyperTalk script -----
on mouseUp
  answer "Sort all cards of this stack according to:" with "First Name" or "Last Name" or "Cancel"
  if it is "First Name"
  then sort by first word of first line of field 1
else if it is "Last Name"
then sort by last word of first line of field 1
end mouseUp



-- part 72 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=350 top=26 right=72 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Application
----- HyperTalk script -----
on mouseUp
  open the short name of the target
end mouseUp



-- part 74 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=79 top=299 right=338 bottom=127
-- title width / last selected line: 0
-- icon id / first selected line: 19381 / 19381
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to previous card
end mouseUp



-- part 75 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=210 top=299 right=338 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 79 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=15 top=65 right=83 bottom=136
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 17920
-- line height: 13
-- part name: 


-- part 80 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=216 top=63 right=81 bottom=327
-- 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: 16
-- part name: 


-- part 82 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=19 top=291 right=336 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 3877 / 3877
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Card
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  DoMenu New Card
  wait 30
  set the cursor to 1
  tabKey
end mouseUp



-- part 84 (button)
-- low flags: 00
-- high flags: 0004
-- rect: left=360 top=303 right=337 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 32670 / 32670
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  show all cards
end mouseUp