Posted to tcl by kostix at Mon Jun 02 15:16:27 GMT 2008view pretty

--- bwidget.orig/dialog.tcl
+++ bwidget/dialog.tcl
@@ -168,13 +168,7 @@
 proc Dialog::add { path args } {
     variable _widget
 
-    if {[string equal $::tcl_platform(platform) "windows"]
-  && $::tk_version >= 8.4} {
-  set width -11
-    } else {
-  set width 8
-    }
-    set cmd [list ButtonBox::add $path.bbox -width $width \
+    set cmd [list ButtonBox::add $path.bbox \
        -command [list Dialog::enddialog $path $_widget($path,nbut)]]
     set res [eval $cmd $args]
     incr _widget($path,nbut)