anchor.diff:    (when (and (= button #x110) (= state 1) (= 4 (mods-depressed *compositor*)))
       (let ((surface (surface-under-pointer (pointer-x *compositor*) (pointer-y *compositor*) *compositor*)))
         (when surface
  -	(setf (moving-surface *compositor*) surface))))
  -
  +	(setf (moving-surface *compositor*) ;;surface))))
  +	      (make-move-op :surface surface
  +			    :surface-x (x surface)
  +			    :surface-y (y surface)
  +			    :pointer-x (pointer-x *compositor*)
  +			    :pointer-y (pointer-y *compositor*))))))
  +	      
     ;; stop drag
     (when (and (moving-surface *compositor*) (= button #x110) (= state 0))
       (setf (moving-surface *compositor*) nil))
  
positive.code: 				state)))))
  
  (defmethod keyboard-handler ((mode default-mode) time key state)
  
    (when (and (= (mods-depressed *compositor*) 4) (= state 1) (= key 16))
      (sb-ext:exit))
    
    ;; Control tab
    (when (and (= (mods-depressed *compositor*) 4) (= state 1) (= key 15))
  
negative.code:   ;; 2. Send active surface mouse button
    (when (surface-under-pointer (pointer-x *compositor*)
  			       (pointer-y *compositor*)
  			       *compositor*) 
      (let ((surface (surface-under-pointer (pointer-x *compositor*)
  			       (pointer-y *compositor*)
  			       *compositor*) ))
  