arch-msx/msxbuild
2
0
Fork 0
Code Issues Pull requests 3 Actions Activity

Added extra gui msg after reboot of machine.
All checks were successful
Run test asserts / Test-Asserts (push) Successful in -10s
Details

Browse source
This commit is contained in:
Willem Cazander 2024-06-30 16:23:47 +02:00
parent 7734175826
commit 6fd9833967
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lib/openmsx/share/scripts/headless.tcl
View file

@ -28,7 +28,8 @@
# Sets CPU speed to relative from normal but only when throttle is on.
#
set boot_env_renderer_type 0
set headless_renderer_type 0
set headless_renderer_done 0
proc headless_exit {} {
after time 1 "exit 0"
@ -38,19 +39,24 @@ proc headless_exit {} {
proc headless_show_gui {} {
global renderer
global throttle
global boot_env_renderer_type
if {$boot_env_renderer_type != 0} {
after time 1 "set renderer $boot_env_renderer_type"
global headless_renderer_type
global headless_renderer_done
if {$headless_renderer_done != 0} {
return "Requested GUI already showing"
}
if {$headless_renderer_type != 0} {
after time 1 "set renderer $headless_renderer_type"
set throttle on
set headless_renderer_done 1
} else {
puts stderr "error: Requested show gui but env.RENDERER is missing."
exit 1
}
return "Requested GUI with $boot_env_renderer_type"
return "Requested GUI with $headless_renderer_type"
}
if {[info exists ::env(RENDERER)] && ([string trim $::env(RENDERER)] != "")} {
set boot_env_renderer_type [string trim $::env(RENDERER)]
set headless_renderer_type [string trim $::env(RENDERER)]
}
if {[info exists ::env(HEADLESS)] && ([string trim $::env(HEADLESS)] != "on")} {