Password callback support from all VFS modulesv0.6.54

Cleanup, remove unused dialogs

1 files changed, 3 insertions, 3 deletions

diff --git a/UConnectionManager.pas b/UConnectionManager.pas
index 90db1e7..86f3bd7 100644
--- a/UConnectionManager.pas
+++ b/UConnectionManager.pas
@@ -360,7 +360,7 @@ begin
   end;
 end;
 
-function vfs_ask_password_callback(const AMessage: PChar; const default_user: PChar; const default_domain: PChar; flags: TVFSAskPasswordFlags;
+function vfs_ask_password_callback(const AMessage: PChar; const default_user: PChar; const default_domain: PChar; const default_password: PChar; flags: TVFSAskPasswordFlags;
                                    username, password: PPChar; anonymous: PInteger; domain: PPChar; password_save: PVFSPasswordSave;
                                    user_data: Pointer): LongBool; cdecl;
 var ConnMgr: TFConnectionManager;
@@ -387,7 +387,7 @@ begin
     if (password_save <> nil) { and ConfGnomeKeyringEnabled} then password_save^ := VFS_PASSWORD_SAVE_PERMANENTLY;
   end else begin
     //  Show password dialog and continue in loop
-    Result := HandleVFSAskPasswordCallback(DialogParent, AMessage, default_user, default_domain, flags, username, password, anonymous, domain, password_save);
+    Result := HandleVFSAskPasswordCallback(DialogParent, AMessage, default_user, default_domain, default_password, flags, username, password, anonymous, domain, password_save);
     if ConnMgr is TFConnectionManager then begin
       ConnMgr.FSilenceError := Result = False;
       //  Save password back to Connection Manager
@@ -452,7 +452,7 @@ begin
   Application.ProcessMessages;
 
   FVFSAskPasswordTry := 0;
-  b := Engine.VFSOpenURI(UTF8ToStr(FActiveConnInfo.GetURI(False)), @vfs_ask_question_callback, @vfs_ask_password_callback, Self);
+  b := Engine.VFSOpenURI(UTF8ToStr(FActiveConnInfo.GetURI(False)), @vfs_ask_question_callback, @vfs_ask_password_callback, nil, Self);
 
   AFRemoteWait.Free;
   AFRemoteWait := nil;