Attachment "combobox.patch" to
ticket [2807160fff]
added by
danckaert
2009-06-16 20:21:35.
Index: combobox.tcl
===================================================================
RCS file: /target/staff/koen/.cvsroot/bwidget/combobox.tcl,v
retrieving revision 1.1.1.2
diff -b -u -r1.1.1.2 combobox.tcl
--- combobox.tcl 9 Nov 2006 11:34:59 -0000 1.1.1.2
+++ combobox.tcl 16 Jun 2009 13:10:02 -0000
@@ -414,7 +416,7 @@
wm transient $shell [winfo toplevel $path]
catch { wm attributes $shell -topmost 1 }
- set sw [ScrolledWindow $shell.sw -managed 0 -size $sbwidth -ipad 0]
+ set sw [ScrolledWindow $shell.sw -managed 1 -size $sbwidth -ipad 0]
if {$bw} {
set listb [ListBox $shell.listb \
@@ -502,7 +504,7 @@
set listb $shell.listb
destroy $shell.sw
- set sw [ScrolledWindow $shell.sw -managed 0 -size $sbwidth -ipad 0]
+ set sw [ScrolledWindow $shell.sw -managed 1 -size $sbwidth -ipad 0]
$listb configure \
-height $h \
-font [Widget::cget $path -font] \
