Hi

I found a workaround.

I create a proc moveCol.

##
proc moveCol {args} {::tablelist::moveCol {*}$args}
##

regards

Manfred


Am 05.10.24 um 19:24 schrieb Manfred Stelzhammer:

Hi

If I create a tablelist widget with "-movablecolumns 1" an I'll move a
column it works ok.

But if I have a proc "unknown" I cann't move a column.

##

proc unknown {args} {puts "unknown : $args"}

##

If I move in the tablelistwidget a column I get:

    % unknown : moveCol .tbl 2 1

But the position from the column don't change.

How can I solve the problem?

regards

Manfred

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

Hi

If I create a tablelist widget with "-movablecolumns 1" an I'll move a
column it works ok.

But if I have a proc "unknown" I cann't move a column.

##

proc unknown {args} {puts "unknown : $args"}

##

If I move in the tablelistwidget a column I get:

% unknown : moveCol .tbl 2 1

But the position from the column don't change.

How can I solve the problem?

regards

Manfred

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

Sorry, I'm wrong, the workaround does'nt work.

regards

Manfred

Am 05.10.24 um 19:32 schrieb Manfred Stelzhammer:

Hi

I found a workaround.

I create a proc moveCol.

##
proc moveCol {args} {::tablelist::moveCol {*}$args}
##

regards

Manfred

Am 05.10.24 um 19:24 schrieb Manfred Stelzhammer:

Hi

If I create a tablelist widget with "-movablecolumns 1" an I'll move a
column it works ok.

But if I have a proc "unknown" I cann't move a column.

##

proc unknown {args} {puts "unknown : $args"}

##

If I move in the tablelistwidget a column I get:

     % unknown : moveCol .tbl 2 1

But the position from the column don't change.

How can I solve the problem?

regards

Manfred

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

Subject: tablelist and unknow

If I create a tablelist widget with "-movablecolumns 1" an I'll move a
column it works ok.

But if I have a proc "unknown" I cann't move a column.

##

proc unknown {args} {puts "unknown : $args"}

Your unknown command might be masking an auto-loaded command or package.

See the Tcl unknown manpage for more information.

daveb

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

Am 05.10.24 um 20:45 schrieb Manfred Stelzhammer:

Sorry, I'm wrong, the workaround does'nt work.

regards

Manfred

Am 05.10.24 um 19:32 schrieb Manfred Stelzhammer:

Hi

I found a workaround.

I create a proc moveCol.

##
proc moveCol {args} {::tablelist::moveCol {*}$args}
##

regards

Manfred


Am 05.10.24 um 19:24 schrieb Manfred Stelzhammer:

Hi

If I create a tablelist widget with "-movablecolumns 1" an I'll move
a column it works ok.

But if I have a proc "unknown" I cann't move a column.

##

proc unknown {args} {puts "unknown : $args"}

##

If I move in the tablelistwidget a column I get:

     % unknown : moveCol .tbl 2 1

But the position from the column don't change.

How can I solve the problem?

regards

Manfred

1. As pointed out by daveb, it is dangerous to override the default
unknown proc. In addition, your unknown proc just prints its arguments,
which, of course, won't change the position of any column.

2. Your "workaround" that uses a proc moveCol:

proc moveCol {args} { ::tablelist::moveCol {*}$args }

works for me as expected. For example,

moveCol .tbl 2 1

does move column 2 before column 1.

3. The above works, but it uses the ::tablelist::moveCol proc, which
belongs to the implementation of the tablelist widget, not to its
documented, public API. It is much better to use something like

proc moveCol {args} {
lassign $args tbl sourceCol targetCol
$tbl movecolumn $sourceCol $targetCol
}

--
Csaba Nemethi https://www.nemethi.de mailto:[email protected]

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

From: nemethi <[email protected]>

3. The above works, but it uses the ::tablelist::moveCol proc, which
belongs to the implementation of the tablelist widget, not to its
documented, public API. It is much better to use something like

proc moveCol {args} {
lassign $args tbl sourceCol targetCol
$tbl movecolumn $sourceCol $targetCol
}

I'm curious why you suggest using lassign $args... instead of putting the variables in the proc arguments list? Something like:

proc moveCol {tbl sourceCol targetCol} {$tbl movecolumn $sourceCol $targetCol}

Do error messages make more sense that way, or is it more efficient?

daveb

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)

Am 06.10.24 um 14:32 schrieb [email protected]:

From: nemethi <[email protected]>

3. The above works, but it uses the ::tablelist::moveCol proc, which
belongs to the implementation of the tablelist widget, not to its
documented, public API. It is much better to use something like

proc moveCol {args} {
lassign $args tbl sourceCol targetCol
$tbl movecolumn $sourceCol $targetCol
}

I'm curious why you suggest using lassign $args... instead of putting the variables in the proc arguments list? Something like:

proc moveCol {tbl sourceCol targetCol} {$tbl movecolumn $sourceCol $targetCol}

Do error messages make more sense that way, or is it more efficient?

daveb

The only reason for using args was that the OP used this form with both
procs unknown and moveCol.

--
Csaba Nemethi https://www.nemethi.de mailto:[email protected]

--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)