paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 15:31:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

r322 | jonas | 2010-02-21 12:04:33 +0100 (Sun, 21 Feb 2010) | 3 lines

Browse Source 
* TERecPtr again points to TERec instead of to an opaque data type (error
    noted by Scott Knapp)

git-svn-id: trunk@14932 -
This commit is contained in:
Jonas Maebe 2010-02-21 11:05:56 +00:00
parent 30207d73ea
commit c235307643
1 changed files with 1 additions and 2 deletions

3
packages/univint/src/TextEdit.pas
View File

@ -194,7 +194,7 @@ uses MacTypes,QuickdrawTypes,MixedMode;
{$ALIGN MAC68K}
type
TERecPtr = ^SInt32; { an opaque type }
TERecPtr = ^TERec;
TEPtr = TERecPtr;
TEHandle = ^TEPtr;
HighHookProcPtr = procedure( const (*var*) r: Rect; pTE: TEPtr );
@ -356,7 +356,6 @@ type
<= charPosition D0.W
}
type
HighHookUPP = HighHookProcPtr;
EOLHookUPP = EOLHookProcPtr;
CaretHookUPP = CaretHookProcPtr;