mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 14:10:17 +00:00
These tests cover all the commands that generally interact with GLUT. The ensure that these functions can be used at the very beginning of a program with no issues. Additionally they verify the behavior of these functions in the presence of `$SCREENHIDE`, and also `_ScreenHide`.
30 lines
498 B
QBasic
30 lines
498 B
QBasic
$CONSOLE
|
|
_Dest _Console
|
|
|
|
_ScreenHide
|
|
Print _DesktopHeight > 0
|
|
Print _DesktopWidth > 0
|
|
_Icon
|
|
Print "Got Past Icon!"
|
|
_MouseHide
|
|
Print "Got Past MouseHide!"
|
|
_MouseShow
|
|
Print "Got Past MouseShow!"
|
|
Print _ScreenExists
|
|
Print _ScreenIcon <> 0
|
|
Print _ScreenX >= 0
|
|
Print _ScreenY >= 0
|
|
_Title "foobar"
|
|
Print "Title: "; _Title$
|
|
|
|
$IF WIN THEN
|
|
Print _WindowHandle <> 0
|
|
$ELSE
|
|
Print _WindowHandle = 0
|
|
$END IF
|
|
|
|
Print _WindowHasFocus <= 0 ' This can be a bit random
|
|
|
|
_ScreenShow
|
|
Print "Got past ScreenShow!"
|
|
System
|