diff options
| author | treectrl <treectrl> | 2004-07-26 17:15:25 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2004-07-26 17:15:25 (GMT) |
| commit | b11d2de32f045d2100bbe7558487b064dd1df91e (patch) | |
| tree | 796c51e2e54415870e0608670a95b03d98ecec3a /demos/help.tcl | |
| parent | b8b42b5b19782001b38572e640fcfde40fcce987 (diff) | |
| download | tktreectrl-b11d2de32f045d2100bbe7558487b064dd1df91e.zip tktreectrl-b11d2de32f045d2100bbe7558487b064dd1df91e.tar.gz tktreectrl-b11d2de32f045d2100bbe7558487b064dd1df91e.tar.bz2 | |
Use the new "column create" command and -defaultstyle widget option.
Diffstat (limited to 'demos/help.tcl')
| -rw-r--r-- | demos/help.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index 0ee2125..0607906 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -14,7 +14,7 @@ proc DemoHelpContents {} { InitPics help-* - $T column configure 0 -text "Help Contents" + $T column create -text "Help Contents" # Define a new item state $T state define mouseover @@ -126,7 +126,7 @@ proc DemoHelpContents2 {} { InitPics help-* - $T column configure 0 -text "Help Contents" + $T column create -text "Help Contents" $T element create e1 image -image help-page $T element create e2 image -image {help-book-open {open} help-book-closed {}} |