TixNoteBook
Creating a TixNoteBook and adding pages:
tixNoteBook .n
set p1 [.n add tree -label Tree -underline 0]
set p2 [.n add list -label List -underline 0]
tixDirTree $p1.d; pack $p1.d -expand yes -fill both
tixScrolledTList $p2.t; pack $p2.t -expand yes -fill both