diff options
author | treectrl <treectrl> | 2002-12-23 01:38:47 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2002-12-23 01:38:47 (GMT) |
commit | 16492864790a4eac426328fb20fc155636c52630 (patch) | |
tree | 1257294df8b332d3d20bcfd735e4582fea321856 /demos/explorer.tcl | |
parent | 643fda0ccfed6a90013753a6caeefdc04e39f920 (diff) | |
download | tktreectrl-16492864790a4eac426328fb20fc155636c52630.zip tktreectrl-16492864790a4eac426328fb20fc155636c52630.tar.gz tktreectrl-16492864790a4eac426328fb20fc155636c52630.tar.bz2 |
Changes to survive column reordering.
Diffstat (limited to 'demos/explorer.tcl')
-rw-r--r-- | demos/explorer.tcl | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/demos/explorer.tcl b/demos/explorer.tcl index ab388f7..1b966e2 100644 --- a/demos/explorer.tcl +++ b/demos/explorer.tcl @@ -96,9 +96,11 @@ proc DemoExplorerDetails {} { $T style layout $S txtDate -padw 6 -pade 6 -squeeze x -expand ns set ::TreeCtrl::Priv(edit,$T) {e2} - set ::TreeCtrl::Priv(sensitive,$T) {e1 e2} + set ::TreeCtrl::Priv(sensitive,$T) { + {name styName e1 e2} + } set ::TreeCtrl::Priv(dragimage,$T) { - {0 styName e1 e2} + {name styName e1 e2} } $T notify bind $T <Edit-accept> { @@ -232,7 +234,9 @@ proc DemoExplorerLargeIcons {} { $T style layout $S elemSel -union [list elemTxt] set ::TreeCtrl::Priv(edit,$T) {elemTxt} - set ::TreeCtrl::Priv(sensitive,$T) {elemImg elemTxt} + set ::TreeCtrl::Priv(sensitive,$T) { + {0 STYLE elemImg elemTxt} + } set ::TreeCtrl::Priv(dragimage,$T) { {0 STYLE elemImg elemTxt} } @@ -321,7 +325,9 @@ proc DemoExplorerList {} { $T style layout $S elemSel -union [list elemTxt] -iexpand ns -ipadw 2 -ipade 2 set ::TreeCtrl::Priv(edit,$T) {elemTxt} - set ::TreeCtrl::Priv(sensitive,$T) {elemImg elemTxt} + set ::TreeCtrl::Priv(sensitive,$T) { + {0 STYLE elemImg elemTxt} + } set ::TreeCtrl::Priv(dragimage,$T) { {0 STYLE elemImg elemTxt} } |