standard event bindings

[MA Dunzi]

How about this?

--- tkconq.tcl.orig	Sat Jun 22 17:18:41 2002
+++ tkconq.tcl	Sat Jun 22 17:18:41 2002
@@ -2460,10 +2460,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" } \
+	    { if {"%K" == "Return" || [string length "%A"] <= 1} \
 	    			{ 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