Fix tooltip display with multiple monitors on windows.

[git.git] / lib / blame.tcl

diff --git a/lib/blame.tcl b/lib/blame.tcl
index 61e358f960ca949cac5664c67442b82d0afca65f..1f2977d5bb525521e13380e3957708ba4f025473 100644 (file)
--- 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