diff options
| -rw-r--r-- | lib/blame.tcl | 4 | ||||
| -rw-r--r-- | lib/choose_rev.tcl | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/lib/blame.tcl b/lib/blame.tcl index 61e358f960..1f2977d5bb 100644 --- a/lib/blame.tcl +++ b/lib/blame.tcl @@ -1298,9 +1298,9 @@ method _position_tooltip {} { set pos_y [expr {[winfo pointery .] + 10}] set g "${req_w}x${req_h}" - if {$pos_x >= 0} {append g +} + if {[tk windowingsystem] eq "win32" || $pos_x >= 0} {append g +} append g $pos_x - if {$pos_y >= 0} {append g +} + if {[tk windowingsystem] eq "win32" || $pos_y >= 0} {append g +} append g $pos_y wm geometry $tooltip_wm $g diff --git a/lib/choose_rev.tcl b/lib/choose_rev.tcl index c12d5e1698..54c7957a66 100644 --- a/lib/choose_rev.tcl +++ b/lib/choose_rev.tcl @@ -610,9 +610,9 @@ method _position_tooltip {} { set pos_y [expr {[winfo pointery .] + 10}] set g "${req_w}x${req_h}" - if {$pos_x >= 0} {append g +} + if {[tk windowingsystem] eq "win32" || $pos_x >= 0} {append g +} append g $pos_x - if {$pos_y >= 0} {append g +} + if {[tk windowingsystem] eq "win32" || $pos_y >= 0} {append g +} append g $pos_y wm geometry $tooltip_wm $g |