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/explorer.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/explorer.tcl')
| -rw-r--r-- | demos/explorer.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/demos/explorer.tcl b/demos/explorer.tcl index 541a869..3c4b664 100644 --- a/demos/explorer.tcl +++ b/demos/explorer.tcl @@ -58,12 +58,12 @@ proc DemoExplorerDetails {} { InitPics small-* - $T column configure 0 -text Name -tag name -width 200 \ + $T column create -text Name -tag name -width 200 \ -arrow up -arrowpad 6 - $T column configure 1 -text Size -tag size -justify right -width 60 \ + $T column create -text Size -tag size -justify right -width 60 \ -arrowside left -arrowgravity right - $T column configure 2 -text Type -tag type -width 120 - $T column configure 3 -text Modified -tag modified -width 120 + $T column create -text Type -tag type -width 120 + $T column create -text Modified -tag modified -width 120 $T element create e1 image -image {small-folderSel {selected} small-folder {}} $T element create e2 text -fill [list $::SystemHighlightText {selected focus}] \ @@ -219,7 +219,7 @@ proc DemoExplorerLargeIcons {} { InitPics big-* - $T column configure 0 -width 75 + $T column create -width 75 $T element create elemImg image -image {big-folderSel {selected} big-folder {}} $T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \ @@ -310,7 +310,7 @@ proc DemoExplorerList {} { InitPics small-* - $T column configure 0 -widthhack yes + $T column create -widthhack yes $T element create elemImg image -image {small-folderSel {selected} small-folder {}} $T element create elemTxt text -fill [list $::SystemHighlightText {selected focus}] \ |