summaryrefslogtreecommitdiff
path: root/UMain.pas
diff options
context:
space:
mode:
Diffstat (limited to 'UMain.pas')
-rw-r--r--UMain.pas5
1 files changed, 4 insertions, 1 deletions
diff --git a/UMain.pas b/UMain.pas
index 90f61b5..e214947 100644
--- a/UMain.pas
+++ b/UMain.pas
@@ -1741,11 +1741,14 @@ var ListView: TGTKListView;
OpenDirThread.AHighlightItem := HiliString2;
end;
DebugMsg(['(II) TFMain.ChangingDir: begin thread']);
- OpenDirThread.Resume;
tt := Now;
b := False;
FRemoteWait := TFRemoteWait.Create(Application);
FRemoteWait.ParentForm := FMain;
+
+ // WARNING: For an unknown reason, there's a race condition in Kylix (FPC is fine).
+ // The thread must be started *after* the FRemoteWait is created.
+ OpenDirThread.Resume;
repeat
Sleep(ConstInternalProgressTimer);
// DebugMsg([' (II) TFMain.ChangingDir: sleep.']);