examples/nci/Xlibconstants.pir

   1 # Copyright (C) 2008, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 TITLE
   5
   6 xlibconstants.pir - Test NCI with libX11
   7
   8 =head1 SYNOPSIS
   9
  10 Constants for xlib.pir
  11
  12 =cut
  13
  14 # event masks
  15
  16 .const int KeyPressMask = 1
  17 .const int KeyReleaseMask = 2
  18 .const int ButtonPressMask = 4
  19 .const int ButtonReleaseMask = 8
  20 .const int EnterWindowMask = 16
  21 .const int LeaveWindowMask = 32
  22 .const int PointerMotionMask = 64
  23 .const int StructureNotifyMask = 131072
  24 .const int ExposureMask = 32768
  25
  26 # event types
  27 .const int KeyPress = 2
  28 .const int KeyRelease = 3
  29 .const int ButtonPress = 4
  30 .const int ButtonRelease = 5
  31 .const int MotionNotify = 6
  32 .const int Expose = 12
  33 .const int DestroyNotify = 17
  34 .const int ClientMessage = 33
  35
  36 #-----------------------------------------------------------------------
  37 # Local Variables:
  38 #   mode: pir
  39 #   fill-column: 100
  40 # End:
  41 # vim: expandtab shiftwidth=4 ft=pir: