[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory cl-net:/tmp/cvs-serv13853

Modified Files:
	dev-commands.lisp 
Log Message:
Disable background evaluation by default, since it causes problems with
input, output, and special variables. If you need this feature, you
can enable it as follows:

(setf clim-listener::*use-background-eval* t)


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2008/11/30 22:19:52	1.65
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp	2009/04/14 07:36:42	1.66
@@ -244,8 +244,8 @@
 ;; FIXME: Disabled input, as it usually seems to hang.
 (define-command (com-run :name "Run" :command-table application-commands :menu t
 			 :provide-output-destination-keyword t)
-  ((program 'string :prompt "command")
-   (args '(sequence string) :default nil :prompt "args"))
+  ((program 'string :prompt "Command")
+   (args '(sequence string) :default nil :prompt "Arguments"))
   (run-program program args :wait t :input nil))
 
 ;; I could replace this command with a keyword to COM-RUN..
@@ -253,8 +253,8 @@
                                     :menu t
 				    :command-table application-commands
 				    :provide-output-destination-keyword t)
-  ((program 'string :prompt "command")
-   (args '(sequence string) :default nil :prompt "args"))
+  ((program 'string :prompt "Command")
+   (args '(sequence string) :default nil :prompt "Args"))
   (run-program program args :wait nil :output nil :input nil))
 
 (define-command (com-reload-mime-database :name "Reload Mime Database"
@@ -338,10 +338,10 @@
 			     :command-table lisp-commands
                              :menu t
 			     :provide-output-destination-keyword t)
-    ((string 'clim:string :prompt "string")
+    ((string 'clim:string :prompt "String")
      &key
-     (package '(or package-name package) :prompt "in package" :default nil)
-     (domain '(member symbols classes functions variables command-tables) :prompt "domain" :default 'symbols))
+     (package '(or package-name package) :prompt "Package" :default nil)
+     (domain '(member symbols classes functions variables command-tables) :prompt "Domain" :default 'symbols))
   (let ((real-package (when package
                         (if (typep package 'package)
                             package
@@ -1505,11 +1505,13 @@
         **  *
         *   (first values)))
 
-;;; The background evaluation feature is neat, but some people (namely
-;;; myself) sometimes need a backdoor to disable it when evaluating
-;;; code which does a lot of graphics in the listener, due to thread
-;;; safety issues with concurrent access to a CLIM stream.
-(defparameter *use-background-eval* t
+;;; The background evaluation feature is neat, but there are thread
+;;; safety issues doing output to streams, special variables have
+;;; unexpected values, and input doesn't work right due to racing to
+;;; read from the event queue. Sadly, I am forced to disable it by
+;;; default.
+
+(defparameter *use-background-eval* nil
   "Perform evaluation in a background thread, which can be interrupted.")
 
 (define-command (com-eval :menu t :command-table lisp-commands)