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