Typo.

[cl-gtk2.git] / gdk / gdk.drag-and-drop.lisp

diff --git a/gdk/gdk.drag-and-drop.lisp b/gdk/gdk.drag-and-drop.lisp
index 85253ef..5c3d602 100644 (file)
--- a/gdk/gdk.drag-and-drop.lisp
+++ b/gdk/gdk.drag-and-drop.lisp
@@ -1,7 +1,7 @@
 (in-package :gdk)
 
 (defcstruct %gdk-drag-context
-  (parent-instance :pointer)
+  (parent-instance gobject.ffi::%g-object)
   (protocol gdk-drag-protocol)
   (is-source :boolean)
   (source-window (g-object gdk-window))
@@ -11,6 +11,7 @@
   (suggested-action gdk-drag-action)
   (action gdk-drag-action)
   (start-time :uint32))
+(defctype %gdk-drag-context (:struct %gdk-drag-context))
 
 (defun %gdk-drag-context-get-protocol (context)
   (foreign-slot-value (pointer context) '%gdk-drag-context 'protocol))
@@ -48,7 +49,7 @@
   (context (g-object drag-context))
   (time :uint32))
 
-(export 'gdk-drag-abord)
+(export 'gdk-drag-abort)
 
 (defcfun gdk-drop-reply :void
   (context (g-object drag-context))