43 lines
1.2 KiB
ObjectPascal
43 lines
1.2 KiB
ObjectPascal
(*******************************************************************
|
|
*
|
|
* gevents test programs events definition 1.1
|
|
*
|
|
* This file defines the events used by the FreeType test programs
|
|
* It is _not_ included by 'gmain.c'. This file is also used by the
|
|
* drivers to translate their own events in GEvents.
|
|
*
|
|
* Not a very good design, but we're not rewriting X..
|
|
*
|
|
* Copyright 1996 David Turner, Robert Wilhelm and Werner Lemberg.
|
|
*
|
|
* This file is part of the FreeType project, and may only be used
|
|
* modified and distributed under the terms of the FreeType project
|
|
* license, LICENSE.TXT. By continuing to use, modify or distribute
|
|
* this file you indicate that you have read the license and
|
|
* understand and accept it fully.
|
|
*
|
|
******************************************************************)
|
|
|
|
Unit GEvents;
|
|
|
|
interface
|
|
|
|
type
|
|
GEvent = (
|
|
event_None,
|
|
event_Quit, (* Quit program *)
|
|
|
|
event_Keyboard, (* unknown keystroke *)
|
|
|
|
event_Change_Glyph,
|
|
event_Rotate_Glyph,
|
|
event_Scale_Glyph,
|
|
|
|
event_Change_ScanType,
|
|
event_Change_Instructions
|
|
);
|
|
|
|
implementation
|
|
|
|
end.
|