From 74bee9787162e803b49a2b21a49b87e3c9358acd Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sat, 16 Sep 2006 20:07:48 +0000
Subject: Added "My Computer" demo. Restore the default font when preparing the
 list for the next demo.

---
 demos/demo.tcl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/demos/demo.tcl b/demos/demo.tcl
index 9f459a6..aa8c4ff 100644
--- a/demos/demo.tcl
+++ b/demos/demo.tcl
@@ -1,6 +1,6 @@
 #!/bin/wish84.exe
 
-# RCS: @(#) $Id: demo.tcl,v 1.42 2006/09/05 21:54:16 treectrl Exp $
+# RCS: @(#) $Id: demo.tcl,v 1.43 2006/09/16 20:07:48 treectrl Exp $
 
 set VERSION 2.1.1
 
@@ -157,6 +157,7 @@ foreach file {
     imovie
     layout
     mailwasher
+    mycomputer
     outlook-folders
     outlook-newgroup
     random
@@ -938,6 +939,7 @@ proc InitDemoList {} {
 	"Textvariable" DemoTextvariable textvariable.tcl \
 	"Big List" DemoBigList biglist.tcl \
 	"Column Spanning" DemoSpan span.tcl \
+	"My Computer" DemoMyComputer mycomputer.tcl
 	] {
 	set item [$t item create]
 	$t item lastchild root $item
@@ -1201,7 +1203,8 @@ proc DemoClear {} {
 	-indent 19 -defaultstyle {} -backgroundimage "" \
 	-showrootlines yes -minitemheight 0 -borderwidth 6 \
 	-highlightthickness 3 -usetheme yes -cursor {} \
-	-itemwidth 0 -itemwidthequal no -itemwidthmultiple 0
+	-itemwidth 0 -itemwidthequal no -itemwidthmultiple 0 \
+	-font [.f4.t cget -font]
 
     # Undo "column configure all" in a demo
     $T column configure tail -background \
-- 
cgit v0.12