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

[Duncan Rose]

Update of /project/mcclim/cvsroot/mcclim/Backends/beagle/windowing
In directory common-lisp.net:/tmp/cvs-serv28707/beagle/windowing

Modified Files:
	port.lisp 
Log Message:
Removed *DEFAULT-BEAGLE-FRAME-MANAGER*. Use *DEFAULT-FRAME-MANAGER*
instead. Updated README accordingly.

Date: Tue May 17 22:26:38 2005
Author: drose

Index: mcclim/Backends/beagle/windowing/port.lisp
diff -u mcclim/Backends/beagle/windowing/port.lisp:1.3 mcclim/Backends/beagle/windowing/port.lisp:1.4
--- mcclim/Backends/beagle/windowing/port.lisp:1.3	Tue May 17 19:56:20 2005
+++ mcclim/Backends/beagle/windowing/port.lisp	Tue May 17 22:26:38 2005
@@ -28,7 +28,7 @@
 
 
 (defparameter *beagle-port* nil)
-(defparameter *default-beagle-frame-manager* 'beagle::beagle-aqua-frame-manager
+(defparameter *default-beagle-frame-manager* 'beagle:beagle-aqua-frame-manager
   "Specifies the frame manager that should be used by default when the port creates its
 frame manager. Permissable values are 'beagle::beagle-standard-frame-manager and
 'beagle::beagle-aqua-frame-manager (the default).")
@@ -111,8 +111,11 @@
   "Initialises an instance of a BEAGLE-PORT. This makes an instance of the default
 FRAME-MANAGER and standard-pointer for this port type."
   (declare (ignore args)
-	   (special *beagle-port* *default-beagle-frame-manager*))
-  (push (make-instance *default-beagle-frame-manager* :port port) (slot-value port 'frame-managers))
+	   (special *beagle-port* *default-frame-manager* *default-beagle-frame-manager*))
+  (if (null *default-frame-manager*)
+      (push (make-instance *default-beagle-frame-manager* :port port)
+	    (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))
   (setf *beagle-port* port)