anchor.diff:    (setf (q+:placeholder-text filter-text) "Filter domain..."))
   
   (define-subwidget (aeon headers-list) (q+:make-qtablewidget aeon)
  -  (q+:hide (q+:horizontal-header headers-list))
     (q+:hide (q+:vertical-header headers-list))
     (setf (q+:show-grid headers-list) nil)
     (setf (q+:column-count headers-list) 3)
  +  (setf (q+:horizontal-header-labels headers-list) '("Method" "Host" "Request URI"))
     (setf (q+:selection-behavior headers-list) (q+:qabstractitemview.select-rows))
     (setf (q+:stretch-last-section (q+:horizontal-header headers-list)) t)
     (setf (q+:resize-mode (q+:horizontal-header headers-list))
  
positive.code:          (lines (cl-ppcre:split (concat '(#\Newline)) request))
           (req (http-request-parse-lines lines))
           (row-count (q+:row-count headers-list)))
      (setf (q+:row-count headers-list) (1+ (q+:row-count headers-list)))
      (setf (q+:item headers-list row-count 0)
            (q+:make-qtablewidgetitem (http-request-method req)
                                      (q+:qtablewidgetitem.type)))
      (setf (q+:item headers-list row-count 1)
            (q+:make-qtablewidgetitem (http-request-host req)
                                      (q+:qtablewidgetitem.type)))
      (setf (q+:item headers-list row-count 2)
            (q+:make-qtablewidgetitem (http-request-request-uri req)
                                      (q+:qtablewidgetitem.type)))))
  
  (defun main ()
    (with-main-window (window (make-instance 'aeon))
  
negative.code:   (declare (connected filter-text (return-pressed)))
    (setf (q+:enabled start-button) nil)
    (setf (q+:text start-button) "Running...")
    (start "127.0.0.1" 2504))
  
  (define-signal (aeon got-request) (int))
  
  