diff options
author | treectrl <treectrl> | 2006-09-16 20:07:48 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-09-16 20:07:48 (GMT) |
commit | 74bee9787162e803b49a2b21a49b87e3c9358acd (patch) | |
tree | c1091de2fc7855cdcdc64c7e863b9bbf96971b98 /demos | |
parent | d02653406dcdb0a33529f5c7f1f783d8c8ccd79d (diff) | |
download | tktreectrl-74bee9787162e803b49a2b21a49b87e3c9358acd.zip tktreectrl-74bee9787162e803b49a2b21a49b87e3c9358acd.tar.gz tktreectrl-74bee9787162e803b49a2b21a49b87e3c9358acd.tar.bz2 |
Added "My Computer" demo.
Restore the default font when preparing the list for the next demo.
Diffstat (limited to 'demos')
-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 \ |