gtk/gtk.finalize-classes.lisp

   1 (in-package :gtk)
   2
   3 (defun finalize-subclasses (class)
   4   ;(format t "Finalizing ~A~%" class)
   5   (c2mop:ensure-finalized class)
   6   (iter (for subclass in (c2mop:class-direct-subclasses class))
   7         (finalize-subclasses subclass)))
   8
   9 (defun finalize-gtk-classes ()
  10   (finalize-subclasses (find-class 'gobject:g-object)))
  11
  12 (finalize-gtk-classes)