OUTPUT BUFFER:
#!/usr/bin/env wish #============================================================================== # Demonstrates some ways of improving the look & feel of a tablelist widget. # # Copyright (c) 2002-2020 Csaba Nemethi (E-mail: csaba.nemethi@t-online.de) #============================================================================== package require tablelist_tile 6.11 wm title . "Tablelist Styles" # # Improve the window's appearance by using a tile # frame as a container for the other widgets # set f [ttk::frame .f] # # Create, configure, and populate 8 tablelist widgets # ttk::frame $f.f for {set n 0} { $n < 8} {incr n} { set tbl $f.f.tbl$n tablelist::tablelist $tbl \ -columntitles {"Label 0" "Label 1" "Label 2" "Label 3"} \ -background white -stripebackground "" -height 4 -width 40 -stretch all if {[$tbl cget -selectborderwidth] == 0} { $tbl configure -spacing 1 } switch $n { 1 { $tbl configure -showseparators yes } 2 { $tbl configure -stripebackground #f0f0f0 } 3 { $tbl configure -stripebackground #f0f0f0 -showseparators yes } 4 { $tbl columnconfigure 1 -background LightYellow $tbl columnconfigure 3 -background LightCyan } 5 { $tbl configure -showseparators yes $tbl columnconfigure 1 -background LightYellow $tbl columnconfigure 3 -background LightCyan } 6 { $tbl configure -stripebackground #f0f0f0 $tbl columnconfigure 1 -background LightYellow \ -stripebackground #f0f0d2 $tbl columnconfigure 3 -background LightCyan \ -stripebackground #d2f0f0 } 7 { $tbl configure -stripebackground #f0f0f0 -showseparators yes $tbl columnconfigure 1 -background LightYellow \ -stripebackground #f0f0d2 $tbl columnconfigure 3 -background LightCyan \ -stripebackground #d2f0f0 } } foreach row {0 1 2 3} { $tbl insert end \ [list "Cell $row,0" "Cell $row,1" "Cell $row,2" "Cell $row,3"] } } ttk::button $f.close -text "Close" -command exit # # Manage the widgets # set pad {7p 0} grid $f.f.tbl0 $f.f.tbl1 -sticky news -padx $pad -pady $pad grid $f.f.tbl2 $f.f.tbl3 -sticky news -padx $pad -pady $pad grid $f.f.tbl4 $f.f.tbl5 -sticky news -padx $pad -pady $pad grid $f.f.tbl6 $f.f.tbl7 -sticky news -padx $pad -pady $pad grid rowconfigure $f.f {0 1 2 3} -weight 1 grid columnconfigure $f.f {0 1} -weight 1 pack $f.close -side bottom -pady 7p pack $f.f -side top -expand yes -fill both -padx {0 7p} pack $f -expand yes -fill both