home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 2
/
boot-disc-1996-10.iso
/
Demo.dir
/
00067_Script_StatusClass
< prev
next >
Wrap
Text File
|
1996-08-09
|
1KB
|
42 lines
property msglist,lastframe
on new me
global gStatus
-- This section populates the msglist
set msglist=[:]
set olddelimiter=the itemdelimiter
set the itemdelimiter=":"
set msglisttext=the text of field "msglisttext"
repeat with curlinenum=1 to the number of lines in msglisttext
set curline=line curlinenum of msglisttext
addprop msglist,value("#"&(item 1 of curline)),item 2 of curline
end repeat
set the itemdelimiter=olddelimiter
set gStatus=me
put "Initializing"&me
return me
end
on status me,whichcast
if voidP(whichcast) then
if the mousecast>0 then
set whichcast=the name of member (the mousecast)
end if
end if
if voidP(getaprop(msglist,whichcast)) then
set whichcast="default"
end if
-- put whichcast into field "DemoInfo"
if the frame=lastframe then
if not voidP(getaprop(msglist,whichcast)) then
put getprop(msglist,whichcast) into field "status"
end if
end if
set lastframe=the frame
end
on setbtntext me,whichbtn,btntext
set whichbtn=value("#"&whichbtn)
setprop msglist,whichbtn,btntext
end