From 98f92aabb4782d2ded7c0ebe52cf7f56656470e4 Mon Sep 17 00:00:00 2001 Message-Id: <98f92aabb4782d2ded7c0ebe52cf7f56656470e4.1718307209.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 16 Aug 2000 22:22:47 +0000 Subject: [PATCH] Manually editing of the event-mask type Organization: Straylight/Edgeware From: espen --- gdk/gdkenums.lisp | 47 +++++++++++++++++++++++++---------------------- 1 file changed, 25 insertions(+), 22 deletions(-) diff --git a/gdk/gdkenums.lisp b/gdk/gdkenums.lisp index db53cf2..04f3286 100644 --- a/gdk/gdkenums.lisp +++ b/gdk/gdkenums.lisp @@ -1,5 +1,8 @@ ;; generated by a modified makeenums.pl ; -*- lisp -*- +;; $id$ + + (in-package "GDK") ; enumerations from "gdkcursor.h" @@ -154,28 +157,28 @@ (deftype (event-type "GdkEventType") () (deftype (event-mask "GdkEventMask") () '(flags - (:exposure-mask 1) - (:pointer-motion-mask 2) - (:pointer-motion-hint-mask 3) - (:button-motion-mask 4) - (:button1-motion-mask 5) - (:button2-motion-mask 6) - (:button3-motion-mask 7) - (:button-press-mask 8) - (:button-release-mask 9) - (:key-press-mask 10) - (:key-release-mask 11) - (:enter-notify-mask 12) - (:leave-notify-mask 13) - (:focus-change-mask 14) - (:structure-mask 15) - (:property-change-mask 16) - (:visibility-notify-mask 17) - (:proximity-in-mask 18) - (:proximity-out-mask 19) - (:substructure-mask 20) - (:scroll-mask 21) -; (:all-events-mask #x3FFFFE ) + (:exposure 1) + (:pointer-motion 2) + (:pointer-motion-hint 3) + (:button-motion 4) + (:button1-motion 5) + (:button2-motion 6) + (:button3-motion 7) + (:button-press 8) + (:button-release 9) + (:key-press 10) + (:key-release 11) + (:enter-notify 12) + (:leave-notify 13) + (:focus-change 14) + (:structure 15) + (:property-change 16) + (:visibility-notify 17) + (:proximity-in 18) + (:proximity-out 19) + (:substructure 20) + (:scroll 21) +; (:all-events #x3FFFFE ) )) (deftype (visibility-state "GdkVisibilityState") () -- [mdw]