anchor.diff:  
   ;;; No need to update the scrollbar (most of the time) since Cocoa will move
   ;;; the 'thumb' appropriately. Stick some debug in to see when it's invoked.
  -;;; As expected, this is invoked all the time; also, the calculation below
  -;;; is wrong since the view coords are flipped for cocoa (scroll-bar moves
  -;;; the wrong way!)
  +;;; => As expected, this is invoked all the time.
   
  -;;; I believe it's safe to leave this alone though (other than the backwards
  -;;; behaviour) since the sb will only be redrawn once through the event loop
  -;;; it shouldn't be too inefficient to be changing its value regularly.
  +;;; I believe it's safe to leave this alone though since the sb will only be
  +;;; redrawn once through the event loop it shouldn't be too inefficient to
  +;;; be changing its value regularly.
   (defmethod (setf gadget-value) :before (value (gadget beagle-scroll-bar-pane)
   					      &key invoke-callback)
     (declare (ignore invoke-callback))
  
positive.code:     (send mirror :set-target mirror)
      ;; Also need to specify when an action is sent (i.e. which actions
      ;; result in an action being posted)
      (send mirror :send-action-on action-mask)
      ;; We want continuous actions when we can get them...
      (send mirror :set-continuous #$YES)
      (send mirror :set-action (ccl::@selector "takeAction:"))
  
      (setf (view-event-mask mirror) +ignores-events+)
      (port-register-mirror (port sheet) sheet mirror)
  
negative.code: 				  (space-requirement-height q)))
  	 (mirror (make-instance 'lisp-scroller :with-frame rect))
  	 ;; Not sure if this is sufficient...
  	 #+nil
  	 (action-mask (logior #$NSLeftMouseDown
  			      #$NSScrollWheel)))
      (send mirror 'retain)
  