--- oup/current/Main.pas	2007/06/19 22:06:10	227
+++ oup/current/Main.pas	2007/11/25 14:24:53	247
@@ -217,7 +217,7 @@ begin
       begin
         ShowMessage('Load OPF-File: ' + ParamStr(2));
       end
-      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') then
+      else if (strings.Strings[0] = 'oldb') or (strings.Strings[0] = 'dat') or (strings.Strings[0] = 'oni') then
       begin
         CreateConnection(strings.Strings[1]);
       end;
@@ -253,6 +253,9 @@ begin
 
   ConManager.OnCoonnectionListChanged := UpdateConLists;
 
+  Application.HintPause := 250;
+  Application.HintHidePause := 5000;
+
   if FileExists(ExtractFilepath(Application.EXEname) + '\oniunpacker.ini') then
   begin
     AssignFile(AppSettingsFile, ExtractFilepath(Application.EXEname) +
@@ -277,7 +280,7 @@ begin
   begin
     ShowMessage('Load OPF-File: ' + ParamStr(2));
   end
-  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') then
+  else if (MidStr(ParamStr(1), 1, 4) = 'oldb') or (MidStr(ParamStr(1), 1, 3) = 'dat') or (MidStr(ParamStr(1), 1, 3) = 'oni') then
   begin
     CreateConnection(ParamStr(2));
   end;
@@ -516,7 +519,7 @@ var
   i: Integer;
 begin
   opend.InitialDir := AppSettings.DatPath;
-  opend.Filter     := 'Compatible level files|*.dat;*.oldb|Oni level (*.dat)|*.dat|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
+  opend.Filter     := 'Compatible level files|*.dat;*.oni;*.oldb|Oni level (*.dat)|*.dat|OniSplit Archive (*.oni)|*.oni|OUP level database (*.oldb)|*.oldb|Any (*.*)|*';
   if typedb then
     opend.FilterIndex := 3
   else
@@ -812,12 +815,12 @@ end;
 
 function TForm_Main.open_child(window_context: String; Connection: Integer): TForm_BaseTemplate;
 begin
-  open_child(window_context, Connection, -1);
+  Result := open_child(window_context, Connection, -1);
 end;
 
 function TForm_Main.open_child(window_context: String): TForm_BaseTemplate;
 begin
-  open_child(window_context, -1, -1);
+  Result := open_child(window_context, -1, -1);
 end;
 
 end.