[beirc-cvs] CVS beirc

[afuchs]

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

Modified Files:
	application.lisp 
Log Message:
Add box-adjuster-gadget between io and the query buffers.


--- /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 20:33:36	1.62
+++ /project/beirc/cvsroot/beirc/application.lisp	2006/03/16 20:56:52	1.63
@@ -83,7 +83,8 @@
      (presence :initform (make-hash-table :test #'equal) :reader presence))
   (:panes
    (io
-    :interactor)
+    :interactor
+    :height 72)
    (pointer-doc :pointer-documentation)
    (status-bar
     :application
@@ -111,7 +112,8 @@
          (with-tab-layout ('receiver-pane :name 'query)
            ("*Not Connected*" server 'receiver-pane))
          ;; (68 io) ;; no drop-shadow prompt
-         (72 io)
+         (make-pane 'clim-extensions:box-adjuster-gadget)
+         io
          (20 pointer-doc)
          (20                            ;<-- Sigh! Bitrot!
           status-bar)))))