X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gdk%2Fgdk.general.lisp;h=43f18decdbcec3cad04b5951a6ed96978b5031f2;hb=be3ed2fe370ef129390ac4926e9e41284363b00d;hp=ce270ef76c88c795fe48ec9f97e2cc8b43997d7f;hpb=f4d84c3f9348f078ce0b7dbfc07a605b58fae832;p=cl-gtk2.git

diff --git a/gdk/gdk.general.lisp b/gdk/gdk.general.lisp
index ce270ef..43f18de 100644
--- a/gdk/gdk.general.lisp
+++ b/gdk/gdk.general.lisp
@@ -1,5 +1,12 @@
 (in-package :gdk)
 
+(defcfun gdk-set-locale (:string :free-from-foreign nil))
+(export 'gdk-set-locale)
+
+(defcfun (set-sm-client-id "gdk_set_sm_client_id") :void
+  (sm-client-id :string))
+(export 'set-sm-client-id)
+
 (defcfun gdk-notify-startup-complete :void)
 (defcfun gdk-notify-startup-complete-with-id :void
   (startup-id :string))
@@ -59,4 +66,6 @@
 
 (export 'gdk-beep)
 
-
+(defcfun gdk-error-trap-push :void)
+(defcfun gdk-error-trap-pop :int)
+(export '(gdk-error-trap-push gdk-error-trap-pop))