TixNoteBook
Automatically generates Alt-key bindings.
Delaying page creation for better performance:
tixNoteBook .n
set p1 [.n add tree -label Tree -underline 0 \
-createcmd CreateTree]
set p2 [.n add list -label List -underline 0 \
-createcmd CreateList]
...
proc CreateTree {} {
set p1 [.p subwidget tree]
tixDirTree $p1.d; pack $p1.d -expand yes -fill both
...
}