-
-
-
-;;; Accelerator Groups
-
-(define-foreign accel-group-new () accel-group)
-
-(define-foreign accel-group-get-default () accel-group)
-
-(deftype-method alien-ref accel-group (type-spec)
- (declare (ignore type-spec))
- '%accel-group-ref)
-
-(deftype-method alien-unref accel-group (type-spec)
- (declare (ignore type-spec))
- '%accel-group-unref)
-
-(define-foreign %accel-group-ref () accel-group
- (accel-group (or accel-group pointer)))
-
-(define-foreign %accel-group-unref () nil
- (accel-group (or accel-group pointer)))
-
-(define-foreign accel-group-activate (accel-group key modifiers) boolean
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type))
-
-(define-foreign accel-groups-activate (object key modifiers) boolean
- (object object)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type))
-
-(define-foreign accel-group-attach () nil
- (accel-group accel-group)
- (object object))
-
-(define-foreign accel-group-detach () nil
- (accel-group accel-group)
- (object object))
-
-(define-foreign accel-group-lock () nil
- (accel-group accel-group))
-
-(define-foreign accel-group-unlock () nil
- (accel-group accel-group))
-
-
-;;; Accelerator Groups Entries
-
-(define-foreign accel-group-get-entry (accel-group key modifiers) accel-entry
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type))
-
-(define-foreign accel-group-lock-entry (accel-group key modifiers) nil
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type))
-
-(define-foreign accel-group-unlock-entry (accel-group key modifiers) nil
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type))
-
-(define-foreign accel-group-add
- (accel-group key modifiers flags object signal) nil
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type)
- (flags accel-flags)
- (object object)
- ((name-to-string signal) string))
-
-(define-foreign accel-group-add (accel-group key modifiers object) nil
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type)
- (object object))
-
-
-;;; Accelerator Signals
-
-(define-foreign accel-group-handle-add
- (object signal-id accel-group key modifiers flags) nil
- (object object)
- (signal-id unsigned-int)
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type)
- (flags accel-flags))
-
-(define-foreign accel-group-handle-remove
- (object accel-group key modifiers) nil
- (object object)
- (accel-group accel-group)
- ((gdk:keyval-from-name key) unsigned-int)
- (modifiers gdk:modifier-type))
-
-
-
-;;; Style
-
-; (define-foreign style-new () style)
-
-; (define-foreign style-copy () style
-; (style style))
-
-(define-foreign %style-get-color () gdk:color
- (style style)
- (color-type color-type)
- (state-type state-type))
-
-(define-foreign %style-set-color () gdk:color
- (style style)
- (color-type color-type)
- (state-type state-type)
- (color gdk:color))
-
-(defun style-fg (style state)
- (%style-get-color style :foreground state))
-
-(defun (setf style-fg) (color style state)
- (%style-set-color style :foreground state color))
-
-(defun style-bg (style state)
- (%style-get-color style :background state))
-
-(defun (setf style-bg) (color style state)
- (%style-set-color style :background state color))
-
-(defun style-text (style state)
- (%style-get-color style :text state))
-
-(defun (setf style-text) (color style state)
- (%style-set-color style :text state color))
-
-(defun style-base (style state)
- (%style-get-color style :base state))
-
-(defun (setf style-base) (color style state)
- (%style-set-color style :base state color))
-
-(defun style-white (style)
- (%style-get-color style :white :normal))
-
-(defun (setf style-white) (color style)
- (%style-set-color style :white :normal color))
-
-(defun style-black (style)
- (%style-get-color style :black :normal))
-
-(defun (setf style-black) (color style)
- (%style-set-color style :black :normal color))
-
-(define-foreign style-get-gc () gdk:gc
- (style style)
- (color-type color-type)
- (state-type state-type))
-
-
-(define-foreign draw-hline () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (x1 int)
- (x2 int)
- (y int))
-
-(define-foreign draw-vline () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (y1 int)
- (y2 int)
- (x int))
-
-(define-foreign draw-shadow () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-; (define-foreign draw-polygon () nil
-; (style style)
-; (window gdk:window)
-; (state state-type)
-; (shadow shadow-type)
-; (points (vector gdk:point))
-; ((length points) int)
-; (fill boolean))
-
-(define-foreign draw-arrow () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (arrow arrow-type)
- (fill boolean)
- (x int)
- (y int)
- (width int)
- (height int))
-
-(define-foreign draw-diamond () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-; (define-foreign draw-oval () nil
-; (style style)
-; (window gdk:window)
-; (state state-type)
-; (shadow shadow-type)
-; (x int)
-; (y int)
-; (width int)
-; (height int))
-
-(define-foreign draw-string () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (x int)
- (y int)
- (string string))
-
-(define-foreign draw-box () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-(define-foreign draw-flat-box () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-(define-foreign draw-check () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-(define-foreign draw-option () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-; (define-foreign draw-cross () nil
-; (style style)
-; (window gdk:window)
-; (state state-type)
-; (shadow shadow-type)
-; (x int)
-; (y int)
-; (width int)
-; (height int))
-
-; (define-foreign draw-ramp () nil
-; (style style)
-; (window gdk:window)
-; (state state-type)
-; (shadow shadow-type)
-; (arrow arrow-type)
-; (x int)
-; (y int)
-; (width int)
-; (height int))
-
-(define-foreign draw-tab () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-(define-foreign draw-shadow-gap () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (x int)
- (y int)
- (width int)
- (height int)
- (gap-side position-type)
- (gap-x int)
- (gap-width int))
-
-(define-foreign draw-box-gap () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (x int)
- (y int)
- (width int)
- (height int)
- (gap-side position-type)
- (gap-x int)
- (gap-width int))
-
-(define-foreign draw-extension () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (x int)
- (y int)
- (width int)
- (height int))
-
-(define-foreign draw-focus () nil
- (style style)
- (window gdk:window)
- (x int)
- (y int)
- (width int)
- (height int))
-
-(define-foreign draw-slider () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int)
- (orientation orientation))
-
-(define-foreign draw-handle () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int)
- (orientation orientation))
-
-(define-foreign draw-handle () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (shadow shadow-type)
- (x int)
- (y int)
- (width int)
- (height int)
- (orientation orientation))
-
-(define-foreign paint-hline () nil
- (style style)
- (window gdk:window)
- (state state-type)
- (x1 int)
- (x2 int)
- (y int))