Browse Source

* Correct typo in class name TLocalMenuOutlieViewer -> TLocalMenuOutlineViewer

Michaël Van Canneyt 6 months ago
parent
commit
cc0012f3dd
1 changed files with 5 additions and 5 deletions
  1. 5 5
      packages/ide/wviews.pas

+ 5 - 5
packages/ide/wviews.pas

@@ -104,7 +104,7 @@ type
       LastLocalCmd: word;
     end;
 
-    TLocalMenuOutlieViewer = object(TOutlineViewer)
+    TLocalMenuOutlineViewer = object(TOutlineViewer)
       procedure   HandleEvent(var Event: TEvent); virtual;
       procedure   LocalMenu(P: TPoint); virtual;
       function    GetLocalMenu: PMenu; virtual;
@@ -1569,7 +1569,7 @@ begin
   inherited HandleEvent(Event);
 end;
 
-procedure TLocalMenuOutlieViewer.LocalMenu(P: TPoint);
+procedure TLocalMenuOutlineViewer.LocalMenu(P: TPoint);
 var M: PMenu;
     MV: PAdvancedMenuPopUp;
     R: TRect;
@@ -1590,18 +1590,18 @@ begin
     Message(GetCommandTarget,evCommand,Re,@Self);
 end;
 
-function TLocalMenuOutlieViewer.GetLocalMenu: PMenu;
+function TLocalMenuOutlineViewer.GetLocalMenu: PMenu;
 begin
   GetLocalMenu:=nil;
 {  Abstract;}
 end;
 
-function TLocalMenuOutlieViewer.GetCommandTarget: PView;
+function TLocalMenuOutlineViewer.GetCommandTarget: PView;
 begin
   GetCommandTarget:=@Self;
 end;
 
-procedure TLocalMenuOutlieViewer.HandleEvent(var Event: TEvent);
+procedure TLocalMenuOutlineViewer.HandleEvent(var Event: TEvent);
 var DontClear: boolean;
     P: TPoint;
 begin