-;;; 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 (glist list-item)))
-
-; (define-foreign list-prepend-items () nil
-; (list list-widget)
-; (items (glist list-item)))
-
-; (define-foreign %list-remove-items () nil
-; (list list-widget)
-; (items (glist list-item)))
-
-; (define-foreign %list-remove-items-no-unref () nil
-; (list list-widget)
-; (items (glist 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))
-
-; (define-foreign list-select-item () nil
-; (list list-widget)
-; (item int))
-
-; (define-foreign list-unselect-item () nil
-; (list list-widget)
-; (item int))
-
-; (define-foreign list-select-child () nil
-; (list list-widget)
-; (child widget))
-
-; (define-foreign list-unselect-child () nil
-; (list list-widget)
-; (child widget))
-
-; (define-foreign list-child-position () int
-; (list list-widget)
-; (child widget))
-
-; (define-foreign list-extend-selection () nil
-; (list list-widget)
-; (scroll-type scroll-type)
-; (position single-float)
-; (auto-start-selection boolean))
-
-; (define-foreign list-start-selection () nil
-; (list list-widget))
-
-; (define-foreign list-end-selection () nil
-; (list list-widget))
-
-; (define-foreign list-select-all () nil
-; (list list-widget))
-
-; (define-foreign list-unselect-all () nil
-; (list list-widget))
-
-; (define-foreign list-scroll-horizontal () nil
-; (list list-widget)
-; (scroll-type scroll-type)
-; (position single-float))
-
-; (define-foreign list-scroll-vertical () nil
-; (list list-widget)
-; (scroll-type scroll-type)
-; (position single-float))
-
-; (define-foreign list-toggle-add-mode () nil
-; (list list-widget))
-
-; (define-foreign list-toggle-focus-row () nil
-; (list list-widget))
-
-; (define-foreign list-toggle-row () nil
-; (list list-widget)
-; (item list-item))
-
-; (define-foreign list-undo-selection () nil
-; (list list-widget))
-
-; (define-foreign list-end-drag-selection () nil
-; (list list-widget))
-
-; ;; gtkglue.c
-; (define-foreign list-selection () (glist list-item)
-; (list list-widget))
-
-
-