[mcclim-cvs] CVS mcclim/Goatee

[crhodes]

Update of /project/mcclim/cvsroot/mcclim/Goatee
In directory clnet:/tmp/cvs-serv4322/Goatee

Modified Files:
	goatee-command.lisp 
Log Message:
Latin1 commands for Goatee.  Requires, in the case of the CLX backend, 
SBCL and a post-0.7.2 CLX.


--- /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp	2006/03/11 11:25:03	1.21
+++ /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp	2006/03/14 12:27:24	1.22
@@ -261,6 +261,11 @@
       do (add-gesture-command-to-table (code-char i)
 				       'insert-character
 				       *simple-area-gesture-table*))
+;;; people who use dead keys get to implement code for that in Goatee.
+(loop for i from 160 to 255
+      do (add-gesture-command-to-table (code-char i)
+                                       'insert-character
+                                       *simple-area-gesture-table*))
 
 (add-gesture-command-to-table #\tab
 			      'insert-character