Convenience dialogs are either modal or modeless. Modal dialogs stop the work session and solicit input from the user. Modeless dialogs solicit input from the user, but don't interrupt interaction with any application.
For a more complete description of this Motif widget, consult "OSF/Motif Programmer's Reference."
: value sets the current resource to value. Since most resources have mixed case, you should enclose any resource name in quotes. Resource names are the Motif names with the XmN prefix removed. Some resources can only be set before the widget is created. For efficiency, set as many resources as you can before creation.
scalar_value? returns the value of the current resource whose type is integer.
string_value? returns the value of the current resource whose type is string.
pointer_value? returns the value of the current resource whose type is a pointer of any kind.
create! creates an instance of the widget. Any resources that have been specified prior to the create! will be set. An id? message also sends a create!.
on! realizes the widget. Realizing a widget creates its windows and displays it when it is managed.
<motifinit
motif application="LYMB Examples";
motif_row_column new: main_panel parent=motif @ "numColumns" : 3 @ "packing" : XmPACK_COLUMN create! ; motif_push_button new: button1 parent=main_panel @ "labelString" : "Push Here for Error Dialog" activate_action=button1_action @ "recomputeSize" : 0 create! ; motif_push_button new: button2 parent=main_panel @ "labelString" : "Push Here for Information Dialog" activate_action=button2_action @ "recomputeSize" : 0 create! ; motif_push_button new: button3 parent=main_panel @ "labelString" : "Push Here for Message Dialog" activate_action=button3_action @ "recomputeSize" : 0 create! ; motif_push_button new: button4 parent=main_panel @ "labelString" : "Push Here for Question Dialog" activate_action=button4_action @ "recomputeSize" : 0 create! ; motif_push_button new: button5 parent=main_panel @ "labelString" : "Push Here for Warning Dialog" activate_action=button5_action
@ "recomputeSize" : 0 create! ; motif_push_button new: button6 parent=main_panel @ "labelString" : "Push Here for Working Dialog" activate_action=button6_action @ "recomputeSize" : 0 create! ;
actions new: button1_action tick_actions+ "dialog1 on!;"; actions new: button2_action tick_actions+ "dialog2 on!;"; actions new: button3_action tick_actions+ "dialog3 on!;"; actions new: button4_action tick_actions+ "dialog4 on!;"; actions new: button5_action tick_actions+ "dialog5 on!;"; actions new: button6_action tick_actions+ "dialog6 on!;";
motif_error_dialog new: dialog1 parent=button1 @ "messageString" : "This is a place for an error message Right Here" @ "dialogStyle" : XmDIALOG_APPLICATION_MODAL create! ;
motif_push_button_gadget new: cancel_button id=[dialog1 @ `cancelButton' pointer_value?] unmanage! ;
motif_information_dialog new: dialog2 parent=button2 @ "messageString" : "This is a place for an informational message" @ `defaultPosition' : 0 create! ; motif_message_dialog new: dialog3 parent=button3 @ "messageString" : "This is a place for any old message" create! ; motif_question_dialog new: dialog4 parent=button4 @ "messageString" : "Do you really want to quit?" ok_action=ok_to_quit create! ; actions new: ok_to_quit tick_actions="motif exit!;" ; motif_warning_dialog new: dialog5 parent=button5 @ "messageString" : "This is a place for a warning" create!
; motif_working_dialog new: dialog6 parent=button6 @ "messageString" : "This is a place for a working message" create! ;
motif on! start!;