From 2b63b8076f92320bbfba5a8275de1bc9da557cb2 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 31 Oct 2009 02:58:07 +0300 Subject: [PATCH] Add GdkDisplayManager --- gdk/gdk.display.lisp | 3 +++ gdk/gdk.objects.lisp | 4 +++- 2 files changed, 6 insertions(+), 1 deletion(-) 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 () ()) -- 1.7.10.4