-; (define-foreign paned-add1 () nil
-; (paned paned)
-; (child widget))
-
-; (define-foreign paned-add2 () nil
-; (paned paned)
-; (child widget))
-
-; (define-foreign paned-pack1 () nil
-; (paned paned)
-; (child widget)
-; (resize boolean)
-; (shrink boolean))
-
-; (define-foreign paned-pack2 () nil
-; (paned paned)
-; (child widget)
-; (resize boolean)
-; (shrink boolean))
-
-; ; (define-foreign ("gtk_paned_set_position" (setf paned-position)) () nil
-; ; (paned paned)
-; ; (position int))
-
-; ;; gtkglue.c
-; (define-foreign paned-child1 () widget
-; (paned paned)
-; (resize boolean :out)
-; (shrink boolean :out))
-
-; ;; gtkglue.c
-; (define-foreign paned-child2 () widget
-; (paned paned)
-; (resize boolean :out)
-; (shrink boolean :out))
-
-; (define-foreign vpaned-new () vpaned)
-
-; (define-foreign hpaned-new () hpaned)
-
-
-
-; ;;; Layout
-
-; (define-foreign layout-new (&optional hadjustment vadjustment) layout
-; (hadjustment (or null adjustment))
-; (vadjustment (or null adjustment)))
-
-; (define-foreign layout-put () nil
-; (layout layout)
-; (widget widget)
-; (x int) (y int))
-
-; (define-foreign layout-move () nil
-; (layout layout)
-; (widget widget)
-; (x int) (y int))
-
-; (define-foreign %layout-set-size () nil
-; (layout layout)
-; (width int)
-; (height int))
-
-; (defun (setf layout-size) (size layout)
-; (%layout-set-size layout (svref size 0) (svref size 1))
-; (values (svref size 0) (svref size 1)))
-
-; ;; gtkglue.c
-; (define-foreign layout-size () nil
-; (layout layout)
-; (width int :out)
-; (height int :out))
-
-; (define-foreign layout-freeze () nil
-; (layout layout))
-
-; (define-foreign layout-thaw () nil
-; (layout layout))
-
-; (define-foreign layout-offset () nil
-; (layout layout)
-; (x int :out)
-; (y int :out))
-
-
-
-;;; List
-
-; (define-foreign list-new () list-widget)
-
-; (define-foreign list-insert-items () nil
-; (list list-widget)
-; (items (list list-item))
-; (position int))
-
-; (define-foreign list-append-items () nil
-; (list list-widget)
-; (items (double-list list-item)))
-
-; (define-foreign list-prepend-items () nil
-; (list list-widget)
-; (items (double-list list-item)))
-
-; (define-foreign %list-remove-items () nil
-; (list list-widget)
-; (items (double-list list-item)))
-
-; (define-foreign %list-remove-items-no-unref () nil
-; (list list-widget)
-; (items (double-list list-item)))
-
-; (defun list-remove-items (list items &key no-unref)
-; (if no-unref
-; (%list-remove-items-no-unref list items)
-; (%list-remove-items list items)))
-
-; (define-foreign list-clear-items () nil
-; (list list-widget)
-; (start int)
-; (end int))