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

[Max-Gerd Retzlaff]

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

Modified Files:
	dialog.lisp 
Log Message:
A patch against the first bug a patch by me introduced to mcclim.
Sorry, that shouldn't have happened.. At least it was only a bug in a
feature that the patch introduced (displaying an ACCEPTING-VALUES
dialog in its :OWN-WINDOW), and it affected only code that
thoughtlessly relied of this new and still broken feature.

(Broken because OPEN-WINDOW-STREAM doesn't really work yet. I think
there has to be a (redisplay-frame-panes frame) or something like that
in its event-loop (that is the function STANDALONE-EVENT-LOOP).)

Date: Thu Aug 25 22:48:41 2005
Author: mretzlaff

Index: mcclim/dialog.lisp
diff -u mcclim/dialog.lisp:1.20 mcclim/dialog.lisp:1.21
--- mcclim/dialog.lisp:1.20	Fri Aug 19 02:48:25 2005
+++ mcclim/dialog.lisp	Thu Aug 25 22:48:40 2005
@@ -170,9 +170,9 @@
                                        #',accepting-values-continuation
                                        , at args))
             ))
-      (if own-window
-          `(with-stream-in-own-window (,stream *standard-input* *standard-output*) ,return-form)
-          return-form))))
+      `(if  ,own-window
+            (with-stream-in-own-window (,stream *standard-input* *standard-output*) ,return-form)
+           ,return-form))))
 
 (defun invoke-accepting-values
     (stream body