Example: File Viewer (2)
set stext [tixScrolledText $bot.text]
$stext subwidget text config -font [tix option get \
fixed_font]
pack $stext -expand yes -fill both -padx 4 -pady 4
# Create the directory tree and tabular list widgets
set dirtree [tixDirTree $left.dirtree -browsecmd \
TreeBrowse]
pack $dirtree -expand yes -fill both -padx 4 -pady 4
set stlist [tixScrolledTList $right.tlist -options {
tlist.browseCmd ListBrowse
tlist.command ListCmd
}]
pack $stlist -expand yes -fill both -padx 4 -pady 4