This is a behaviorto control teh MS PopupMenu Object ActieX element.
--Copyright 1999 Chuck Neal
--chuck@mediamacros.com
--If you find this code helpful, send me an e-mail and let me know. :-)
property spriteNum, itemList, doItem
global tempSprite
on getPropertyDescriptionList me
p_list = [:]
if the currentSpriteNum > 0 then
if sprite(the currentSpriteNum).member.type = #ActiveX then
p_list.addProp(#itemList, [#format : #string, #default : "Choice1,Choice2,Choice3", #comment : "List of options separated by a comma, and no spaces."])
p_list.addProp(#doItem, [#format : #string, #comment : "Name of handler to run with the results", #default : "alert"])
else
alert "This behavior only works on ActiveX elements."
end if
end if
return p_list
end
on beginSprite me
if sprite(spriteNum).member.type = #ActiveX then
the itemDelimiter =","
repeat with x = 1 to itemList.item.count
sprite(spriteNum).addItem(itemList.item[x])
end repeat
end if
end
on popup me
sprite(spriteNum).popup(-10000, -10000)
end
on click whatItem
do (sprite(tempSprite).doItem & "(" & quote & sprite(tempSprite).itemList.item[whatItem] & quote & ")")
end
on getBehaviorDescription me
return "This behavior works with the PopupMenu Object ActiveX element included with Microsoft Internet Explorer. The first parameter is the list of options separated by a comma. the second is the name of the handler to process the event."
end
Contact
MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA