proc About {} {    return "Testing the notebook widgets"}proc NoteBookPageConfig {w pages} {    foreach page $pages {	Assert {"x[$w pagecget $page -label]" == "x$page"}	Assert {"x[$w pageconfigure $page -label]" == "x-label {} {} {} $page"}	$w pageconfigure $page -label foo	Assert {"x[$w pagecget $page -label]" == "xfoo"}	update    }}proc Test {} {    foreach class {tixListNoteBook tixNoteBook tixStackWindow} {	set w [$class .d]	pack $w	update	set pages {1 2 3 4 5 6 1111111112221}	foreach page $pages {	    if {$class == "tixListNoteBook"} {		$w subwidget hlist add $page -itemtype imagetext \		    -image [tix getimage folder] -text $page	    }	    set p [$w add $page -label $page]	    for {set x 1} {$x < 10} {incr x} {		button $p.$x -text $x		pack $p.$x -fill x	    }	}	foreach page $pages {	    $w raise $page	    Assert {"x[$w raised]" == "x$page"}	    update	}	Assert {[string compare $pages [$w pages]] == 0}	# test the "hooking" of the notebook frame subwidget	#	#	if {$class == "tixNoteBook"} {	    NoteBookPageConfig $w $pages	}	foreach page $pages {	    Assert {"x[$w pagecget $page -raisecmd]" == "x"}#	    Assert {"x[$w pageconfigure $page -raisecmd]" == "x-raisecmd {} {} {} {}"}	    $w pageconfigure $page -raisecmd "RaiseCmd $page"	    Assert {"x[$w pagecget $page -raisecmd]" == "xRaiseCmd $page"}	    update	}	destroy $w    }}