diff options
author | treectrl <treectrl> | 2006-09-16 20:10:27 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-09-16 20:10:27 (GMT) |
commit | 83e942a3e044de4b44f924b6b10998b19889ef09 (patch) | |
tree | eec886cf9d455210eb2b2567b86034c7ac3974be /demos | |
parent | 74bee9787162e803b49a2b21a49b87e3c9358acd (diff) | |
download | tktreectrl-83e942a3e044de4b44f924b6b10998b19889ef09.zip tktreectrl-83e942a3e044de4b44f924b6b10998b19889ef09.tar.gz tktreectrl-83e942a3e044de4b44f924b6b10998b19889ef09.tar.bz2 |
Clear the "enabled" state of header items in the property list so they can't be selected and keyboard navigation skips over them.
Diffstat (limited to 'demos')
-rw-r--r-- | demos/style-editor.tcl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/demos/style-editor.tcl b/demos/style-editor.tcl index 232a534..f809f8f 100644 --- a/demos/style-editor.tcl +++ b/demos/style-editor.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: style-editor.tcl,v 1.6 2005/07/11 01:59:07 treectrl Exp $ +# RCS: @(#) $Id: style-editor.tcl,v 1.7 2006/09/16 20:10:27 treectrl Exp $ namespace eval StyleEditor { variable Info @@ -286,7 +286,7 @@ proc StyleEditor::SetPropertyList {} { update idletasks set height 0 - foreach editor {pad expand iexpand squeeze boolean pixels} { + foreach editor {pad expand iexpand squeeze boolean pixels} { set heightWin [winfo reqheight [Info editor,$editor]] incr heightWin if {$heightWin > $height} { @@ -335,6 +335,7 @@ proc StyleEditor::SetPropertyList {} { $T item span $I 0 2 $T item element configure $I 0 e1 -text $header -fill White $T item state set $I header + $T item enabled $I false } else { $T item style set $I 1 s1 $T item text $I 0 $option 1 [$Tdemo style layout $style $element $option] |