From f68fb00f3527268b58373fb5f692be636225f260 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 31 Oct 2009 00:59:39 +0300 Subject: [PATCH] Add missing Gdk/General functions --- gdk/gdk.general.lisp | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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)) -- 1.7.10.4