[gsharp-cvs] CVS update: gsharp/esa.lisp

[Robert Strandh]

Update of /project/gsharp/cvsroot/gsharp
In directory common-lisp.net:/tmp/cvs-serv26130

Modified Files:
	esa.lisp 
Log Message:
More bug fixes for numeric arguments
(thanks to Dave Murray)


Date: Tue Aug  2 04:15:57 2005
Author: rstrandh

Index: gsharp/esa.lisp
diff -u gsharp/esa.lisp:1.2 gsharp/esa.lisp:1.3
--- gsharp/esa.lisp:1.2	Tue Aug  2 02:34:41 2005
+++ gsharp/esa.lisp	Tue Aug  2 04:15:57 2005
@@ -105,10 +105,12 @@
 
 (defparameter *current-gesture* nil)
 
+(defparameter *meta-digit-table*
+  (loop for i from 0 to 9
+       collect (list :keyboard (digit-char i) (make-modifier-state :meta))))
+
 (defun meta-digit (gesture)
-  (position gesture
-	    '((#\0 :meta) (#\1 :meta) (#\2 :meta) (#\3 :meta) (#\4 :meta)
-	      (#\5 :meta) (#\6 :meta) (#\7 :meta) (#\8 :meta) (#\9 :meta))
+  (position gesture *meta-digit-table*
 	    :test #'event-matches-gesture-name-p))
 
 (defun esa-read-gesture ()