diff options
author | treectrl <treectrl> | 2006-11-05 06:44:53 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-11-05 06:44:53 (GMT) |
commit | dbb872605b6aea9aa294582fcc5131265f9920c8 (patch) | |
tree | 0a960e6b207cde39f761b658e40fa1cb5f8697a5 /demos/demo.tcl | |
parent | 0f8dbde0ed9c305a20378439c9f4358728bd6d92 (diff) | |
download | tktreectrl-dbb872605b6aea9aa294582fcc5131265f9920c8.zip tktreectrl-dbb872605b6aea9aa294582fcc5131265f9920c8.tar.gz tktreectrl-dbb872605b6aea9aa294582fcc5131265f9920c8.tar.bz2 |
Replaced use of deprecated treectrl option -defaultstyle with new column option -itemstyle.
Diffstat (limited to 'demos/demo.tcl')
-rw-r--r-- | demos/demo.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/demos/demo.tcl b/demos/demo.tcl index 47a09bf..34f8492 100644 --- a/demos/demo.tcl +++ b/demos/demo.tcl @@ -1,6 +1,6 @@ #!/bin/wish84.exe -# RCS: @(#) $Id: demo.tcl,v 1.48 2006/10/14 21:20:08 treectrl Exp $ +# RCS: @(#) $Id: demo.tcl,v 1.49 2006/11/05 06:44:53 treectrl Exp $ set VERSION 2.1.1 @@ -269,7 +269,7 @@ proc MakeEventsWindow {} { set S [$T style create s3] $T style elements $S {e4} - $T configure -defaultstyle s1 + $T column configure C0 -itemstyle s1 RebuildEventsMenus $T $m @@ -977,7 +977,7 @@ proc InitDemoList {} { # Tk listbox has linespace + 1 height $t style layout s1 e2 -union [list e1] -ipadx 2 -ipady {0 1} -iexpand e - $t configure -defaultstyle s1 + $t column configure C0 -itemstyle s1 # "Picture Catalog" DemoPictureCatalog # "Picture Catalog 2" DemoPictureCatalog2 |