projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
6319f51
)
Add missing Gdk/General functions
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 30 Oct 2009 21:59:39 +0000
(
00:59
+0300)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Fri, 30 Oct 2009 21:59:39 +0000
(
00:59
+0300)
gdk/gdk.general.lisp
patch
|
blob
|
history
diff --git
a/gdk/gdk.general.lisp
b/gdk/gdk.general.lisp
index
ce270ef
..
43f18de
100644
(file)
--- 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))