#!../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 300

  XmMenuBar menu_bar main
    XmPulldownMenu mp1 menu_bar unmanaged
      XmPushButton Reset mp1 \
	  activateCallback {sV demo labelString [gV demo labelString]}
      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. Tags are marked by a ^^.

     ^rl^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. Tags are marked by a ^^.
  } \
  width 400 height 250 recomputeSize false
  
realize

