type
  TEventKind = enum
    nothing,
    resize,
    command,
    mouse,
    systemMouse,
    key,
    keyRepeat,
    lostFocus,
    getFocus,
    tick

  PEvent = ref TEvent
  TEvent = object
    case kind: TEventKind
    of nothing: nil
    of resize: nil
    of command:
      data: ref object
      cmd: int
    of mouse:
      localMouseX, localMouseY: int
      doubleClick: bool
    of systemMouse:
      mouseX, mouseY: int
    of key:
      ch: char
      key: int
      modifier: int
    of keyRepeat: nil
    of lostFocus: nil
    of getFocus: nil
    of tick: nil

method setProcessed(self: PEvent) = nil
#self.kind = TEventKind.nothing


when isMainModule:
  import unittest

  test "eventsetProcessed":
    #let event = TEvent(kind: TEventKind.mouse)
    #event.setProcessed()
    #check(event.kind == TEventKind.nothing)