From Newsgroup: comp.lang.tcl

I have a tablelist which has some cells which contain mutli-line texts I
use the following to add a popup menu on a right click

# Add the bindings for the clipboard
set body [$table bodypath]
# Add clipboard menu
bind $body <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y]

This works on all cells except the multi-line cells.

A button-1 press invokes the editstartcmd so some bindings are detected

Is there some special binding needed or an update I'm fixed on tablelist
6.16 for reasons.

Martyn
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.lang.tcl

On 30/10/2025 16:21, Martyn Smith wrote:

I have a tablelist which has some cells which contain mutli-line texts I
use the following to add a popup menu on a right click

        # Add the bindings for the clipboard
        set body [$table bodypath]
        # Add clipboard menu
        bind $body <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y]

This works on all cells except the multi-line cells.

A button-1 press invokes the editstartcmd so some bindings are detected

Is there some special binding needed or an update I'm fixed on tablelist 6.16 for reasons.

Martyn

For now I have found a workaround by binding to TablelistBody and
ignoring any calls that come from other tablelists in the callback
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.lang.tcl

Am 30.10.2025 um 16:21 schrieb Martyn Smith:

Martyn

Martyn, you are still around, great! We met multiple times in ETCL in Strassbourg.

Take care,
Harald
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.lang.tcl

Am 30.10.25 um 17:04 schrieb Martyn Smith:

On 30/10/2025 16:21, Martyn Smith wrote:

I have a tablelist which has some cells which contain mutli-line texts
I use the following to add a popup menu on a right click

         # Add the bindings for the clipboard
         set body [$table bodypath]
         # Add clipboard menu
         bind $body <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y]

This works on all cells except the multi-line cells.

A button-1 press invokes the editstartcmd so some bindings are detected

Is there some special binding needed or an update I'm fixed on
tablelist 6.16 for reasons.

Martyn

For now I have found a workaround by binding to TablelistBody and
ignoring any calls that come from other tablelists in the callback

Change your code to become:

set bodyTag [$table bodytag]
bind $bodyTag <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y]

proc AdvancedPopupMenu {w x y rootX rootY} {
# Get the tablelist widget and the cordinates relative to it
lassign [tablelist::convEventFields $w $x $y] tbl x y
...

set menu .menu
# Populate the menu
...

tk_popup $menu $rootX $rootY
}
--
Csaba Nemethi https://www.nemethi.de mailto:csaba.nemethi@t-online.de
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.lang.tcl

On 30/10/2025 17:10, Harald Oehlmann wrote:

Am 30.10.2025 um 16:21 schrieb Martyn Smith:

Martyn

Martyn, you are still around, great! We met multiple times in ETCL in Strassbourg.

Take care,
Harald

Yes I remember you, At Munich too.

TTFN
Martyn
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.lang.tcl

On 30/10/2025 21:51, nemethi wrote:
Hi,
Thanks That is what I was doing, but the 'AdvancedPopupMenu' was not
being called at all.
I will wait until we can update the version again and retest.

Martyn

Am 30.10.25 um 17:04 schrieb Martyn Smith:

On 30/10/2025 16:21, Martyn Smith wrote:

I have a tablelist which has some cells which contain mutli-line
texts I use the following to add a popup menu on a right click

         # Add the bindings for the clipboard
         set body [$table bodypath]
         # Add clipboard menu
         bind $body <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y]

This works on all cells except the multi-line cells.

A button-1 press invokes the editstartcmd so some bindings are detected

Is there some special binding needed or an update I'm fixed on
tablelist 6.16 for reasons.

Martyn

For now I have found a workaround by binding to TablelistBody and
ignoring any calls that come from other tablelists in the callback

Change your code to become:

    set bodyTag [$table bodytag]
    bind $bodyTag <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y]

    proc AdvancedPopupMenu {w x y rootX rootY} {
        # Get the tablelist widget and the cordinates relative to it
        lassign [tablelist::convEventFields $w $x $y] tbl x y
        ...

        set menu .menu
        # Populate the menu
        ...

        tk_popup $menu $rootX $rootY
    }

--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.lang.tcl

Am 05.11.25 um 09:40 schrieb Martyn Smith:

On 30/10/2025 21:51, nemethi wrote:
Hi,
Thanks That is what I was doing, but the 'AdvancedPopupMenu' was not
being called at all.
I will wait until we can update the version again and retest.

Martyn

Am 30.10.25 um 17:04 schrieb Martyn Smith:

On 30/10/2025 16:21, Martyn Smith wrote:

I have a tablelist which has some cells which contain mutli-line
texts I use the following to add a popup menu on a right click

         # Add the bindings for the clipboard
         set body [$table bodypath]
         # Add clipboard menu
         bind $body <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y]

This works on all cells except the multi-line cells.

A button-1 press invokes the editstartcmd so some bindings are detected >>>>
Is there some special binding needed or an update I'm fixed on
tablelist 6.16 for reasons.

Martyn

For now I have found a workaround by binding to TablelistBody and
ignoring any calls that come from other tablelists in the callback

Change your code to become:

     set bodyTag [$table bodytag]
     bind $bodyTag <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y] >>
     proc AdvancedPopupMenu {w x y rootX rootY} {
         # Get the tablelist widget and the cordinates relative to it
         lassign [tablelist::convEventFields $w $x $y] tbl x y
         ...

         set menu .menu
         # Populate the menu
         ...

         tk_popup $menu $rootX $rootY
     }

Martyn, in your code you are using [$table bodypath], which doesn't work
for a multi-line cell. You have to use [$table bodytag] instead.
--
Csaba Nemethi https://www.nemethi.de mailto:csaba.nemethi@t-online.de
--- Synchronet 3.21a-Linux NewsLink 1.2

From Newsgroup: comp.lang.tcl

On 05/11/2025 10:40, nemethi wrote:

Am 05.11.25 um 09:40 schrieb Martyn Smith:

On 30/10/2025 21:51, nemethi wrote:
Hi,
Thanks That is what I was doing, but the 'AdvancedPopupMenu' was not
being called at all.
I will wait until we can update the version again and retest.

Martyn

Am 30.10.25 um 17:04 schrieb Martyn Smith:

On 30/10/2025 16:21, Martyn Smith wrote:

I have a tablelist which has some cells which contain mutli-line
texts I use the following to add a popup menu on a right click

         # Add the bindings for the clipboard
         set body [$table bodypath]
         # Add clipboard menu
         bind $body <<Button3>> [list AdvancedPopupMenu %W %x %y %X
%Y]

This works on all cells except the multi-line cells.

A button-1 press invokes the editstartcmd so some bindings are
detected

Is there some special binding needed or an update I'm fixed on
tablelist 6.16 for reasons.

Martyn

For now I have found a workaround by binding to TablelistBody and
ignoring any calls that come from other tablelists in the callback

Change your code to become:

     set bodyTag [$table bodytag]
     bind $bodyTag <<Button3>> [list AdvancedPopupMenu %W %x %y %X %Y] >>>
     proc AdvancedPopupMenu {w x y rootX rootY} {
         # Get the tablelist widget and the cordinates relative to it
         lassign [tablelist::convEventFields $w $x $y] tbl x y
         ...

         set menu .menu
         # Populate the menu
         ...

         tk_popup $menu $rootX $rootY
     }

Martyn, in your code you are using [$table bodypath], which doesn't work
for a multi-line cell.  You have to use [$table bodytag] instead.

Sorry My bad, Thanks for the help.

Martyn
--- Synchronet 3.21a-Linux NewsLink 1.2