paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-23 21:11:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

AROS: fixed inputevent (missing constants, wrong types)

Browse Source 
git-svn-id: trunk@31171 -
This commit is contained in:
marcus 2015-06-28 20:38:10 +00:00
parent af6ffd751f
commit b3abbf066f
1 changed files with 91 additions and 118 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

189
packages/arosunits/src/inputevent.pas
View File

@ -1,6 +1,6 @@
{ {
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 2014 by Free Pascal development team Copyright (c) 2015 by Free Pascal development team
input event structures input event structures
@ -15,72 +15,51 @@
unit inputevent; unit inputevent;
INTERFACE interface
uses exec, utility, timer; uses
exec, utility, timer;
const const
{------ constants -------------------------------------------------} {------ constants -------------------------------------------------}
{ --- InputEvent.ie_Class --- } { --- InputEvent.ie_Class --- }
{ A NOP input event } IECLASS_NULL = $00; // A NOP input event
IECLASS_NULL = $00; IECLASS_RAWKEY = $01; // A raw keycode from the keyboard device
{ A raw keycode from the keyboard device } IECLASS_RAWMOUSE = $02; // The raw mouse report from the game port device
IECLASS_RAWKEY = $01; IECLASS_EVENT = $03; // A private console event
{ The raw mouse report from the game port device } IECLASS_POINTERPOS = $04; // A Pointer Position report
IECLASS_RAWMOUSE = $02; IECLASS_TIMER = $06; // A timer event
{ A private console event } IECLASS_GADGETDOWN = $07; // select button pressed down over a Gadget (address in ie_EventAddress)
IECLASS_EVENT = $03; IECLASS_GADGETUP = $08; // select button released over the same Gadget (address in ie_EventAddress)
{ A Pointer Position report } IECLASS_REQUESTER = $09; // some Requester activity has taken place. See Codes REQCLEAR and REQSET
IECLASS_POINTERPOS = $04; IECLASS_MENULIST = $0A; // this is a Menu Number transmission (Menu number is in ie_Code)
{ A timer event } IECLASS_CLOSEWINDOW = $0B; // User has selected the active Window's Close Gadget
IECLASS_TIMER = $06; IECLASS_SIZEWINDOW = $0C; // this Window has a new size
{ select button pressed down over a Gadget (address in ie_EventAddress) } IECLASS_REFRESHWINDOW = $0D; // the Window pointed to by ie_EventAddress needs to be refreshed
IECLASS_GADGETDOWN = $07; IECLASS_NEWPREFS = $0E; // new preferences are available
{ select button released over the same Gadget (address in ie_EventAddress) } IECLASS_DISKREMOVED = $0F; // the disk has been removed
IECLASS_GADGETUP = $08; IECLASS_DISKINSERTED = $10; // the disk has been inserted
{ some Requester activity has taken place. See Codes REQCLEAR and REQSET } IECLASS_ACTIVEWINDOW = $11; // the window is about to be been made active
IECLASS_REQUESTER = $09; IECLASS_INACTIVEWINDOW = $12; // the window is about to be made inactive
{ this is a Menu Number transmission (Menu number is in ie_Code) } IECLASS_NEWPOINTERPOS = $13; // extended-function pointer position report (V36)
IECLASS_MENULIST = $0A; IECLASS_MENUHELP = $14; // Help key report during Menu session (V36)
{ User has selected the active Window's Close Gadget } IECLASS_CHANGEWINDOW = $15; // the Window has been modified with move, size, zoom, or change (V36)
IECLASS_CLOSEWINDOW = $0B; // AROS
{ this Window has a new size } IECLASS_NEWMOUSE = $16; // NewMouse standard
IECLASS_SIZEWINDOW = $0C;
{ the Window pointed to by ie_EventAddress needs to be refreshed }
IECLASS_REFRESHWINDOW = $0D;
{ new preferences are available }
IECLASS_NEWPREFS = $0E;
{ the disk has been removed }
IECLASS_DISKREMOVED = $0F;
{ the disk has been inserted }
IECLASS_DISKINSERTED = $10;
{ the window is about to be been made active }
IECLASS_ACTIVEWINDOW = $11;
{ the window is about to be made inactive }
IECLASS_INACTIVEWINDOW = $12;
{ extended-function pointer position report (V36) }
IECLASS_NEWPOINTERPOS = $13;
{ Help key report during Menu session (V36) }
IECLASS_MENUHELP = $14;
{ the Window has been modified with move, size, zoom, or change (V36) }
IECLASS_CHANGEWINDOW = $15;
IECLASS_MAX = $16; // the last Class
{ the last class }
IECLASS_MAX = $15;
{ --- InputEvent.ie_SubClass --- } { --- InputEvent.ie_SubClass --- }
{ IECLASS_NEWPOINTERPOS } { IECLASS_NEWPOINTERPOS }
{ like IECLASS_POINTERPOS } { like IECLASS_POINTERPOS }
IESUBCLASS_COMPATIBLE = $00; IESUBCLASS_COMPATIBLE = $00;
{ ie_EventAddress points to struct IEPointerPixel } IESUBCLASS_PIXEL = $01; // ie_EventAddress points to struct IEPointerPixel
IESUBCLASS_PIXEL = $01; IESUBCLASS_TABLET = $02; // ie_EventAddress points to struct IEPointerTablet
{ ie_EventAddress points to struct IEPointerTablet } IESUBCLASS_NEWTABLET = $03; // ie_EventAddress points to struct IENewTablet
IESUBCLASS_TABLET = $02;
{ pointed to by ie_EventAddress for IECLASS_NEWPOINTERPOS, { pointed to by ie_EventAddress for IECLASS_NEWPOINTERPOS,
* and IESUBCLASS_PIXEL. * and IESUBCLASS_PIXEL.
@ -92,15 +71,14 @@ const
* *
* IEQUALIFIER_RELATIVEMOUSE is supported for IESUBCLASS_PIXEL. * IEQUALIFIER_RELATIVEMOUSE is supported for IESUBCLASS_PIXEL.
} }
Type type
PIEPointerPixel = ^TIEPointerPixel;
pIEPointerPixel = ^tIEPointerPixel; TIEPointerPixel = record
tIEPointerPixel = record iepp_Screen: Pointer; {PScreen pointer to an open screen }
iepp_Screen : Pointer; { pointer to an open screen }
iepp_Position: record iepp_Position: record
x,y : smallint; x, y: SmallInt;
end;
end; end;
END;
{ pointed to by ie_EventAddress for IECLASS_NEWPOINTERPOS, { pointed to by ie_EventAddress for IECLASS_NEWPOINTERPOS,
* and IESUBCLASS_TABLET. * and IESUBCLASS_TABLET.
@ -115,16 +93,16 @@ Type
* IEQUALIFIER_RELATIVEMOUSE is not supported for IESUBCLASS_TABLET. * IEQUALIFIER_RELATIVEMOUSE is not supported for IESUBCLASS_TABLET.
} }
pIEPointerTablet = ^tIEPointerTablet; PIEPointerTablet = ^TIEPointerTablet;
tIEPointerTablet = record TIEPointerTablet = record
iept_Range : record { 0 is min, these are max } iept_Range: record // 0 is min, these are max
x,y : Word; x, y: word;
end; end;
iept_Value : record { between 0 AND iept_Range } iept_Value : record // between 0 AND iept_Range
x,y : Word; x, y: word;
end;
iept_Pressure: SmallInt; // -128 to 127 (unused, set to 0)
end; end;
iept_Pressure : Word; { -128 to 127 (unused, set to 0) }
END;
{ The ie_EventAddress of an IECLASS_NEWPOINTERPOS event of subclass { The ie_EventAddress of an IECLASS_NEWPOINTERPOS event of subclass
* IESUBCLASS_NEWTABLET points at an IENewTablet structure. * IESUBCLASS_NEWTABLET points at an IENewTablet structure.
@ -133,8 +111,8 @@ Type
* IEQUALIFIER_RELATIVEMOUSE is not supported for IESUBCLASS_NEWTABLET. * IEQUALIFIER_RELATIVEMOUSE is not supported for IESUBCLASS_NEWTABLET.
} }
pIENewTablet = ^tIENewTablet; PIENewTablet = ^TIENewTablet;
tIENewTablet = record TIENewTablet = record
{ Pointer to a hook you wish to be called back through, in { Pointer to a hook you wish to be called back through, in
* order to handle scaling. You will be provided with the * order to handle scaling. You will be provided with the
* width and height you are expected to scale your tablet * width and height you are expected to scale your tablet
@ -143,7 +121,7 @@ Type
* to that width and height for you, and you will not be * to that width and height for you, and you will not be
* called back. * called back.
} }
ient_CallBack : pHook; ient_CallBack: PHook;
{ Post-scaling coordinates and fractional coordinates. { Post-scaling coordinates and fractional coordinates.
* DO NOT FILL THESE IN AT THE TIME THE EVENT IS WRITTEN! * DO NOT FILL THESE IN AT THE TIME THE EVENT IS WRITTEN!
@ -159,33 +137,33 @@ Type
* information, and should be scaled to fill a UWORD fraction. * information, and should be scaled to fill a UWORD fraction.
} }
ient_ScaledX, ient_ScaledY, ient_ScaledX, ient_ScaledY,
ient_ScaledXFraction, ient_ScaledYFraction : WORD; ient_ScaledXFraction, ient_ScaledYFraction: word;
{ Current tablet coordinates along each axis: } { Current tablet coordinates along each axis: }
ient_TabletX, ient_TabletY : ULONG; ient_TabletX, ient_TabletY: LongWord;
{ Tablet range along each axis. For example, if ient_TabletX { Tablet range along each axis. For example, if ient_TabletX
* can take values 0-999, ient_RangeX should be 1000. * can take values 0-999, ient_RangeX should be 1000.
} }
ient_RangeX, ient_RangeY : ULONG; ient_RangeX, ient_RangeY: LongWord;
{ Pointer to tag-list of additional tablet attributes. { Pointer to tag-list of additional tablet attributes.
* See <intuition/intuition.h> for the tag values. * See <intuition/intuition.h> for the tag values.
} }
ient_TagList : pTagItem; ient_TagList: PTagItem;
end; end;
CONST CONST
{ --- InputEvent.ie_Code --- } { --- InputEvent.ie_Code --- }
{ IECLASS_RAWKEY } // IECLASS_RAWKEY
IECODE_UP_PREFIX = $80; IECODE_UP_PREFIX = $80;
IECODE_KEY_CODE_FIRST = $00; IECODE_KEY_CODE_FIRST = $00;
IECODE_KEY_CODE_LAST = $77; IECODE_KEY_CODE_LAST = $77;
IECODE_COMM_CODE_FIRST = $78; IECODE_COMM_CODE_FIRST = $78;
IECODE_COMM_CODE_LAST = $7F; IECODE_COMM_CODE_LAST = $7F;
{ IECLASS_ANSI } // IECLASS_ANSI
IECODE_C0_FIRST = $00; IECODE_C0_FIRST = $00;
IECODE_C0_LAST = $1F; IECODE_C0_LAST = $1F;
IECODE_ASCII_FIRST = $20; IECODE_ASCII_FIRST = $20;
@ -196,25 +174,20 @@ CONST
IECODE_LATIN1_FIRST = $A0; IECODE_LATIN1_FIRST = $A0;
IECODE_LATIN1_LAST = $FF; IECODE_LATIN1_LAST = $FF;
{ IECLASS_RAWMOUSE } // IECLASS_RAWMOUSE
IECODE_LBUTTON = $68; { also uses IECODE_UP_PREFIX } IECODE_LBUTTON = $68; // also uses IECODE_UP_PREFIX
IECODE_RBUTTON = $69; IECODE_RBUTTON = $69;
IECODE_MBUTTON = $6A; IECODE_MBUTTON = $6A;
IECODE_NOBUTTON = $FF; IECODE_NOBUTTON = $FF;
{ IECLASS_EVENT } // IECLASS_EVENT
IECODE_NEWACTIVE = $01; { active input window changed } IECODE_NEWACTIVE = $01; // active input window changed }
IECODE_NEWSIZE = $02; { resize of window } IECODE_NEWSIZE = $02; // resize of window }
IECODE_REFRESH = $03; { refresh of window } IECODE_REFRESH = $03; // refresh of window }
{ IECLASS_REQUESTER Codes }
{ REQSET is broadcast when the first Requester (not subsequent ones) opens
* in the Window
}
IECODE_REQSET = $01;
{ REQCLEAR is broadcast when the last Requester clears out of the Window }
IECODE_REQCLEAR = $00;
// IECLASS_REQUESTER Codes
IECODE_REQSET = $01; // REQSET is broadcast when the first Requester (not subsequent ones) opens in the Window
IECODE_REQCLEAR = $00; // REQCLEAR is broadcast when the last Requester clears out of the Window
{ --- InputEvent.ie_Qualifier --- } { --- InputEvent.ie_Qualifier --- }
IEQUALIFIER_LSHIFT = $0001; IEQUALIFIER_LSHIFT = $0001;
@ -255,30 +228,30 @@ CONST
{------ InputEvent ------------------------------------------------} {------ InputEvent ------------------------------------------------}
type type
pInputEvent = ^tInputEvent; PInputEvent = ^TInputEvent;
tInputEvent = record TInputEvent = record
ie_NextEvent : pInputEvent; ie_NextEvent: PInputEvent;
ie_Class : BYTE; ie_Class: byte; // IECLASS_*
ie_SubClass : BYTE; ie_SubClass: byte; // IESUBCLASS_*
ie_Code : WORD; ie_Code: word; // IECODE_*
ie_Qualifier : WORD; ie_Qualifier: word; // IEQUALIFIER_*
ie_position : record ie_Position: record
case longint of case LongInt of
0:(ie_xy: record 0:(ie_xy: record
ie_x : smallint; ie_x: SmallInt;
ie_y : smallint; ie_y: SmallInt;
end); end);
1:(ie_addr: APTR); 1:(ie_addr: APTR);
2:(ie_dead: record 2:(ie_dead: record
ie_prev1DownCode : BYTE; ie_prev1DownCode: byte;
ie_prev1DownQual : BYTE; ie_prev1DownQual: byte;
ie_prev2DownCode : BYTE; ie_prev2DownCode: byte;
ie_prev2DownQual : BYTE; ie_prev2DownQual: byte;
end); end);
end; end;
ie_TimeStamp : tTimeVal; ie_TimeStamp: TTimeVal;
end; end;
IMPLEMENTATION implementation
end. end.