+(defbinding %rc-reparse-all-for-settings () boolean
+ (settings settings)
+ (force-load-p boolean))
+
+(defun rc-reparse-all (&optional setting force-load-p)
+ (if setting
+ (%rc-reparse-all-for-settings setting force-load-p)
+ (%rc-reparse-all)))
+
+(defbinding rc-reset-styles () nil
+ (settings settings))
+
+(defbinding rc-add-default-file () nil
+ (filename pathname))
+
+(defbinding rc-get-default-files ()
+ (copy-of (null-terminated-vector (copy-of string))))
+
+(defbinding rc-get-module-dir () string)
+
+(defbinding rc-get-im-module-path () string)
+
+(defbinding rc-get-im-module-file () string)
+
+(defbinding rc-get-theme-dir () string)
+
+
+;;; Settings
+
+(defbinding (settings-get "gtk_settings_get_for_screen")
+ (&optional (screen (gdk:display-get-default-screen))) settings
+ (screen gdk:screen))
+
+
+;;; Plug and Socket
+
+(defbinding socket-add-id () nil
+ (socket socket)
+ (id gdk:native-window))
+
+(defbinding %plug-new () pointer
+ (id gdk:native-window))
+
+(defmethod allocate-foreign ((plug plug) &key id)
+ (%plug-new (or id 0)))