From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 29 Aug 2010 13:34:10 +0000 (+0800)
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=edc745e57f66ec57c1fd0761a33d1825218a2853

Fix wrong class name in GdkEvent structure definition
---

diff --git a/gdk/gdk.objects.lisp b/gdk/gdk.objects.lisp
index dfd3b30..b315296 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)