+ added a quick'n'dirty Sysutils.Sleep() implementation

git-svn-id: trunk@11965 -

rtl/morphos/sysutils.pp

@@ -24,6 +24,7 @@ interface
 { force ansistrings }
 {$H+}
 
+{$DEFINE HAS_SLEEP}
 { Include platform independent interface part }
 {$i sysutilh.inc}
 
@@ -647,6 +648,12 @@ begin
   ExecuteProcess := ExecuteProcess (Path, CommandLine);
 end;
 
+procedure Sleep (Milliseconds: cardinal);
+begin
+ // Amiga/MorphOS dos.library Delay() has precision of 1/50 seconds
+ Delay(Milliseconds div 20);
+end;
+
 
 {****************************************************************************
                               Initialization code