Renamed bind tag to same name as the demo command.

5 files changed, 33 insertions, 33 deletions

diff --git a/demos/help.tcl b/demos/help.tcl
index 1b7368c..10f3f64 100644
--- a/demos/help.tcl
+++ b/demos/help.tcl
@@ -91,7 +91,7 @@ proc DemoHelpContents {} {
 		set parentList [lreplace $parentList $depth $depth $item]
 	}
 
-	bind TreeCtrlHelp <Double-ButtonPress-1> {
+	bind DemoHelpContents <Double-ButtonPress-1> {
 		if {[lindex [%W identify %x %y] 0] eq "header"} {
 			TreeCtrl::DoubleButton1 %W %x %y
 		} else {
@@ -99,23 +99,23 @@ proc DemoHelpContents {} {
 		}
 		break
 	}
-	bind TreeCtrlHelp <ButtonPress-1> {
+	bind DemoHelpContents <ButtonPress-1> {
 		TreeCtrl::HelpButton1 %W %x %y
 		break
 	}
-	bind TreeCtrlHelp <Button1-Motion> {
+	bind DemoHelpContents <Button1-Motion> {
 		# noop
 	}
-	bind TreeCtrlHelp <Button1-Leave> {
+	bind DemoHelpContents <Button1-Leave> {
 		# noop
 	}
-	bind TreeCtrlHelp <Motion> {
+	bind DemoHelpContents <Motion> {
 		TreeCtrl::HelpMotion %W %x %y
 	}
-	bind TreeCtrlHelp <Leave> {
+	bind DemoHelpContents <Leave> {
 		TreeCtrl::HelpMotion %W %x %y
 	}
-	bind TreeCtrlHelp <KeyPress-Return> {
+	bind DemoHelpContents <KeyPress-Return> {
 		if {[llength [%W selection get]] == 1} {
 			%W item toggle [lindex [%W selection get] 0]
 		}
@@ -123,7 +123,7 @@ proc DemoHelpContents {} {
 	}
 
 	set ::TreeCtrl::Priv(help,prev) ""
-	bindtags $T [list $T TreeCtrlHelp TreeCtrl [winfo toplevel $T] all]
+	bindtags $T [list $T DemoHelpContents TreeCtrl [winfo toplevel $T] all]
 
 	return
 }
@@ -230,7 +230,7 @@ proc DemoHelpContents_2 {} {
 		set parentList [lreplace $parentList $depth $depth $item]
 	}
 
-	bind TreeCtrlHelp <Double-ButtonPress-1> {
+	bind DemoHelpContents <Double-ButtonPress-1> {
 		if {[lindex [%W identify %x %y] 0] eq "header"} {
 			TreeCtrl::DoubleButton1 %W %x %y
 		} else {
@@ -238,23 +238,23 @@ proc DemoHelpContents_2 {} {
 		}
 		break
 	}
-	bind TreeCtrlHelp <ButtonPress-1> {
+	bind DemoHelpContents <ButtonPress-1> {
 		TreeCtrl::HelpButton1 %W %x %y
 		break
 	}
-	bind TreeCtrlHelp <Button1-Motion> {
+	bind DemoHelpContents <Button1-Motion> {
 		# noop
 	}
-	bind TreeCtrlHelp <Button1-Leave> {
+	bind DemoHelpContents <Button1-Leave> {
 		# noop
 	}
-	bind TreeCtrlHelp <Motion> {
+	bind DemoHelpContents <Motion> {
 		TreeCtrl::HelpMotion_2 %W %x %y
 	}
-	bind TreeCtrlHelp <Leave> {
+	bind DemoHelpContents <Leave> {
 		TreeCtrl::HelpMotion_2 %W %x %y
 	}
-	bind TreeCtrlHelp <KeyPress-Return> {
+	bind DemoHelpContents <KeyPress-Return> {
 		if {[llength [%W selection get]] == 1} {
 			%W item toggle [lindex [%W selection get] 0]
 		}
@@ -262,7 +262,7 @@ proc DemoHelpContents_2 {} {
 	}
 
 	set ::TreeCtrl::Priv(help,prev) ""
-	bindtags $T [list $T TreeCtrlHelp TreeCtrl [winfo toplevel $T] all]
+	bindtags $T [list $T DemoHelpContents TreeCtrl [winfo toplevel $T] all]
 
 	return
 }
diff --git a/demos/imovie.tcl b/demos/imovie.tcl
index a9d93cc..48ab1e6 100644
--- a/demos/imovie.tcl
+++ b/demos/imovie.tcl
@@ -91,11 +91,11 @@ proc DemoIMovie {} {
 		%T item element configure %I %C %E -text %t
 	}
 
-	bind iMovie <ButtonPress-1> {
+	bind DemoIMovie <ButtonPress-1> {
 		iMovieButton1 %W %x %y
 	}
 
-	bindtags $T [list $T iMovie TreeCtrl [winfo toplevel $T] all]
+	bindtags $T [list $T DemoIMovie TreeCtrl [winfo toplevel $T] all]
 
 	return
 }
diff --git a/demos/mailwasher.tcl b/demos/mailwasher.tcl
index 37e4297..671410e 100644
--- a/demos/mailwasher.tcl
+++ b/demos/mailwasher.tcl
@@ -174,7 +174,7 @@ proc DemoMailWasher {} {
 		}
 	}
 
-	bind MailWasher <ButtonPress-1> {
+	bind DemoMailWasher <ButtonPress-1> {
 		set id [%W identify %x %y]
 		if {$id eq ""} {
 		} elseif {[lindex $id 0] eq "header"} {
@@ -190,7 +190,7 @@ proc DemoMailWasher {} {
 		}
 	}
 
-	bindtags $T [list $T MailWasher TreeCtrl [winfo toplevel $T] all]
+	bindtags $T [list $T DemoMailWasher TreeCtrl [winfo toplevel $T] all]
 
 	return
 }
diff --git a/demos/random.tcl b/demos/random.tcl
index f7763fd..5caeae2 100644
--- a/demos/random.tcl
+++ b/demos/random.tcl
@@ -121,35 +121,35 @@ proc DemoRandom {} {
 	}
 	puts "configured $::RandomN items in [expr [clock clicks] - $clicks] clicks"
 
-	bind TreeCtrlRandom <Double-ButtonPress-1> {
+	bind DemoRandom <Double-ButtonPress-1> {
 		TreeCtrl::DoubleButton1 %W %x %y
 		break
 	}
-	bind TreeCtrlRandom <Control-ButtonPress-1> {
+	bind DemoRandom <Control-ButtonPress-1> {
 		set TreeCtrl::Priv(selectMode) toggle
 		TreeCtrl::RandomButton1 %W %x %y
 		break
 	}
-	bind TreeCtrlRandom <Shift-ButtonPress-1> {
+	bind DemoRandom <Shift-ButtonPress-1> {
 		set TreeCtrl::Priv(selectMode) add
 		TreeCtrl::RandomButton1 %W %x %y
 		break
 	}
-	bind TreeCtrlRandom <ButtonPress-1> {
+	bind DemoRandom <ButtonPress-1> {
 		set TreeCtrl::Priv(selectMode) set
 		TreeCtrl::RandomButton1 %W %x %y
 		break
 	}
-	bind TreeCtrlRandom <Button1-Motion> {
+	bind DemoRandom <Button1-Motion> {
 		TreeCtrl::RandomMotion1 %W %x %y
 		break
 	}
-	bind TreeCtrlRandom <ButtonRelease-1> {
+	bind DemoRandom <ButtonRelease-1> {
 		TreeCtrl::RandomRelease1 %W %x %y
 		break
 	}
 
-	bindtags $T [list $T TreeCtrlRandom TreeCtrl [winfo toplevel $T] all]
+	bindtags $T [list $T DemoRandom TreeCtrl [winfo toplevel $T] all]
 
 	return
 }
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
 }