[Tcl-bugs] [ tcl-Patches-3570478 ] right click on ttk::notebook tab

[SourceForge.net <no...@so...>]

Patches item #3570478, was opened at 2012-09-21 04:54
Message generated for change (Tracker Item Submitted) made by jromier
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=310894&aid=3570478&group_id=10894

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: 10. Objects
Group: TIP Implementation
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: jean romier (jromier)
Assigned to: miguel sofer (msofer)
Summary: right click on ttk::notebook tab

Initial Comment:
Hello,

Based on Tcl/Tk 8.5.12.

For a personal need, I updated the ttk::notebook.tcl file in order to have a virtual event notification when a right click appends on a notebook tab.
The new virtual event generated is <<NotebookTabRightClick>> with options/values -x # -y # -data tab_index.

As I did not want to re-compile the wish85.exe, I just modified the notebook.tcl file (instead ttkNotebook.c file).
The waiting result is OK.

Modification is:
Add:
  bind TNotebook <ButtonRelease-3>	{ ttk::notebook::RightClick %W %x %y }

  # RightClick $nb $x $y --
  #	ButtonRelease-3 binding for notebook widgets.
  #	Activate the tab under the mouse cursor, if any.
  #	And send an virtual event
  #
  proc ttk::notebook::RightClick {w x y} {
    set index [$w index @$x,$y]
    if {$index ne ""} {
	ActivateTab $w $index
    }
    event generate $w <<NotebookTabRightClick>> -x $x -y $y -data $index
  }
End Add.

On a tcl script, you just have to bind this virtual event:
  bind $nbk <<NotebookTabRightClick>> "notebook_right_click $nbk %d %x %y"

The benefit of this modification is to have the way to open a popup menu on the notebook tab on a right-clic, as it's possible in some applications.

So, maybe you would be able to add this feature on a next release.

Thank you and sorry for my english that is often 'frenchy'

Jean Romier
PLANAR SAS
France


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=310894&aid=3570478&group_id=10894