paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 09:29:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

AROS: Intuition.library structure fixes

Browse Source 
git-svn-id: trunk@41947 -
This commit is contained in:
marcus 2019-04-27 21:46:47 +00:00
parent 3a964d8556
commit b6c095c771
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/arosunits/src/intuition.pas
View File

@ -1471,7 +1471,7 @@ type
ViewInitX, ViewInitX,
ViewInitY: SmallInt; // View initial offset values ViewInitY: SmallInt; // View initial offset values
EnableCLI: LongBool; // CLI availability switch EnableCLI: WordBool; // CLI availability switch
// printer configurations // printer configurations
PrinterType: Word; // printer type PrinterType: Word; // printer type
@ -1663,11 +1663,11 @@ type
Screens are then maintained in a front to back order using Screen.NextScreen } Screens are then maintained in a front to back order using Screen.NextScreen }
Flags: LongWord; // see definitions below Flags: LongWord; // see definitions below
{$ifdef AROS_BINCOMPAT} {$ifdef AROS_BINCOMPAT}
MouseX,
MouseY: SmallInt; // mouse position relative to View
{$else}
MouseY, MouseY,
MouseX: SmallInt; // mouse position relative to View MouseX: SmallInt; // mouse position relative to View
{$else}
MouseX,
MouseY: SmallInt; // mouse position relative to View
{$endif} {$endif}
Seconds: LongWord; // timestamp of most current input event Seconds: LongWord; // timestamp of most current input event