#!../mofe --f
set roman  -*-times-medium-r-*-*-16-*-*-*-*-*-*-1
set italic -*-times-medium-i-*-*-16-*-*-*-*-*-*-1
set bold   -*-times-bold-r-*-*-16-*-*-*-*-*-*-1

mergeResources topLevel \
  *FontList $roman=roman,$italic=italic,$bold=bold \
  *renderTable roman,italic,bold \
  *renderTable.fontType FONT_IS_FONT \
  *renderTable.bold.renditionForeground yellow \
  *renderTable.italic.renditionForeground green \
  *renderTable.italic.underlineType SINGLE_LINE \
  *renderTable.roman.font  $roman \
  *renderTable.italic.font $italic \
  *renderTable.bold.font   $bold

XmMainWindow main topLevel  \
    scrollingPolicy AUTOMATIC \
    width 450 height 200

  XmMenuBar menu_bar main
    XmPulldownMenu mp1 menu_bar unmanaged
      XmPushButton Quit \
	  mp1 activateCallback quit \
	  accelerator Ctrl<Key>C \
	  acceleratorText Ctrl+C 
    XmCascadeButton File menu_bar subMenuId mp1  mnemonic F

XmLabel demo main \
  labelString {
     ^roman This is a label with ^bold Bold Words
     ^roman and ^italic Italic Words ^roman in it.
     Of course, the contents of this label can span 
     over ^bold several lines.
  } \
  width 400 height 200
  
realize

