home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 2 / boot-disc-1996-10.iso / bootcd.dir / 00301_Script_StatusClass < prev    next >
Text File  |  1996-08-09  |  1KB  |  42 lines
  1. property msglist,lastframe
  2.  
  3. on new me
  4.   global gStatus
  5.   -- This section populates the msglist
  6.   set msglist=[:]
  7.   set olddelimiter=the itemdelimiter
  8.   set the itemdelimiter=":"
  9.   set msglisttext=the text of field "msglisttext"
  10.   repeat with curlinenum=1 to the number of lines in msglisttext
  11.     set curline=line curlinenum of msglisttext
  12.     addprop msglist,value("#"&(item 1 of curline)),item 2 of curline
  13.   end repeat
  14.   set the itemdelimiter=olddelimiter
  15.   set gStatus=me
  16.   put "Initializing"&me
  17.   return me
  18. end
  19.  
  20. on status me,whichcast
  21.   if voidP(whichcast) then
  22.     if the mousecast>0 then
  23.       set whichcast=the name of member (the mousecast)
  24.     end if
  25.   end if
  26.   if voidP(getaprop(msglist,whichcast)) then
  27.     set whichcast="default"
  28.   end if
  29.   -- put whichcast into field "DemoInfo"
  30.   if the frame=lastframe then
  31.     if not voidP(getaprop(msglist,whichcast)) then
  32.       put getprop(msglist,whichcast) into field "status"
  33.     end if
  34.   end if
  35.   set lastframe=the frame
  36. end
  37.  
  38. on setbtntext me,whichbtn,btntext
  39.   set whichbtn=value("#"&whichbtn)
  40.   setprop msglist,whichbtn,btntext
  41. end
  42.