From a6260b0f8e3244e57a6c85fee52cfdebd457a420 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sun, 21 Jan 2007 22:58:57 +0000
Subject: Add -draw and -visible style layout options. Force -visible to true
 when copying layout options to the canvas.

---
 demos/style-editor.tcl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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
-- 
cgit v0.12