|
|
Mui Alert Dialog
Added on 4/7/2000
|
This behavior will allow youto quickly customize a MUI Alert Dialog. All MUI Alert options are supported and you can choose when you attach it to a sprite. I have only included an "on mouseUp handler" but you could easily add others. Should be compatible with Director 6.5 -> 8 but I only tested it on Director 7.02 with a Mac.
-- MUI Alert Behavior
-- Author : Jeff Tiedemann
-- Company : digin.com
-- Date : 4/6/00
-- PROPERTIES --
property atitle, amessage, abuttons, adefault, aicon, amoveable
-- DESCRIPTION --
on getPropertyDescriptionList
return [ #atitle: [#default: "This is the title", #format: #string, #comment: "Set title"],¬
#amessage: [#default: "This is the message", #format: #string, #comment: "Set message"],#abuttons: [#default: "OK", #format: #string, #comment: "Set Buttons",¬
#range: ["OK", "OK & Cancel","Retry & Cancel","Abort & Retry & Ignore","Yes & No & Cancel","Yes & No"]], #adefault: [#default: "None", #format: #string, #comment: "Set Default",¬
#range: ["None", "OK", "Cancel","Retry","Abort","Ignore","Yes","No"]],#aicon: [#default: "None", #format: #string, #comment: "Set Icon",¬
#range: ["None", "Stop","Note","Caution","Question","Error"]],#amoveable: [#default: TRUE, #format: #boolean, #comment: "Set Movable"]¬
]
end getPropertyDescriptionList
on getBehaviorDescription
return "This behavior adds a MUI alert window"
end getBehaviorDescription
on getBehaviorTooltip me
return "Make MUI Alert Dialogs."
end getBehaviorTooltip
-- CUSTOM HANDLERS --
on mouseUp me
case abuttons of
"OK" : set abuttons = #OK
"OK & Cancel" : set abuttons = #OkCancel
"Retry & Cancel" : set abuttons = #RetryCancel
"Abort & Retry & Ignore" : set abuttons = #AbortRetryIgnore
"Yes & No & Cancel" : set abuttons = #YesNoCancel
"Yes & No" : set abuttons = #YesNo
end case
case aicon of
"None" : set aicon = 0
"Stop" : set aicon = #stop
"Note" : set aicon = #note
"Caution" : set aicon = #caution
"Question" : set aicon = #question
"Error" : set aicon = #error
end case
case adefault of
"None" : set adefault = 0
"OK" : set adefault = 1
"Cancel" : set adefault = 2
"Retry" : set adefault = 3
"Abort" : set adefault = 4
"Ignore" : set adefaults = 5
"Yes" : set adefault = 6
"No" : set adefault = 7
end case
set alertObj = new(xtra "MUI")
if aicon = 0 then
set alertInitList = [#buttons: abuttons, #title: atitle,#message: amessage,#movable: amoveable,#default: adefault]
else
set alertInitList = [#buttons: abuttons, #title: atitle,#message: amessage,#movable: amoveable,#default: adefault,#icon: aicon ]
end if
if objectP (alertObj) then
set result = Alert(alertObj, alertInitList)
else
alert("No MUI Xtra")
return
end if
end mouseUp
|
|