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: gtkobject.lisp,v 1.7 2000-11-09 20:30:16 espen Exp $
  +;; $Id: gtkobject.lisp,v 1.8 2001-01-28 14:23:38 espen Exp $
   
   
   (in-package "GTK")
  
positive.code: 
  (defmethod initialize-instance :after ((object object) &rest initargs &key)
    (declare (ignore initargs))
    (object-default-construct object)
    (reference-instance object)
    (object-sink object))
  
  
negative.code:   (object-sink object))
  
  
  (define-foreign object-sink () nil
    (object object))
  
  
  ;;;; Main loop, timeouts and idle functions
  