1 files changed, 5 insertions, 5 deletions

diff --git a/UMain.pas b/UMain.pas
index 56198fc..26d0781 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -250,7 +250,7 @@ type
     LeftPanelEngine, RightPanelEngine : TPanelEngine;
     ColumnSortIDs: array[1..ConstNumPanelColumns] of integer;
     LastClick: TDateTime;
-    procedure EditViewFileInternal(ParentWindow: TGTKControl; Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
+    procedure EditViewFileInternal(Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
   end;
 
 var
@@ -3459,8 +3459,8 @@ begin
       ANewDir.Free;
     end;
   end else AFile := IncludeTrailingPathDelimiter(Engine.Path) + PDataItem(AListView.Selected.Data)^.FName;
-  
-  EditViewFileInternal(Self, AFile, Engine, View, NewFile);
+
+  EditViewFileInternal(AFile, Engine, View, NewFile);
 
   finally
     Application.ProcessMessages;
@@ -3468,7 +3468,7 @@ begin
   end;
 end;
 
-procedure TFMain.EditViewFileInternal(ParentWindow: TGTKControl; Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
+procedure TFMain.EditViewFileInternal(Filename: string; Engine: TPanelEngine; View, NewFile: boolean);
 var s: string;
     Stat: PDataItem;
     Error, x: integer;
@@ -3495,7 +3495,7 @@ begin
         Application.MessageBox(Format('Cannot load file ''%s''. Please check the permissions.', [ANSIToUTF8(AFile)]), [mbOK], mbError);
         AViewer.Free;
       end else AViewer.Resume; *)
-      AViewer := TFViewer.Create(ParentWindow);
+      AViewer := TFViewer.Create(Self);
       if not AViewer.LoadFile(Filename) then begin
         Application.MessageBox(Format(LANGCannotLoadFile, [Filename]), [mbOK], mbError, mbNone, mbOK);
         AViewer.Free;