diff options
| author | treectrl <treectrl> | 2005-05-17 01:25:54 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-05-17 01:25:54 (GMT) |
| commit | d4c0c5a0a3c5bf9e7675bef2fac5ffaf677e7feb (patch) | |
| tree | 4c1a2d17f9dbeeba9039013b81048c666fbc5450 /demos/mailwasher.tcl | |
| parent | 1cade0ff673fca8cc53db9993ed1e8d7e7f6aeda (diff) | |
| download | tktreectrl-d4c0c5a0a3c5bf9e7675bef2fac5ffaf677e7feb.zip tktreectrl-d4c0c5a0a3c5bf9e7675bef2fac5ffaf677e7feb.tar.gz tktreectrl-d4c0c5a0a3c5bf9e7675bef2fac5ffaf677e7feb.tar.bz2 | |
Renamed bind tag to same name as the demo command.
Diffstat (limited to 'demos/mailwasher.tcl')
| -rw-r--r-- | demos/mailwasher.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl index 37e4297..671410e 100644 --- a/demos/mailwasher.tcl +++ b/demos/mailwasher.tcl @@ -174,7 +174,7 @@ proc DemoMailWasher {} { } } - bind MailWasher <ButtonPress-1> { + bind DemoMailWasher <ButtonPress-1> { set id [%W identify %x %y] if {$id eq ""} { } elseif {[lindex $id 0] eq "header"} { @@ -190,7 +190,7 @@ proc DemoMailWasher {} { } } - bindtags $T [list $T MailWasher TreeCtrl [winfo toplevel $T] all] + bindtags $T [list $T DemoMailWasher TreeCtrl [winfo toplevel $T] all] return } |