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
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 ]