[mcclim-cvs] CVS update: mcclim/Apps/Listener/listener.lisp

[Andy Hefner]

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