Bug fix

diff --git a/gdk/gdktypes.lisp b/gdk/gdktypes.lisp
index 9304173d784f71fa412cadc340089b1f758516b3..97cba9d9adfecf8e937fac47fe9ab1e460c0ba3a 100644 (file)
--- a/gdk/gdktypes.lisp
+++ b/gdk/gdktypes.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 

-;; $Id: gdktypes.lisp,v 1.26 2006-08-30 11:08:12 espen Exp $
+;; $Id: gdktypes.lisp,v 1.27 2006-09-05 13:14:10 espen Exp $

 
 (in-package "GDK")
 
 
 (in-package "GDK")
 


@@ -115,7 +115,7 @@ (define-flags-type event-mask
   :scroll
   (:all-events #x3FFFFE))
 
   :scroll
   (:all-events #x3FFFFE))
 

-(register-type 'event-mask '|gdk_modifier_type_get_type|)
+(register-type 'modifier-type '|gdk_modifier_type_get_type|)

 (define-flags-type modifier-type
   :shift :lock :control :mod1 :mod2 :mod3 :mod4 :mod5 
   :button1 :button2 :button3 :button4 :button5
 (define-flags-type modifier-type
   :shift :lock :control :mod1 :mod2 :mod3 :mod4 :mod5 
   :button1 :button2 :button3 :button4 :button5