: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
(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)