extra/x11/events/events.factor

   1 ! Copyright (C) 2005, 2006 Eduardo Cavazos and Slava Pestov
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: alien alien.c-types arrays hashtables io kernel math
   4 math.order namespaces prettyprint sequences strings combinators
   5 x11.xlib ;
   6 IN: x11.events
   7
   8 GENERIC: expose-event ( event window -- )
   9
  10 GENERIC: configure-event ( event window -- )
  11
  12 GENERIC: button-down-event ( event window -- )
  13
  14 GENERIC: button-up-event ( event window -- )
  15
  16 GENERIC: enter-event ( event window -- )
  17
  18 GENERIC: leave-event ( event window -- )
  19
  20 GENERIC: wheel-event ( event window -- )
  21
  22 GENERIC: motion-event ( event window -- )
  23
  24 GENERIC: key-down-event ( event window -- )
  25
  26 GENERIC: key-up-event ( event window -- )
  27
  28 GENERIC: focus-in-event ( event window -- )
  29
  30 GENERIC: focus-out-event ( event window -- )
  31
  32 GENERIC: selection-notify-event ( event window -- )
  33
  34 GENERIC: selection-request-event ( event window -- )
  35
  36 GENERIC: client-event ( event window -- )
  37
  38 : next-event ( -- event )
  39     dpy get "XEvent" <c-object> dup >r XNextEvent drop r> ;
  40
  41 : mask-event ( mask -- event )
  42     >r dpy get r> "XEvent" <c-object> dup >r XMaskEvent drop r> ;
  43
  44 : events-queued ( mode -- n ) >r dpy get r> XEventsQueued ;
  45
  46 : wheel? ( event -- ? ) XButtonEvent-button 4 7 between? ;
  47
  48 : button-down-event$ ( event window -- )
  49     over wheel? [ wheel-event ] [ button-down-event ] if ;
  50
  51 : button-up-event$ ( event window -- )
  52     over wheel? [ 2drop ] [ button-up-event ] if ;
  53
  54 : handle-event ( event window -- )
  55     over XAnyEvent-type {
  56         { Expose [ expose-event ] }
  57         { ConfigureNotify [ configure-event ] }
  58         { ButtonPress [ button-down-event$ ] }
  59         { ButtonRelease [ button-up-event$ ] }
  60         { EnterNotify [ enter-event ] }
  61         { LeaveNotify [ leave-event ] }
  62         { MotionNotify [ motion-event ] }
  63         { KeyPress [ key-down-event ] }
  64         { KeyRelease [ key-up-event ] }
  65         { FocusIn [ focus-in-event ] }
  66         { FocusOut [ focus-out-event ] }
  67         { SelectionNotify [ selection-notify-event ] }
  68         { SelectionRequest [ selection-request-event ] }
  69         { ClientMessage [ client-event ] }
  70         [ 3drop ]
  71     } case ;
  72
  73 : configured-loc ( event -- dim )
  74     dup XConfigureEvent-x swap XConfigureEvent-y 2array ;
  75
  76 : configured-dim ( event -- dim )
  77     dup XConfigureEvent-width swap XConfigureEvent-height 2array ;
  78
  79 : mouse-event-loc ( event -- loc )
  80     dup XButtonEvent-x swap XButtonEvent-y 2array ;
  81
  82 : close-box? ( event -- ? )
  83     dup XClientMessageEvent-message_type "WM_PROTOCOLS" x-atom =
  84     swap XClientMessageEvent-data0 "WM_DELETE_WINDOW" x-atom =
  85     and ;