Re: Death of -glib, Life of -platform

[Jan Nieuwenhuizen]

Andy Wingo writes:

Hi Andy,

> Whoops, fixed.

> Not acceptable!
>
> I got your tree and manually merged your overrides with rotty's version
> in libgnomecanvas/gnome/overrides/. While doing that, recalled the
> nastiness of gdk-event.c. Those structs are CRAP! What kind of crack
> rock was I smoking? Anyway, I changed the function to gdk-event->vector.
> Much simpler. I threw in a MOTION_NOTIFY wrapper so that we don't get
> those irritating "unknown event of type 3" messages.

Ok, looks very nice.

> While doing that, I found that the rewritten .defs parser didn't ignore
> varargs functions. That's fixed.

Ok.

> End result, examples/canvas.scm works, affines and all.

Great, thanks.

> Give this tarball a whirl:
>
> http://ambient.2y.net/wingo/tmp/guile-gnome-platform-2.5.991.tar.gz

Looks very good, however, I still have problems with some functions
that take ints, eg

(define-method set_child_packing
  (of-object "GtkBox")
  (c-name "gtk_box_set_child_packing")
  (return-type "none")
  (parameters
    '("GtkWidget*" "child")
    '("gboolean" "expand")
    '("gboolean" "fill")
    '("guint" "padding")
    '("GtkPackType" "pack_type")
  )
)

gives (using guile CVS):

74:    (set-child-packing vbox button #f #f 0 'end)

$ guile --debug -s ./test/guile-gnome/src/libgnomecanvas/examples/canvas.scm 
(gnome gtk): [goops gobject glib atk pango gdk gtk support]
Backtrace:
In unknown file:
   ?: 0* [primitive-load 
"./test/guile-gnome/src/libgnomecanvas/examples/canvas.scm"]
In ./test/guile-gnome/src/libgnomecanvas/examples/canvas.scm:
  80: 1* [main]
In unknown file:
   ?: 2  (letrec (# #) (let* # # # ...))
In ./test/guile-gnome/src/libgnomecanvas/examples/canvas.scm:
  35: 3  (let* ((window #) (button #) (canvas #) ...) (add window vbox) ...)
  74: 4* [set-child-packing #<<gtk-vbox> 40eae610> #<<gtk-button> 81802a0> ...]
In unknown file:
   ?: 5  [# # # #f ...]

<unnamed port>: In procedure gtk-box-set-child-packing in expression 
(#<gw:dynproc gtk-box-set-child-packing (6)> arg1 arg2 ...):
<unnamed port>: Wrong type argument in position 5: 0

Ideas?

Jan.

-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org