anchor.diff:  ;; 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 $
  +;; $Id: gtkwidget.lisp,v 1.11 2004-12-17 00:27:01 espen Exp $
   
   (in-package "GTK")
   
  
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:   (prog1
        (apply #'call-next-method widget names initargs)
      (when parent
        (when (slot-boundp widget 'parent)
  	(container-remove (widget-parent widget) widget))
        (let ((parent-widget (first (mklist parent)))
  	    (args (rest (mklist parent))))
  	(apply #'container-add parent-widget widget args)))))
  
  (defmethod shared-initialize :after ((widget widget) names &rest initargs
  				     &key show-all all-visible)
    (declare (ignore initargs names))
    (when (or all-visible show-all)
      (widget-show-all widget)))
  
  
  