[gsharp-cvs] CVS gsharp

[crhodes]

Update of /project/gsharp/cvsroot/gsharp
In directory clnet:/tmp/cvs-serv1767

Modified Files:
	gui.lisp 
Log Message:
Fix gsharp-common :new-process t

We need a lexical variable to use inside RUN, which may be called inside 
a new thread.

(Also, we might need to have bound *ESA-INSTANCE*, so let's do that 
proactively.)


--- /project/gsharp/cvsroot/gsharp/gui.lisp	2007/11/22 09:33:03	1.90
+++ /project/gsharp/cvsroot/gsharp/gui.lisp	2007/11/25 14:19:29	1.91
@@ -565,11 +565,12 @@
   (apply #'gsharp-common `(esa-io::com-find-file ,filename) args))
 
 (defun gsharp-common (command &key new-process (process-name "Gsharp") width height)
-  (let ((*application-frame*
-         (make-application-frame 'gsharp :width width :height height)))
+  (let* ((frame (make-application-frame 'gsharp :width width :height height))
+         (*application-frame* frame)
+         (*esa-instance* frame))
     (adopt-frame (find-frame-manager) *application-frame*)
     (execute-frame-command *application-frame* command)
-    (flet ((run () (run-frame-top-level *application-frame*)))
+    (flet ((run () (run-frame-top-level frame)))
       (if new-process
           (clim-sys:make-process #'run :name process-name)
           (run)))))