From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 4346 invoked by alias); 15 Aug 2003 13:58:01 -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 4331 invoked from network); 15 Aug 2003 13:57:59 -0000 Received: from unknown (HELO octopussy.utanet.at) (213.90.36.45) by sources.redhat.com with SMTP; 15 Aug 2003 13:57:59 -0000 Received: from pam.utanet.at ([213.90.36.6]) by octopussy.utanet.at with esmtp (Exim 4.12) id 19nf5a-0006Or-00 for guile-gtk@sources.redhat.com; Fri, 15 Aug 2003 15:57:58 +0200 Received: from dsl-157-140.utaonline.at ([62.218.157.140] helo=rotty-ipv4.yi.org) by pam.utanet.at with esmtp (Exim 4.12) id 19nf5a-00080C-00 for guile-gtk@sources.redhat.com; Fri, 15 Aug 2003 15:57:58 +0200 Received: from alice.rhinosaur.lan ([192.168.1.3] ident=mail) by rotty-ipv4.yi.org with esmtp (Exim 3.36 #1 (Debian)) id 19nf5s-0001US-00 for ; Fri, 15 Aug 2003 15:58:16 +0200 Received: from andy by alice.rhinosaur.lan with local (Exim 4.20) id 19nf5s-0004t3-LD for guile-gtk@sources.redhat.com; Fri, 15 Aug 2003 15:58:16 +0200 To: guile-gtk@sources.redhat.com Subject: Re: guile-gobject problem References: <87llu0vsx8.fsf@alice.rotty.yi.org> <20030815130928.GA926@lark> From: Andreas Rottmann Date: Fri, 15 Aug 2003 13:58:00 -0000 In-Reply-To: <20030815130928.GA926@lark> (Andy Wingo's message of "Fri, 15 Aug 2003 14:09:28 +0100") Message-ID: <87n0eb3tvr.fsf@alice.rotty.yi.org> User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3 (gnu/linux) MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-SW-Source: 2003-q3/txt/msg00050.txt.bz2 --=-=-= Content-length: 933 Andy Wingo writes: > There've been some internet difficulties at my workplace, but hopefully > they're sorted out now... > > On Mon, 11 Aug 2003, Andreas Rottmann wrote: > >> | DSTWService* >> | gboolean >> | GType >> | char* >> | none >> | gunichar* > > Hmm, looks like you forgot to set the standard wrapset as a used > wrapset. Check the gw-atk-spec.scm for more details, bit it will suffice > to add (gw:wrapset-depends-on ws "guile-gnome-gw-standard") to your > wrapset definition code. > > Of course, you have to also depend on glib and gobject if you want those > types to be recognized as well. > I posted the wrng .spec version, I had those depends in place. In fact this is a bug in defs-support.scm; the function doesn't search in the depended-on wrapsets if there are no types registered or the wrapset. The attached patch should fix this. --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=find-recursive.patch Content-length: 1610 Index: gnome/gobject/defs-support.scm =================================================================== RCS file: /cvsroot/guile-gtk/guile-gobject/gnome/gobject/defs-support.scm,v retrieving revision 1.3 diff -u -p -r1.3 defs-support.scm --- gnome/gobject/defs-support.scm 1 Jul 2003 16:10:25 -0000 1.3 +++ gnome/gobject/defs-support.scm 15 Aug 2003 13:46:59 -0000 @@ -34,20 +34,20 @@ (define (recursive-type-find ws type) (let* ((ws-name (gw:wrapset-get-name ws)) (types-hash (hash-ref types-hash-hash ws-name))) - (if types-hash - (let ((ret (hash-ref types-hash type))) - (if ret - ret - (call-with-current-continuation - (lambda (exit) - (for-each - (lambda (ws) - (let ((ret (recursive-type-find ws type))) - (if ret - (exit ret)))) - (wrapset-get-wrapsets-depended-on ws)) - #f)))) - #f))) + (let ((ret (if types-hash + (hash-ref types-hash type) + #f))) + (if ret + ret + (call-with-current-continuation + (lambda (exit) + (for-each + (lambda (ws) + (let ((ret (recursive-type-find ws type))) + (if ret + (exit ret)))) + (wrapset-get-wrapsets-depended-on ws)) + #f)))))) ;; find the gwrap type name for a given type name in a defs file, or ;; wrap the type as an opaque gpointer -- this thing is getting nasty! --=-=-= Content-length: 276 Regards, Andy -- Andreas Rottmann | Rotty@ICQ | 118634484@ICQ | a.rottmann@gmx.at http://www.8ung.at/rotty | GnuPG Key: http://www.8ung.at/rotty/gpg.asc Fingerprint | DFB4 4EB4 78A4 5EEE 6219 F228 F92F CFC5 01FD 5B62 Make free software, not war! --=-=-=--