standard event bindings

[Hans Ronne]

>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

I think you should check it in since it is the best solution so far. It
solves the Return key problem on the Mac and the unwanted zooming is gone.
The Delete and BackSpace keys still don't  work, but I can live with that
(if you can solve that problem as well, it would of course be great).

Hans

Hans Ronne

hronne@pp.sbbs.se