From 7ecf52b3a8b7814e8d3301262e957d49bce61198 Mon Sep 17 00:00:00 2001 From: espen Date: Thu, 10 May 2007 20:13:42 +0000 Subject: [PATCH] Added function to compute type dependencies for the container class correctly --- gtk/gtkobject.lisp | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/gtk/gtkobject.lisp b/gtk/gtkobject.lisp index 9a31981..2444c08 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.40 2007-03-12 12:59:22 espen Exp $ +;; $Id: gtkobject.lisp,v 1.41 2007-05-10 20:13:42 espen Exp $ (in-package "GTK") @@ -238,4 +238,10 @@ (defun container-child-class (container-class) (gethash container-class *container-to-child-class-mappings*)) -(register-derivable-type 'container "GtkContainer" 'expand-container-type 'gobject-dependencies) +(defun container-dependencies (type options) + (delete-duplicates + (append + (gobject-dependencies type options) + (mapcar #'param-value-type (query-container-class-child-properties type))))) + +(register-derivable-type 'container "GtkContainer" 'expand-container-type 'container-dependencies) -- 2.11.0