[Clg-devel] Subclasses
Brought to you by:
espen
From: Marco G. <mar...@ti...> - 2006-05-30 13:55:29
|
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] |