
xtAppInitialize -class Program

xmMainWindow .main managed -scrollBarDisplayPolicy as_needed \
		-scrollingPolicy automatic
# mainWindow .main
xmLabel .main.label managed

# top menu bar
xmMenuBar .main.menuBar managed
xmCascadeButton .main.menuBar.file managed \
	-labelString File \
	-mnemonic F

# file pulldown
xmPulldownMenu .main.menuBar.fileMenu
xmPushButton .main.menuBar.fileMenu.new managed \
	-labelString "New..." \
	-mnemonic N
xmPushButton .main.menuBar.fileMenu.quit managed \
	 -labelString Quit \
	-mnemonic Q
xmSeparator .main.menuBar.fileMenu.bar1 managed
xmPushButton .main.menuBar.fileMenu.quit2 managed \
	 -labelString Quit \
	-mnemonic Q
.main.menuBar.file setValues -subMenuId .main.menuBar.fileMenu



.main setValues -workWindow .main.label \
		-menuBar .main.menuBar


. realizeWidget

. mainLoop
