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

* Changed ooChanged to ooChange, to be more consistent with tense in other values

Browse Source 
git-svn-id: trunk@22262 -
This commit is contained in:
michael 2012-08-28 12:32:15 +00:00
parent 8d9f8e19c3
commit 441e059f32
4 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/objpas/classes/classesh.inc
View File

@ -168,7 +168,7 @@ Const
Type
// Notification operations :
// Observer has changed, is freed, item added to/deleted from list, custom event.
TFPObservedOperation = (ooChanged,ooFree,ooAddItem,ooDeleteItem,ooCustom);
TFPObservedOperation = (ooChange,ooFree,ooAddItem,ooDeleteItem,ooCustom);
{$INTERFACES CORBA}
{ IFPObserved }

4
rtl/objpas/classes/collect.inc
View File

@ -288,7 +288,7 @@ end;
procedure TCollection.Update(Item: TCollectionItem);
begin
FPONotifyObservers(Self,ooChanged,Pointer(Item));
FPONotifyObservers(Self,ooChange,Pointer(Item));
end;
@ -419,7 +419,7 @@ procedure TCollection.Exchange(Const Index1, index2: integer);
begin
FItems.Exchange(Index1,Index2);
FPONotifyObservers(Self,ooChanged,Nil);
FPONotifyObservers(Self,ooChange,Nil);
end;

2
rtl/objpas/classes/lists.inc
View File

@ -750,7 +750,7 @@ end;
procedure TList.Exchange(Index1, Index2: Integer);
begin
FList.Exchange(Index1, Index2);
FPONotifyObservers(Self,ooChanged,Nil);
FPONotifyObservers(Self,ooChange,Nil);
end;
function TList.Expand: TList;

4
rtl/objpas/classes/stringl.inc
View File

@ -551,7 +551,7 @@ end;
Procedure TStrings.SetUpdateState(Updating: Boolean);
begin
FPONotifyObservers(Self,ooChanged,Nil);
FPONotifyObservers(Self,ooChange,Nil);
end;
@ -1034,7 +1034,7 @@ begin
begin
If Assigned(FOnChange) then
FOnchange(Self);
FPONotifyObservers(Self,ooChanged,Nil);
FPONotifyObservers(Self,ooChange,Nil);
end;
end;