diff options
author | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
---|---|---|
committer | Ian Roxborough <irox@redhat.com> | 2001-09-09 19:49:03 +0000 |
commit | 57e8350a3895a1579b77cc134d6d7d49b056678e (patch) | |
tree | 7584c16f5407dd1371b8290109b3b822067afd5a /itcl/iwidgets3.0.0/generic/scrolledlistbox.itk | |
parent | 7467241ff2a5cd6da7bbecb7111fc0dc3211c7de (diff) | |
download | gdb-57e8350a3895a1579b77cc134d6d7d49b056678e.tar.gz |
Itcl import for Tcl/Tk8.3 upgradeITCL_TCL_8_3
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. |