mcclim-cvs November 2006

mcclim-cvs@common-lisp.net

6 participants
128 discussions

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv4500/Drei Modified Files: drei-clim.lisp Log Message: The Drei gadget should now work under uncivilised (non-ratpoison) window managers, but having to call {armed|disarmed}-callback manually is ugly. This is basically how Goatee does it as well. --- /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2006/11/18 20:59:28 1.8 +++ /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp 2006/11/22 18:52:57 1.9 @@ -210,7 +210,10 @@ climi::enter/exit-arms/disarms-mixin asynchronous-command-processor) ((%currently-processing :initform nil - :accessor currently-processing-p)) + :accessor currently-processing-p) + (%previous-focus :accessor previous-focus :initform nil + :documentation "The pane that previously had +keyboard focus")) (:default-initargs :command-executor 'execute-drei-command) (:documentation "An actual, instantiable Drei gadget with event-based command processing.")) @@ -241,13 +244,21 @@ (gadget-id gadget) new-value))) +;; It's really silly that we have to manage keyboard input focus +;; ourself. (defmethod armed-callback :after ((gadget drei-gadget-pane) client id) (declare (ignore client id)) + (let ((port (port gadget))) + (setf (previous-focus gadget) (port-keyboard-input-focus port)) + (setf (port-keyboard-input-focus port) gadget)) (setf (active gadget) t) (display-drei gadget)) (defmethod disarmed-callback :after ((gadget drei-gadget-pane) client id) (declare (ignore client id)) + (let ((port (port gadget))) + (setf (port-keyboard-input-focus port) (previous-focus gadget)) + (setf (previous-focus gadget) nil)) (setf (active gadget) nil) (display-drei gadget)) @@ -292,10 +303,10 @@ ;; When an `accept' is called during the execution of a command for ;; the Drei gadget, we must deactivate the gadget in order to not ;; eat keyboard events. - (unwind-protect (progn (deactivate-gadget drei) + (unwind-protect (progn (disarmed-callback drei t t) (funcall continuation)) (activate-gadget drei) - (setf (active drei) t))) + (armed-callback drei t t))) (defmethod additional-command-tables append ((drei drei-gadget-pane) (table drei-command-table))

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv3352 Modified Files: presentation-defs.lisp Log Message: Added new presentation methods for pathnames, based on the ones in ESA. We now have completion and an attempt at handling the multide of evils that a programmer can inflict upon a poor CLIM implementations attempt to textually represent a pathname object. I do not claim these methods are fail-proof, so please show some restraints wrt. what kind of nastyness you feed them. --- /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2006/11/20 09:00:56 1.59 +++ /project/mcclim/cvsroot/mcclim/presentation-defs.lisp 2006/11/22 14:53:12 1.60 @@ -1448,27 +1448,144 @@ (define-presentation-method presentation-typep (object (type pathname)) (pathnamep object)) +(define-presentation-method present ((object pathname) (type pathname) + stream (view textual-view) &key) + ;; XXX: We can only visually represent the pathname if it has a name + ;; - making it wild is a compromise. If the pathname is completely + ;; blank, we leave it as-is, though. + (let ((pathname (if (equal object #.(make-pathname)) + object + (merge-pathnames object (make-pathname :name :wild))))) + (princ pathname stream))) + +(define-presentation-method present ((object string) (type pathname) + stream (view textual-view) + &rest args &key) + (apply-presentation-generic-function + present (pathname object) type stream view args)) + (defmethod presentation-type-of ((object pathname)) 'pathname) -(define-presentation-method present (object (type pathname) stream - (view textual-view) - &key acceptably for-context-type) - (declare (ignore acceptably for-context-type)) - (princ object stream)) - -(define-presentation-method accept - ((type pathname) stream (view textual-view) - &key (default *default-pathname-defaults*)) - (let* ((namestring (read-token stream)) - (path (parse-namestring namestring))) - (if merge-default - (merge-pathnames - path - (merge-pathnames (make-pathname :type default-type - :version default-version) - default)) - path))) +(defun filename-completer (so-far mode) + (flet ((remove-trail (s) + (subseq s 0 (let ((pos (position #\/ s :from-end t))) + (if pos (1+ pos) 0))))) + (let* ((directory-prefix + (if (and (plusp (length so-far)) (eql (aref so-far 0) #\/)) + "" + (namestring #+sbcl *default-pathname-defaults* + #+cmu (ext:default-directory) + #-(or sbcl cmu) *default-pathname-defaults*))) + (full-so-far (concatenate 'string directory-prefix so-far)) + (pathnames + (loop with length = (length full-so-far) + and wildcard = (concatenate 'string (remove-trail so-far) "*.*") + for path in + #+(or sbcl cmu lispworks) (directory wildcard) + #+openmcl (directory wildcard :directories t) + #+allegro (directory wildcard :directories-are-files nil) + #+cormanlisp (nconc (directory wildcard) + (cl::directory-subdirs dirname)) + #-(or sbcl cmu lispworks openmcl allegro cormanlisp) + (directory wildcard) + when (let ((mismatch (mismatch (namestring path) full-so-far))) + (or (null mismatch) (= mismatch length))) + collect path)) + (strings (mapcar #'namestring pathnames)) + (first-string (car strings)) + (length-common-prefix nil) + (completed-string nil) + (full-completed-string nil) + (input-is-directory-p (when (plusp (length so-far)) + (char= (aref so-far (1- (length so-far))) #\/)))) + (unless (null pathnames) + (setf length-common-prefix + (loop with length = (length first-string) + for string in (cdr strings) + do (setf length (min length (or (mismatch string first-string) length))) + finally (return length)))) + (unless (null pathnames) + (setf completed-string + (subseq first-string (length directory-prefix) + (if (null (cdr pathnames)) nil length-common-prefix))) + (setf full-completed-string + (concatenate 'string directory-prefix completed-string))) + (case mode + ((:complete-limited :complete-maximal) + (cond ((null pathnames) + (values so-far nil nil 0 nil)) + ((null (cdr pathnames)) + (values completed-string (plusp (length so-far)) (car pathnames) 1 nil)) + (input-is-directory-p + (values completed-string t (parse-namestring so-far) (length pathnames) nil)) + (t + (values completed-string nil nil (length pathnames) nil)))) + (:complete + ;; This is reached when input is activated, if we did + ;; completion, that would mean that an input of "foo" would + ;; be expanded to "foobar" if "foobar" exists, even if the + ;; user actually *wants* the "foo" pathname (to create the + ;; file, for example). + (values so-far t so-far 1 nil)) + (:possibilities + (values nil nil nil (length pathnames) + (loop with length = (length directory-prefix) + for name in pathnames + collect (list (subseq (namestring name) length nil) + name)))))))) + +(define-presentation-method accept ((type pathname) stream (view textual-view) + &key (default *default-pathname-defaults* defaultp) + ((:default-type accept-default-type) type)) + (multiple-value-bind (pathname success string) + (complete-input stream + #'filename-completer + :allow-any-input t) + (cond ((and pathname success) + (values (if merge-default + (progn + (unless (or (pathname-type pathname) + (null default-type)) + (setf pathname (make-pathname :defaults pathname + :type default-type))) + (merge-pathnames pathname default default-version)) + pathname) + type)) + ((and (zerop (length string)) + defaultp) + (values default accept-default-type)) + (t (values string 'string))))) + +(defmethod presentation-replace-input :around + ((stream input-editing-stream) + (object pathname) (type (eql 'pathname)) + view &rest args &key &allow-other-keys) + ;; This is fully valid and compliant, but it still smells slightly + ;; like a hack. + (let ((name (pathname-name object)) + (directory (when (pathname-directory object) + (directory-namestring object))) + (type (pathname-type object)) + (string "") + (old-insp (stream-insertion-pointer stream))) + (setf string (or directory string)) + (setf string (concatenate 'string string + (cond ((and name type) + (file-namestring object)) + (name name) + (type (subseq + (namestring + (make-pathname + :name " " + :type type)) + 1))))) + (apply #'replace-input stream string args) + (when directory + (setf (stream-insertion-pointer stream) + (+ old-insp (if directory (length directory) 0))) + ;; If we moved the insertion pointer, this might be a good idea. + (redraw-input-buffer stream old-insp)))) (defgeneric default-completion-name-key (item))

1 0

[mcclim-cvs] CVS mcclim/ESA
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim/ESA In directory clnet:/tmp/cvs-serv3352/ESA Modified Files: esa-io.lisp Log Message: Added new presentation methods for pathnames, based on the ones in ESA. We now have completion and an attempt at handling the multide of evils that a programmer can inflict upon a poor CLIM implementations attempt to textually represent a pathname object. I do not claim these methods are fail-proof, so please show some restraints wrt. what kind of nastyness you feed them. --- /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2006/11/08 01:10:16 1.1 +++ /project/mcclim/cvsroot/mcclim/ESA/esa-io.lisp 2006/11/22 14:53:12 1.2 @@ -43,97 +43,6 @@ (make-command-table 'esa-io-table :errorp nil) -(defun filename-completer (so-far mode) - (flet ((remove-trail (s) - (subseq s 0 (let ((pos (position #\/ s :from-end t))) - (if pos (1+ pos) 0))))) - (let* ((directory-prefix - (if (and (plusp (length so-far)) (eql (aref so-far 0) #\/)) - "" - (namestring #+sbcl *default-pathname-defaults* - #+cmu (ext:default-directory) - #-(or sbcl cmu) *default-pathname-defaults*))) - (full-so-far (concatenate 'string directory-prefix so-far)) - (pathnames - (loop with length = (length full-so-far) - and wildcard = (concatenate 'string (remove-trail so-far) "*.*") - for path in - #+(or sbcl cmu lispworks) (directory wildcard) - #+openmcl (directory wildcard :directories t) - #+allegro (directory wildcard :directories-are-files nil) - #+cormanlisp (nconc (directory wildcard) - (cl::directory-subdirs dirname)) - #-(or sbcl cmu lispworks openmcl allegro cormanlisp) - (directory wildcard) - when (let ((mismatch (mismatch (namestring path) full-so-far))) - (or (null mismatch) (= mismatch length))) - collect path)) - (strings (mapcar #'namestring pathnames)) - (first-string (car strings)) - (length-common-prefix nil) - (completed-string nil) - (full-completed-string nil) - (input-is-directory-p (when (plusp (length so-far)) - (char= (aref so-far (1- (length so-far))) #\/)))) - (unless (null pathnames) - (setf length-common-prefix - (loop with length = (length first-string) - for string in (cdr strings) - do (setf length (min length (or (mismatch string first-string) length))) - finally (return length)))) - (unless (null pathnames) - (setf completed-string - (subseq first-string (length directory-prefix) - (if (null (cdr pathnames)) nil length-common-prefix))) - (setf full-completed-string - (concatenate 'string directory-prefix completed-string))) - (case mode - ((:complete-limited :complete-maximal) - (cond ((null pathnames) - (values so-far nil nil 0 nil)) - ((null (cdr pathnames)) - (values completed-string t (car pathnames) 1 nil)) - (input-is-directory-p - (values completed-string t (parse-namestring so-far) (length pathnames) nil)) - (t - (values completed-string nil nil (length pathnames) nil)))) - (:complete - (cond ((null pathnames) - (values so-far t so-far 1 nil)) - ((null (cdr pathnames)) - (values completed-string t (car pathnames) 1 nil)) - ((find full-completed-string strings :test #'string-equal) - (let ((pos (position full-completed-string strings :test #'string-equal))) - (values completed-string - t (elt pathnames pos) (length pathnames) nil))) - (input-is-directory-p - (values completed-string t (parse-namestring so-far) (length pathnames) nil)) - (t - (values completed-string nil nil (length pathnames) nil)))) - (:possibilities - (values nil nil nil (length pathnames) - (loop with length = (length directory-prefix) - for name in pathnames - collect (list (subseq (namestring name) length nil) - name)))))))) - -(define-presentation-method present (object (type pathname) - stream (view textual-view) &key) - (princ (namestring object) stream)) - -(define-presentation-method accept ((type pathname) stream (view textual-view) - &key (default nil defaultp) (default-type type)) - (multiple-value-bind (pathname success string) - (complete-input stream - #'filename-completer - :allow-any-input t) - (cond (success - (values pathname type)) - ((and (zerop (length string)) - defaultp) - (values default default-type)) - (t (values string 'string))))) - ;;; Adapted from cl-fad/PCL (defun directory-pathname-p (pathspec) "Returns NIL if PATHSPEC does not designate a directory."

1 0

[mcclim-cvs] CVS mcclim/Goatee
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv31901/Goatee Modified Files: editing-stream.lisp Log Message: When Goatee's insertion-pointer is set, actually move point. --- /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/11/22 14:15:52 1.22 +++ /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/11/22 14:23:22 1.23 @@ -263,6 +263,9 @@ (setf (point* buffer) (location*-offset buffer pointer)) (redisplay-area area))) +(defmethod (setf stream-insertion-pointer) :after + ((new-value integer) (stream goatee-input-editing-mixin)) + (set-editing-stream-insertion-pointer stream new-value)) (defun %replace-input (stream new-input start end buffer-start rescan rescan-supplied-p

1 0

[mcclim-cvs] CVS mcclim
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv30056 Modified Files: decls.lisp Log Message: Added implementions of `redraw-input-buffer'. We ignore the `start-offset' argument, though. --- /project/mcclim/cvsroot/mcclim/decls.lisp 2006/11/08 01:18:22 1.40 +++ /project/mcclim/cvsroot/mcclim/decls.lisp 2006/11/22 14:15:53 1.41 @@ -552,6 +552,7 @@ ;;; 24.1 The Input Editor (defgeneric input-editor-format (stream format-string &rest args)) +(defgeneric redraw-input-buffer (stream &optional start-from)) ;;; 24.1.1 The Input Editing Stream Protocol

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv30056/Drei Modified Files: input-editor.lisp Log Message: Added implementions of `redraw-input-buffer'. We ignore the `start-offset' argument, though. --- /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2006/11/18 20:59:28 1.5 +++ /project/mcclim/cvsroot/mcclim/Drei/input-editor.lisp 2006/11/22 14:15:53 1.6 @@ -496,6 +496,13 @@ (update-syntax (buffer drei) (syntax (buffer drei))) (display-drei drei))) +(defmethod redraw-input-buffer ((stream drei-input-editing-mixin) + &optional (start-position 0)) + (declare (ignore start-position)) + ;; We ignore `start-position', because it would be more work to + ;; figure out what to redraw than to just redraw everything. + (display-drei (drei-instance stream))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; `Add-input-editor-command'

1 0

[mcclim-cvs] CVS mcclim/Goatee
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv30056/Goatee Modified Files: editing-stream.lisp Log Message: Added implementions of `redraw-input-buffer'. We ignore the `start-offset' argument, though. --- /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2005/02/22 14:00:18 1.21 +++ /project/mcclim/cvsroot/mcclim/Goatee/editing-stream.lisp 2006/11/22 14:15:52 1.22 @@ -399,3 +399,7 @@ (make-input-editing-stream-snapshot stream area) (redisplay-area area)))) nil) + +(defmethod redraw-input-buffer ((stream goatee-input-editing-mixin) &optional (start-position 0)) + (declare (ignore start-position)) + (redisplay-area (area stream)))

