paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 20:11:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ minor Amiga/MorphOS FV tweaks:

Browse Source 
* GiveUpTimeSlice() now Sleep()s for shorter time
  * Amiga "all files" are "*" and not "*.*", this fixes file dialogs somewhat

git-svn-id: trunk@11970 -
This commit is contained in:
Károly Balogh 2008-10-24 16:56:59 +00:00
parent f19e69e7e8
commit d135a2d9ea
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fv/src/drivers.pas
View File

@ -828,7 +828,7 @@ end;
{$IFDEF OS_AMIGA} {$IFDEF OS_AMIGA}
begin begin
{ AmigaOS Delay() wait's argument in 1/50 seconds } { AmigaOS Delay() wait's argument in 1/50 seconds }
DOSLib.Delay (5); DOSLib.Delay(2);
end; end;
{$ENDIF OS_AMIGA} {$ENDIF OS_AMIGA}

6
packages/fv/src/stddlg.pas
View File

@ -78,7 +78,11 @@ const
{$ifdef Unix} {$ifdef Unix}
AllFiles = '*'; AllFiles = '*';
{$else} {$else}
AllFiles = '*.*'; {$ifdef OS_AMIGA}
AllFiles = '*';
{$else}
AllFiles = '*.*';
{$endif}
{$endif} {$endif}
type type