[Gd-chatter] r11374 - in branches/opendylan-melange: gtk gtk-c-ffi

[hannes at gwydiondylan.org]

Author: hannes
Date: Wed May 23 23:42:53 2007
New Revision: 11374

Modified:
   branches/opendylan-melange/gtk-c-ffi/gtk-2-8-linux.dylan
   branches/opendylan-melange/gtk/gtk.dylan
Log:
Job: fd
make this also work on linux where gdkgc is gdkgcx11


Modified: branches/opendylan-melange/gtk-c-ffi/gtk-2-8-linux.dylan
==============================================================================
--- branches/opendylan-melange/gtk-c-ffi/gtk-2-8-linux.dylan	(original)
+++ branches/opendylan-melange/gtk-c-ffi/gtk-2-8-linux.dylan	Wed May 23 23:42:53 2007
@@ -75,6 +75,9 @@
 define C-subtype <_GdkGC> (<_GObject>) end;
 define constant <GdkGC> = <_GdkGC>;
 
+define C-subtype <_GdkGCX11> (<_GdkGC>) end;
+define constant <GdkGCX11> = <_GdkGCX11>;
+
 define C-pointer-type <GdkGC*> => <GdkGC>;
 define constant <GdkGC<@5>> = <GdkGC*>;
 define C-subtype <_GdkDrawable> (<_GObject>) end;

Modified: branches/opendylan-melange/gtk/gtk.dylan
==============================================================================
--- branches/opendylan-melange/gtk/gtk.dylan	(original)
+++ branches/opendylan-melange/gtk/gtk.dylan	Wed May 23 23:42:53 2007
@@ -43,7 +43,9 @@
       let g-type = g-type-from-instance(instance);
       let dylan-type = find-gtype(g-type);
       unless (dylan-type)
-        error("Unknown GType encountered. Re-run melange or implement dynamic class generation.");
+        
+        error("Unknown GType %= encountered. Re-run melange or implement dynamic class generation.",
+              as(<byte-string>, g-type-name(g-type)));
       end;
       let result = next-method(dylan-type, address: address);
       g-object-ref-sink(result);