From 13f47e0a0f0808f18ce799b45b629c43144d0dff Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sun, 19 Dec 2010 05:51:48 +0000
Subject: only bind to PatchWindow events

svn path=/trunk/scripts/guiplugins/simple_examples/; revision=14668
---
 editmode_look-plugin.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/editmode_look-plugin.tcl b/editmode_look-plugin.tcl
index 669d03f..5cfe832 100644
--- a/editmode_look-plugin.tcl
+++ b/editmode_look-plugin.tcl
@@ -30,4 +30,5 @@ proc set_cords_by_editmode {mytoplevel} {
     }
 }
 
-bind all <<EditMode>> {+set_cords_by_editmode %W}
+bind PatchWindow <<EditMode>> {+set_cords_by_editmode %W editmode}
+bind PatchWindow <<Loaded>> {+set_cords_by_editmode %W loaded}
-- 
cgit v1.2.1