From 164bb382bc7d505ff42383c2ab840fa7189d343b Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sat, 2 Dec 2006 21:43:30 +0000
Subject: Use the new column option -itemjustify.

---
 demos/layout.tcl | 4 ++--
 demos/span.tcl   | 5 +++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/demos/layout.tcl b/demos/layout.tcl
index ad058cc..08b56ab 100644
--- a/demos/layout.tcl
+++ b/demos/layout.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: layout.tcl,v 1.13 2006/11/30 02:41:38 treectrl Exp $
+# RCS: @(#) $Id: layout.tcl,v 1.14 2006/12/02 21:43:30 treectrl Exp $
 
 #
 # Demo: Layout
@@ -18,7 +18,7 @@ proc DemoLayout {} {
     # Create columns
     #
 
-    $T column create -text Layout -tags C0
+    $T column create -text Layout -itemjustify left -justify center -tags C0
     $T configure -treecolumn C0
 
     #
diff --git a/demos/span.tcl b/demos/span.tcl
index 9c443c4..2722a92 100644
--- a/demos/span.tcl
+++ b/demos/span.tcl
@@ -1,4 +1,4 @@
-# RCS: @(#) $Id: span.tcl,v 1.3 2006/11/23 22:24:56 treectrl Exp $
+# RCS: @(#) $Id: span.tcl,v 1.4 2006/12/02 21:43:30 treectrl Exp $
 
 #
 # Demo: Column span
@@ -22,7 +22,8 @@ proc DemoSpan {} {
     #
 
     for {set i 0} {$i < 100} {incr i} {
-	$T column create -text "$i" -tags C$i -width 40
+	$T column create -itemjustify left -justify center -text "$i" \
+	    -width 40 -tags C$i
     }
 
     #
-- 
cgit v0.12