-; (defun tooltips-set-colors (tooltips background foreground)
-; (gdk:with-colors ((background background)
-; (foreground foreground))
-; (tooltips-set-colors-real tooltips background foreground)))
-
-; (define-foreign tooltips-force-window () nil
-; (tooltips tooltips))
-
-
-
-
-; ;;; Rc
-
-; (define-foreign rc-add-default-file (filename) nil
-; ((namestring (truename filename)) string))
-
-; (define-foreign rc-parse (filename) nil
-; ((namestring (truename filename)) string))
-
-; (define-foreign rc-parse-string () nil
-; (rc-string string))
-
-; (define-foreign rc-reparse-all () nil)
-
-; ;(define-foreign rc-get-style () style
-; ; (widget widget))
-
-
-
-;;; 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-ref () style
-; (style style))
-
-; (define-foreign style-unref () nil
-; (style style))