diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-01 23:37:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-01-01 23:37:20 (GMT) |
| commit | 5b17775ceec76475fc09958fe95ea3463bf0d4a0 (patch) | |
| tree | 59b2e125921d7d2cb4ffa29ae6ab5ef7b39dec8b /library/tearoff.tcl | |
| parent | e89506924ebc59f7c9bcf77f749d62f59893105e (diff) | |
| download | tk-5b17775ceec76475fc09958fe95ea3463bf0d4a0.zip tk-5b17775ceec76475fc09958fe95ea3463bf0d4a0.tar.gz tk-5b17775ceec76475fc09958fe95ea3463bf0d4a0.tar.bz2 | |
Keep menu.tcl/tearoff.tcl more in sync with 8.7
Diffstat (limited to 'library/tearoff.tcl')
| -rw-r--r-- | library/tearoff.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/tearoff.tcl b/library/tearoff.tcl index 1dbe858..3a63b17 100644 --- a/library/tearoff.tcl +++ b/library/tearoff.tcl @@ -31,10 +31,10 @@ proc ::tk::TearOffMenu {w {x 0} {y 0}} { # away when the toplevel goes away. if {$x == 0} { - set x [winfo rootx $w] + set x [winfo rootx $w] } if {$y == 0} { - set y [winfo rooty $w] + set y [winfo rooty $w] if {[tk windowingsystem] eq "aqua"} { # Shift by height of tearoff entry minus height of window titlebar catch {incr y [expr {[$w yposition 1] - 16}]} @@ -66,14 +66,14 @@ proc ::tk::TearOffMenu {w {x 0} {y 0}} { set parent [winfo parent $w] if {[$menu cget -title] ne ""} { - wm title $menu [$menu cget -title] + wm title $menu [$menu cget -title] } else { - switch -- [winfo class $parent] { + switch -- [winfo class $parent] { Menubutton { - wm title $menu [$parent cget -text] + wm title $menu [$parent cget -text] } Menu { - wm title $menu [$parent entrycget active -label] + wm title $menu [$parent entrycget active -label] } } } |