anchor.diff:      (main-iteration nil)
       (main-iterate-all)))
   
  -(define-foreign ("gtk_timeout_add_full" timeout-add)
  -    (interval function) unsigned-int
  -  (interval (unsigned 32))
  -  (0 unsigned-long)
  -  (*callback-marshal* pointer)
  -  ((register-callback-function function) unsigned-long)
  -  (*destroy-marshal* pointer))
  -
  -(define-foreign timeout-remove () nil
  -  (timeout-handler-id unsigned-int))
  +; (define-foreign ("gtk_timeout_add_full" timeout-add)
  +;     (interval function) unsigned-int
  +;   (interval (unsigned 32))
  +;   (0 unsigned-long)
  +;   (*callback-marshal* pointer)
  +;   ((register-callback-function function) unsigned-long)
  +;   (*destroy-marshal* pointer))
  +
  +; (define-foreign timeout-remove () nil
  +;   (timeout-handler-id unsigned-int))
     
  -(define-foreign ("gtk_idle_add_full" idle-add)
  -    (function &optional (priority 200)) unsigned-int
  -  (priority int)
  -  (0 unsigned-long)
  -  (*callback-marshal* pointer)
  -  ((register-callback-function function) unsigned-long)
  -  (*destroy-marshal* pointer))
  -
  -(define-foreign idle-remove () nil
  -  (idle-handler-id unsigned-int))
  +; (define-foreign ("gtk_idle_add_full" idle-add)
  +;     (function &optional (priority 200)) unsigned-int
  +;   (priority int)
  +;   (0 unsigned-long)
  +;   (*callback-marshal* pointer)
  +;   ((register-callback-function function) unsigned-long)
  +;   (*destroy-marshal* pointer))
  +
  +; (define-foreign idle-remove () nil
  +;   (idle-handler-id unsigned-int))
   
   
   (system:add-fd-handler (gdk:event-poll-fd) :input #'main-iterate-all)
  
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: ;; 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.8 2001-01-28 14:23:38 espen Exp $
  
  
  (in-package "GTK")
  