Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing In directory common-lisp.net:/tmp/cvs-serv5715/Backends/beagle/windowing 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:51 2005 Author: crhodes Index: mcclim/Backends/beagle/windowing/port.lisp diff -u mcclim/Backends/beagle/windowing/port.lisp:1.4 mcclim/Backends/beagle/windowing/port.lisp:1.5 --- mcclim/Backends/beagle/windowing/port.lisp:1.4 Tue May 17 22:26:38 2005 +++ mcclim/Backends/beagle/windowing/port.lisp Thu Jun 16 11:27:51 2005 @@ -38,14 +38,9 @@ ;;; at least a little about pointers, and it appears to all be handled in ;;; the back end at the moment. -(defclass beagle-pointer (pointer) +(defclass beagle-pointer (standard-pointer) ((cursor :accessor pointer-cursor :initform :upper-left))) - -(defclass standard-pointer (beagle-pointer) - ()) - - (defclass beagle-cursor () ((image :accessor cursor-image :initform nil) (hotspot :accessor cursor-hotspot :initform nil))) @@ -117,7 +112,7 @@ (slot-value port 'frame-managers)) (push (make-instance *default-frame-manager* :port port) (slot-value port 'frame-managers))) (setf (slot-value port 'pointer) - (make-instance 'standard-pointer :port port)) + (make-instance 'beagle-pointer :port port)) (setf *beagle-port* port) (initialize-beagle port))