This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
Re: standard event bindings
- From: MA Dunzi <tadalunch at s5 dot xrea dot com>
- To: hronne at pp dot sbbs dot se
- Cc: tadalunch at s5 dot xrea dot com, xconq7 at sources dot redhat dot com
- Date: Sat, 22 Jun 2002 17:35:46 +0900 (JST)
- Subject: Re: standard event bindings
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