window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	͹̳μ
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		rightLabel	/etc/ttys
		rightKanjiFont	$(kanjiFont)
		rightFont	$(kanaFont)
		switch $(COLOR)
			case MONO:
				bitmapPath	$(bitmaps)
				backgroundFile	GRAY3
				transparent	false
				break
		endswitch
	endres:
endtitle:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modeless
	endres:
	ditem: list_label
		res:
			itemType	bitmap
			label		'äΡŸαΡrootƮ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: list
		res:
			itemType	scrtext
			fromVert	list_label
			vertDistance	4
			horizDistance	#(fWidth)
			width		#(fWidth)+1*51
			height		#(fHeight)*8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		select1
			file		/dev/null
		endres:
		act:
			put $(line)
			switch $(line)@0
				case -:
					put off $(dev)
					put $(line)@1 $(TMP_NAME)
					put $(line)@2 $(TMP_TYPE)
					switch $(line)@3
						case +:
							put on $(TMP_LOGIN)
							break
						case -:
							put off $(TMP_LOGIN)
							break
						default:
							put -- $(TMP_LOGIN)
							break
					endswitch
					switch $(line)@4
						case +:
							put on $(TMP_SECURE)
							break
						default:
							put off $(TMP_SECURE)
							break
					endswitch
					put $(line)@5 $(TMP_BAUD)
					break
				default:
					put on $(dev)
					put $(line)@0 $(TMP_NAME)
					put $(line)@1 $(TMP_TYPE)
					switch $(line)@2
						case +:
							put on $(TMP_LOGIN)
							break
						case -:
							put off $(TMP_LOGIN)
							break
						default:
							put -- $(TMP_LOGIN)
							break
					endswitch
					switch $(line)@3
						case +:
							put on $(TMP_SECURE)
							break
						default:
							put off $(TMP_SECURE)
							break
					endswitch
					put $(line)@4 $(TMP_BAUD)
					break
			endswitch
		endact:
	endditem:
	ditem: chg
		res:
			itemType	button
			fromVert	list_label
			fromHoriz	list
			label		'  '
			kanjiFont	$(kanjiFont)
			vertDistance	4
			horizDistance	#(fWidth)*2
		endres:
		act:
			put 1 $(menu_no)
			put ͹̳μ $(cmdName)
			$(sub) = open $(menu)/change ++48++48
			job insense
			setval chg sensitive false
			setval on sensitive false
			setval off sensitive false
			trap $(sub) sub_end
		endact:
	endditem:
	ditem: login
		res:
			itemType	bitmap
			fromVert	chg
			fromHoriz	list
			label		α
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
	endditem:
	ditem: on
		res:
			itemType	button
			fromVert	login
			fromHoriz	list
			label		㰡
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)/4
			horizDistance	#(fWidth)*4
		endres:
		act:
			put α㰡 $(cmdName)
			put 11 $(menu_no)
			put 2 $(cmd)
			put 'äΡ$(TTY_NAME) α͹̳ο' $(confirm_msg1)
			put 'մϴ.' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: off
		res:
			itemType	button
			fromVert	login
			fromHoriz	on
			label		
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)/4
			horizDistance	#(fWidth)
		endres:
		act:
			put αα $(cmdName)
			put 11 $(menu_no)
			put 3 $(cmd)
			put 'äΡ$(TTY_NAME) α͹̳μ' $(confirm_msg1)
			put 'մϴ.' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: root
		res:
			itemType	bitmap
			fromVert	on
			fromHoriz	list
			label		''
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
	endditem:
	ditem: secure
		res:
			itemType	button
			fromVert	root
			fromHoriz	list
			label		'㰡'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)/4
			horizDistance	#(fWidth)*4
		endres:
		act:
			put 'root α㰡' $(cmdName)
			put 11 $(menu_no)
			put 4 $(cmd)
			put 'äΡ$(TTY_NAME) root  α' $(confirm_msg1)
			put '㰡մϴ.' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: nosecure
		res:
			itemType	button
			fromVert	root
			fromHoriz	secure
			label		''
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)/4
			horizDistance	#(fWidth)
		endres:
		act:
			put 'root αα' $(cmdName)
			put 11 $(menu_no)
			put 5 $(cmd)
			put 'äΡ$(TTY_NAME) root α' $(confirm_msg1)
			put 'մϴ.' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: allroot
		res:
			itemType	bitmap
			fromVert	nosecure
			fromHoriz	list
			label		'äΣ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
	endditem:
	ditem: allsecure
		res:
			itemType	button
			fromVert	allroot
			fromHoriz	list
			label		'㰡'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)/4
			horizDistance	#(fWidth)*4
		endres:
		act:
			put 'ä root α㰡' $(cmdName)
			put 11 $(menu_no)
			put 6 $(cmd)
			put 'äο root α' $(confirm_msg1)
			put '㰡մϴ.' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: allnosecure
		res:
			itemType	button
			fromVert	allroot
			fromHoriz	allsecure
			label		''
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)/4
			horizDistance	#(fWidth)
		endres:
		act:
			put 'ä root αα' $(cmdName)
			put 11 $(menu_no)
			put 7 $(cmd)
			put 'äο root α' $(confirm_msg1)
			put 'մϴ.' $(confirm_msg2)
			$(confirm) = sub $(commonPath)/confirm3 ++48++48
			trap $(confirm) confirm
		endact:
	endditem:
	ditem: note1
		res:
			itemType	bitmap
			fromVert	list
			vertDistance	2
			horizDistance	#(fWidth)
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			leftLabel	'root:(root) α ʦ/ʦ'
		endres:
	endditem:
	ditem: note2
		res:
			itemType	bitmap
			fromVert	note1
			vertDistance	2
			horizDistance	#(fWidth)
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			leftLabel	' -  :, Ҽ ϴ.'
		endres:
	endditem:
