summaryrefslogtreecommitdiff
path: root/UConnectionManager.pas
diff options
context:
space:
mode:
authorTomas Bzatek <tbzatek@users.sourceforge.net>2008-10-26 18:37:53 +0100
committerTomas Bzatek <tbzatek@users.sourceforge.net>2008-10-26 18:37:53 +0100
commit1764ca51847cff878acea4b0fa498288d61f3d17 (patch)
tree2224f9a508a233b1676ac13870c821f8d052585f /UConnectionManager.pas
parent88131f070451c7ec4e4913da031436885377cdc5 (diff)
downloadtuxcmd-1764ca51847cff878acea4b0fa498288d61f3d17.tar.xz
Plugin interface: pass cancellation button id in ask_question callback
Diffstat (limited to 'UConnectionManager.pas')
-rw-r--r--UConnectionManager.pas4
1 files changed, 2 insertions, 2 deletions
diff --git a/UConnectionManager.pas b/UConnectionManager.pas
index dc97e20..90db1e7 100644
--- a/UConnectionManager.pas
+++ b/UConnectionManager.pas
@@ -343,7 +343,7 @@ begin
DoConnect;
end;
-procedure vfs_ask_question_callback(const AMessage: PChar; const Choices: PPChar; choice: PInteger; user_data: Pointer); cdecl;
+procedure vfs_ask_question_callback(const AMessage: PChar; const Choices: PPChar; choice: PInteger; cancel_choice: Integer; user_data: Pointer); cdecl;
var ConnMgr: TFConnectionManager;
DialogParent: PGtkWidget;
begin
@@ -356,7 +356,7 @@ begin
end;
HandleVFSAskQuestionCallback(DialogParent, AMessage, Choices, choice);
if ConnMgr is TFConnectionManager then begin
- if choice <> nil then ConnMgr.FSilenceError := choice^ < 0;
+ if choice <> nil then ConnMgr.FSilenceError := (choice^ < 0) or (choice^ = cancel_choice);
end;
end;