[mcclim-cvs] CVS update: mcclim/Backends/CLX/port.lisp

[Christophe Rhodes]

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory common-lisp.net:/tmp/cvs-serv5715/Backends/CLX

Modified Files:
	port.lisp 
Log Message:
Rearrange pointer class hierarchy a little, according to mail message
"pointer protocol class / standard-pointer" mcclim-devel 2005-06-15.

Date: Thu Jun 16 11:27:49 2005
Author: crhodes

Index: mcclim/Backends/CLX/port.lisp
diff -u mcclim/Backends/CLX/port.lisp:1.111 mcclim/Backends/CLX/port.lisp:1.112
--- mcclim/Backends/CLX/port.lisp:1.111	Tue Apr  5 22:09:29 2005
+++ mcclim/Backends/CLX/port.lisp	Thu Jun 16 11:27:49 2005
@@ -42,12 +42,9 @@
 
 ;;; CLX-PORT class
 
-(defclass clx-pointer (pointer)
+(defclass clx-pointer (standard-pointer)
   ((cursor :accessor pointer-cursor :initform :upper-left)))
 
-(defclass standard-pointer (clx-pointer)
-  ())
-
 #|
  Perhaps this belongs elsewhere
 
@@ -207,7 +204,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)