From dce5d77cba8451f985d42d206b6c0cb6379e5273 Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Wed, 8 Jun 2005 01:26:15 +0000
Subject: Removed the <Destroy> binding on the name-editting window since
 qebind.c now automatically deletes bindings on a Tk window when that window
 is destroyed.

---
 library/filelist-bindings.tcl | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/library/filelist-bindings.tcl b/library/filelist-bindings.tcl
index ed2743a..7d9b343 100644
--- a/library/filelist-bindings.tcl
+++ b/library/filelist-bindings.tcl
@@ -605,9 +605,6 @@ proc ::TreeCtrl::EntryExpanderOpen {T item column element} {
 	TreeCtrl::EntryClose %T 0
 	focus $TreeCtrl::Priv(entry,%T,focus)
     }
-    bind $T.entry <Destroy> {
-	[winfo parent %W] notify bind %W <Scroll> {}
-    }
 
     $T.entry configure -font $font -background [$T cget -background]
     $T.entry insert end $text
@@ -727,9 +724,6 @@ proc ::TreeCtrl::TextOpen {T item column element {width 0} {height 0}} {
 	TreeCtrl::TextClose %T 0
 	focus $TreeCtrl::Priv(text,%T,focus)
     }
-    bind $T.text <Destroy> {
-	[winfo parent %W] notify bind %W  <Scroll> {}
-    }
 
     $T.text tag configure TAG -justify [$T element cget $element -justify]
     $T.text configure -font $font
@@ -810,9 +804,6 @@ proc ::TreeCtrl::TextExpanderOpen {T item column element width} {
 	TreeCtrl::TextClose %T 0
 	focus $TreeCtrl::Priv(text,%T,focus)
     }
-    bind $T.text <Destroy> {
-	[winfo parent %W] notify bind %W <Scroll> {}
-    }
 
     $T.text tag configure TAG -justify $justify
     $T.text configure -font $font -background [$T cget -background]
-- 
cgit v0.12