From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Fri, 30 Oct 2009 23:58:07 +0000 (+0300)
Subject: Add GdkDisplayManager
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=2b63b8076f92320bbfba5a8275de1bc9da557cb2;p=cl-gtk2.git

Add GdkDisplayManager
---

diff --git a/gdk/gdk.display.lisp b/gdk/gdk.display.lisp
index 47bf45b..2d773f6 100644
--- a/gdk/gdk.display.lisp
+++ b/gdk/gdk.display.lisp
@@ -141,3 +141,6 @@
          do (setf (mem-aref targets-ptr 'gdk-atom-as-string i) str))
       (gdk-display-store-clipboard display clipboard-window time targets-ptr n-targets))))
 (export 'display-store-clipboard)
+
+(defcfun (display-manager-get "gdk_display_manager_get") (g-object display-manager))
+(export 'display-manager-get)
diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index b3bebfc..a2a3273 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -41,7 +41,9 @@
 ;gdk_display_get_screen
 
 (define-g-object-class "GdkDisplayManager" display-manager ()
-  ((default-display display-manager-default-display "default-display" "GdkDisplay" t t)))
+  ((default-display display-manager-default-display "default-display" "GdkDisplay" t t)
+   (:cffi displays display-manager-displays (glib:gslist (g-object display) :free-from-foreign t)
+          "gdk_display_manager_list_displays" nil)))
 
 (define-g-object-class "GdkVisual" visual () ())