File: _quitmenu.tcl

package info (click to toggle)
openmsx 0.10.1-2
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 16,628 kB
  • ctags: 19,723
  • sloc: cpp: 131,938; xml: 25,418; tcl: 15,394; python: 4,012; sh: 365; makefile: 26
file content (24 lines) | stat: -rw-r--r-- 509 bytes parent folder | download | duplicates (5) 
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}
	}
}