# simple pushButton test
xtAppInitialize -class Program

xmNotebook .notebook managed

for {set i 0} {$i <= 10} {incr i} {
    xmFrame .notebook.frame$i managed \
	-notebookChildType page \
	-pageNumber $i
    xmLabel .notebook.frame$i.label managed \
	-labelString "page $i"
    xmLabel .notebook.label$i managed \
	-labelString "page $i" \
	-notebookChildType status_area \
	-pageNumber $i
}

for {set i 4} {$i <= 10} {incr i 3} {
    xmPushButton .notebook.btn$i managed \
	-labelString "major $i" \
	-notebookChildType major_tab \
	-pageNumber $i
}

xmPushButton .notebook.btn managed \
    -labelString "minor 2" \
    -notebookChildType minor_tab \
    -pageNumber 2

. realizeWidget

. mainLoop
