steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.backend.cocoa.views: add constants for modifier flags.

locals-and-roots
John Benediktsson 2016-03-19 12:48:42 -07:00
parent 6b07e6caf2
commit 20883fb21a
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
basis/ui/backend/cocoa/views/views.factor
View File

@ -4,10 +4,10 @@ USING: accessors alien alien.c-types alien.data alien.strings
arrays assocs cocoa cocoa.application cocoa.classes arrays assocs cocoa cocoa.application cocoa.classes
cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types cocoa.pasteboard cocoa.runtime cocoa.subclassing cocoa.types
cocoa.views combinators core-foundation.strings core-graphics cocoa.views combinators core-foundation.strings core-graphics
core-graphics.types core-text io.encodings.utf8 kernel locals core-graphics.types core-text io.encodings.utf8 kernel literals
math math.rectangles namespaces opengl sequences threads locals math math.rectangles namespaces opengl sequences threads
ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures ui.gadgets ui.gadgets.private ui.gadgets.worlds ui.gestures
ui.private ; ui.private unicode.case ;
IN: ui.backend.cocoa.views IN: ui.backend.cocoa.views
: send-mouse-moved ( view event -- ) : send-mouse-moved ( view event -- )
@ -24,12 +24,20 @@ IN: ui.backend.cocoa.views
[ ] [ ]
} case ; } case ;
CONSTANT: modifiers CONSTANT: NSAlphaShiftKeyMask 0x10000
{ CONSTANT: NSShiftKeyMask 0x20000
{ S+ 0x20000 } CONSTANT: NSControlKeyMask 0x40000
{ C+ 0x40000 } CONSTANT: NSAlternateKeyMask 0x80000
{ A+ 0x100000 } CONSTANT: NSCommandKeyMask 0x100000
{ M+ 0x80000 } CONSTANT: NSNumericPadKeyMask 0x200000
CONSTANT: NSHelpKeyMask 0x400000
CONSTANT: NSFunctionKeyMask 0x800000
CONSTANT: modifiers {
{ S+ $ NSShiftKeyMask }
{ C+ $ NSControlKeyMask }
{ A+ $ NSCommandKeyMask }
{ M+ $ NSAlternateKeyMask }
} }
CONSTANT: key-codes CONSTANT: key-codes