Trouble with TBGL_MouseGetLButton ?

[dcromley]

Hello again,

When I run this script and hit the left mouse button every second or so, it hangs up after 5 or so seconds. "Not responding". The "close" box turns red; I'm at 1.9.16.16, Windows 10. Thanks in advance, Dave

    Uses "TBGL"

  Global hWnd, hFont As DWord
  Global s1 As String      
  
  s1 = "ESC to exit"
  hWnd = TBGL_CreateWindowEx( _
    s1, 1024, 742, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX) 
  TBGL_UseVSync 1
  hFont = TBGL_FontHandle("Courier New", 12) 
  TBGL_BuildFont hFont
  TBGL_ShowWindow 
  TBGL_UseLighting %FALSE
  TBGL_UseLightSource %GL_LIGHT0, %TRUE
  TBGL_ResetKeyState() 
  Do While TBGL_IsWindow(hwnd)
    If TBGL_GetWindowKeyState(hWnd, %VK_ESCAPE) Then Stop
    TBGL_ClearFrame
    TBGL_Camera 1,1,5, 0,0,0            
    TBGL_Color 255,255,255                        
    TBGL_UseLighting %FALSE
    TBGL_PrintFont TBGL_MouseGetLButton, -1,1,0
    TBGL_DrawFrame
  Loop

[Petr Schreiber]

Hello, dear mister bug hunter!

This sure looks like an issue. I think it is related to the DO WHILE ... LOOP, because when you refactor the code to this equivalent, the problem is gone:

 Uses "TBGL"
 
Global hWnd, hFont As DWord
Global s1 As String     
 
s1 = "ESC to exit"
hWnd = TBGL_CreateWindowEx( _
  s1, 1024, 742, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX) 
  
TBGL_UseVSync 1

hFont = TBGL_FontHandle("Courier New", 12) 
TBGL_BuildFont hFont
TBGL_ShowWindow

TBGL_UseLighting %FALSE
TBGL_UseLightSource %GL_LIGHT0, %TRUE

TBGL_ResetKeyState() 

While TBGL_IsWindow(hwnd)
  If TBGL_GetWindowKeyState(hWnd, %VK_ESCAPE) Then Stop
  TBGL_ClearFrame
  TBGL_Camera 1,1,5, 0,0,0            
  TBGL_Color 255,255,255                        
  TBGL_UseLighting %FALSE
  TBGL_PrintFont TBGL_MouseGetLButton, -1,1,0
  TBGL_DrawFrame
Wend

Petr

[ErosOlmi]

Ciao

I think the problem is related to the fact that main loop does not give any time to process events.

There are two ways to solve:

1. Add a DoEvents inside the loop
   

   Do While TBGL_IsWindow(hwnd)
     ...
    DoEvents
   Loop
   

2. Use WHILE/WEND instead of DO/LOOP. WHILE/WEND has an automatic DoEvents inside it:
   

   While TBGL_IsWindow(hwnd)
   ...
   Wend
   

I think the best is to use WHILE/WEND in all situations where a unknown loop (a loop where is not known how many cycles will be executed) is needed.
I will add into manual some indications about this behave.


PS: Petr, we posted quite the same time.

[dcromley]

Thanks again. You guys are Johnny-on-the-spot.