#! ../mofe --f
mergeResources topLevel *background gray75

XmMainWindow main topLevel

  XmMenuBar menu_bar main
    XmPulldownMenu mp1 menu_bar unmanaged
      XmPushButton Edit mp1 \
	activateCallback "sV g editable true"
      XmPushButton NoEdit mp1 \
	activateCallback "sV g editable false"
      XmPushButton reOrient mp1 \
	activateCallback "sV g reorient true"
      XmPushButton Quit mp1 \
	activateCallback quit
    XmCascadeButton Actions menu_bar \
	subMenuId mp1

    XmPulldownMenu mp2 menu_bar unmanaged
      XmPushButton Help mp2 \
	activateCallback "manageChild helpbox"
      XmPushButton Version mp2 \
	activateCallback "manageChild versionbox"
    XmCascadeButton Help menu_bar \
	subMenuId mp2

   XmGraph g main \
	autoLayoutMode false reLayout false

      XmToggleButton a g x 5 y 5 
      XmToggleButton b g x 125 y 40 
      XmToggleButton c g x 20 y 90
      XmToggleButton d g x 120 y 150 

      XmArc a1 g arcDirection DIRECTED from a to b \
	labelString "Hi, there!" mapLabel true
      XmArc a2 g arcDirection DIRECTED from b to c
      XmArc a3 g arcDirection DIRECTED from c to d
      XmArc a4 g arcDirection DIRECTED from d to c
      XmArc a5 g arcDirection DIRECTED from d to b

XmMainWindowSetAreas main menu_bar NULL NULL NULL g
sV menu_bar menuHelpWidget Help
realize

XmMessageDialog versionbox mp2 unmanaged \
	dialogTitle "Motif Demo Program using XmGraph" \
	okLabelString "Close" \
	messageString "@(#)m-graphdemo Version 0.00001, Jan 15, 1993"

XmMessageDialog helpbox mp2 unmanaged \
	dialogTitle "m-er Help" \
	okLabelString "Close" \
	messageString "This program is a simple demo program for XmGraph."


unmanageChild \
	[XmMessageBoxGetChild versionbox DIALOG_CANCEL_BUTTON] \
	[XmMessageBoxGetChild versionbox DIALOG_HELP_BUTTON] 
unmanageChild \
	[XmMessageBoxGetChild helpbox DIALOG_CANCEL_BUTTON] \
	[XmMessageBoxGetChild helpbox DIALOG_HELP_BUTTON] 
