PulldownMenu is a RowColumn widget and thus inherits the RowColumn resources.
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.
motif_menu_bar new: aMenuBar parent=motif; motif_pulldown_menu new: Pulldown1 parent=aMenuBar create!; motif_cascade_button new: Cascade1 parent=aMenuBar @ "labelString" : "File" @ "subMenuId" : [PullDown1 id?] create!; motif_push_button new: Button11 parent=PullDown1 @ "labelString" : "Create" create!; motif_push_button new: Button12 parent=PullDown1 @ "labelString" : "Save" create!; motif_pulldown_menu new: PullDown2 parent=aMenuBar create!; motif_cascade_button new: Cascade2 parent=aMenuBar @ "labelString" : "Tools" @ "subMenuId" : [PullDown2 id?] create!; motif_pulldown_menu new: PullDown3 parent=PullDown2 create!; motif_cascade_button new: Cascade3 parent=PullDown2 @ "subMenuId" : [PullDown3 id?] @ "labelString" : "House" create!; motif_push_button new: Button21 parent=PullDown3 @ "labelString" : "Saw" create!; motif_push_button new: Button22 parent=PullDown3 @ "labelString" : "Hammer" create!; motif_pulldown_menu new: PullDown4 parent=PullDown2 create!; motif_cascade_button new: Cascade4 parent=PullDown2 @ "subMenuId" : [PullDown4 id?] @ "labelString" : "Car" create!; motif_push_button new: Button23 parent=PullDown4 @ "labelString" : "Wrench" create!; motif_push_button new: Button24 parent=PullDown4 @ "labelString" : "Tire Iron" create!;
motif on! start!;