From afuchs at common-lisp.net  Tue Feb  5 00:46:29 2008
From: afuchs at common-lisp.net (afuchs)
Date: Mon,  4 Feb 2008 19:46:29 -0500 (EST)
Subject: [beirc-cvs] CVS beirc
Message-ID: <20080205004629.3AB8F2E1F2@common-lisp.net>

Update of /project/beirc/cvsroot/beirc
In directory clnet:/tmp/cvs-serv1234

Modified Files:
	receivers.lisp 
Log Message:
Make the command pane not get bumped off the screen initially.

Also, allow the receiver pane to shrink to a reasonable size.
Patch by Cyrus Harmon.


--- /project/beirc/cvsroot/beirc/receivers.lisp	2007/08/20 18:39:09	1.30
+++ /project/beirc/cvsroot/beirc/receivers.lisp	2008/02/05 00:46:29	1.31
@@ -103,7 +103,8 @@
                                                             (lambda (frame pane)
                                                               (beirc-app-display frame pane receiver))
                                                             :display-time nil
-                                                            :min-width 400 :min-height 600
+                                                            :height 600
+                                                            :min-width 400 :min-height 200
                                                             :incremental-redisplay t)))
                           (update-drawing-options receiver))))
           (if (equal (current-process) (ui-process frame))