home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
3D World 76
/
3DWI76.iso
/
pc
/
Shared.cst
/
00006_Script_Install
< prev
next >
Wrap
Text File
|
2006-02-08
|
1KB
|
51 lines
property PCInstall
property MacInstall
on getPropertyDescriptionList
set description = [:]
addProp description, #PCInstall, [#default:EMPTY, #format:#string, #comment: "Type in the path for the PC Installer"]
-- set myFile = new(xtra "fileio")
-- set PCInstall = displayOpen(myFile)
addProp description, #MacInstall, [#default: EMPTY, #format:#string, #comment: "Type in the path for the Mac Installer" ]
return description
end
on mouseUp me
case the platform of
"Windows,32": If PCInstall <> EMPTY then
q =baopenfile(the moviepath & string(PCInstall),"")
put the moviepath & string(PCInstall)
else
alert "This Software is Mac Only"
end if
"Macintosh,PowerPC": If MacInstall <> EMPTY then
q =baopenfile(the moviepath & string(MacInstall),"")
baActivateWindow (baFindWindow ("MACS",""))
put q
put the moviepath & string(MacInstall)
else
alert "This Software is PC Only"
end if
end case
end
on mouseEnter me
cursor 280
end
on mouseLeave me
cursor -1
end