1 0

[mcclim-cvs] CVS mcclim/Drei
by thenriksen 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Drei In directory clnet:/tmp/cvs-serv26849/Drei Modified Files: lisp-syntax.lisp Log Message: Fixed bit-vectors. --- /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2006/11/21 23:28:07 1.5 +++ /project/mcclim/cvsroot/mcclim/Drei/lisp-syntax.lisp 2006/11/22 13:50:44 1.6 @@ -384,7 +384,7 @@ (defclass structure-start-lexeme (lisp-lexeme) ()) (defclass pathname-start-lexeme (lisp-lexeme) ()) (defclass undefined-reader-macro-lexeme (lisp-lexeme) ()) -(defclass bit-vector-lexeme (form-lexeme) ()) +(defclass bit-vector-form (form-lexeme complete-form-mixin) ()) (defclass number-lexeme (form-lexeme complete-form-mixin) ()) (defclass token-mixin () ()) (defclass literal-object-lexeme (form-lexeme) ()) @@ -475,7 +475,7 @@ (if (and (not (end-of-buffer-p scan)) (constituentp (object-after scan))) (make-instance 'error-lexeme) - (make-instance 'bit-vector-lexeme))) + (make-instance 'bit-vector-form))) (#\: (fo) (make-instance 'uninterned-symbol-lexeme)) (#\. (fo) @@ -2636,6 +2636,10 @@ (defmethod token-to-object ((syntax lisp-syntax) (token complete-function-form) &rest args &key &allow-other-keys) (fdefinition (apply #'token-to-object syntax (second (children token)) args))) +(defmethod token-to-object ((syntax lisp-syntax) (token bit-vector-form) + &key &allow-other-keys) + (read-from-string (token-string syntax token))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; ;;; Arglist fetching.

1 0

[mcclim-cvs] CVS mcclim
by ahefner 22 Nov '06

22 Nov '06

Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv22089 Modified Files: recording.lisp Log Message: Add checking for several cases where recompute-extent-for-changed-child can avoid calling %tree-recompute-extent, and one case where it must do so. Added copious comments explaining my reasoning, in hopes that it will prevent these from getting commented out again in the future (or to help fix them if I've made a mistake). --- /project/mcclim/cvsroot/mcclim/recording.lisp 2006/06/13 02:26:46 1.128 +++ /project/mcclim/cvsroot/mcclim/recording.lisp 2006/11/22 06:26:48 1.129 @@ -670,16 +670,23 @@ (output-record-children record))) ;;; XXX Dunno about this definition... -- moore +;;; Your apprehension is justified, but we lack a better means by which +;;; to distinguish "empty" compound records (roots of trees of compound +;;; records, containing no non-compound records). Such subtrees should +;;; not affect bounding rectangles. -- Hefner (defun null-bounding-rectangle-p (bbox) (with-bounding-rectangle* (x1 y1 x2 y2) bbox (and (zerop x1) (zerop y1) - (zerop x2) (zerop y2)))) + (zerop x2) (zerop y2)))) ;;; 16.2.3. Output Record Change Notification Protocol (defmethod recompute-extent-for-new-child ((record compound-output-record) child) (unless (null-bounding-rectangle-p child) (with-bounding-rectangle* (old-x1 old-y1 old-x2 old-y2) record + ;; I expect there's a bug here. If you create a record A, add an empty child B + ;; then add a displayed-output-record C, the code below will use min/max to + ;; grow the all-zero bounds of A, typically giving a bogus x1,y1 of 0,0. --Hefner (if (eql 1 (output-record-count record)) (setf (rectangle-edges* record) (bounding-rectangle* child)) (with-bounding-rectangle* (x1-child y1-child x2-child y2-child) @@ -765,21 +772,41 @@ ;; If so, we can use min/max to grow record's current rectangle. ;; If not, the child has shrunk, and we need to fully recompute. (multiple-value-bind (nx1 ny1 nx2 ny2) - (cond ((not (output-record-parent changed-child)) - ;; The child has been deleted; who knows what the - ;; new bounding box might be. - (%tree-recompute-extent* record)) - ((eql (output-record-count record) 1) - (values cx1 cy1 cx2 cy2)) - #+nil((null-bounding-rectangle-p record) - (%tree-recompute-extent* record)) - #+nil((null-bounding-rectangle-p changed-child) - (values ox1 oy1 ox2 oy2)) - ((and (<= cx1 old-min-x) (<= cy1 old-min-y) - (>= cx2 old-max-x) (>= cy2 old-max-y)) - (values (min cx1 ox1) (min cy1 oy1) - (max cx2 ox2) (max cy2 oy2))) - (t (%tree-recompute-extent* record))) + (cond + ;; The child has been deleted; who knows what the + ;; new bounding box might be. + ((not (output-record-parent changed-child)) + (%tree-recompute-extent* record)) + ;; Only one child of record, and we already have the bounds. + ((eql (output-record-count record) 1) + (values cx1 cy1 cx2 cy2)) + ;; If our record occupied no space (had no children, or had only + ;; children similarly occupying no space, hackishly determined by + ;; null-bounding-rectangle-p), recompute the extent now, otherwise + ;; the next COND clause would, as an optimization, attempt to extend + ;; our current bounding rectangle, which is invalid. + ((null-bounding-rectangle-p record) + (%tree-recompute-extent* record)) + ;; In the following cases, we can grow the new bounding rectangle + ;; from its previous state: + ((or + ;; If the child was originally empty, it should not have affected + ;; previous computation of our bounding rectangle. + ;; This is hackish for reasons similar to the above. + (and (zerop old-min-x) (zerop old-min-y) + (zerop old-max-x) (zerop old-max-y)) + ;; New child bounds contain old child bounds, so use min/max + ;; to extend the already-calculated rectangle. + (and (<= cx1 old-min-x) (<= cy1 old-min-y) + (>= cx2 old-max-x) (>= cy2 old-max-y))) + (values (min cx1 ox1) (min cy1 oy1) + (max cx2 ox2) (max cy2 oy2))) + ;; No shortcuts - we must compute a new bounding box from those of + ;; all our children. We want to avoid this - in worst cases, such as + ;; a toplevel output history, large graph, or table, there may exist + ;; thousands of children. Without the above optimizations, + ;; construction becomes O(N^2) due to bounding rectangle calculation. + (t (%tree-recompute-extent* record))) ;; XXX banish x, y (with-slots (x y) record @@ -864,7 +891,6 @@ for child across children do (funcall function child)))) - (defmethod map-over-output-records-containing-position (function (record standard-sequence-output-record) x y &optional (x-offset 0) (y-offset 0)

1 0

[mcclim-cvs] CVS mcclim/Goatee
by ahefner 21 Nov '06

21 Nov '06

Update of /project/mcclim/cvsroot/mcclim/Goatee In directory clnet:/tmp/cvs-serv19610 Modified Files: goatee-command.lisp Log Message: Change remaining #\Delete characters to #\Rubout. --- /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp 2006/11/21 22:59:12 1.23 +++ /project/mcclim/cvsroot/mcclim/Goatee/goatee-command.lisp 2006/11/21 23:57:59 1.24 @@ -333,10 +333,10 @@ (add-gesture-command-to-table '(#\d :meta) 'delete-word *simple-area-gesture-table*) -(add-gesture-command-to-table '(#\delete :meta) +(add-gesture-command-to-table '(#\rubout :meta) 'delete-word *simple-area-gesture-table*) -(add-gesture-command-to-table '(#\delete :control) +(add-gesture-command-to-table '(#\rubout :control) 'delete-word *simple-area-gesture-table*)

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

mcclim-cvs November 2006