diff options
Diffstat (limited to 'itcl/iwidgets3.0.0/generic/scrolledlistbox.itk')
| -rw-r--r-- | itcl/iwidgets3.0.0/generic/scrolledlistbox.itk | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/itcl/iwidgets3.0.0/generic/scrolledlistbox.itk b/itcl/iwidgets3.0.0/generic/scrolledlistbox.itk index c8222b96de4..87f371a2e58 100644 --- a/itcl/iwidgets3.0.0/generic/scrolledlistbox.itk +++ b/itcl/iwidgets3.0.0/generic/scrolledlistbox.itk @@ -79,6 +79,7 @@ class iwidgets::Scrolledlistbox { public method sort {{mode ascending}} public method xview {args} public method yview {args} + public method itemconfigure {args} protected method _makeSelection {} protected method _dblclick {} @@ -154,6 +155,9 @@ body iwidgets::Scrolledlistbox::constructor {args} { usual keep -borderwidth -exportselection -relief -selectmode + + # This option was added in Tk 8.3 + catch {keep -listvariable} rename -font -textfont textFont Font rename -background -textbackground textBackground Background @@ -700,6 +704,16 @@ body iwidgets::Scrolledlistbox::yview {args} { } # ------------------------------------------------------------------ +# METHOD: itemconfigure args +# +# This is a wrapper method around the new tk8.3 itemconfigure command +# for the listbox. +# ------------------------------------------------------------------ +body iwidgets::Scrolledlistbox::itemconfigure {args} { + return [eval $itk_component(listbox) itemconfigure $args] +} + +# ------------------------------------------------------------------ # PROTECTED METHOD: _makeSelection # # Evaluate the selection command. |