Hello

Tablelist 7.1
Sorting a column with empty cells by integer:
But I have an error. How do I do this correctly?

Gregor

if {0} {
https://www.nemethi.de/tablelist/tablelistWidget.html#col_formatcommand
....
proc formatNumber val { return [expr {$val == -1 ? "" : $val}] }

This will make the cells displaying an empty string appear before
all the others when sorting the column in increasing order. To achieve
the opposite effect, you will have to replace the -1 with an
application-specific value that is strictly greater than all the other
numbers contained in the column in question.
....
}

package require Tk
package require tablelist

proc formatNumber val {
return [expr {$val == -1 ? "" : $val}]
}

set tf [frame .fr]
set tbl $tf.tbl
set vsb $tf.vsb

tablelist::tablelist $tbl -columns {0 Text left 0 "Number" right } \
-yscrollcommand [list $vsb set] -width 0 \
-labelcommand tablelist::sortByColumn

set col 1
$tbl columnconfigure $col -formatcommand formatNumber -sortmode integer

scrollbar $vsb -orient vertical -command [list $tbl yview]
grid $tbl -row 0 -column 0 -sticky news
grid $vsb -row 0 -column 1 -sticky ns
grid rowconfigure $tf 0 -weight 1
grid columnconfigure $tf 0 -weight 1
pack $tf -side top -expand yes -fill both

# Data
$tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
{empty ""}]

if {0} {
Output:
expected integer but got ""
expected integer but got ""
while executing
"tablelist::sortByColumn .fr.tbl 1"
("uplevel" body line 1)
invoked from within
"uplevel #0 $cmd [list $win $col] "
(procedure "tablelist::labelB1Up" line 109)
invoked from within
"tablelist::labelB1Up .fr.tbl.hdr.t.f.l1 990"
(command bound to event)

}

Misconception on my part

correct with

#Data
$tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
{empty -1}]

for
#Data
$tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
{empty ""}]

I have to write a sort command.

Am 03.04.24 um 06:03 schrieb greg:
> Misconception on my part
>
> correct with
>
> #Data
> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
>  {empty -1}]
>
>
>
> for
> #Data
> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
>  {empty ""}]
>

This correction eliminates the error message because all *internal* cell
values of the column "Number" are now integers.

> I have to write a sort command.
>

Why? For the column "Number" no sort command is needed.

--
Csaba Nemethi https://www.nemethi.de mailto:csaba.nemethi@t-online.de

Am 03.04.24 um 11:26 schrieb nemethi:
> Am 03.04.24 um 06:03 schrieb greg:
>> Misconception on my part
>>
>> correct with
>>
>> #Data
>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>> 11}   {empty -1}]
>>
>>
>>
>> for
>> #Data
>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>> 11}   {empty ""}]
>>
>
> This correction eliminates the error message because all *internal* cell
> values of the column "Number" are now integers.
>
>> I have to write a sort command.
>>
>
> Why?  For the column "Number" no sort command is needed.
>

1)
set col 1
$tbl columnconfigure $col -formatcommand formatNumber
# Data
$tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
{empty -1}]

sorts the 11 between 1 and 2

2)
set col 1
$tbl columnconfigure $col -formatcommand formatNumber -sortmode integer
# Data
$tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
{empty -1}]

#sorts ok

But if I need the values from column Number for a summation, I cannot
use this method. Then I have an incorrect sum with the substitute values
for "".
Hence a proc for it

proc customCompare {a b} {
# Treat empty cells as very large so they will be sorted at the end
if {$a eq ""} {set a 999999}
if {$b eq ""} {set b 999999}
# Convert to numbers and compare
set numA [expr {int($a)}]
set numB [expr {int($b)}]
if {$numA < $numB} {
return -1
} elseif {$numA > $numB} {
returns 1
} else {
return 0
}
}

