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)