From d010dca55fd7a02e3fe6e50910359d8d4915f003 Mon Sep 17 00:00:00 2001
From: welch <welch>
Date: Sat, 27 Jun 1998 18:05:23 +0000
Subject: plugin update

---
 library/bgerror.tcl | 8 ++++----
 library/button.tcl  | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/library/bgerror.tcl b/library/bgerror.tcl
index d2b1cdc..2c43305 100644
--- a/library/bgerror.tcl
+++ b/library/bgerror.tcl
@@ -82,10 +82,10 @@ proc bgerror err {
 
     wm withdraw $w
     update idletasks
-    set x [expr [winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \
-	    - [winfo vrootx [winfo parent $w]]]
-    set y [expr [winfo screenheight $w]/2 - [winfo reqheight $w]/2 \
-	    - [winfo vrooty [winfo parent $w]]]
+    set x [expr {[winfo screenwidth $w]/2 - [winfo reqwidth $w]/2 \
+	    - [winfo vrootx [winfo parent $w]]}]
+    set y [expr {[winfo screenheight $w]/2 - [winfo reqheight $w]/2 \
+	    - [winfo vrooty [winfo parent $w]]}]
     wm geom $w +$x+$y
     wm deiconify $w
 
diff --git a/library/button.tcl b/library/button.tcl
index b017b80..e17997e 100644
--- a/library/button.tcl
+++ b/library/button.tcl
@@ -69,12 +69,12 @@ if {$tcl_platform(platform) == "windows"} {
 }
 if {$tcl_platform(platform) == "unix"} {
     bind Checkbutton <Return> {
-	if !$tk_strictMotif {
+	if {!$tk_strictMotif} {
 	    tkCheckRadioInvoke %W
 	}
     }
     bind Radiobutton <Return> {
-	if !$tk_strictMotif {
+	if {!$tk_strictMotif} {
 	    tkCheckRadioInvoke %W
 	}
     }
-- 
cgit v0.12