From 382de2e4ade10e0ba2bff243aa2a7effc054200d Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Tue, 12 Jul 2005 03:46:00 +0000
Subject: TagIdentify bindtag is used so the Identify Window updates even when
 the mouse is over child windows. DemoClear resets the -cursor option.

---
 demos/demo.tcl | 33 ++++++++++++++++++++++++++-------
 1 file changed, 26 insertions(+), 7 deletions(-)

diff --git a/demos/demo.tcl b/demos/demo.tcl
index e31f09c..8653951 100644
--- a/demos/demo.tcl
+++ b/demos/demo.tcl
@@ -1,6 +1,6 @@
 #!/bin/wish84.exe
 
-# RCS: @(#) $Id: demo.tcl,v 1.34 2005/07/11 01:59:07 treectrl Exp $
+# RCS: @(#) $Id: demo.tcl,v 1.35 2005/07/12 03:46:00 treectrl Exp $
 
 set VERSION 2.0.1
 
@@ -596,9 +596,17 @@ proc MakeMainWindow {} {
     grid configure .f2.f1 -row 0 -column 0 -sticky news -pady 0
 
     # Window to display result of "T identify"
-    bind .f2.f1.t <Motion> {
-	UpdateIdentifyWindow %W %x %y
+    bind TagIdentify <Motion> {
+	if {"%W" ne ".f2.f1.t"} {
+	    set x [expr {%X - [winfo rootx .f2.f1.t]}]
+	    set y [expr {%Y - [winfo rooty .f2.f1.t]}]
+	} else {
+	    set x %x
+	    set y %y
+	}
+	UpdateIdentifyWindow .f2.f1.t $x $y
     }
+    AddBindTag .f2.f1.t TagIdentify
 
     .pw2 add .pw1 -width 200
     .pw2 add .f2 -width 450
@@ -774,6 +782,17 @@ proc MakeHeaderPopup {T} {
     return
 }
 
+proc AddBindTag {w tag} {
+
+    if {[lsearch -exact [bindtags $w] $tag] == -1} {
+	bindtags $w [concat [bindtags $w] $tag]
+    }
+    foreach child [winfo children $w] {
+	AddBindTag $child $tag
+    }
+    return
+}
+
 MakeMainWindow
 
 InitPics sky
@@ -939,6 +958,8 @@ proc DemoSet {cmd file} {
 	    StyleEditor::SetListOfStyles
 	}
     }
+    AddBindTag .f2.f1.t TagIdentify
+    return
 }
 
 .f1.t notify bind .f1.t <Selection> {
@@ -1135,9 +1156,7 @@ proc DemoClear {} {
     $T notify unbind $T
 
     # Clear all run-time states
-    foreach state [$T state names] {
-	$T state undefine $state
-    }
+    eval $T state undefine [$T state names]
 
     # Clear the styles-in-item list
     .f3.t item delete all
@@ -1167,7 +1186,7 @@ proc DemoClear {} {
 	-buttonbitmap "" -buttonimage "" -backgroundmode row \
 	-indent 19 -defaultstyle {} -backgroundimage "" \
 	-showrootlines yes -minitemheight 0 -borderwidth 6 \
-	-highlightthickness 3 -usetheme yes
+	-highlightthickness 3 -usetheme yes -cursor {}
 
     # Undo "column configure all" in a demo
     $T column configure tail -background \
-- 
cgit v0.12