This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
Re: standard event bindings
- From: Hans Ronne <hronne at pp dot sbbs dot se>
- To: MA Dunzi <tadalunch at s5 dot xrea dot com>
- Cc: xconq7 at sources dot redhat dot com
- Date: Sat, 22 Jun 2002 11:32:28 +0200
- Subject: Re: standard event bindings
- References: Your message of "Wed, 19 Jun 2002 20:25:22 +0200".<l03130300b9366cf3fbe7@[217.115.39.60]>
>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