enddialog:
proc: pre
	global $(TTY_NAME)
	global $(TTY_TYPE)
	global $(TTY_LOGIN)
	global $(TTY_SECURE)
	global $(TTY_BAUD)
	global $(TTY_DEV)
	global $(CHANGE_TERMINAL)
	put $(menuPath)/Terminal $(menu)
	switch #(uid)
		case 0:
			put $(icons) $(okPath)
			put Terminal $(okFile)
			break
	endswitch
	$(TMP) = mktemp
	put /tmp/$(TMP) $(TERMINAL_LIST)
	put 0 $(menu_no)
	put on $(mapped)
	put off $(opened)
	put off $(CHANGE_TERMINAL)
endproc:
proc: close
	switch $(ONRUN)
		case on:
			quit
	endswitch
	job off
	close
endproc:
proc: off
	switch #(menu_no)
		case 1:
			close $(sub)
			break
		case 10:
			close $(err)
			break
		case 11:
			close $(confirm)
			break
	endswitch
	local $(TTY_NAME)
	local $(TTY_TYPE)
	local $(TTY_LOGIN)
	local $(TTY_SECURE)
	local $(TTY_BAUD)
	local $(TTY_DEV)
	local $(CHANGE_TERMINAL)
	rm -f $(TERMINAL_LIST)
endproc:
proc: open
	job init
endproc:
proc: init
	$(bin)/Sttys -l -i /etc/ttys > $(TERMINAL_LIST)
	setval list file $(TERMINAL_LIST)
	put off $(CHANGE_TERMINAL)
	put off $(select_on_cmd)
	job insense
endproc:
proc: insense
	setval chg sensitive false
	setval on sensitive false
	setval off sensitive false
	setval secure sensitive false
	setval nosecure sensitive false
	switch #(uid)
		case 0:
			setval allsecure sensitive true
			setval allnosecure sensitive true
			break
		default:
			setval allsecure sensitive false
			setval allnosecure sensitive false
			break
	endswitch
endproc:
proc: select1
	switch #(uid)
		case 0:
			break
		default:
			quit
	endswitch
	switch #(menu_no)
		case 1:
			put on $(select_on_cmd)
			quit
	endswitch
	switch $(TMP_NAME)
		case '':
			quit
	endswitch
	job select_sub1
