home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Boot Disc 1
/
boot-disc-1996-08.iso
/
bootcd.dir
/
00257_Script_257
< prev
next >
Wrap
Text File
|
1996-07-02
|
2KB
|
67 lines
on startMovie
global gLastSelected,gPopupSerialNum
set the colorDepth = 16
-- Open external libraries
if the machineType = 256 then
openxlib "Popup.DLL"
set gPopupSerialNum = "PPXW200-3134962971"
else
openxlib "Popup XObject"
set gPopupSerialNum = "PPXM200-3076188936"
end if
set gLastSelected = 0
end startMovie
on stopMovie
global gPopupObj
if objectP(gPopupObj) then gPopupObj(mDispose)
if the machineType = 256 then
closexlib "Popup.DLL"
else
closexlib "Popup XObject"
end if
end stopMovie
on DoPopup whichPopup
global gPopupObj,gPopupSerialNum,gLastSelected,gSubCategory
--whichPopup can be one of 3 integers currently, representing the following menus
--1 = Workbench:Utilities
--2 = Workbench:Resources
--3 = Workbench:Shareware
if objectP(gPopupObj) then gPopupObj(mDispose)
-- Initialize the right popup menu
if whichPopup = 1 then
set gPopupObj = Popup(mNew, the text of member "Util Popup Menu")
else if whichPopup = 2 then
set gPopupObj = Popup(mNew, the text of member "Resource Popup Menu")
else if whichPopup = 3 then
set gPopupObj = Popup(mNew, the text of member "Shareware Popup Menu")
end if
-- This popup registration line MUST be left in final code
gPopupObj(mRegister,gPopupSerialNum)
--if the hilite of cast "auto-align" = true then
-- set itemAlign = gLastSelected
-- set h = the right of sprite (the clickOn) - 27
-- set v = the top of sprite (the clickOn)
--else
set itemAlign = 0
set h = the right of sprite (the clickOn) - 26
set v = the top of sprite (the clickOn) + 5
--end if
set result = gPopupObj(mPopupSpec, h, v, itemAlign)
if result <> "" then
-- This will only grab the item number off of the fist item
set gLastSelected = value(result) --the item number
set gSubCategory = gPopupObj(mGetItem, result) --the item text
end if
put "gSubCategory =" && gSubCategory
end DoPopup