diff options
| -rw-r--r-- | demos/demo.tcl | 7 |
1 files 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 \ |