msxbuild/lib/openmsx/share/scripts/boot_exec.tcl

34 lines
732 B
Tcl
Raw Normal View History

# boot_exec -- Helper command to autoexec.bat boot scripts.
#
# Adds the following command to openMSX;
#
# 'boot_exec_exit'
# Requested delayed shutdown of openMSX.
# (as workaround for segfault when screenshot is not ready yet)
#
# 'boot_exec_color_dark'
# Sets the VDP colors to dark color tones.
#
# 'boot_exec_config_info'
# Displays machine and openMSX version on one line.
#
proc boot_exec_exit {} {
after time 1 "exit 0"
return "Shutdown openMSX"
}
proc boot_exec_color_dark {} {
setcolor 4 000
setcolor 15 777
return "Boot color dark"
}
proc boot_exec_config_info {} {
set result "Run machine "
append result [machine_info config_name]
append result " on "
append result [openmsx_info version]
return $result
}