diff options
| author | jenglish <jenglish@flightlab.com> | 2006-12-17 21:09:46 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@flightlab.com> | 2006-12-17 21:09:46 (GMT) |
| commit | 7f57cc3e07cec7711ebfbd96b9a28af4e9f463c9 (patch) | |
| tree | 2e4308ec8e352756daff81632e81c195674ebdef /library/ttk/combobox.tcl | |
| parent | 916e70fb90cb972726e8e580ff8dabf5e3da7aa1 (diff) | |
| download | tk-7f57cc3e07cec7711ebfbd96b9a28af4e9f463c9.zip tk-7f57cc3e07cec7711ebfbd96b9a28af4e9f463c9.tar.gz tk-7f57cc3e07cec7711ebfbd96b9a28af4e9f463c9.tar.bz2 | |
Add combobox -height option; only show scrollbar if the listbox
needs to scroll [#1032869].
Diffstat (limited to 'library/ttk/combobox.tcl')
| -rw-r--r-- | library/ttk/combobox.tcl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/library/ttk/combobox.tcl b/library/ttk/combobox.tcl index 6c7099c..5af7a2d 100644 --- a/library/ttk/combobox.tcl +++ b/library/ttk/combobox.tcl @@ -1,5 +1,5 @@ # -# $Id: combobox.tcl,v 1.2 2006/11/27 06:53:55 jenglish Exp $ +# $Id: combobox.tcl,v 1.3 2006/12/17 21:09:46 jenglish Exp $ # # Ttk widget set: combobox bindings. # @@ -275,8 +275,11 @@ proc ttk::combobox::Post {cb} { $popdown.l see $current # Should allow user to control listbox height set height [llength $values] - if {$height > 10} { - set height 10 + if {$height > [$cb cget -height]} { + set height [$cb cget -height] + grid $popdown.sb + } else { + grid remove $popdown.sb } $popdown.l configure -height $height update idletasks |