OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-08-14 13:30:48 +03:00
Code Activity

0030619: Draw Harness, ViewerTest - add continuous rendering option to vrepaint command

Browse Source 
Aspect_Window::InvalidateContent() - added new virtual method for invalidating window content using platform-specific API.

TKDraw, tkLoop() on Window platform has been changed so that to prevent
continuous input window events blocking terminal input
(e.g. in case if processing events is not fast enough or
if another continuously sends new events).

TKViewerTest, on X11 platform has been fixed a message processing
so that to avoid messages being not processed.
Added aggregation of Exposer and ConfigureNotify events.
Fixed aggregation MotionNotify events.
This commit is contained in:
kgv
2019-03-28 18:36:54 +03:00
committed by apn
parent a738b534ca
commit 8693dfd0e8
9 changed files with 573 additions and 245 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
src/Draw/Draw_Window.cxx
View File

@@ -2345,23 +2345,24 @@ static DWORD WINAPI tkLoop(VOID)
Standard_Boolean toLoop = Standard_True;
while (toLoop)
{
while(Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT));
// The natural way is first flushing events, already put into queue, and then processing custom code in-between.
// Unfortunately, Tcl has no API returning the number of queued events like XPending(), and only empty state can be checked.
// Since events can be continuously fed from parallel threads, Tcl_DoOneEvent might never return empty state at all.
const bool isTclEventQueueEmpty = Tcl_DoOneEvent(TCL_ALL_EVENTS | TCL_DONT_WAIT) == 0;
if (console_semaphore == HAS_CONSOLE_COMMAND)
{
TCollection_AsciiString aCmdUtf8 (console_command);
if (Draw_Interprete (aCmdUtf8.ToCString()))
const TCollection_AsciiString aCmdUtf8 (console_command);
const bool wasInterpreted = Draw_Interprete (aCmdUtf8.ToCString());
if (Draw_IsConsoleSubsystem)
{
if (Draw_IsConsoleSubsystem) Prompt (interp, 0);
}
else
{
if (Draw_IsConsoleSubsystem) Prompt (interp, 1);
Prompt (interp, wasInterpreted ? 0 : 1);
}
console_semaphore = WAIT_CONSOLE_COMMAND;
}
else
else if (isTclEventQueueEmpty)
{
Sleep(100);
// release CPU while polling
Sleep (1);
}
#ifdef _TK
// We should not exit until the Main Tk window is closed