-;;; Tree
-
-; (define-foreign tree-new () tree)
-
-; (define-foreign tree-append () nil
-; (tree tree)
-; (tree-item tree-item))
-
-; (define-foreign tree-prepend () nil
-; (tree tree)
-; (tree-item tree-item))
-
-; (define-foreign tree-insert () nil
-; (tree tree)
-; (tree-item tree-item)
-; (position int))
-
-; (define-foreign tree-remove-items () nil
-; (tree tree)
-; (items (glist tree-item)))
-
-; (define-foreign tree-clear-items () nil
-; (tree tree)
-; (start int)
-; (end int))
-
-; (define-foreign tree-select-item () nil
-; (tree tree)
-; (item int))
-
-; (define-foreign tree-unselect-item () nil
-; (tree tree)
-; (item int))
-
-; (define-foreign tree-select-child () nil
-; (tree tree)
-; (tree-item tree-item))
-
-; (define-foreign tree-unselect-child () nil
-; (tree tree)
-; (tree-item tree-item))
-
-; (define-foreign tree-child-position () int
-; (tree tree)
-; (tree-item tree-item))
-
-; (defun root-tree-p (tree)
-; (eq (tree-root-tree tree) tree))
-
-; ;; gtkglue.c
-; (define-foreign tree-selection () (glist tree-item)
-; (tree tree))
-
-
-
-;;; Calendar
-
-(define-foreign calendar-new () calendar)
-
-(define-foreign calendar-select-month () int
- (calendar calendar)
- (month unsigned-int)
- (year unsigned-int))
-
-(define-foreign calendar-select-day () nil
- (calendar calendar)
- (day unsigned-int))
-
-(define-foreign calendar-mark-day () int
- (calendar calendar)
- (day unsigned-int))
-
-(define-foreign calendar-unmark-day () int
- (calendar calendar)
- (day unsigned-int))
-
-(define-foreign calendar-clear-marks () nil
- (calendar calendar))
-
-(define-foreign calendar-display-options () nil
- (calendar calendar)
- (options calendar-display-options))
-
-(define-foreign ("gtk_calendar_get_date" calendar-date) () nil
- (calendar calendar)
- (year unsigned-int :out)
- (month unsigned-int :out)
- (day unsigned-int :out))
-
-(define-foreign calendar-freeze () nil
- (calendar calendar))
-
-(define-foreign calendar-thaw () nil
- (calendar calendar))
-
-
-
-;;; Drawing area
-
-; (define-foreign drawing-area-new () drawing-area)
-
-; (define-foreign ("gtk_drawing_area_size" %drawing-area-set-size) () nil
-; (drawing-area drawing-area)
-; (width int)
-; (height int))
-
-; (defun (setf drawing-area-size) (size drawing-area)
-; (%drawing-area-set-size drawing-area (svref size 0) (svref size 1))
-; (values (svref size 0) (svref size 1)))
-
-; ;; gtkglue.c
-; (define-foreign ("gtk_drawing_area_get_size" drawing-area-size) () nil
-; (drawing-area drawing-area)
-; (width int :out)
-; (height int :out))
-
-
-
-; ;;; Curve