Changing the buttons in the message box
By default, messages boxes have an OK push button. If you specify a name for the helpFilename: parameter when defining a message group, the message box will also have a Help push button. To customize the push buttons that appear, code an expression like:
return := (self getMRI: MsgSelect group: #AddressMsgs)
displayButtonType: buttonType.
where buttonType is one of the following:
Type
What is returned
XmOK
true
XmOKCANCEL
true if OK is selected, nil if Cancel is selected
XmRETRYCANCEL
true if Retry is selected, nil if Cancel is selected
XmYESNO
true if Yes is selected, false if No is selected
XmYESNOCANCEL
true if Yes is selected, false if No is selected, nil if Cancel is selected.
To change buttons and do parameter replacement, use the displayButtonType:replace: message.
Last modified date: 01/29/2015