[mcclim-cvs] CVS mcclim

[thenriksen]

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.