anchor.diff:                                       :framebuffer framebuffer
                                        :title "IRC"
                                        :close-button-p t
  -                                     :damage-function (mezzano.gui.widgets:default-damage-function window)))
  +                                     :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
  
positive.code:                (format (display-pane irc) "~&[~A] ~D ~A" prefix command parameters))
                (t (format (display-pane irc) "~&~A" line)))))))
  
  (defun irc-main ()
    (catch 'quit
      (let ((font (mezzano.gui.font:open-font
  
negative.code:                                    :fifo fifo
                                     :window window
                                     :frame frame
                                     :font font
                                     :display-pane display-pane
                                     :input-pane input-pane)))
            (setf (slot-value input-pane '%irc) irc)
            (draw-seperating-line irc)
            (mezzano.gui.widgets:draw-frame frame)
            (mezzano.gui.compositor:damage-window window
                                                  0 0
  