anchor.diff:  (defbinding %widget-intersect () boolean
     (widget widget)
     (area gdk:rectangle)
  -  (intersection pointer))
  -
  +  (intersection (or null gdk:rectangle)))
   
   (defun widget-intersection (widget area)
     (let ((intersection (make-instance 'gdk:rectangle)))
  
positive.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.10 2004-11-06 21:39:58 espen Exp $
  
  (in-package "GTK")
  
  
negative.code: 
  ;;; Additional bindings and functions
  
  (defbinding (widget-mapped-p "gtk_widget_mapped_p") () boolean
    (widget widget))
  
  (defbinding widget-get-size-allocation () nil
  