src/ui/event.slate

   1 "Events are designed to handle both UI events and Commands."
   2
   3 prototypes ensureNamespace: #events &delegate: True.
   4
   5 events define: #Event &slots: {#timeStamp. #source}.
   6
   7 events define: #FocusEvent &parents: {Event}.
   8
   9 events define: #RequestFocusEvent &parents: {FocusEvent}.
  10 events define: #DropFocusEvent &parents: {FocusEvent}.
  11
  12 events define: #WindowEvent &parents: {Event}
  13   &slots: {#region "The damage region associated with the event.". #window}.
  14
  15 events define: #InputEvent &parents: {WindowEvent}.
  16
  17 events define: #DeviceInputEvent &parents: {InputEvent}.
  18
  19 events define: #KeyboardEvent &parents: {InputEvent} &slots: {#key. #modifiers}.
  20
  21 e@(KeyboardEvent traits) character
  22 [e key as: ASCIICharacter].
  23
  24 e@(KeyboardEvent traits) isControl
  25 [(e modifiers bitAnd: 4) = 4].
  26
  27 e@(KeyboardEvent traits) isControlOnly
  28 [e modifiers = 4].
  29
  30 e@(KeyboardEvent traits) isAlt
  31 [(e modifiers bitAnd: 8) = 8].
  32
  33 e@(KeyboardEvent traits) isAltOnly
  34 [e modifiers = 8].
  35
  36 events define: #KeyboardPressEvent &parents: {KeyboardEvent}.
  37
  38 events define: #KeyboardReleaseEvent &parents: {KeyboardEvent}.
  39
  40 events define: #PointerEvent &parents: {InputEvent}
  41   &slots: {#pointer. #position. #button. #modifiers}.
  42
  43 event@(PointerEvent traits) copyOffset: offset
  44 [
  45   event copy `>> [position: c position + offset. ]
  46 ].
  47
  48 events define: #MouseEvent &parents: {PointerEvent}.
  49
  50 events define: #MouseButtonEvent &parents: {MouseEvent}.
  51
  52 events define: #MouseButtonPressEvent &parents: {MouseButtonEvent}.
  53
  54 events define: #MouseButtonReleaseEvent &parents: {MouseButtonEvent}.
  55
  56 events define: #MouseButtonHoldEvent &parents: {MouseButtonEvent}.
  57
  58 events define: #MouseButtonClickEvent &parents: {MouseButtonEvent}.
  59
  60 events define: #MouseButtonClickHoldEvent &parents: {MouseButtonEvent}.
  61
  62 events define: #MouseButtonDoubleClickEvent &parents: {MouseButtonEvent}.
  63
  64 events define: #LeftMouseButtonPressEvent &parents: {MouseButtonPressEvent}.
  65
  66 events define: #LeftMouseButtonReleaseEvent &parents: {MouseButtonReleaseEvent}.
  67
  68 events define: #LeftMouseButtonDoubleClickEvent &parents: {MouseButtonDoubleClickEvent}.
  69
  70 events define: #RightMouseButtonPressEvent &parents: {MouseButtonPressEvent}.
  71
  72 events define: #RightMouseButtonReleaseEvent &parents: {MouseButtonReleaseEvent}.
  73
  74 events define: #RightMouseButtonDoubleClickEvent &parents: {MouseButtonDoubleClickEvent}.
  75
  76 events define: #MiddleMouseButtonPressEvent &parents: {MouseButtonPressEvent}.
  77
  78 events define: #MiddleMouseButtonReleaseEvent &parents: {MouseButtonReleaseEvent}.
  79
  80 events define: #MiddleMouseButtonDoubleClickEvent &parents: {MouseButtonDoubleClickEvent}.
  81
  82 events define: #X1MouseButtonPressEvent &parents: {MouseButtonPressEvent}.
  83
  84 events define: #X1MouseButtonReleaseEvent &parents: {MouseButtonReleaseEvent}.
  85
  86 events define: #X1MouseButtonDoubleClickEvent &parents: {MouseButtonDoubleClickEvent}.
  87
  88 events define: #X2MouseButtonPressEvent &parents: {MouseButtonPressEvent}.
  89
  90 events define: #X2MouseButtonReleaseEvent &parents: {MouseButtonReleaseEvent}.
  91
  92 events define: #X2MouseButtonDoubleClickEvent &parents: {MouseButtonDoubleClickEvent}.
  93
  94 events define: #MouseMotionEvent &parents: {MouseEvent}.
  95
  96 events define: #MouseEnterEvent &parents: {MouseMotionEvent}.
  97
  98 events define: #MouseLeaveEvent &parents: {MouseMotionEvent}.
  99
 100 events define: #PenEvent &parents: {PointerEvent}.
 101
 102 events define: #PenDownEvent &parents: {PenEvent}.
 103
 104 events define: #PenLiftEvent &parents: {PenEvent}.
 105
 106 events define: #PenHoldEvent &parents: {PenEvent}.
 107
 108 events define: #PenMotionEvent &parents: {PenEvent}.
 109
 110 events define: #PenLeaveEvent &parents: {PenMotionEvent}.
 111
 112 events define: #PenEnterEvent &parents: {PenMotionEvent}.
 113
 114 events define: #WindowConfigEvent &parents: {WindowEvent}.
 115 "Corresponds to a window movement or resizing."
 116
 117 events define: #WindowResizeEvent &parents: {WindowConfigEvent} &slots: {#width. #height}..
 118
 119 events define: #PaintEvent &parents: {WindowEvent}.
 120 events define: #WindowRepaintEvent &parents: {WindowEvent}.
 121 "A window redraw request."