;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtkobject.lisp,v 1.37 2006-08-16 12:09:03 espen Exp $
+;; $Id: gtkobject.lisp,v 1.39 2006-09-05 13:23:40 espen Exp $
(in-package "GTK")
(eval-when (:compile-toplevel :load-toplevel :execute)
(init-types-in-library
#.(concatenate 'string (pkg-config:pkg-variable "gtk+-2.0" "libdir")
- "/libgtk-x11-2.0.so"))
+ "/libgtk-x11-2.0." asdf:*dso-extension*))
(defclass %object (gobject)
()
(:metaclass container-child-class)
(:container ,class))))))
+(defun container-child-class (container-class)
+ (gethash container-class *container-to-child-class-mappings*))
(register-derivable-type 'container "GtkContainer" 'expand-container-type 'gobject-dependencies)