Message Box Behavior

 

Compatibilities: Required Xtras: HandyDialog Xtra

This item has not yet been rated

Generic Behavior to display Message Box.

-- Message Box Behavior -- HandyDialog Xtra 1.0 or later is required -- by Meliora Software www.meliorasoft.com/xtras/ -- Compatibilities: Director 6.0 or higher, Windows property Message, Title, Type, Icon, ButtonNum on getPropertyDescriptionList   set description = [:]   addProp description, #Message, [#default:"", #format:#string, #comment:"Message Text:"]   addProp description, #Title, [#default:"", #format:#string, #comment:"Message Box Title:"]   addProp description, #Type, [#default:"", #format:#string, #comment:"Message Box Type:"]   addProp description, #Icon, [#default:"", #format:#string, #comment:"Message Box Icon:"]   addProp description, #ButtonNum, [#default:"", #format:#integer, #comment:"Number of the default button:"]   return description end on mouseDown   messageBox end on messageBox   -- Message Box Init Settings   set InitSettings = [:]   addProp InitSettings, #Title, Title   addProp InitSettings, #Type, Type   addProp InitSettings, #Icon, Icon   addProp InitSettings, #DefButton, ButtonNum      set Ok = showMessageBox(Message, InitSettings)      if getAt(Ok,1) = 0 then     -- Clicked Button     put getAt(Ok,3)   else     -- Error occured     alert("Error: " & getAt(Ok, 1) & " - base error code")   end if    end on getBehaviorDescription   return "- -   Message Box Dialog Behavior   - -" end