From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Thu, 27 Aug 2009 18:16:27 +0000 (+0400)
Subject: Fixed a typo; added partial GdkDisplay and GdkScreen bindings
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4fb186f420affca636ffe35d6e72a83df0d81a35;p=cl-gtk2.git

Fixed a typo; added partial GdkDisplay and GdkScreen bindings
---

diff --git a/gdk/gdk.functions.lisp b/gdk/gdk.functions.lisp
index eefbe6c..fcbd990 100644
--- a/gdk/gdk.functions.lisp
+++ b/gdk/gdk.functions.lisp
@@ -1,8 +1,11 @@
 (in-package :gdk)
 
-(defcfun (default-screen "gdk_screen_get_default") (g-object gdk-window))
+(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)))
 
diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index aec7927..c95d800 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -8,7 +8,15 @@
 (defcenum notify-type (:ancestor 0) :virtual :inferior :nonlinear :nonlinear-virtual :unknown)
 (export 'notify-type)
 
-(define-g-object-class "GdkDisplay" display () ())
+(define-g-object-class "GdkDisplay" display ()
+  ((:cffi name display-name (glib:g-string :free-from-foreign nil)
+          "gdk_display_get_name" nil)
+   (:cffi n-screens display-n-screens :int
+          "gdk_display_get_n_screens" nil)
+   (:cffi default-screen display-default-screen (g-object screen)
+          "gdk_display_get_default_screen" nil)))
+
+;gdk_display_get_screen
 
 (define-g-object-class "GdkDisplayManager" display-manager ()
   ((default-display display-manager-default-display "default-display" "GdkDisplay" t t)))