anchor.diff:        intersection)))
   
   (defun widget-intersect-p (widget area)
  -  (%widget-intersect widget area (make-pointer 0)))
  -
  -(defbinding (widget-is-focus-p "gtk_widget_is_focus") () boolean
  -  (widget widget))
  +  (%widget-intersect widget area nil))
  +
  +;; (defbinding (widget-is-focus-p "gtk_widget_is_focus") () boolean
  +;;   (widget widget))
   
   (defbinding widget-grab-focus () nil
     (widget widget))
  
positive.code: (defbinding %widget-intersect () boolean
    (widget widget)
    (area gdk:rectangle)
    (intersection pointer))
  
  
  (defun widget-intersection (widget area)
    (let ((intersection (make-instance 'gdk:rectangle)))
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gtkwidget.lisp,v 1.11 2004-12-17 00:27:01 espen Exp $
  
  (in-package "GTK")
  
  