diff options
| author | treectrl <treectrl> | 2005-06-02 05:59:02 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-06-02 05:59:02 (GMT) |
| commit | ec4a1742d5d510fa3539b84409519ad33cf5568c (patch) | |
| tree | 8fb58ab40744455a57aebe575f14e96984867e77 | |
| parent | a8ca29a6b5e4ab072df7cf6dfe443c0d98eaf970 (diff) | |
| download | tktreectrl-ec4a1742d5d510fa3539b84409519ad33cf5568c.zip tktreectrl-ec4a1742d5d510fa3539b84409519ad33cf5568c.tar.gz tktreectrl-ec4a1742d5d510fa3539b84409519ad33cf5568c.tar.bz2 | |
Set -background of tail column to default when loading a new demo to undo change of "column configure all" in DemoExplorerDetails.
| -rw-r--r-- | demos/demo.tcl | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/demos/demo.tcl b/demos/demo.tcl index 1b1fce6..6f53297 100644 --- a/demos/demo.tcl +++ b/demos/demo.tcl @@ -616,6 +616,8 @@ proc MakeMainWindow {} { .f2.f1.t notify install <Drag-end> .f2.f1.t notify install <Drag-receive> + .f2.f1.t notify install <Edit-begin> + .f2.f1.t notify install <Edit-end> .f2.f1.t notify install <Edit-accept> ### @@ -1115,9 +1117,9 @@ proc DemoClear {} { eval $T element delete [$T element names] # Delete -window windows - foreach child [winfo children $T] { - if {[string equal $child $T.mTree] || [string equal $child $T.mHeader]} continue - destroy $child + foreach child [winfo children $T] { + if {[string equal $child $T.mTree] || [string equal $child $T.mHeader]} continue + destroy $child } $T item configure root -button no @@ -1132,8 +1134,12 @@ proc DemoClear {} { -showrootlines yes -minitemheight 0 -borderwidth 6 \ -highlightthickness 3 -usetheme yes - # Enable drag-and-drop column reordering. This also requires the - # <ColumnDrag> event be installed. + # Undo "column configure all" in a demo + $T column configure tail -background \ + [lindex [$T column configure tail -background] 3] + + # Enable drag-and-drop column reordering. This also requires the + # <ColumnDrag> event be installed. $T column dragconfigure -enable yes # Restore default bindings to the demo list |