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

[Christophe Rhodes]

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))