MacOS

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3102 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 11 insertions, 3 deletions

diff --git a/byterun/rotatecursor.c b/byterun/rotatecursor.c
index ddb06113b..5a76667ba 100644
--- a/byterun/rotatecursor.c
+++ b/byterun/rotatecursor.c
@@ -15,7 +15,7 @@
 /* rotatecursor library, written by <Damien.Doligez@inria.fr>
    This file is in the public domain.
 
-   version 1.12.2
+   version 1.13
    
    See rotatecursor.h for documentation.
 */
@@ -100,12 +100,20 @@ void rotatecursor_options (int volatile *p1, int period, pascal void (*f) (long)
   rotatecursor_action = (f == NULL) ? &RotateCursor : f;
 }
 
-int rotatecursor_ticker (void)
+int rotatecursor_rearm (void)
 {
   if (!rotatecursor_inited) rotatecursor_init ();
-
+  
   rotatecursor_flag = 0;
   PrimeTime ((QElemPtr) &rotatecursor_tmtask, rotatecursor_period);
+  return 0;
+}
+
+int rotatecursor_ticker (void)
+{
+  if (!rotatecursor_inited) rotatecursor_init ();
+
+  rotatecursor_rearm ();
   (*rotatecursor_action) (32);
   return 0;
 }