standard event bindings

[MA Dunzi]

If you type 'Delete key', it sets %A to '{}' and is interpreted as 'zoom out'.
This patch seems to work, but Does it go to excess?

--- tkconq.tcl.orig	Wed Jun 19 19:48:33 2002
+++ tkconq.tcl	Wed Jun 19 19:48:22 2002
@@ -2451,11 +2451,7 @@
     global dside
 
     bind $map <Key> \
-	    { if {"%K" != "{}" && "%K" != "Shift_L" && "%K" != "Shift_R" \
-	    			      && "%K" != "Meta_L" && "%K" != "Meta_R" \
-	    			      && "%K" != "Alt_L" && "%K" != "Alt_R" \
-	    			      && "%K" != "Control_L" && "%K" != "Control_R" } \
-	    			{ handle_key_binding "%A" "%K" %W %X %Y } }
+	    { if {"%A" != "{}"} { handle_key_binding "%A" "%K" %W %X %Y } }
 
     set mapview $map.leftside.botside.mapf.mapf2.map
 
--
MA Dunzi <tadalunch@s5.xrea.com> http://tadalunch.s5.xrea.com/xconq/index.html