[mcclim-cvs] CVS mcclim/Drei

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Drei
In directory clnet:/tmp/cvs-serv26552/Drei

Modified Files:
	basic-commands.lisp drei.lisp 
Log Message:
Changed how self-insert gestures work in Drei a bit.


--- /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2008/01/18 11:00:22	1.11
+++ /project/mcclim/cvsroot/mcclim/Drei/basic-commands.lisp	2008/02/03 08:38:25	1.12
@@ -511,14 +511,20 @@
 ;;; These are what do the basic keypress->character inserted in buffer
 ;;; mapping.
 
-(define-command com-self-insert ((count 'integer :default 1))
-  (loop repeat count do (insert-character *current-gesture*)))
+(define-command com-self-insert
+    ((count 'integer :default 1))
+  "Insert the gesture used to invoke this command into the
+current buffer `count' times. `Count' should get its value from
+the numeric arguments."
+  (loop repeat count
+        do (insert-character *current-gesture*)))
 
-(loop for code from (char-code #\Space) to (char-code #\~)
-      do (set-key `(com-self-insert ,*numeric-argument-marker*)
-	     'self-insert-table
-	     (list (list (code-char code)))))
+(defmethod command-for-unbound-gestures ((view textual-drei-syntax-view) gestures)
+  (when (and (= (length gestures))
+             (characterp (first gestures))
+             (graphic-char-p (first gestures)))
+    `(com-self-insert ,*numeric-argument-marker*)))
 
 (set-key `(com-self-insert ,*numeric-argument-marker*)
-	 'self-insert-table
+         'self-insert-table
 	 '((#\Newline)))
--- /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2008/01/30 21:21:43	1.36
+++ /project/mcclim/cvsroot/mcclim/Drei/drei.lisp	2008/02/03 08:38:25	1.37
@@ -381,6 +381,9 @@
   (print-unreadable-object (object stream :type t :identity t)
     (format stream "~A" (type-of (view object)))))
 
+(defmethod command-for-unbound-gestures ((drei drei) gestures)
+  (command-for-unbound-gestures (view drei) gestures))
+
 ;; Main redisplay entry point.
 (defgeneric display-drei (drei &key redisplay-minibuffer)
   (:documentation "`Drei' must be an object of type `drei' and