anchor.diff:  (defmethod realize-mirror ((port clx-port) (sheet unmanaged-top-level-sheet-pane))
     (realize-mirror-aux port sheet
   		      :override-redirect :on
  +                      :save-under :on
   		      :map nil
   		      :event-mask '(:structure-notify)))
   
  
positive.code:                     :border border
                      :override-redirect override-redirect
                      :backing-store backing-store
                      :gravity :north-west
                      ;; Evil Hack -- but helps enormously (Has anybody
                      ;; a good idea how to sneak the concept of
  
negative.code: 				(override-redirect :off)
  				(map t)
  				(backing-store :not-useful)
                                  (save-under :off)
  				(event-mask `(:exposure 
  					      :key-press :key-release
  					      :button-press :button-release
  