From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 4412 invoked by alias); 7 Feb 2003 22:10:59 -0000 Mailing-List: contact guile-gtk-help@sources.redhat.com; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: guile-gtk-owner@sources.redhat.com Received: (qmail 4268 invoked from network); 7 Feb 2003 22:10:58 -0000 Received: from unknown (HELO sunny.pacific.net.au) (203.2.228.40) by 172.16.49.205 with SMTP; 7 Feb 2003 22:10:58 -0000 Received: from wisma.pacific.net.au (wisma.pacific.net.au [210.23.129.72]) by sunny.pacific.net.au with ESMTP id h17MAuMr028085 for ; Sat, 8 Feb 2003 09:10:56 +1100 (EST) Received: from localhost (ppp42.dyn228.pacific.net.au [203.143.228.42]) by wisma.pacific.net.au with ESMTP id JAA27179 for ; Sat, 8 Feb 2003 09:10:55 +1100 (EST) Received: from gg by localhost with local (Exim 3.35 #1 (Debian)) id 18hGhZ-0000e6-00; Sat, 08 Feb 2003 08:10:29 +1000 To: guile-gtk@sources.redhat.com Subject: gtk_main_iteration and friends return val From: Kevin Ryde Date: Fri, 07 Feb 2003 22:10:00 -0000 Message-ID: <87vfzvivxm.fsf@zip.com.au> User-Agent: Gnus/5.090013 (Oort Gnus v0.13) Emacs/21.2 (i386-pc-linux-gnu) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-SW-Source: 2003-q1/txt/msg00007.txt.bz2 --=-=-= Content-length: 508 I'd like to propose * gtk-1.2.defs (gtk_main_iteration, gtk_main_iteration_do, gtk_true, gtk_false, gtk_events_pending): Make returns #t/#f. Currently these return integers to scheme, but I think they're all just TRUE or FALSE at the C level and might be better as #t/#f. In gtk 1.2 the C return types are gint, but in 2.2 this seems to have been corrected to gboolean. Hopefully no-one has used gtk-events-pending thinking it was a count of pending events or something, which it's not. --=-=-= Content-Disposition: attachment; filename=gtk-1.2.defs.bools.diff Content-length: 458 --- gtk-1.2.defs.~1.7.~ 2003-01-23 07:16:45.000000000 +1000 +++ gtk-1.2.defs 2003-02-06 10:00:28.000000000 +1000 @@ -362,23 +362,23 @@ ()) (define-func gtk_main_iteration - int + bool ()) (define-func gtk_main_iteration_do - int + bool ((bool val))) (define-func gtk_true - int + bool ()) (define-func gtk_false - int + bool ()) (define-func gtk_events_pending - int + bool ()) (define-func gtk_timeout_add_full --=-=-=--