From e03884e6afc36b03c202d669213197420cee9c6c Mon Sep 17 00:00:00 2001 From: treectrl Date: Tue, 17 May 2005 01:28:58 +0000 Subject: Added double-click binding. --- demos/firefox.tcl | 9 +++++++++ 1 file changed, 9 insertions(+) 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 { + if {[lindex [%W identify %x %y] 0] eq "header"} { + TreeCtrl::DoubleButton1 %W %x %y + } else { + TreeCtrl::DemoFirefoxPrivacyButton1 %W %x %y + } + break + } bind DemoFirefoxPrivacy { 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 -- cgit v0.12