X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/fad6d6a9bc32da2f7837b97474587b711f06637b..6dfb20397142408cc4adfa437bb12d8aa300270e:/gtk/gtktypes.lisp?ds=sidebyside

diff --git a/gtk/gtktypes.lisp b/gtk/gtktypes.lisp
index dfa9c05..1155977 100644
--- a/gtk/gtktypes.lisp
+++ b/gtk/gtktypes.lisp
@@ -145,6 +145,11 @@ (define-type-method reader-function ((type position) &optional ref)
   (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)