From 7ba6c16e7afbb3627cd57c4d3761a2ad6108ee98 Mon Sep 17 00:00:00 2001 Message-Id: <7ba6c16e7afbb3627cd57c4d3761a2ad6108ee98.1714520530.git.mdw@distorted.org.uk> From: Mark Wooding Date: Sat, 26 Feb 2005 17:55:27 +0000 Subject: [PATCH] Registering event-mask as a foreign type Organization: Straylight/Edgeware From: espen --- gdk/gdkevents.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gdk/gdkevents.lisp b/gdk/gdkevents.lisp index ee8e9f9..e369c80 100644 --- a/gdk/gdkevents.lisp +++ b/gdk/gdkevents.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: gdkevents.lisp,v 1.7 2005-02-26 10:44:09 espen Exp $ +;; $Id: gdkevents.lisp,v 1.8 2005-02-26 17:55:27 espen Exp $ (in-package "GDK") @@ -44,6 +44,8 @@ (define-flags-type event-mask :scroll (:all-events #x3FFFFE)) +(register-type 'event-mask "GdkEventMask") + ;;;; Metaclass for event classes -- [mdw]