|
Personal Menu |
|
Added on 7/8/1999
|
|
Compatibilities: |
This item has not yet been rated |
Creates a custom alert with the above properties. Requires MUI Xtra Reproduced with permission from Penworks Lingo User"s Journal
|
-- Custom alert handler
-- Buttons can be #OkCancel, #AbortRetryIgnore, #YesNoCancel, -- #YesNo, or #RetryCancel -- Icons can be #stop,#note,#caution,#question,#error or #none -- Default (button) can be #Ok, #Cancel, #Abort, #Retry, #Ignore, -- #Yes, or #No (but must be on the dialog, of course) -- Return value is symbol of button (#Ok, #Cancel, #Abort, etc.) on customAlert buttons, default, icon, moveable, message, title set alertObj =new(xtra "MUI") if (not objectP(alertObj)) then return(#failed) end if if icon =#none then set icon =0 end if set alertInitList =[:] setAProp(alertInitList, #buttons, buttons) setAProp(alertInitList, #default, default) setAProp(alertInitList, #icon, icon) setAProp(alertInitList, #moveable, moveable) setAProp(alertInitList, #message, message) setAProp(alertInitList, #title, title) -- Now choose the default if (symbolP(default)) then case buttons of #OkCancel: set default =getPos([#Ok, #Cancel], default) #AbortRetryIgnore: set default =getPos([#Abort, #Retry, #Ignore], default) #YesNoCancel: set default =getPos([#Yes, #No, #Cancel], default) #YesNo: set default =getPos([#Yes, #No], default) #RetryCancel: set default =getPos([#Retry, #Cancel], default) end case setAProp(alertInitList, #default, default) end if set result = Alert( alertObj, alertInitList ) set alert =0 -- Discard the object case buttons of #OkCancel: return(getAt([#Ok, #Cancel], result)) #AbortRetryIgnore: return(getAt([#Abort, #Retry, #Ignore], result)) #YesNoCancel: return(getAt([#Yes, #No, #Cancel], result)) #YesNo: return(getAt([#Yes, #No], result)) #RetryCancel: return(getAt([#Retry, #Cancel], result)) otherwise: return(#unsupported) end case end |
Contact |
|
MMI Fax - (206) 339-5833 |
Send e-mail