]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/ui/backend/cocoa/views/views.factor
use radix literals
[factor.git] / basis / ui / backend / cocoa / views / views.factor
index 7837402701bd46f7fa028f9475ceaddf521eed84..38dd21c10d4294d33ec85197cb076dd0ce74ac87 100644 (file)
@@ -20,10 +20,10 @@ IN: ui.backend.cocoa.views
 
 CONSTANT: modifiers
     {
-        { S+ HEX: 20000 }
-        { C+ HEX: 40000 }
-        { A+ HEX: 100000 }
-        { M+ HEX: 80000 }
+        { S+ 0x20000 }
+        { C+ 0x40000 }
+        { A+ 0x100000 }
+        { M+ 0x80000 }
     }
 
 CONSTANT: key-codes
@@ -152,7 +152,7 @@ CLASS: FactorView < NSOpenGLView NSTextInput
     METHOD: void drawRect: NSRect rect [ self window [ draw-world ] when* ]
 
     ! Events
-    METHOD: char acceptsFirstMouse: id event [ 1 ]
+    METHOD: char acceptsFirstMouse: id event [ 0 ]
 
     METHOD: void mouseEntered: id event [ self event send-mouse-moved ]