From 5bbcc5be1847e051a07a4bfddc07e8fff2ad9de6 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Thu, 7 Dec 2006 03:54:06 +0000
Subject: Added a -union element to the last set of items to test the new style
 layout option -visble.

---
 demos/layout.tcl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/demos/layout.tcl b/demos/layout.tcl
index 08b56ab..2842a8b 100644
--- a/demos/layout.tcl
+++ b/demos/layout.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: layout.tcl,v 1.14 2006/12/02 21:43:30 treectrl Exp $
+# RCS: @(#) $Id: layout.tcl,v 1.15 2006/12/07 03:54:06 treectrl Exp $
 
 #
 # Demo: Layout
@@ -126,11 +126,12 @@ proc DemoLayout {} {
 	foreach expand $expandList {
 
 	    set S [$T style create s$styleNum -orient $orient]
-	    $T style elements $S {e4 e8 e2 e5 e6}
+	    $T style elements $S {e4 e8 e3 e2 e5 e6}
 	    $T style layout $S e4 -detach yes -iexpand xy
 	    $T style layout $S e8 -detach yes -expand n -iexpand x
+	    $T style layout $S e3 -union {e2 e5 e6} -ipadx 5 -ipady 5
 	    $T style layout $S e2 -expand $expand
-	    $T style layout $S e5 -expand $expand
+	    $T style layout $S e5 -expand $expand -visible {no !selected}
 	    $T style layout $S e6 -expand $expand
 	    incr styleNum
 
-- 
cgit v0.12