Update of /project/beirc/cvsroot/beirc In directory common-lisp.net:/tmp/cvs-serv1717

Modified Files: message-display.lisp Log Message: Changes the :MIN-WIDTH of the nickname column from '(16 :character) to '(3 :character) in order to waste less space. Seems to work like a charm (though I haven't had a look at FORMATTING-CELL or FORMATTING-ROW)...

Date: Wed Oct 5 15:26:04 2005 Author: mretzlaff

Index: beirc/message-display.lisp diff -u beirc/message-display.lisp:1.24 beirc/message-display.lisp:1.25 --- beirc/message-display.lisp:1.24 Mon Oct 3 01:52:32 2005 +++ beirc/message-display.lisp Wed Oct 5 15:26:04 2005 @@ -55,7 +55,7 @@ :cache-test #'equal) (formatting-row (stream*) (output-timestamp-column :left) - (formatting-cell (stream* :align-x :right :min-width '(16 :character)) + (formatting-cell (stream* :align-x :right :min-width '(3 :character)) (with-drawing-options (stream* :ink +dark-red+) (funcall preamble-writer))) (formatting-cell (stream* :align-x :left