Subclasses

Hello Espen,

a few month ago you posted an example with a user defined class that
inherits from drawing-area. The same technique is used in the examples
directory in ginspect.lisp and seems to be broken, at least here :-)

My machine configuration is as follows:

uname -a: Linux tristan 2.6.11.4-21.10-default #1 Tue Nov 29 14:32:49 UTC 2005 x86_64 x86_64 x86_64 GNU/Linux

SBCL 0.9.12 for x86_64

pkg-config --modversion glib-2.0: 2.8.6
pkg-config --modversion atk: 1.10.3
pkg-config --modversion pango: 1.10.4
pkg-config --modversion gtk+-2.0: 2.8.18
pkg-config --modversion cairo: 1.0.4

Below you can find a complete error transcript of a session where I tried to
start ginspect for the testgtk widgets.

BTW, clg is a really nice package, easy to install and works (almost)
out of the box. Thanks for this great work.


Regards,

Marco






This is SBCL 0.9.12, an implementation of ANSI Common Lisp.
More information about SBCL is available at <http://www.sbcl.org/>.

SBCL is free software, provided as is, with absolutely no warranty.
It is mostly in the public domain; some portions are provided under
BSD-style licenses.  See the CREDITS and COPYING files in the
distribution for more information.
* (require :gtk)

; loading system definition from
; /home/local/share/lisp/site-systems/clg-tools.asd into #<PACKAGE "ASDF1">
; registering #<SYSTEM CLG-TOOLS {1002787CC1}> as CLG-TOOLS
; loading system definition from /home/local/share/lisp/site-systems/atk.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM ATK {1002593D61}> as ATK
; loading system definition from /home/local/share/lisp/site-systems/gdk.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM GDK {100289CAB1}> as GDK
; loading system definition from /home/local/share/lisp/site-systems/cairo.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM CAIRO {1002B9D381}> as CAIRO
; loading system definition from /home/local/share/lisp/site-systems/glib.asd
; into #<PACKAGE "ASDF0">
; loading system definition from /home/local/share/lisp/site-systems/gffi.asd
; into #<PACKAGE "ASDF1">
; registering #<SYSTEM GFFI {10022DF251}> as GFFI
; registering #<SYSTEM GLIB {10035452C1}> as GLIB
; loading system definition from /home/local/share/lisp/site-systems/pango.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM PANGO {1002CA0981}> as PANGO
WARNING: Super class mismatch between CLOS and GObject for PARAM-UNSIGNED-LONG
WARNING: Super class mismatch between CLOS and GObject for PARAM-UNICHAR
WARNING: Super class mismatch between CLOS and GObject for PARAM-ENUM
WARNING: Super class mismatch between CLOS and GObject for PARAM-FLAGS
WARNING: Super class mismatch between CLOS and GObject for PARAM-SINGLE-FLOAT
WARNING: Super class mismatch between CLOS and GObject for PARAM-DOUBLE-FLOAT
WARNING: Super class mismatch between CLOS and GObject for PARAM-STRING
WARNING: Super class mismatch between CLOS and GObject for PARAM-PARAM
WARNING: Super class mismatch between CLOS and GObject for PARAM-BOXED
WARNING: Super class mismatch between CLOS and GObject for PARAM-POINTER
WARNING: Super class mismatch between CLOS and GObject for PARAM-VALUE-ARRAY
WARNING: Super class mismatch between CLOS and GObject for PARAM-OBJECT
WARNING: Super class mismatch between CLOS and GObject for PARAM-OVERRRIDE
NIL
* (load "ginspect")
WARNING:
   GLib-GObject: specified instance size for type `GinspectObjectContainer' is smaller than `GTypeInstance' size
WARNING:
   GLib-GObject: cannot retrieve class for invalid (unclassed) type `<invalid>'
WARNING: Super class mismatch between CLOS and GObject for OBJECT-CONTAINER
STYLE-WARNING: implicitly creating new generic function OBJECT-TO-STRING

T
* (load "testgtk")

T
* (ginspect:ginspect-toplevels)

debugger invoked on a GLIB:CRITICAL-LOG-LEVEL in thread
#<THREAD "initial thread" {1002E951A1}>:
  GLib-GObject: g_object_new: assertion `G_TYPE_IS_OBJECT (object_type)' failed

Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT] Exit debugger, returning to top level.

((LAMBDA (SB-ALIEN::ARGS-POINTER SB-ALIEN::RESULT-POINTER FUNCTION))
 5864063183834
 5864063183833
 #<FUNCTION GLIB::LOG-HANDLER>)
0] :backtrace

0: ((LAMBDA (SB-ALIEN::ARGS-POINTER SB-ALIEN::RESULT-POINTER FUNCTION))
    5864063183834
    5864063183833
    #<FUNCTION GLIB::LOG-HANDLER>)
1: ("foreign function: call_into_lisp")
2: ("foreign function: funcall3")
3: ("foreign function: #x40000EE5")

0]