endproc:
proc: select_sub1
	put $(dev) $(TTY_DEV)
	put $(TMP_NAME) $(TTY_NAME)
	put $(TMP_TYPE) $(TTY_TYPE)
	put $(TMP_LOGIN) $(TTY_LOGIN)
	put $(TMP_SECURE) $(TTY_SECURE)
	put $(TMP_BAUD) $(TTY_BAUD)
	put on $(select_on_cmd)
	switch $(TTY_NAME)
		case ttyp\*:
		case ttyq\*:
			setval chg sensitive false
			break
		default:
			setval chg sensitive true
			break
	endswitch
	switch $(TTY_LOGIN)
		case on:
			setval on sensitive false
			setval off sensitive true
			break
		case off:
			setval on sensitive true
			setval off sensitive false
			break
		case '--':
			setval on sensitive false
			setval off sensitive false
			break
	endswitch
	switch $(TTY_SECURE)
		case on:
			setval secure sensitive false
			setval nosecure sensitive true
			break
		case off:
			setval secure sensitive true
			setval nosecure sensitive false
			break
	endswitch
endproc:
proc: cmd_end
	buzzer $(main)
	close $(onrun)
	switch $(mapped)
		case on:
			job bgdone
			break
		case off:
			put on $(opened)
			break
	endswitch
	put 102 $(menu_no)
endproc:
proc: unmap
	switch #(menu_no)
		case 1:
			unmap $(sub)
			break
		case 10:
			unmap $(err)
			break
		case 11:
			unmap $(confirm)
			break
		case 101:
			unmap $(onrun)
			break
		case 102:
			unmap $(n_end)
			break
	endswitch
	put off $(mapped)
endproc:
proc: map
	switch #(menu_no)
		case 1:
			raise $(sub)
			map $(sub)
			break
		case 10:
			move $(err)
			raise $(err)
			map $(err)
			break
		case 11:
			move $(confirm)
			raise $(confirm)
			map $(confirm)
			break
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
		case 102:
			switch $(opened)
				case on:
					job bgdone
					break
				case off:
					move $(n_end)
					raise $(n_end)
					map $(n_end)
					break
			endswitch
	endswitch
	put on $(mapped)
	put off $(opened)
endproc:
proc: title
	job move
	job up
endproc:
proc: raise
	job up
endproc:
proc: move
	switch #(menu_no)
		case 10:
			move $(err)
			break
		case 11:
			move $(confirm)
			break
		case 101:
			move $(onrun)
			break
		case 102:
			move $(n_end)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 10:
			raise $(err)
			break
		case 11:
			raise $(confirm)
			break
		case 101:
			raise $(onrun)
			break
		case 102:
			raise $(n_end)
			break
	endswitch
endproc:
proc: n_end
	put off $(ONRUN)
	switch #(cmd)
		case 2:
		case 3:
		case 4:
		case 5:
		case 6:
		case 7:
			job init
			break
	endswitch
	put 0 $(menu_no)
endproc:
proc: confirm
	switch $(answer)
		case cancel:
			put 0 $(menu_no)
			quit
	endswitch
	put on $(ONRUN)
	put 101 $(menu_no)
	$(onrun) = sub $(commonPath)/onrun ++48++48
	switch #(cmd)
		case 2:
			$(pid) = bg $(etc)/Terminal/Sttys.sh on $(TTY_NAME)
			break
		case 3:
			$(pid) = bg $(etc)/Terminal/Sttys.sh off $(TTY_NAME)
			break
		case 4:
			$(pid) = bg $(etc)/Terminal/Sttys.sh secure $(TTY_NAME)
			break
		case 5:
			$(pid) = bg $(etc)/Terminal/Sttys.sh nosecure $(TTY_NAME)
			break
		case 6:
			$(pid) = bg $(etc)/Terminal/Sttys.sh allsecure $(TTY_NAME)
			break
		case 7:
			$(pid) = bg $(etc)/Terminal/Sttys.sh allnosecure $(TTY_NAME)
			break
	endswitch
	$(bgstat) = trap $(pid) cmd_end
endproc:
proc: sub_end
	switch $(select_on_cmd)
		case on:
			job select_sub1
			break
	endswitch
	switch #(menu_no)
		case 1:
			switch $(CHANGE_TERMINAL)
				case on:
					job init
					break
			endswitch
			break
	endswitch
	put 0 $(menu_no)
endproc:
proc: bgdone
	switch #(bgstat)
		case 0:
			put on $(CHANGE_PRINTER)
			$(n_end) = sub $(commonPath)/normalEnd ++48++48
			trap $(n_end) n_end
			break
	endswitch
endproc:
proc: n_err
	put off $(ONRUN)
	put 0 $(menu_no)
endproc:
