Add GdkDisplayManager

diff --git a/gdk/gdk.display.lisp b/gdk/gdk.display.lisp
index 47bf45b..2d773f6 100644 (file)
--- 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 (file)
--- 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 () ())