From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 29 Aug 2010 13:34:10 +0000 (+0400)
Subject: Fix wrong class name in GdkEvent structure definition
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=5c0fa3e497b9f797fd579c90d696ad15fbfb1c6b

Fix wrong class name in GdkEvent structure definition
---

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index a7e6d65..79ebcb7 100644
--- a/gdk/gdk.objects.lisp
+++ b/gdk/gdk.objects.lisp
@@ -745,7 +745,7 @@
              (axes (fixed-array :double 2))
              (state modifier-type)
              (is-hint :int16)
-             (device (g-object device))
+             (device (g-object gdk-device))
              (x-root :double)
              (y-root :double))
             ((:expose) event-expose
@@ -797,7 +797,7 @@
             ((:proximity-in
               :proximity-out) event-proximity
              (time :uint32)
-             (device (g-object device)))
+             (device (g-object gdk-device)))
             ((:client-event) event-client
              (message-time gdk-atom)
              (data-format :ushort)