#32002/7/21 12:37:00
global gAddressBook -- Linear list of person objects
global gIndex -- Integer, number of current record
on prepareMovie
if voidP(gAddressBook) then
gAddressBook = GetStarterList()
end if
gIndex = 1
end
on GetStarterList
return [\
new(script "person", "John Doe", "123 Main St.", "Anytown", "CO", "12345"), \
new(script "person", "Jane Smith", "987 Central Ave.", "Othertown", "AZ", "98765"),\
new(script "person", "Kim Kane", "2046 Park Blvd.", "Elsewhere", "IL", "65487")\
]
end
on ChangeRecord dir
gIndex = gIndex + dir
aPerson = gAddressBook[gIndex]
aPerson.PutInfo()
end
on AppendRecord
newPerson = GetFieldInfo()
gAddressBook.append(newPerson)
gIndex = gAddressBook.count()
go "Browse"
end
on SetRecord
newPerson = GetFieldInfo()
gAddressBook.setAt(gIndex, newPerson)
go "Browse"
end
on DeleteRecord
gAddressBook.deleteAt(gIndex)
gIndex = 1
go "Browse"
end
on GetFieldInfo
return new(script "person", member("Name").text, member("Street").text, \
member("City").text, member("State").text, member("Zip").text)
end
