127 lines
3.7 KiB
Racket
127 lines
3.7 KiB
Racket
#lang racket/base
|
|
|
|
(provide (except-out (all-defined-out) <<))
|
|
|
|
(define (<< a b) (arithmetic-shift a b))
|
|
|
|
(define NSTitledWindowMask 1)
|
|
(define NSBorderlessWindowMask 0)
|
|
(define NSClosableWindowMask 2)
|
|
(define NSMiniaturizableWindowMask 4)
|
|
(define NSResizableWindowMask 8)
|
|
(define NSUtilityWindowMask (1 . << . 4))
|
|
(define NSTexturedBackgroundWindowMask 256)
|
|
|
|
(define NSBackingStoreBuffered 2)
|
|
(define NSRoundedBezelStyle 1)
|
|
(define NSRegularSquareBezelStyle 2)
|
|
|
|
(define NSLeftMouseDown 1)
|
|
(define NSLeftMouseUp 2)
|
|
(define NSRightMouseDown 3)
|
|
(define NSRightMouseUp 4)
|
|
(define NSMouseMoved 5)
|
|
(define NSLeftMouseDragged 6)
|
|
(define NSRightMouseDragged 7)
|
|
(define NSMouseEntered 8)
|
|
(define NSMouseExited 9)
|
|
(define NSKeyDown 10)
|
|
(define NSKeyUp 11)
|
|
(define NSFlagsChanged 12)
|
|
(define NSAppKitDefined 13)
|
|
(define NSSystemDefined 14)
|
|
(define NSApplicationDefined 15)
|
|
(define NSPeriodic 16)
|
|
(define NSCursorUpdate 17)
|
|
(define NSScrollWheel 22)
|
|
(define NSTabletPoint 23)
|
|
(define NSTabletProximity 24)
|
|
(define NSOtherMouseDown 25)
|
|
(define NSOtherMouseUp 26)
|
|
(define NSOtherMouseDragged 27)
|
|
(define NSEventTypeGesture 29)
|
|
(define NSEventTypeMagnify 30)
|
|
(define NSEventTypeSwipe 31)
|
|
(define NSEventTypeRotate 18)
|
|
(define NSEventTypeBeginGesture 19)
|
|
(define NSEventTypeEndGesture 20)
|
|
|
|
(define MouseAndKeyEventMask
|
|
(bitwise-ior
|
|
(1 . << . NSLeftMouseDown)
|
|
(1 . << . NSLeftMouseUp)
|
|
(1 . << . NSRightMouseDown)
|
|
(1 . << . NSRightMouseUp)
|
|
(1 . << . NSMouseMoved)
|
|
(1 . << . NSLeftMouseDragged)
|
|
(1 . << . NSRightMouseDragged)
|
|
(1 . << . NSMouseEntered)
|
|
(1 . << . NSMouseExited)
|
|
(1 . << . NSKeyDown)
|
|
(1 . << . NSKeyUp)
|
|
(1 . << . NSScrollWheel)
|
|
(1 . << . NSTabletPoint)
|
|
(1 . << . NSTabletProximity)
|
|
(1 . << . NSOtherMouseDown)
|
|
(1 . << . NSOtherMouseUp)
|
|
(1 . << . NSOtherMouseDragged)
|
|
(1 . << . NSEventTypeGesture)
|
|
(1 . << . NSEventTypeMagnify)
|
|
(1 . << . NSEventTypeSwipe)
|
|
(1 . << . NSEventTypeRotate)
|
|
(1 . << . NSEventTypeBeginGesture)
|
|
(1 . << . NSEventTypeEndGesture)))
|
|
|
|
(define NSAlphaShiftKeyMask (1 . << . 16))
|
|
(define NSShiftKeyMask (1 . << . 17))
|
|
(define NSControlKeyMask (1 . << . 18))
|
|
(define NSAlternateKeyMask (1 . << . 19))
|
|
(define NSCommandKeyMask (1 . << . 20))
|
|
(define NSNumericPadKeyMask (1 . << . 21))
|
|
(define NSHelpKeyMask (1 . << . 22))
|
|
(define NSFunctionKeyMask (1 . << . 23))
|
|
|
|
(define NSScrollerNoPart 0)
|
|
(define NSScrollerDecrementPage 1)
|
|
(define NSScrollerKnob 2)
|
|
(define NSScrollerIncrementPage 3)
|
|
(define NSScrollerDecrementLine 4)
|
|
(define NSScrollerIncrementLine 5)
|
|
(define NSScrollerKnobSlot 6)
|
|
|
|
(define NSMomentaryLightButton 0)
|
|
(define NSPushOnPushOffButton 1)
|
|
(define NSToggleButton 2)
|
|
(define NSSwitchButton 3)
|
|
(define NSRadioButton 4)
|
|
(define NSMomentaryChangeButton 5)
|
|
(define NSOnOffButton 6)
|
|
(define NSMomentaryPushInButton 7)
|
|
(define NSMomentaryPushButton 0)
|
|
(define NSMomentaryLight 7)
|
|
|
|
(define NSFocusRingTypeDefault 0)
|
|
(define NSFocusRingTypeNone 1)
|
|
(define NSFocusRingTypeExterior 2)
|
|
|
|
(define kCGBitmapAlphaInfoMask #x1F)
|
|
(define kCGBitmapFloatComponents (1 . << . 8))
|
|
(define kCGBitmapByteOrderMask #x7000)
|
|
(define kCGBitmapByteOrderDefault (0 . << . 12))
|
|
(define kCGBitmapByteOrder16Little (1 . << . 12))
|
|
(define kCGBitmapByteOrder32Little (2 . << . 12))
|
|
(define kCGBitmapByteOrder16Big (3 . << . 12))
|
|
(define kCGBitmapByteOrder32Big (4 . << . 12))
|
|
|
|
(define kCGImageAlphaNone 0)
|
|
(define kCGImageAlphaPremultipliedLast 1)
|
|
(define kCGImageAlphaPremultipliedFirst 2)
|
|
(define kCGImageAlphaLast 3)
|
|
(define kCGImageAlphaFirst 4)
|
|
(define kCGImageAlphaNoneSkipLast 5)
|
|
(define kCGImageAlphaNoneSkipFirst 6)
|
|
|
|
(define NSWindowCollectionBehaviorFullScreenPrimary 128)
|
|
(define NSWindowCollectionBehaviorFullScreenAuxiliary 256)
|
|
(define NSFullScreenWindowMask (1 . << . 14))
|