[cells-gtk-devel] Error compiling CVS version of cells-gtk

[Peter Denno]

On Monday 07 November 2005 16:21, Stefan Nobis wrote:
> Peter Denno <peter.denno at nist.gov> writes:
> > Where did you get cells and hello-c? Try taking the cells and
> > hello-c code from the 2005-05-29 tarball, if that is not what
> > you are using.
>
> That's the problem. I used the versions from the above tarball and
> it worked. With a bit searching and diffing i found the problem in
> hello-c from CVS:

In the past I have argued against the idea that we could simply asdf-install 
the individual packages cells-gtk, hello-c, and cells -- and expect things to 
work. This illustrates the problem. Each evolves independently. asdf-install 
doesn't solve the integration problem between them. That's one reason I put 
them together, test them and make a tarball.

Thanks for the info.

>
> ,----
>
> | diff -u -r1.2 callbacks.lisp
> | --- callbacks.lisp      6 Apr 2005 18:06:22 -0000       1.2
> | +++ callbacks.lisp      7 Nov 2005 21:14:48 -0000
> | @@ -31,7 +31,9 @@
> |                (fli:make-pointer :symbol-name (symbol-name callback-name)
> | ;; leak?
> |
> |                  :functionp t))))
> |
> |      (print (list :ff-register-callable-returns cb))
> | -    cb))
> | +    cb)
> | +  #+cmu
> | +  (alien::symbol-trampoline callback-name))
> |
> |  (defmacro ff-defun-callable (call-convention result-type name args &body
> | body) (declare (ignorable result-type))
> | @@ -47,8 +49,10 @@
> |         (declare (:convention ,(ecase call-convention
> |                                  (:cdecl :c)
> |                                  (:stdcall :stdcall))))
> | +       , at body)
> | +    #+cmu
> | +    `(alien:def-callback ,name (,(convert-from-uffi-type result-type
> | :return) , at native-args) , at body)))
> | -
> |
> |  #+test
> |  (ff-defun-callable :cdecl :int square ((arg-1 :int)(data (* :void)))
>
> `----
>
> When i add this patch (to the CVS version) everything works with
> current CVS versions of Cells, Hello-C and Cells-GTK.
>
> In both cases (Cells/Hello-C from CVS or from 2005-05-29 tarball)
> i get these warnings:
>
> ,----
>
> | (<unknown>:7651): Gtk-CRITICAL **: gtk_box_pack_start: assertion
> | `child->parent == NULL' failed
> |
> | (<unknown>:7651): Gtk-CRITICAL **: gtk_box_pack_start: assertion
> | `child->parent == NULL' failed
> |
> | (<unknown>:7651): Gtk-WARNING **: Attempting to add a widget with type
> | GtkAccelLabel to a GtkImageMenuItem, but as a GtkBin subclass a
> | GtkImageMenuItem can only contain one widget at a time; it already
> | contains a widget of type GtkAccelLabel
>
> `----

-- 
- Best regards,
   Peter