r9734 - trunk/libraries/ui/gtk+/gtk2

Author: andreas
Date: Tue Jan  4 09:40:04 2005
New Revision: 9734

Modified:
   trunk/libraries/ui/gtk+/gtk2/gtk-internal-support.dylan
Log:
job: ui

Minor tweaks to make GTK2 support build again.


Modified: trunk/libraries/ui/gtk+/gtk2/gtk-internal-support.dylan
==============================================================================
--- trunk/libraries/ui/gtk+/gtk2/gtk-internal-support.dylan     (original)
+++ trunk/libraries/ui/gtk+/gtk2/gtk-internal-support.dylan     Tue Jan  4 
09:40:04 2005
@@ -2,13 +2,6 @@
 
 c-include("gtk/gtk.h");
 
-define class <value-cell> (<object>)
-  slot value-cell-value, required-init-keyword: value:
-end;
-
-define sealed domain make (singleton(<value-cell>));
-define sealed domain initialize (<value-cell>);
-
 define method export-value(cls == <GCallback>, value :: <function>) => (result 
:: <function-pointer>);
   make(<function-pointer>, pointer: value.callback-entry); 
 end method export-value;
@@ -25,7 +18,7 @@
 
 define sealed method import-value(cls == <object>, the-value :: <gpointer>) 
  => (result :: <object>);
-  value-cell-value(heap-object-at(the-value.raw-value));
+  value(heap-object-at(the-value.raw-value));
 end method import-value;
 
 define method make(type :: subclass(<GTypeInstance>), #rest args, 
@@ -103,7 +96,7 @@
        arg in arguments)
     argv[i] := arg;
   end for;
-  as(<c-pointer-vector>, argv)[argc] := null-pointer;
+  as(<c-pointer-vector>, argv)[argc] := $null-pointer;
   let pargc = make(<int*>);
   pointer-value(pargc) := argc;
   let pargv = make(<char***>);
-- 
Gd-chatter mailing list
Gd-chatter@xxxxxxxxxxxxxxxx
https://gauss.gwydiondylan.org/mailman/listinfo/gd-chatter