X-Git-Url: https://git.distorted.org.uk/~mdw/clg/blobdiff_plain/afd573069d64ef0065bb477a3b8ba48ffa999f8b..7abdba43523dd39f28caab7d728d2a2821e30e89:/gdk/gdktypes.lisp diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp index f461140..509c7b3 100644 --- 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 -;; $Id: gdktypes.lisp,v 1.13 2005-02-10 00:22:35 espen Exp $ +;; $Id: gdktypes.lisp,v 1.15 2005-02-26 18:53:33 espen Exp $ (in-package "GDK") @@ -99,7 +99,24 @@ ("GdkRectngle" :ignore t) ("GdkCursor" :ignore t) ("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