source ../../oo.tcl @import core.* @import gui.* wm geometry . "300x200" set notebook [Notebook new] foreach label {Files Images Setup} { set f [$notebook add: $label] pack [label $f.l -text $label -relief sunken -bd 1] -fill both -expand 1 } $notebook show