home *** CD-ROM | disk | FTP | other *** search
/ 3D World 76 / 3DWI76.iso / pc / Shared.cst / 00006_Script_Install < prev    next >
Text File  |  2006-02-08  |  1KB  |  51 lines
  1. property PCInstall
  2. property MacInstall
  3.  
  4. on getPropertyDescriptionList
  5.   set description = [:]
  6.   addProp description, #PCInstall, [#default:EMPTY, #format:#string, #comment: "Type in the path for the PC Installer"]
  7.   --   set myFile = new(xtra "fileio")
  8.   --  set PCInstall = displayOpen(myFile)
  9.   
  10.   addProp description, #MacInstall, [#default: EMPTY,     #format:#string, #comment: "Type in the path for the Mac Installer" ]
  11.   return description
  12.   
  13. end 
  14.  
  15. on mouseUp me
  16.   case the platform of
  17.       
  18.     "Windows,32": If PCInstall <> EMPTY then
  19.       
  20. q =baopenfile(the moviepath & string(PCInstall),"")
  21.       put the moviepath & string(PCInstall)
  22.     else
  23. alert "This Software is Mac Only"
  24. end if
  25.  
  26. "Macintosh,PowerPC": If MacInstall <> EMPTY then
  27.  
  28. q =baopenfile(the moviepath & string(MacInstall),"")
  29. baActivateWindow (baFindWindow ("MACS",""))
  30. put q
  31. put the moviepath & string(MacInstall)
  32. else
  33. alert "This Software is PC Only"
  34. end if
  35.  
  36. end case
  37.  
  38.  
  39.  
  40. end
  41.  
  42. on mouseEnter me
  43.   cursor 280
  44.  
  45. end
  46.  
  47. on mouseLeave me
  48.   cursor -1
  49.  
  50. end
  51.