Infra: Rudimentary setup system.

[clg] / gtk / gtktypes.lisp

diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
index dfa9c0517d316e6c30a1e3260c75a564041dec29..2bd3f9b78111fcb7d5a42f7455ce9dc083f1b415 100644 (file)
--- a/gtk/gtktypes.lisp
+++ b/gtk/gtktypes.lisp
@@ -84,6 +84,9 @@ (defclass border (boxed)
     :type int))
   (:metaclass boxed-class))
 
     :type int))
   (:metaclass boxed-class))
 

+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (register-type 'border '|gtk_border_get_type|))
+

 (defclass stock-item (struct)
   ((id
     :allocation :alien
 (defclass stock-item (struct)
   ((id
     :allocation :alien


@@ -145,6 +148,11 @@ (define-type-method reader-function ((type position) &optional ref)
   (declare (ignore type ref))
   (reader-function 'int))
 
   (declare (ignore type ref))
   (reader-function 'int))
 

+;; Register GtkObject in advance so that eg GtkTooltips, which inherits from it,
+;; gets a proper supertype. TODO: This is a hack. Where is it supposed to
+;; happen?
+(register-type '%object "GtkObject")
+

 (define-types-by-introspection "Gtk"
   ;; Manually defined
   ("GtkObject" :ignore t)
 (define-types-by-introspection "Gtk"
   ;; Manually defined
   ("GtkObject" :ignore t)