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: gcallback.lisp,v 1.9 2004-10-27 14:58:59 espen Exp $
  +;; $Id: gcallback.lisp,v 1.10 2004-10-30 19:26:02 espen Exp $
   
   (in-package "GLIB")
   
  
positive.code: 	   (t
  	    #'(lambda (&rest args) (apply function object (rest args))))))))
      (signal-connect-closure gobject signal callback-id :after after)))
  
negative.code: 		 (re-invoke nil :report "Re-invoke callback function"
  		  (invoke-callback)))))
        (invoke-callback))))
  
  
  ;;;; Timeouts and idle functions
  