From b5e98dd2b77c34bb8e3009ec6ee4cf5fd57f6373 Mon Sep 17 00:00:00 2001
From: Nicolas Bats <sl1200mk2@gmail.com>
Date: Tue, 1 Oct 2024 07:20:15 +0200
Subject: [PATCH] Update dialog.tcl

without $checkBounds > 0, the condition pass on my win32 and dialog box is not well centered on my second monitor
---
 modules/widget/dialog.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modules/widget/dialog.tcl b/modules/widget/dialog.tcl
index b98b4208..7062a600 100644
--- a/modules/widget/dialog.tcl
+++ b/modules/widget/dialog.tcl
@@ -441,7 +441,7 @@ snit::widget widget::dialog {
 	    # win32 multiple desktops may produce negative geometry - avoid.
 	    set checkBounds -1
 	}
-	if {$checkBounds} {
+	if {$checkBounds > 0} {
 	    if {$x < 0 && $checkBounds > 0} {
 		set x 0
 	    } elseif {$x > ([winfo screenwidth $w]-[winfo reqwidth $w])} {