home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / data1.cab / Program_Executable_Files / switch.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1998-09-29  |  393 b   |  21 lines
  1. on exitFrame
  2.   global changeObject, needToEject
  3.   if needToEject then
  4.     if not (the platform contains "windows") then
  5.       set theMode to cdGetMode()
  6.       if theMode <> "open" then
  7.         cdEject()
  8.       end if
  9.       set needToEject to 0
  10.     end if
  11.   end if
  12.   resetBut()
  13.   updateButton(changeObject)
  14.   go(the frame)
  15. end
  16.  
  17. on mouseUp
  18.   global changeObject
  19.   buttonMouseUp(changeObject)
  20. end
  21.