DesktopDepth with OpenScreen

[Danilo]

Changed.

Did you change more screen stuff for PB5.20 beta 6?

Now DesktopDepth() returns 32 in my example:

Code: Select all

EnableExplicit

ExamineDesktops()
Define.i dw = DesktopWidth(0)
Define.i dh = DesktopHeight(0)
Define.i dd = DesktopDepth(0)

Debug dw
Debug dh
Debug dd

;dd = 32

If InitSprite()=0 Or InitKeyboard()=0 Or OpenScreen(dw, dh, dd, "TestScreen")=0
  MessageRequester("ERROR","Failed To 'InitSprite/InitKeyboard/OpenScreen'")
  End
EndIf

Define start = ElapsedMilliseconds()

Repeat
   ClearScreen(RGB(255,255,0))
      
   FlipBuffers()
   ExamineKeyboard()

   If KeyboardPushed(#PB_Key_Escape) : End : EndIf
   
   If ElapsedMilliseconds() - start > 10000
       End
   EndIf
   
ForEver

...but I can't end the screen with Escape key anymore (worked before).

[Fred]

Should be fixed for the next beta.