diff options
author | treectrl <treectrl> | 2006-09-24 23:00:13 (GMT) |
---|---|---|
committer | treectrl <treectrl> | 2006-09-24 23:00:13 (GMT) |
commit | 97ece18f20f30d5e644ab3f8af1cb6a2b8bee997 (patch) | |
tree | 9c6ead3a27afa96005138f0f3c6018f001cc543a | |
parent | 3de99dbaaabfcf83ef3a99e8b5ffc1b6df818d1b (diff) | |
download | tktreectrl-97ece18f20f30d5e644ab3f8af1cb6a2b8bee997.zip tktreectrl-97ece18f20f30d5e644ab3f8af1cb6a2b8bee997.tar.gz tktreectrl-97ece18f20f30d5e644ab3f8af1cb6a2b8bee997.tar.bz2 |
Disable mouse tracking when the initial click activates the name-editing entry.
-rw-r--r-- | demos/imovie.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/demos/imovie.tcl b/demos/imovie.tcl index 901c0e5..06eb2d7 100644 --- a/demos/imovie.tcl +++ b/demos/imovie.tcl @@ -1,4 +1,4 @@ -# RCS: @(#) $Id: imovie.tcl,v 1.10 2005/07/11 01:59:07 treectrl Exp $ +# RCS: @(#) $Id: imovie.tcl,v 1.11 2006/09/24 23:00:13 treectrl Exp $ # # Demo: iMovie @@ -139,6 +139,8 @@ proc iMovieButton1 {T x y} { set right [expr {$x2 - 3 - 6 + 1}] place $T.entry -x $left -width [expr {$right - $left}] $T.entry icursor [$T.entry index @[expr {$x - ($x1 + 1)}]] + # Disable mouse tracking + unset ::TreeCtrl::Priv(buttonMode) } } } |