anchor.diff:  			 (event window-manager-delete-event))
     (frame-exit (pane-frame (event-sheet event))))
   
  -;;;; UNMANAGED-TOP-LEVEL-SHEET-PANE
  +;;;; UNMANAGED-TOP-LEVEL-SHEET PANE
   
   (defclass unmanaged-top-level-sheet-pane (top-level-sheet-pane)
     ()
  
positive.code: 
  (defmacro bordering ((&rest options) &body contents)
    `(make-pane 'border-pane ,@options :contents (list ,@contents)))
  
  ;;; RAISED PANE
  
  
negative.code: 
  (defmethod pane-scroller ((pane basic-pane))
    (let ((viewport (pane-viewport pane)))
      (when viewport
  	(sheet-parent viewport))))
  
  (defmethod scroll-extent ((pane basic-pane) x y)
  