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/www-options.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/www-options.tcl')
-rw-r--r-- | demos/www-options.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/demos/www-options.tcl b/demos/www-options.tcl index 6241eca..0d31e93 100644 --- a/demos/www-options.tcl +++ b/demos/www-options.tcl @@ -97,15 +97,15 @@ proc DemoInternetOptions {} { set parentList [lreplace $parentList $depth $depth $item] } - bind TreeCtrlOption <Double-ButtonPress-1> { + bind DemoInternetOptions <Double-ButtonPress-1> { TreeCtrl::DoubleButton1 %W %x %y } - bind TreeCtrlOption <ButtonPress-1> { + bind DemoInternetOptions <ButtonPress-1> { TreeCtrl::OptionButton1 %W %x %y break } - bindtags $T [list $T TreeCtrlOption TreeCtrl [winfo toplevel $T] all] + bindtags $T [list $T DemoInternetOptions TreeCtrl [winfo toplevel $T] all] return } @@ -234,15 +234,15 @@ proc DemoInternetOptions_2 {} { set parentList [lreplace $parentList $depth $depth $item] } - bind TreeCtrlOption <Double-ButtonPress-1> { + bind DemoInternetOptions <Double-ButtonPress-1> { TreeCtrl::DoubleButton1 %W %x %y } - bind TreeCtrlOption <ButtonPress-1> { + bind DemoInternetOptions <ButtonPress-1> { TreeCtrl::OptionButton1 %W %x %y break } - bindtags $T [list $T TreeCtrlOption TreeCtrl [winfo toplevel $T] all] + bindtags $T [list $T DemoInternetOptions TreeCtrl [winfo toplevel $T] all] return } |