anchor.diff:  ;;;
   ;;;
   ;;;
  -(defclass static-row (layout)
  +(defclass static-row (%layout)
     ((height :initarg :height :initform (error ":height missing"))
      (item-width :initarg :item-width)))
   
  
positive.code:    (expandable-p :initform t :initarg :expandable :reader expandablep)))
  
  
  (defclass layout (named parent) ())
  
  
  (defmethod compose ((this layout))
    (dochildren (element this)
      (compose element)))
  
  
  (definline make-container-layout ()
    (make-instance 'layout))
  
  
  (defmacro with-style (((&rest path) value) &body body)
  
negative.code: ;;;
  ;;;
  ;;;
  (defclass menu-bar (%layout) ())
  
  
  (defun make-menu-bar ()
  