anchor.diff:    (setf (q+:placeholder-text main-stack-display) "Main stack")
     (q+:set-read-only main-stack-display t))
   
  +(define-subwidget (main main-stack-indicator) (q+:make-qlabel "•" main))
  +(define-subwidget (main other-stack-indicator) (q+:make-qlabel "•" main))
  +
   (define-subwidget (main other-stack-display) (q+:make-qlineedit main)
     (setf (q+:placeholder-text other-stack-display) "Other stack")
     (q+:set-read-only other-stack-display t))
   
   (define-subwidget (main layout) (q+:make-qvboxlayout main)
     (q+:add-widget layout current-stack)
  -  (q+:add-widget layout main-stack-display)
  -  (q+:add-widget layout other-stack-display)
  -  (q+:add-widget layout button))
  +  (let ((main-stack-assembly (q+:make-qhboxlayout))
  +        (other-stack-assembly (q+:make-qhboxlayout))
  +        (button-panel (q+:make-qhboxlayout)))
  +    ;; Main stack
  +    (q+:add-widget main-stack-assembly main-stack-indicator)
  +    (q+:add-widget main-stack-assembly main-stack-display)
  +
  +    ;; Other stack
  +    (q+:add-widget other-stack-assembly other-stack-indicator)
  +    (q+:add-widget other-stack-assembly other-stack-display)
  +
  +    ;; Buttons
  +    (q+:add-widget button-panel change-stack)
  +    (q+:add-widget button-panel change-program)
  +    (q+:add-widget button-panel export)
  +
  +    ;; Putting it all together
  +    (q+:add-layout layout other-stack-assembly)
  +    (q+:add-layout layout main-stack-assembly)
  +    (q+:add-layout layout button-panel)))
   
   (defun timestamp (&optional (universal-time (get-universal-time)))
     (multiple-value-bind (s m h dd mm yy day) (decode-universal-time universal-time)
  
positive.code: (define-widget main (QWidget)
    ())
  
  (define-subwidget (main button) (q+:make-qpushbutton "Change stack" main))
  
  (define-subwidget (main current-stack) (q+:make-qlabel "Main" main))
  
  
negative.code:             day dd (1- (mod dd 10)) (1- mm) yy h m s)))
  
  (define-slot (main button-pressed) ()
    (declare (connected change-stack (released)))
    (setf (q+:text current-stack)
          (if (string= (q+:text current-stack) "Main")
              "Other"
  