home *** CD-ROM | disk | FTP | other *** search
/ The Dynamic Human Version 2.0 / DH2_CD2.ISO / pc / files / main.dxr / Internal_15.ls < prev    next >
Encoding:
Text File  |  1998-09-28  |  663 b   |  27 lines
  1. on setupMainButtons
  2.   global mainButtonObject, gCardioDemo
  3.   set mainButtonObject to new(script "mainButtonObject", 5, ["m1", "m2", "m3", "m4", "m5", "m6", "m7", "m8", "m9", "m10", "m11"])
  4. end
  5.  
  6. on mainButtonAction whichOne
  7.   global gCardioDemo
  8.   set whichOne to string(whichOne)
  9.   if length(whichOne) = 1 then
  10.     put "0" before whichOne
  11.   end if
  12.   if (gCardioDemo = 1) and (whichOne <> "02") then
  13.     return 
  14.   end if
  15.   gomovie(whichOne & "_0_00")
  16. end
  17.  
  18. on updateMainButtons
  19.   global mainButtonObject
  20.   updateButton(the mainButtons of mainButtonObject)
  21. end
  22.  
  23. on mainButtonsMouseUp
  24.   global mainButtonObject
  25.   buttonMouseUp(the mainButtons of mainButtonObject)
  26. end
  27.