Registering event-mask as a foreign type

[clg] / gdk / gdktypes.lisp

diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp
index e34f5b195c6bd50123ce5aa6e8f6919f3e6aae97..98aefea429f83fcaccf36c4250b8cfc74431c9fe 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
 
-;; $Id: gdktypes.lisp,v 1.12 2005/02/03 23:09:07 espen Exp $
+;; $Id: gdktypes.lisp,v 1.14 2005/02/26 10:44:09 espen Exp $
 
 (in-package "GDK")
 
@@ -99,7 +99,8 @@ (define-types-by-introspection "Gdk"
   ("GdkRectngle" :ignore t)
   ("GdkCursor" :ignore t)
   ("GdkFont" :ignore t) ; deprecated
-  
+  ("GdkEventMask" :ignore t) ; manually defined
+
   ("GdkDrawable"
    :slots
    ((display
@@ -190,7 +191,7 @@ (defclass cursor (boxed)
     :reader cursor-display
     :type display))
   (:metaclass boxed-class)
-  (:alien-name "GdkColor"))
+  (:alien-name "GdkCursor"))
 
 
 (defclass geometry (struct)