mib18: #163175# Implement DoEvents empty

df1e6343 · Andreas Bregas · e2b85f96 · df1e6343
Kaydet (Commit) df1e6343 authored Agu 06, 2010 tarafından Andreas Bregas
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 5 deletions

methods1.cxx basic/source/runtime/methods1.cxx +7 -5

No files found.
--- a/basic/source/runtime/methods1.cxx
+++ b/basic/source/runtime/methods1.cxx
@@ -528,11 +528,13 @@ RTLFUNC(DoEvents)
    (void)pBasic;
    (void)bWrite;
    (void)rPar;
-    Timer aTimer;
+    // Dummy implementation as the following code leads
-    aTimer.SetTimeout( 1 );
+    // to performance problems for unknown reasons
-    aTimer.Start();
+    //Timer aTimer;
-    while ( aTimer.IsActive() )
+    //aTimer.SetTimeout( 1 );
-        Application::Yield();
+    //aTimer.Start();
+    //while ( aTimer.IsActive() )
+    //  Application::Reschedule();
 }
 RTLFUNC(GetGUIVersion)