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. # 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 {} { proc headless_exit {} {
after time 1 "exit 0" after time 1 "exit 0"
@ -38,19 +39,24 @@ proc headless_exit {} {
proc headless_show_gui {} { proc headless_show_gui {} {
global renderer global renderer
global throttle global throttle
global boot_env_renderer_type global headless_renderer_type
if {$boot_env_renderer_type != 0} { global headless_renderer_done
after time 1 "set renderer $boot_env_renderer_type" 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 throttle on
set headless_renderer_done 1
} else { } else {
puts stderr "error: Requested show gui but env.RENDERER is missing." puts stderr "error: Requested show gui but env.RENDERER is missing."
exit 1 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)] != "")} { 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")} { if {[info exists ::env(HEADLESS)] && ([string trim $::env(HEADLESS)] != "on")} {