Added some slots to DISPLAY

diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp
index 98aefea429f83fcaccf36c4250b8cfc74431c9fe..e8cd686f93889dc51c9250d2639dd7127c2eb549 100644 (file)
--- a/gdk/gdktypes.lisp
+++ b/gdk/gdktypes.lisp
@@ -15,7 +15,7 @@
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 ;; License along with this library; if not, write to the Free Software
 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 

-;; $Id: gdktypes.lisp,v 1.14 2005/02/26 10:44:09 espen Exp $
+;; $Id: gdktypes.lisp,v 1.15 2005/02/26 18:53:33 espen Exp $

 
 (in-package "GDK")
 
 
 (in-package "GDK")
 


@@ -101,6 +101,22 @@ (define-types-by-introspection "Gdk"
   ("GdkFont" :ignore t) ; deprecated
   ("GdkEventMask" :ignore t) ; manually defined
 
   ("GdkFont" :ignore t) ; deprecated
   ("GdkEventMask" :ignore t) ; manually defined
 

+  ("GdkDisplay"
+   :slots
+   ((name
+     :allocation :virtual
+     :getter "gdk_display_get_name"
+     :reader display-name
+     :type (copy-of string))
+    (screens
+     :allocation :virtual
+     :getter display-screens)
+    (devices
+     :allocation :virtual
+     :getter "gdk_display_list_devices"
+     :reader display-devices
+     :type (copy-of (glist device)))))
+

   ("GdkDrawable"
    :slots
    ((display
   ("GdkDrawable"
    :slots
    ((display