anchor.diff:  	     :initarg :enabledp
   	     :accessor pane-enabledp)
      (space-requirement :initarg :space-requirement
  -		      :initform (make-space-requirement :width 100 :max-width 100
  -							:height 100 :max-height 100)
  +		      :initform (make-space-requirement :width 300 :max-width 300
  +							:height 300 :max-height 300)
   		      :accessor pane-space-requirement)
      )
     )
  
positive.code: 
  (defmethod allocate-space ((rack hrack-pane) width height)
    (let ((h-percent (/ width (space-requirement-width (pane-space-requirement rack))))
  	(v-percent (/ height (space-requirement-height (pane-space-requirement rack))))
  	(x 0))
      (loop for child in (sheet-children rack)
  	for request = (pane-space-requirement child)
  	for new-width = (floor (* h-percent (space-requirement-width request)))
  	for new-height = (floor (* v-percent (space-requirement-height request)))
  	do (setf (sheet-region child)
  	     (make-bounding-rectangle x 0 (+ x new-width) new-height))
  	   (allocate-space child new-width new-height)
  	   (incf x new-width))))
  
  
  
negative.code:     space))
  
  (defmethod allocate-space ((rack vrack-pane) width height)
    (let ((v-percent (/ height (space-requirement-height (pane-space-requirement rack))))
  	(y 0))
      (loop for child in (sheet-children rack)
  	for request = (pane-space-requirement child)
  	for new-height = (floor (* v-percent (space-requirement-height request)))
  	do (setf (sheet-region child)
  	     (make-bounding-rectangle 0 y width (+ y new-height)))
  	   (allocate-space child width new-height)
  	   (incf y new-height))))
  
  
  