paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 22:48:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

morphunits: removed things which belong to internal input.device API accidentally exposed in the public headers

Browse Source 
git-svn-id: trunk@32711 -
This commit is contained in:
Károly Balogh 2015-12-25 20:47:38 +00:00
parent 6bbc078ef8
commit c7ea73dccf
1 changed files with 2 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
packages/morphunits/src/input.pas
View File

@ -14,7 +14,6 @@
**********************************************************************}
{$MODE FPC}
{$PACKRECORDS 2}
unit input;
{
@ -28,8 +27,8 @@ unit input;
interface
uses
exec, utility;
uses
exec;
const
IND_ADDHANDLER = CMD_NONSTD + 0;
@ -41,34 +40,6 @@ const
IND_SETMTYPE = CMD_NONSTD + 6;
IND_SETMTRIG = CMD_NONSTD + 7;
type
TInputDeviceData = record
Device : PChar;
unit_ : ULONG;
flags : ULONG;
end;
{
* GetInputEventAttr(),SetInputEventAttr() attributes of functons that
* doesn't seem to exist.. !?
*
* This may be a mistake in the comment in the MorphOS SDK. Since
* InputEvents are BOOPSI objects in MorphOS, it's possible that you
* can use GetAttr/SetAttrs in theory..?
* This is pending for answer by the MorphOS Team. (KB)
}
const
INPUTEVENTATTR_TagBase = TAG_USER + $8000000;
INPUTEVENTATTR_NEXTEVENT = (INPUTEVENTATTR_TagBase + 0);
INPUTEVENTATTR_CLASS = (INPUTEVENTATTR_TagBase + 1);
INPUTEVENTATTR_SUBCLASS = (INPUTEVENTATTR_TagBase + 2);
INPUTEVENTATTR_CODE = (INPUTEVENTATTR_TagBase + 3);
INPUTEVENTATTR_QUALIFIER = (INPUTEVENTATTR_TagBase + 4);
INPUTEVENTATTR_X = (INPUTEVENTATTR_TagBase + 5);
INPUTEVENTATTR_Y = (INPUTEVENTATTR_TagBase + 6);
INPUTEVENTATTR_ADDR = (INPUTEVENTATTR_TagBase + 7);
INPUTEVENTATTR_DOWNKEYS = (INPUTEVENTATTR_TagBase + 8);
INPUTEVENTATTR_TIMESTAMP = (INPUTEVENTATTR_TagBase + 9);
var
InputBase: pDevice;