-(define-foreign window-set-transient-for () nil
- (window window)
- (parent window))
-
-;(define-foreign window-set-geometry-hints)
-
-
-
-;;; Dialog
-
-(define-foreign dialog-new () dialog)
-
-
-;;; Color selection dialog
-
-(define-foreign color-selection-dialog-new () color-selection-dialog
- (title string))
-
-
-;;; Input dialog
-
-(define-foreign input-dialog-new () dialog)
-
-
-
-;;; File selection
-
-(define-foreign file-selection-new () file-selection
- (title string))
-
-(define-foreign file-selection-complete () nil
- (file-selection file-selection)
- (pattern string))
-
-(define-foreign file-selection-show-fileop-buttons () nil
- (file-selection file-selection))
-
-(define-foreign file-selection-hide-fileop-buttons () nil
- (file-selection file-selection))
-
-
-
-;;; Handle box
-
-(define-foreign handle-box-new () handle-box)
-
-
-
-;;; Scrolled window
-
-(define-foreign scrolled-window-new
- (&optional hadjustment vadjustment) scrolled-window
- (hadjustment (or null adjustment))
- (vadjustment (or null adjustment)))
-
-(defun (setf scrolled-window-scrollbar-policy) (policy window)
- (setf (scrolled-window-hscrollbar-policy window) policy)
- (setf (scrolled-window-vscrollbar-policy window) policy))
-
-(define-foreign scrolled-window-add-with-viewport () nil
- (scrolled-window scrolled-window)
- (child widget))
-
-
-
-;;; Viewport
-
-(define-foreign viewport-new () viewport
- (hadjustment adjustment)
- (vadjustment adjustment))
-
-
-
-;;; Box
-
-(define-foreign box-pack-start () nil
- (box box)
- (child widget)
- (expand boolean)
- (fill boolean)
- (padding unsigned-int))
-
-(define-foreign box-pack-end () nil
- (box box)
- (child widget)
- (expand boolean)
- (fill boolean)
- (padding unsigned-int))
-
-(defun box-pack (box child &key (pack :start) (expand t) (fill t) (padding 0))
- (if (eq pack :start)
- (box-pack-start box child expand fill padding)
- (box-pack-end box child expand fill padding)))
-
-(define-foreign box-reorder-child () nil
- (box box)
- (child widget)
- (position int))
-
-(define-foreign box-query-child-packing () nil
- (box box)
- (child widget :out)
- (expand boolean :out)
- (fill boolean :out)
- (padding unsigned-int :out)
- (pack-type pack-type :out))
-
-(define-foreign box-set-child-packing () nil
- (box box)
- (child widget)
- (expand boolean)
- (fill boolean)
- (padding unsigned-int)
- (pack-type pack-type))
-
-
-
-;;; Button box
-
-(define-foreign ("gtk_button_box_get_child_size_default"
- button-box-get-default-child-size) () nil
- (min-width int :out)
- (min-height int :out))
-
-(define-foreign ("gtk_button_box_set_child_size_default"
- button-box-set-default-child-size) () nil
- (min-width int)
- (min-height int))
-
-(define-foreign ("gtk_button_box_get_child_ipadding_default"
- button-box-get-default-child-ipadding) () nil
- (ipad-x int :out)
- (ipad-y int :out))
-
-
-(define-foreign ("gtk_button_box_get_child_ipadding_default"
- button-box-set-default-child-ipadding) () nil
- (ipad-x int)
- (ipad-y int))
-
-
-
-;;; HButton box
-
-(define-foreign hbutton-box-new () hbutton-box)
-
-(define-foreign ("gtk_hbutton_box_get_spacing_default"
- hbutton-box-default-spacing) () int)
-
-(define-foreign %hbutton-box-set-spacing-default () nil
- (spacing int))
-
-(defun (setf hbutton-box-default-spacing) (spacing)
- (%hbutton-box-set-spacing-default spacing))
-
-(define-foreign ("gtk_hbutton_box_get_layout_default"
- hbutton-box-default-layout) () button-box-style)
-
-(define-foreign %hbutton-box-set-layout-default () nil
- (layout button-box-style))
-
-(defun (setf hbutton-box-default-layout) (layout)
- (%hbutton-box-set-layout-default layout))
-
-
-
-;;; VButton Box
-
-(define-foreign vbutton-box-new () vbutton-box)
-
-(define-foreign ("gtk_vbutton_box_get_spacing_default"
- vbutton-box-default-spacing) () int)
-
-(define-foreign %vbutton-box-set-spacing-default () nil
- (spacing int))
-
-(defun (setf vbutton-box-default-spacing) (spacing)
- (%vbutton-box-set-spacing-default spacing))
-
-(define-foreign ("gtk_vbutton_box_get_layout_default"
- vbutton-box-default-layout) () button-box-style)
-
-(define-foreign %vbutton-box-set-layout-default () nil
- (layout button-box-style))
-
-(defun (setf vbutton-box-default-layout) (layout)
- (%vbutton-box-set-layout-default layout))
-
-
-
-;;; VBox
-
-(define-foreign vbox-new () vbox
- (homogeneous boolean)
- (spacing int))
-
-
-
-;;; Color selection
-
-(define-foreign color-selection-new () color-selection)
-
-(define-foreign %color-selection-get-color () nil
- (colorsel color-selection)
- (color pointer))
-
-(defun color-selection-color (colorsel)
- (let ((color (allocate-memory (* (size-of 'double-float) 4))))
- (%color-selection-get-color colorsel color)
- (funcall (get-from-alien-function '(vector double-float 4)) color)))
-
-(define-foreign %color-selection-set-color () nil
- (colorsel color-selection)
- (color (vector double-float 4)))
-
-(defun (setf color-selection-color) (color colorsel)
- (%color-selection-set-color colorsel color)
- color)
-
-(define-foreign %color-selection-get-old-color () nil
- (colorsel color-selection)
- (color pointer))
-
-(defun color-selection-old-color (colorsel)
- (let ((color (allocate-memory (* (size-of 'double-float) 4))))
- (%color-selection-get-old-color colorsel color)
- (funcall (get-from-alien-function '(vector double-float 4)) color)))
-
-(define-foreign %color-selection-set-old-color () nil
- (colorsel color-selection)
- (color (vector double-float 4)))
-
-(defun (setf color-selection-old-color) (color colorsel)
- (%color-selection-set-old-color colorsel color)
- color)
-
-(define-foreign %color-selection-get-palette-color () boolean
- (colorsel color-selection)
- (x int)
- (y int)
- (color (vector double-float 4) :out))