freetype1/pascal/test/gevents.pas

   1 (*******************************************************************
   2  *
   3  *  gevents   test programs events definition                 1.1
   4  *
   5  *  This file defines the events used by the FreeType test programs
   6  *  It is _not_ included by 'gmain.c'. This file is also used by the
   7  *  drivers to translate their own events in GEvents.
   8  *
   9  *  Not a very good design, but we're not rewriting X..
  10  *
  11  *  Copyright 1996 David Turner, Robert Wilhelm and Werner Lemberg.
  12  *
  13  *  This file is part of the FreeType project, and may only be used
  14  *  modified and distributed under the terms of the FreeType project
  15  *  license, LICENSE.TXT. By continuing to use, modify or distribute
  16  *  this file you indicate that you have read the license and
  17  *  understand and accept it fully.
  18  *
  19  ******************************************************************)
  20
  21 Unit GEvents;
  22
  23 interface
  24
  25 type
  26   GEvent = (
  27              event_None,
  28              event_Quit,          (* Quit program *)
  29
  30              event_Keyboard,      (* unknown keystroke *)
  31
  32              event_Change_Glyph,
  33              event_Rotate_Glyph,
  34              event_Scale_Glyph,
  35
  36              event_Change_ScanType,
  37              event_Change_Instructions
  38            );
  39
  40 implementation
  41
  42 end.