Mui Alert Dialog

 

Compatibilities:

This item has not yet been rated

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

Upload Provided by ABCUpload ASP