[mcclim-cvs] CVS mcclim/Apps/Listener

[rstrandh]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv13469

Modified Files:
	dev-commands.lisp 
Log Message:
Make sure *application-frame* is inherited by the thread that
evaluates a form, or else, large parts of CLIM will be unusable 
from the listener REPL.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/05/27 16:00:58	1.60
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/07/29 13:39:25	1.61
@@ -1520,12 +1520,14 @@
 (define-command (com-eval :menu t :command-table lisp-commands)
     ((form 'clim:form :prompt "form"))
   (let ((standard-output *standard-output*)
-        (standard-input *standard-input*))
+        (standard-input *standard-input*)
+	(application-frame *application-frame*))
     (flet ((evaluate ()
              (let ((- form)
                    (*standard-output* standard-output)
                    (*standard-input* standard-input)
                    (*error-output* standard-output)
+		   (*application-frame* application-frame)
                    error success)
                (unwind-protect (handler-case (prog1 (cons :values (multiple-value-list (eval form)))
                                                (setf success t))