anchor.diff:    ;; hmmm
     (when (panep (sheet-parent pane))
       (change-space-requirements pane)) )
  +
  +(defmethod reorder-sheets :after ((pane box-layout-mixin) new-order)
  +  ;; Bring the order of the clients in sync with the new order of the
  +  ;; children.
  +  (setf new-order (reverse new-order))
  +  (let ((new-bcs
  +         (loop for bc in (box-layout-mixin-clients pane)
  +               collect
  +               (cond ((box-client-pane bc)
  +                      (find (pop new-order) (box-layout-mixin-clients pane) :key #'box-client-pane))
  +                     (t
  +                      bc)))))
  +    (assert (null (set-difference new-bcs (box-layout-mixin-clients pane))))
  +    (setf (box-layout-mixin-clients pane) new-bcs))
  +  ;; finally do a re-layout.
  +  (change-space-requirements pane) )
   
   ;;;;
   
  
positive.code:     :accessor box-layout-orientation)
     (clients
      :accessor box-layout-mixin-clients
      :initform nil)
     )
    (:documentation
     "Mixin class for layout panes, which want to behave like a HBOX/VBOX."))
  
  
negative.code: ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  ;;; Boston, MA  02111-1307  USA.
  
  ;;; $Id: panes.lisp,v 1.145 2004/11/21 00:01:21 gilbert Exp $
  
  (in-package :clim-internals)
  
  