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)