/usr/share/openmsx/scripts/_quitmenu.tcl is in openmsx-data 0.10.0-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 | namespace eval quitmenu {
proc quit_menu {} {
set items [list "No" "Yes"]
set menu_def \
{ execute quitmenu::quit_menu_exec
font-size 8
border-size 2
width 120
xpos 100
ypos 100
header { text "Really exit openMSX?"
font-size 10
post-spacing 6 }}
osd_menu::do_menu_open [osd_menu::prepare_menu_list $items [llength $items] $menu_def]
activate_input_layer quit_menu
}
proc quit_menu_exec {item} {
osd_menu::menu_close_all
if {$item eq "Yes"} {exit}
}
}
|