diff options
| author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-07-22 16:55:53 +0000 |
|---|---|---|
| committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-07-22 16:55:53 +0000 |
| commit | 30ea15c05a67dd6d0b3bd5e4500b48bc6b326159 (patch) | |
| tree | 3254d7f3745eb7ffeabde7b6ba1f6efc51cb75d1 /packages/fv | |
| parent | a3f670666579735cb218a442be76bf32558fc91f (diff) | |
| download | fpc-30ea15c05a67dd6d0b3bd5e4500b48bc6b326159.tar.gz | |
* (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
Diffstat (limited to 'packages/fv')
| -rw-r--r-- | packages/fv/src/stddlg.pas | 5 |
1 files changed, 4 insertions, 1 deletions
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 |