[mcclim-cvs] CVS update: mcclim/panes.lisp

[Andy Hefner]

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

Modified Files:
	panes.lisp 
Log Message:
Implement label option to open-window-stream.

Date: Fri Jan 21 03:01:44 2005
Author: ahefner

Index: mcclim/panes.lisp
diff -u mcclim/panes.lisp:1.147 mcclim/panes.lisp:1.148
--- mcclim/panes.lisp:1.147	Sat Jan  1 21:26:44 2005
+++ mcclim/panes.lisp	Fri Jan 21 03:01:37 2005
@@ -27,7 +27,7 @@
 ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 ;;; Boston, MA  02111-1307  USA.
 
-;;; $Id: panes.lisp,v 1.147 2005/01/02 05:26:44 ahefner Exp $
+;;; $Id: panes.lisp,v 1.148 2005/01/21 11:01:37 ahefner Exp $
 
 (in-package :clim-internals)
 
@@ -2543,6 +2543,7 @@
          (frame (make-application-frame 'a-window-stream
                                         :frame-event-queue input-buffer
                                         :frame-manager fm
+                                        :pretty-name (or label "")
 					:left left
 					:top top
 					:right right
@@ -2556,6 +2557,7 @@
 		(eq (frame-state frame) :shrunk))
       (enable-frame frame))
     ;; Start a new thread to run the event loop, if necessary.
+    #+CLIM-MP
     (unless input-buffer
       (clim-sys:make-process (lambda () (let ((*application-frame* frame))
                                           (standalone-event-loop)))))