#! ../mofe --f
scriptNeeds XsTree {
  This program can only be used, when mofe was compiled 
  with support for the Motif Tree widget (MTREE). 
}

mergeResources topLevel \
	*XsTree*XmPushButton.fontList \
	    -*-helvetica-medium-o-normal-*-14-*-iso8859-1 \
        *XmPushButtonGadget*fontList  \
	    -*-helvetica-medium-r-normal-*-12-*-iso8859-1 \
	*XmCascadeButton.fontList \
	    -*-helvetica-bold-o-normal-*-14-*-iso8859-1 \
	*XsTree*XmPushButton*background gray75 \
	*menu_bar*background gray75 \
	*.background gray90 \
	*.foreground black 

XmMainWindow main topLevel
 XmMenuBar menu_bar main 
    XmPulldownMenu mpa menu_bar unmanaged
      XmPushButtonGadget Quit mpa activateCallback quit
    XmCascadeButton Actions menu_bar subMenuId mpa

    XmPulldownMenu mph menu_bar unmanaged
      XmPushButtonGadget Help mph activateCallback "manageChild helpbox"
    XmCascadeButton Help menu_bar subMenuId mph
    sV menu_bar menuHelpWidget Help

 XmMessageDialog helpbox Help unmanaged \
	dialogTitle "$argv0 Help" okLabelString "Close" messageString "
 This small example script  demonstrates the Motif Tree Widget 
 (written by Douglas Young) 
 
 Gustaf Neumann                  Mohegan Lake, Sat, Nov  5 1994"
  unmanageChild \
	[XmMessageBoxGetChild helpbox DIALOG_CANCEL_BUTTON] \
	[XmMessageBoxGetChild helpbox DIALOG_HELP_BUTTON] 

#-------------------- here starts the real work -----------------

XsTree t main
XmPushButton This    t 
XmPushButton is      t superNode This
XmPushButton an      t superNode This
XmPushButton Example t superNode This
XmPushButton for     t superNode Example
XmPushButton the     t superNode Example
XmPushButton Motif   t superNode Example
XmPushButton Tree    t superNode Example
XmPushButton Widget  t superNode Example
sV main workWindow t

realize







