Notebook sample





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