home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / data1.cab / Program_Executable_Files / switch.dxr / 00001.ls next >
Encoding:
Text File  |  1998-09-29  |  413 b   |  17 lines
  1. on exitFrame
  2.   global currentCD, changeObject, needToEject
  3.   set regionList to []
  4.   append(regionList, getButtonData("okDn", "okAction"))
  5.   append(regionList, getButtonData("cancelDn", "cancelAction"))
  6.   set changeObject to new(script "buttonObject", 5, regionList)
  7.   if voidp(currentCD) then
  8.     set currentCD to 1
  9.   end if
  10.   set needToEject to 1
  11.   if currentCD = 1 then
  12.     go(5)
  13.   else
  14.     go(10)
  15.   end if
  16. end
  17.