diff options
| author | treectrl <treectrl> | 2005-05-17 01:28:58 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-05-17 01:28:58 (GMT) |
| commit | e03884e6afc36b03c202d669213197420cee9c6c (patch) | |
| tree | 913554b5b7f6a6df46fc8e402894a79b95b055f3 /demos/firefox.tcl | |
| parent | cf15a006039b13b537612cb3d86b05fdbfd87a75 (diff) | |
| download | tktreectrl-e03884e6afc36b03c202d669213197420cee9c6c.zip tktreectrl-e03884e6afc36b03c202d669213197420cee9c6c.tar.gz tktreectrl-e03884e6afc36b03c202d669213197420cee9c6c.tar.bz2 | |
Added double-click binding.
Diffstat (limited to 'demos/firefox.tcl')
| -rw-r--r-- | demos/firefox.tcl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/demos/firefox.tcl b/demos/firefox.tcl index fb00c42..8c31ca2 100644 --- a/demos/firefox.tcl +++ b/demos/firefox.tcl @@ -254,6 +254,14 @@ proc DemoFirefoxPrivacy {} { $T item collapse all + bind DemoFirefoxPrivacy <Double-ButtonPress-1> { + if {[lindex [%W identify %x %y] 0] eq "header"} { + TreeCtrl::DoubleButton1 %W %x %y + } else { + TreeCtrl::DemoFirefoxPrivacyButton1 %W %x %y + } + break + } bind DemoFirefoxPrivacy <ButtonPress-1> { TreeCtrl::DemoFirefoxPrivacyButton1 %W %x %y break @@ -293,6 +301,7 @@ proc TreeCtrl::DemoFirefoxPrivacyButton1 {w x y} { } if {[lindex $id 5] eq "eText1"} { $w toggle $item + DisplayStylesInItem $item } } return |