[mcclim-cvs] CVS mcclim/Apps/Listener

[ahefner]

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