diff options
| author | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-09-23 14:33:21 +0200 |
|---|---|---|
| committer | Tomas Bzatek <tbzatek@users.sourceforge.net> | 2009-09-23 14:33:21 +0200 |
| commit | b19a0e9f2d4e23734c9f21ec0cb30df6940d7221 (patch) | |
| tree | 1bcb356826d7c4f78af0d586add31cfdd949c046 | |
| parent | 3c11c85e19dcfe73c7d6ed6e8eb4d5f3a48e89e2 (diff) | |
| download | tuxcmd-b19a0e9f2d4e23734c9f21ec0cb30df6940d7221.tar.xz | |
Fix pressing Enter key in Quick Connect dialog leading to invalid VFS connectionv0.6.63
| -rw-r--r-- | UConfig.pas | 4 | ||||
| -rw-r--r-- | UQuickConnect.pas | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/UConfig.pas b/UConfig.pas index 8bfa398..6990e33 100644 --- a/UConfig.pas +++ b/UConfig.pas @@ -25,8 +25,8 @@ uses Classes, ULocale; resourcestring ConstAppTitle = 'Tux Commander'; - ConstAboutVersion = '0.6.62-dev'; - ConstAboutBuildDate = '2009-03-08'; + ConstAboutVersion = '0.6.63-dev'; + ConstAboutBuildDate = '2009-09-23'; {$IFDEF FPC} {$INCLUDE fpcver.inc} diff --git a/UQuickConnect.pas b/UQuickConnect.pas index d92e335..aaaa0bf 100644 --- a/UQuickConnect.pas +++ b/UQuickConnect.pas @@ -183,7 +183,7 @@ procedure TFQuickConnect.FormKeyDown(Sender: TObject; Key: Word; Shift: TShiftSt begin case Key of GDK_RETURN, GDK_KP_ENTER: if StopButton.Visible then StopButtonClick(Sender) - else DoConnect; + else if ConnectButton.Enabled then DoConnect; GDK_ESCAPE: begin Accept := False; if StopButton.Visible then StopButtonClick(Sender) |