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

Modified Files: dev-commands.lisp listener.lisp Log Message: Added port and frame-manager args to run-listener. Changed value printing at the repl - if there are no values, print nothing.

--- /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2007/01/05 12:45:22 1.41 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/dev-commands.lisp 2007/06/02 20:30:53 1.42 @@ -1469,8 +1469,7 @@ :single-box t) (present value 'expression)))) (with-drawing-options (t :ink +olivedrab+) - (cond ((null values) - (format t "No values.~%")) + (cond ((null values) #+NIL (format t "No values.~%")) ((= 1 (length values)) (present-value (first values)) (fresh-line)) --- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/02/05 03:27:14 1.34 +++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp 2007/06/02 20:30:53 1.35 @@ -155,8 +155,13 @@ (defun run-listener (&key (new-process nil) (width 760) (height 550) + port + frame-manager (process-name "Listener")) - (let ((frame (make-application-frame 'listener + (let* ((fm (or frame-manager + (find-frame-manager :port (or port (find-port))))) + (frame (make-application-frame 'listener + :frame-manager fm :width width :height height))) (flet ((run () (run-frame-top-level frame)))