home *** CD-ROM | disk | FTP | other *** search
/ Spawn Figure Collection / spawn collection cd.iso / setup / data1.cab / Program_Executable_Files / Collection.dir / 00095_get.ls < prev    next >
Encoding:
Text File  |  1998-01-19  |  413 b   |  16 lines
  1. on mouseUp
  2.   global lseries, gnowseries, gnowtitle, gnowgroup, gedited
  3.   se(3, "ON01")
  4.   set ls to getAt(lseries, gnowseries)
  5.   set lt to getAt(the ltitle of ls, gnowtitle)
  6.   set lg to getAt(the lgroup of lt, gnowgroup)
  7.   if the pcheckbox of lg = "1" then
  8.     set gedited to 1
  9.     if the pcheck of lg = "1" then
  10.       set the pcheck of lg to "0"
  11.     else
  12.       set the pcheck of lg to "1"
  13.     end if
  14.   end if
  15. end
  16.