--- ibx/trunk/runtime/IBDialogs.pas	2000/07/31 16:43:00	4
+++ ibx/trunk/runtime/IBDialogs.pas	2011/02/18 16:26:16	5
@@ -28,10 +28,18 @@
 
 unit IBDialogs;
 
+{$Mode Delphi}
+
 interface
 
-uses SysUtils, Windows, Messages, Classes, Graphics, Controls,
-  Forms, StdCtrls, ExtCtrls, DBLogDlg;
+uses
+{$IFDEF LINUX }
+  unix,
+{$ELSE}
+  Windows,
+{$ENDIF}
+  SysUtils, Messages, Classes, Graphics, Controls,
+  Forms, StdCtrls, ExtCtrls, dblogindlg;
 
 function ServerLoginDialog(const AServerName: string;
   var AUserName, APassword: string): Boolean;
@@ -41,9 +49,9 @@ implementation
 function ServerLoginDialog(const AServerName: string;
   var AUserName, APassword: string): Boolean;
 begin
-  with TLoginDialog.Create(nil) do
+  with TLoginDlg.Create(nil) do
   try
-    Caption := 'InterBase Server Login';
+    Caption := 'Firebird Server Login';
     Label3.Caption := 'Server Name: ';
     DatabaseName.Caption := AServerName;
     UserName.Text := AUserName;