34 lines
732 B
Tcl
34 lines
732 B
Tcl
|
# 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
|
||
|
|
}
|