anchor.diff:  
   (defmethod internal-child-p (child (parent tab-layout-pane))
     (eq child (tab-layout-header-pane parent)))
  +
  +(defmethod clim-tab-layout:note-tab-page-changed
  +    ((layout tab-layout-pane) page)
  +  (redisplay-frame-pane (pane-frame layout)
  +			(car (sheet-children
  +			      (car (sheet-children
  +				    (tab-layout-header-pane layout)))))
  +			:force-p t))
  
positive.code:     (when page
  	(setf (sheet-enabled-p (tab-page-pane page)) t)))
    (call-next-method))
  
  ;;;;
  ;;;; Beginning of original MGR source code -- license not confirmed
  ;;;;
  
  (defclass tab-bar-view (gadget-view)
    ())
  
negative.code:     (sheet-adopt-child instance header)
      (setf (sheet-enabled-p header) t)))
  
  (defmethod compose-space ((pane tab-layout-pane) &key width height)
    (declare (ignore width height))
    (let ((q (compose-space (tab-layout-header-pane pane))))
  