Re: [MACTCL] TableList Question...

[Jerry L. <jer...@gm...>]

On Mar 29, 2011, at 11:37 PM, Williams Trevor wrote:

> 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
> 
> 
Thanks Trevor,

I guess I missed that option in the maze of possible options :(

I was getting worried because I was getting application lockups when I
manually resized the window about 20% of the time...

Jerry

> 
> 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
>>