Am 03.04.24 um 20:56 schrieb greg:
> Am 03.04.24 um 11:26 schrieb nemethi:
>> Am 03.04.24 um 06:03 schrieb greg:
>>> Misconception on my part
>>>
>>> correct with
>>>
>>> #Data
>>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>>> 11}   {empty -1}]
>>>
>>>
>>>
>>> for
>>> #Data
>>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>>> 11}   {empty ""}]
>>>
>>
>> This correction eliminates the error message because all *internal*
>> cell values of the column "Number" are now integers.
>>
>>> I have to write a sort command.
>>>
>>
>> Why?  For the column "Number" no sort command is needed.
>>
>
> 1)
> set col 1
> $tbl columnconfigure $col -formatcommand formatNumber
> # Data
> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
>  {empty -1}]
>
> sorts the 11 between 1 and 2
>
> 2)
> set col 1
> $tbl columnconfigure $col -formatcommand formatNumber -sortmode integer
> # Data
> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven 11}
>  {empty -1}]
>
> #sorts ok
>
>
>
> But if I need the values from column Number for a summation, I cannot
> use this method. Then I have an incorrect sum with the substitute values
> for "".
> Hence a proc for it
>
> proc customCompare {a b} {
> # Treat empty cells as very large so they will be sorted at the end
>  if {$a eq ""} {set a 999999}
>  if {$b eq ""} {set b 999999}
> # Convert to numbers and compare
>  set numA [expr {int($a)}]
>  set numB [expr {int($b)}]
>  if {$numA < $numB} {
>    return -1
>  } elseif {$numA > $numB} {
>    returns 1
>  } else {
>   return 0
>  }
> }
>
>
>

Why not use a summation proc rather than a comparison one? You could
write a simple proc that adds the internal cell values, except that it
skips the value -1 (or 999999) when building the sum.

--
Csaba Nemethi https://www.nemethi.de mailto:csaba.nemethi@t-online.de

Am 03.04.24 um 21:37 schrieb nemethi:
> Am 03.04.24 um 20:56 schrieb greg:
>> Am 03.04.24 um 11:26 schrieb nemethi:
>>> Am 03.04.24 um 06:03 schrieb greg:
>>>> Misconception on my part
>>>>
>>>> correct with
>>>>
>>>> #Data
>>>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>>>> 11}   {empty -1}]
>>>>
>>>>
>>>>
>>>> for
>>>> #Data
>>>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>>>> 11}   {empty ""}]
>>>>
>>>
>>> This correction eliminates the error message because all *internal*
>>> cell values of the column "Number" are now integers.
>>>
>>>> I have to write a sort command.
>>>>
>>>
>>> Why?  For the column "Number" no sort command is needed.
>>>
>>
>> 1)
>> set col 1
>> $tbl columnconfigure $col -formatcommand formatNumber
>> # Data
>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>> 11}   {empty -1}]
>>
>> sorts the 11 between 1 and 2
>>
>> 2)
>> set col 1
>> $tbl columnconfigure $col -formatcommand formatNumber -sortmode integer
>> # Data
>> $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
>> 11}   {empty -1}]
>>
>> #sorts ok
>>
>>
>>
>> But if I need the values from column Number for a summation, I cannot
>> use this method. Then I have an incorrect sum with the substitute
>> values for "".
>> Hence a proc for it
>>
>> proc customCompare {a b} {
>> # Treat empty cells as very large so they will be sorted at the end
>>   if {$a eq ""} {set a 999999}
>>   if {$b eq ""} {set b 999999}
>> # Convert to numbers and compare
>>   set numA [expr {int($a)}]
>>   set numB [expr {int($b)}]
>>   if {$numA < $numB} {
>>     return -1
>>   } elseif {$numA > $numB} {
>>     returns 1
>>   } else {
>>    return 0
>>   }
>> }
>>
>>
>>
>
> Why not use a summation proc rather than a comparison one?  You could
> write a simple proc that adds the internal cell values, except that it
> skips the value -1 (or 999999) when building the sum.
>
That approach didn't even occur to me.
Thanks! Is also a solution

Gregor
Every now and then I have
"ein Brett vor dem Kopf".

* greg <gregor.ebbing@gmx.de>
| 1)
| set col 1
| $tbl columnconfigure $col -formatcommand formatNumber
| # Data
| $tbl insertlist end [list {one 1} {two 2} {three 3} {four 4} {eleven
| 11} {empty -1}]
>
| sorts the 11 between 1 and 2

[-sortmode dictionary] might take care of that, plus one would not
(I *think*) require the special value -1. But even then, a separate
summation command would be required to take care of the {empty ""}
cells.

R'