# simple pushButton test
xtAppInitialize -class Program \
    -fallbackResources {
	{*label1.cstextValue: page 1 text}
	{*label2.cstextValue: page 2 text in here @n and more}
    }
	

xmNotebook .notebook managed

for {set i 0} {$i <= 10} {incr i} {
    xmFrame .notebook.frame$i managed \
	-notebookChildType page \
	-pageNumber $i
    xmCSText .notebook.frame$i.label$i managed
    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
# }

. realizeWidget

. mainLoop
