[mcclim-cvs] CVS update: mcclim/Goatee/goatee-command.lisp

[Andreas Fuchs]

Update of /project/mcclim/cvsroot/mcclim/Goatee
In directory common-lisp.net:/tmp/cvs-serv20554/Goatee

Modified Files:
	goatee-command.lisp 
Log Message:
patch queue clearing: add arrow key support (and gestures) to goatee.

Date: Mon Dec  5 23:40:02 2005
Author: afuchs

Index: mcclim/Goatee/goatee-command.lisp
diff -u mcclim/Goatee/goatee-command.lisp:1.19 mcclim/Goatee/goatee-command.lisp:1.20
--- mcclim/Goatee/goatee-command.lisp:1.19	Sun Aug  1 07:39:41 2004
+++ mcclim/Goatee/goatee-command.lisp	Mon Dec  5 23:40:01 2005
@@ -67,7 +67,9 @@
 	    modifier-state
 	    (keyboard-event-character gesture))
     (cdr (assoc modifier-state
-		(gethash (keyboard-event-character gesture) table nil)))))
+                (gethash (or (keyboard-event-character gesture)
+                             (keyboard-event-key-name gesture))
+                         table nil)))))
 
 (defmethod lookup-gesture-command (gesture table)
   (declare (ignore gesture table))
@@ -265,18 +267,30 @@
 (add-gesture-command-to-table '(#\f :control)
 			      'forward-character
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:right)
+			      'forward-character
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\b :control)
 			      'backward-character
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:left)
+			      'backward-character
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\f :meta)
 			      'forward-word
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:right :meta)
+			      'forward-word
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\b :meta)
 			      'backward-word
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:left :meta)
+			      'backward-word
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\backspace :meta)
 			      'backwards-delete-word
@@ -285,14 +299,23 @@
 (add-gesture-command-to-table '(#\delete :meta)
 			      'delete-word
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(#\d :meta)
+			      'delete-word
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\a :control)
 			      'beginning-line
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:home)
+			      'beginning-line
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\e :control)
 			      'end-line
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:end)
+			      'end-line
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\k :control)
 			      'kill-line
@@ -305,8 +328,14 @@
 (add-gesture-command-to-table '(#\p :control)
 			      'up-line
 			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:up)
+			      'up-line
+			      *simple-area-gesture-table*)
 
 (add-gesture-command-to-table '(#\n :control)
+			      'down-line
+			      *simple-area-gesture-table*)
+(add-gesture-command-to-table '(:down)
 			      'down-line
 			      *simple-area-gesture-table*)