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

Modified Files: input-editing-drei.lisp input-editing-goatee.lisp input-editing.lisp Log Message: Made the input-editing streams and clim-stream-panes interactive streams.

--- /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp 2008/01/19 09:38:20 1.6 +++ /project/mcclim/cvsroot/mcclim/input-editing-drei.lisp 2008/01/30 15:58:14 1.7 @@ -25,15 +25,6 @@

(in-package :clim-internals)

-(with-system-redefinition-allowed - (when (and (fboundp 'interactive-stream-p) - (not (typep (fdefinition 'interactive-stream-p) - 'generic-function))) - (fmakunbound 'interactive-stream-p)) - (defgeneric interactive-stream-p (stream) - (:method (stream) - (cl:interactive-stream-p stream)))) - (defclass empty-input-mixin () () (:documentation "A mixin class used for detecting empty input")) @@ -50,6 +41,9 @@

Members of this class are mutable."))

+(defmethod interactive-stream-p ((stream standard-input-editing-stream)) + t) + (defmethod stream-accept ((stream standard-input-editing-stream) type &rest args &key (view (stream-default-view stream)) --- /project/mcclim/cvsroot/mcclim/input-editing-goatee.lisp 2006/11/08 01:18:22 1.1 +++ /project/mcclim/cvsroot/mcclim/input-editing-goatee.lisp 2008/01/30 15:58:14 1.2 @@ -37,6 +37,9 @@ (rescanning-p :reader stream-rescanning-p :initform nil) (activation-gesture :accessor activation-gesture :initform nil)))

+(defmethod interactive-stream-p ((stream goatee-input-editing-stream)) + t) + (defmethod stream-accept ((stream goatee-input-editing-stream) type &rest args &key (view (stream-default-view stream)) --- /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/01/19 09:38:20 1.57 +++ /project/mcclim/cvsroot/mcclim/input-editing.lisp 2008/01/30 15:58:14 1.58 @@ -48,6 +48,17 @@ `*delimiter-gestures*' is unspecified. `*delimiter-gestures*' and the elements in it may have dynamic extent.")

+(with-system-redefinition-allowed + (when (and (fboundp 'interactive-stream-p) + (not (typep (fdefinition 'interactive-stream-p) + 'generic-function))) + (fmakunbound 'interactive-stream-p)) + (defgeneric interactive-stream-p (stream) + (:method (stream) + (cl:interactive-stream-p stream)) + (:method ((stream clim-stream-pane)) + t))) + ;;; These helper functions take the arguments of ACCEPT so that they ;;; can be used directly by ACCEPT.