From 30ea15c05a67dd6d0b3bd5e4500b48bc6b326159 Mon Sep 17 00:00:00 2001 From: marco Date: Tue, 22 Jul 2008 16:55:53 +0000 Subject: * (bug 6173) invalid drive when browsing over directories that start with a dot in Linux with the IDE's opendialog. Reaason: Findfirst considers starting with a . "hidden". git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11435 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fv/src/stddlg.pas | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'packages/fv') diff --git a/packages/fv/src/stddlg.pas b/packages/fv/src/stddlg.pas index 4b584e4e62..6891160015 100644 --- a/packages/fv/src/stddlg.pas +++ b/packages/fv/src/stddlg.pas @@ -664,7 +664,10 @@ begin { do not change '/' into '' } if (Length(ExpPath)>1) and (ExpPath[Length(ExpPath)] = DirSeparator) then Dec(ExpPath[0]); - FindFirst(ExpPath, Directory, SR); + // This function is called on current directories. + // If the current dir starts with a . on Linux it is is hidden. + // That's why we allow hidden dirs below (bug 6173) + FindFirst(ExpPath, Directory+hidden, SR); PathValid := (DosError = 0) and (SR.Attr and Directory <> 0); {$ifdef NetDrive} if (DosError<>0) and (length(ExpPath)>2) and -- cgit v1.2.1