anchor.diff:                                     :fifo fifo
                                      :window window
                                      :frame frame
  +                                   :font font
                                      :display-pane display-pane
                                      :input-pane input-pane)))
             (setf (slot-value input-pane '%irc) irc)
  -          ;; Line seperating display and input panes.
  -          (mezzano.gui:bitset :set
  -                              (- (mezzano.gui.compositor:width window)
  -                                   (nth-value 0 (mezzano.gui.widgets:frame-size frame))
  -                                   (nth-value 1 (mezzano.gui.widgets:frame-size frame)))
  -                              1
  -                              (mezzano.gui:make-colour 0.5 0.5 0.5)
  -                              framebuffer
  -                              (nth-value 0 (mezzano.gui.widgets:frame-size frame))
  -                              (+ (nth-value 2 (mezzano.gui.widgets:frame-size frame))
  -                                 (- (mezzano.gui.compositor:height window)
  -                                    (nth-value 2 (mezzano.gui.widgets:frame-size frame))
  -                                    (nth-value 3 (mezzano.gui.widgets:frame-size frame))
  -                                    (mezzano.gui.font:line-height font)
  -                                    1)))
  +          (draw-seperating-line irc)
             (mezzano.gui.widgets:draw-frame frame)
             (mezzano.gui.compositor:damage-window window
                                                   0 0
  
positive.code:   ((%fifo :initarg :fifo :reader fifo)
     (%window :initarg :window :reader window)
     (%frame :initarg :frame :reader frame)
     (%display-pane :initarg :display-pane :reader display-pane)
     (%input-pane :initarg :input-pane :reader input-pane)
     (%current-channel :initarg :current-channel :accessor current-channel)
  
negative.code:                                      :framebuffer framebuffer
                                       :title "IRC"
                                       :close-button-p t
                                       :resizablep t
                                       :damage-function (mezzano.gui.widgets:default-damage-function window)
                                       :set-cursor-function (mezzano.gui.widgets:default-cursor-function window)))
                 (display-pane (make-instance 'mezzano.gui.widgets:text-widget
                                              :font font
                                              :framebuffer framebuffer
  