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

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