#! ../wafe --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
		$space <+inf -100%>
        }
	$space <+inf -100%>
	horizontal {
		$space <-100%>
		button1
		(3*$space) <+inf -100%>
		button2
		$space <-100%>
        }
	$space <+inf -100%>
  }}

mergeResources topLevel \
	*Text*editType edit \
	*Text*background white \
	*.background gray90 \
	*Label.borderWidth 0

Layout l topLevel layout $Layout
  Label label l label "Label Widget" 
  Text textInsertionField l
  Command button1 l label "Button 1" 
  Command button2 l label Quit callback quit

realize



