Index: stream-input.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/stream-input.lisp,v
retrieving revision 1.42
diff -u -r1.42 stream-input.lisp
--- stream-input.lisp	22 Feb 2005 14:00:11 -0000	1.42
+++ stream-input.lisp	15 Jun 2005 09:16:40 -0000
@@ -637,6 +637,9 @@
 (define-protocol-class pointer ()
   ((port :reader port :initarg :port)))
 
+(defclass standard-pointer (pointer)
+  ())
+
 (defgeneric pointer-sheet (pointer))
 
 (defmethod pointer-sheet ((pointer pointer))
Index: Backends/CLX/port.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Backends/CLX/port.lisp,v
retrieving revision 1.111
diff -u -r1.111 port.lisp
--- Backends/CLX/port.lisp	5 Apr 2005 20:09:29 -0000	1.111
+++ Backends/CLX/port.lisp	15 Jun 2005 09:16:40 -0000
@@ -42,9 +42,10 @@
 
 ;;; CLX-PORT class
 
-(defclass clx-pointer (pointer)
+(defclass clx-pointer (standard-pointer)
   ((cursor :accessor pointer-cursor :initform :upper-left)))
 
+#+nil
 (defclass standard-pointer (clx-pointer)
   ())
 
@@ -207,7 +208,7 @@
   (declare (ignore args))
   (push (make-instance 'clx-frame-manager :port port) (slot-value port 'frame-managers))
   (setf (slot-value port 'pointer)
-	(make-instance 'standard-pointer :port port))
+	(make-instance 'clx-pointer :port port))
   (initialize-clx port))
 
 (defmethod print-object ((object clx-port) stream)
