#! ../mofe --f
# small example script to demonstrate the Layout widget 
# Gustaf Neumann  March 8, 1993

set Layout {vertical {
	space = (height label/2)
	$space <+inf -100%>
	horizontal {
		$space <-100%>
		label
		$space <+inf -100%>
        }
	$space <+inf -100%>
	horizontal {
		$space <-100%>
		textInsertionField <+inf -100% *>
		$space <-100%>
        }
	$space <+inf -100%>
	horizontal {
		$space <-100%>
		button1
		(3*$space) <+inf -100%>
		button2
		$space <-100%>
        }
	$space <+inf -100%>
  }}

mergeResources topLevel \
	*XmTextField*background white \
	*.background gray90 \
         *l.layout $Layout

#XmMainWindow top topLevel \
#    scrollBarDisplayPolicy AS_NEEDED scrollingPolicy AUTOMATIC \
#    width 200 height 400
Layout l topLevel
  XmLabel label l labelString "Label Widget" 
  XmTextField textInsertionField l width 300
  XmPushButton button1 l labelString "Button 1" 
  XmPushButton button2 l labelString Quit activateCallback quit
#sV top workWindow l

realize



