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)))))