paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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 Type
// Notification operations : // Notification operations :
// Observer has changed, is freed, item added to/deleted from list, custom event. // 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} {$INTERFACES CORBA}
{ IFPObserved } { IFPObserved }

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

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

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

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

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

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