anchor.diff:     )
     (:documentation ""))
   
  -(defmethod initialize-instance :after ((bp border-pane) &rest)
  +(defmethod initialize-instance :after ((bp border-pane) &rest ignore)
  +  (declare (ignore ignore))
     (with-slots (border-width) bp
       (let ((2*border-width (* 2 border-width)))
         (setf (slot-value bp 'margin-width) 2*border-width
  
positive.code: (defclass command-menu-pane (clim-stream-pane)
    ())
  
  (defmethod initialize-instance :before ((command-menu command-menu-pane) &rest)
    (setf (pane-display-time command-menu) :command-loop
  	(pane-incremental-redisplay command-menu) t
  	(pane-scroll-bars command-menu) t
  
negative.code: During realization the child of the spacer will have as cordinates
   x = w/2 , y = h/2."))
  
  (defmethod initialize-instance :after ((spacer spacer-pane) &rest ignore)
    (declare (ignore ignore))
    (with-slots (margin-width margin-height
  	       margin-max-width margin-max-height
  	       margin-min-width margin-min-height) spacer
  