projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Typo
[cl-gtk2.git]
/
gdk
/
gdk.functions.lisp
diff --git
a/gdk/gdk.functions.lisp
b/gdk/gdk.functions.lisp
index
f050253
..
89843eb
100644
(file)
--- a/
gdk/gdk.functions.lisp
+++ b/
gdk/gdk.functions.lisp
@@
-1,5
+1,11
@@
(in-package :gdk)
(in-package :gdk)
+(defcfun (default-screen "gdk_screen_get_default") (g-object gdk-screen))
+(export 'default-screen)
+
+(defcfun (default-display "gdk_display_get_default") (g-object display))
+(export 'default-display)
+
(defcfun gdk-window-get-events event-mask
(window (g-object gdk-window)))
(defcfun gdk-window-get-events event-mask
(window (g-object gdk-window)))
@@
-13,7
+19,7
@@
(defun (setf gdk-window-events) (new-value window)
(gdk-window-set-events window new-value))
(defun (setf gdk-window-events) (new-value window)
(gdk-window-set-events window new-value))
-(defcfun gdk-gc-new (g-object graphics-context)
+(defcfun gdk-gc-new (g-object graphics-context :already-referenced)
(drawable (g-object drawable)))
(defcfun gdk-draw-line :void
(drawable (g-object drawable)))
(defcfun gdk-draw-line :void
@@
-26,7
+32,7
@@
(defcfun gdk-gc-set-rgb-fg-color :void
(gc (g-object graphics-context))
(defcfun gdk-gc-set-rgb-fg-color :void
(gc (g-object graphics-context))
- (color (g-boxed-ptr color)))
+ (color (g-boxed-foreign color)))
(defcfun gdk-drawable-get-size :void
(drawable (g-object drawable))
(defcfun gdk-drawable-get-size :void
(drawable (g-object drawable))