From 8f205b087459a43db37d7c6fa5992303aaa598d3 Mon Sep 17 00:00:00 2001 Message-Id: <8f205b087459a43db37d7c6fa5992303aaa598d3.1714501989.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 31 Aug 2006 09:08:23 +0000 Subject: [PATCH] Library extensions not hard coded any more Organization: Straylight/Edgeware From: espen --- gtk/gtkobject.lisp | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gtk/gtkobject.lisp b/gtk/gtkobject.lisp index 10b8fc7..1869e9a 100644 --- a/gtk/gtkobject.lisp +++ b/gtk/gtkobject.lisp @@ -20,7 +20,7 @@ ;; 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.38 2006-08-31 09:08:23 espen Exp $ (in-package "GTK") @@ -31,7 +31,7 @@ (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) () @@ -233,5 +233,7 @@ (defclass ,child-class (,(default-container-child-name super)) (:metaclass container-child-class) (:container ,class)))))) +(defun container-class-child-class (container-class) + (gethash container-class *container-to-child-class-mappings*)) (register-derivable-type 'container "GtkContainer" 'expand-container-type 'gobject-dependencies) -- [mdw]