[mcclim-cvs] CVS update: mcclim/Apps/Listener/listener.lisp - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

11 Jan 2005

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory common-lisp.net:/tmp/cvs-serv24962
Modified Files:
    listener.lisp 
Log Message:
Adjust default width and height of the listener to fit on most screens.
Date: Tue Jan 11 06:26:37 2005
Author: ahefner
Index: mcclim/Apps/Listener/listener.lisp
diff -u mcclim/Apps/Listener/listener.lisp:1.20 mcclim/Apps/Listener/listener.lisp:1.21

--- mcclim/Apps/Listener/listener.lisp:1.20	Sun Jan  2 06:14:28 2005
+++ mcclim/Apps/Listener/listener.lisp	Tue Jan 11 06:26:26 2005
@@ -319,8 +319,8 @@
(defun run-listener (&key (system-command-reader nil)
                           (new-process nil)
-                          (width 800)
-                          (height 800)
+                          (width 760)
+                          (height 550)
                           (process-name "Listener")
                           (eval nil))
   (flet ((run ()

    