Re: [MACTCL] TableList Question...

[Williams T. <pha...@gm...>]

Jerry,

I'm not sure if anyone got back to you on this yet, but you need to add
the following option to the tablelist configuration "-width 0" to
automatically display all of the columns without resizing required.

Trevor Williams



Jerry LeVan wrote:
> #!/usr/bin/tclsh
> package require Tk
> package require tablelist
> 
> tablelist::tablelist .t -columns { 0 date 
>                                   0 amount right
>                                   0 tranid
>                                   0 source
>                                   0 memo
>                                   0 status
>                                   0 category
>                                   } \
>      -stretch all -background white \
>      -showseparators 1 \
>      -stripebg lightgreen \
>      -listvariable listContent
>                                   
> set tbl .t
> $tbl columnconfigure 0 -name date  -editable yes -editwindow entry \
>     -sortmode dictionary 
> 
> $tbl columnconfigure 1 -name amount  -editable yes -editwindow entry \
>     -sortmode dictionary
> 
> $tbl columnconfigure 2 -name tranid  -editable yes -editwindow entry \
>     -sortmode dictionary
> 
> $tbl columnconfigure 3 -name source  -editable yes -editwindow entry \
>     -sortmode dictionary
> 
> $tbl columnconfigure 4 -name memo  -editable yes -editwindow entry \
>     -sortmode dictionary
> 
> $tbl columnconfigure 5 -name status  -editable yes -editwindow entry \
>     -sortmode dictionary
> 
> $tbl columnconfigure 6 -name category  -editable yes -editwindow entry \
>     -sortmode dictionary
> 
>  pack .t -fill both -expand 1 -side top
> 
> .t insert end {2011-03-25 -55.00 WITHD {Online Payment 10644630 To Mar} Mow * {Home Repair:Yard Work}}
> .t insert end {2011-03-25 -150.79 WITHD {Online Payment 10644157 To Int} {Dr Ko for Marijo} * Medical}
> .t insert end {2011-03-25 -7.78 WITHD {MEIJER INC 258 2013 LA R052639} Food * Groceries}
>  update idletasks
>  puts $listContent
>