# 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
}