This is the mail archive of the
xconq7@sources.redhat.com
mailing list for the Xconq project.
standard event bindings
- From: MA Dunzi <tadalunch at s5 dot xrea dot com>
- To: xconq7 at sources dot redhat dot com
- Date: Wed, 19 Jun 2002 20:08:43 +0900 (JST)
- Subject: standard event bindings
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