diff options
author | treectrl <treectrl> | 2007-01-21 22:58:57 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2007-01-21 22:58:57 (GMT) |
commit | a6260b0f8e3244e57a6c85fee52cfdebd457a420 (patch) | |
tree | ee280f2b28e337a87387b702a90536e340e1d441 | |
parent | f598fc05add2a8f06dbd7d75a13920277e7af575 (diff) | |
download | tktreectrl-a6260b0f8e3244e57a6c85fee52cfdebd457a420.zip tktreectrl-a6260b0f8e3244e57a6c85fee52cfdebd457a420.tar.gz tktreectrl-a6260b0f8e3244e57a6c85fee52cfdebd457a420.tar.bz2 |
Add -draw and -visible style layout options.
Force -visible to true when copying layout options to the canvas.
-rw-r--r-- | demos/style-editor.tcl | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/demos/style-editor.tcl b/demos/style-editor.tcl index 38becba..5fb3225 100644 --- a/demos/style-editor.tcl +++ b/demos/style-editor.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: style-editor.tcl,v 1.15 2006/12/09 01:17:49 treectrl Exp $ +# RCS: @(#) $Id: style-editor.tcl,v 1.16 2007/01/21 22:58:57 treectrl Exp $ namespace eval StyleEditor { variable Info @@ -304,6 +304,9 @@ proc StyleEditor::SetPropertyList {} { if {$element eq ""} return foreach {header option} { + "Draw and Visible" "" + "" -draw + "" -visible "Detach" "" "" -detach "" -indent @@ -381,6 +384,9 @@ proc StyleEditor::SelectProperty {select deselect} { $T item style set $I value sWindow switch -- $option { + -draw - + -visible { + } -padx - -pady - -ipadx - @@ -707,6 +713,7 @@ proc StyleEditor::StyleToCanvas {{scroll 0}} { $T style elements $style [$Tdemo style elements $style] foreach E [$T style elements $style] { eval $T style layout $style $E [$Tdemo style layout $style $E] + $T style layout $style $E -visible {} } # Find a selected item using the style to copy element config info from |