File: dialog.diff

package info (click to toggle)
bwidget 1.10.1-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 1,752 kB
  • sloc: tcl: 15,081; makefile: 19
file content (17 lines) | stat: -rw-r--r-- 488 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
--- a/dialog.tcl
+++ b/dialog.tcl
@@ -184,13 +184,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)