window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	zXgύX
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		switch $(COLOR)
			case MONO:
				bitmapPath	$(bitmaps)
				backgroundFile	GRAY3
				transparent	false
				break
		endswitch
	endres:
endtitle:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modeless
		defaultButton		set
	endres:
	ditem: name_label
		res:
			itemType	bitmap
			label		'zXg@F'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: name
		res:
			itemType	text
			fromHoriz	name_label
			vertDistance	#(fWidth)
			horizDistance	4
			length		16
			height		#(fHeight)
			width		#(fWidth)*16+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_NAME)
			put $(NEW_NAME)@1 $(NEW_NAME1)
			put $(NEW_NAME)@0 $(NEW_NAME)
		endact:
	endditem:
	ditem: addr_label
		res:
			itemType	bitmap
			fromVert	name_label
			label		'AhX@F'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: addr1
		res:
			itemType	numtext
			fromVert	name_label
			fromHoriz	addr_label
			vertDistance	#(fWidth)
			horizDistance	4
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_ADDR1)
		endact:
	endditem:
	ditem: dot_1
		res:
			itemType	bitmap
			fromVert	name_label
			fromHoriz	addr1
			vertDistance	#(fWidth)
			horizDistance	0
			label		.
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
	endditem:
	ditem: addr2
		res:
			itemType	numtext
			fromVert	name_label
			fromHoriz	dot_1
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_ADDR2)
		endact:
	endditem:
	ditem: dot_2
		res:
			itemType	bitmap
			fromVert	name_label
			fromHoriz	addr2
			vertDistance	#(fWidth)
			horizDistance	0
			label		.
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
	endditem:
	ditem: addr3
		res:
			itemType	numtext
			fromVert	name_label
			fromHoriz	dot_2
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_ADDR3)
		endact:
	endditem:
	ditem: dot_3
		res:
			itemType	bitmap
			fromVert	name_label
			fromHoriz	addr3
			vertDistance	#(fWidth)
			horizDistance	0
			label		.
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
	endditem:
	ditem: addr4
		res:
			itemType	numtext
			fromVert	name_label
			fromHoriz	dot_3
			vertDistance	#(fWidth)
			horizDistance	0
			length		3
			height		#(fHeight)
			width		#(fWidth)*3+4
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(NEW_ADDR4)
		endact:
	endditem:
	ditem: exec
		res:
			itemType	button
			fromHoriz	addr4
			label		' ρ@X '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			switch $(NEW_NAME)
				case '':
					put 1 $(err_no)
					job err
					quit
			endswitch
			switch $(NEW_NAME1)
				case '':
					break
				default:
					put 2 $(err_no)
					job err
					quit
			endswitch
			switch $(NEW_NAME)
				case $(HOST_NAME):
					put same $(host_cmp)
					break
				default:
					put diff $(host_cmp)
					$(bin)/Sname_check host $(NEW_NAME)
					switch #(status)
						case 0x100:
							put 2 $(err_no)
							job err
							quit
					endswitch
					$(bin)/Snet_check -h $(NEW_NAME)
					switch #(status)
						case 0:
							put 5 $(err_no)
							job err
							quit
					endswitch
			endswitch
			switch $(HOST_ADDR1)$(HOST_ADDR2)$(HOST_ADDR3)$(HOST_ADDR4)
				case $(NEW_ADDR1)\Z3$(NEW_ADDR2)\Z3$(NEW_ADDR3)\Z3$(NEW_ADDR4)\Z3:
					put same $(addr_cmp)
					break
				default:
					put diff $(addr_cmp)
					$(bin)/Shostaddr_chk $(NEW_ADDR1) $(NEW_ADDR2) $(NEW_ADDR3) $(NEW_ADDR4)
					switch #(status)
						case 0x100:
							put 3 $(err_no)
							job err
							quit
						case 0x200:
						case 0x300:
							put 4 $(err_no)
							job err
							quit
					endswitch
					$(bin)/Snet_check -a $(NEW_ADDR1) $(NEW_ADDR2) $(NEW_ADDR3) $(NEW_ADDR4)
					switch #(status)
						case 0:
							put 6 $(err_no)
							job err
							quit
					endswitch
			endswitch
			switch $(host_cmp)
				case diff:
					put on $(ONRUN)
					put 101 $(menu_no)
					$(onrun) = sub $(commonPath)/onrun ++48++48
					put host $(cur_work)
					$(pid) = bg $(etc)/Network/Shosts.sh name $(HOST_NAME) $(NEW_NAME) $(MAIL_MODE)
					break
				default:
					switch $(addr_cmp)
						case diff:
							put on $(ONRUN)
							put 101 $(menu_no)
							$(onrun) = sub $(commonPath)/onrun ++48++48
							put addr $(cur_work)
							$(pid) = bg $(etc)/Network/Shosts.sh addr $(NEW_NAME) #(NEW_ADDR1) #(NEW_ADDR2) #(NEW_ADDR3) #(NEW_ADDR4) $(MAIL_MODE)
							break
						default:
							job close
							quit
					endswitch
							
					break
			endswitch
			$(bgstat) = trap $(pid) exec_end
		endact:
	endditem:
	ditem: reset
		res:
			itemType	button
			fromVert	exec
			fromHoriz	addr4
			label		' @A '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			job reset
		endact:
	endditem:
enddialog:
proc: pre
	$(bin)/Snet_check -s -h $(HOST_NAME)
	put $(stdout)@0 $(HOST_ADDR1)
	put $(stdout)@1 $(HOST_ADDR2)
	put $(stdout)@2 $(HOST_ADDR3)
	put $(stdout)@3 $(HOST_ADDR4)
	put on $(mapped)
	put off $(opened)
	put 0 $(menu_no)
endproc:
proc: close
	switch #(menu_no)
		case 1:
		case 2:
		case 3:
		case 4:
		case 5:
		case 6:
		case 11:
		case 12:
		case 13:
		case 14:
		case 15:
			close $(err)
	endswitch
	switch $(ONRUN)
		case on:
			quit
	endswitch
	close
endproc:
proc: open
	job reset
endproc:
proc: reset
	put $(HOST_NAME) $(NEW_NAME)
	put $(HOST_ADDR1) $(NEW_ADDR1)
	put $(HOST_ADDR2) $(NEW_ADDR2)
	put $(HOST_ADDR3) $(NEW_ADDR3)
	put $(HOST_ADDR4) $(NEW_ADDR4)
	setval name string $(NEW_NAME)
	setval addr1 string $(NEW_ADDR1)
	setval addr2 string $(NEW_ADDR2)
	setval addr3 string $(NEW_ADDR3)
	setval addr4 string $(NEW_ADDR4)
endproc:
proc: exec_end
	switch #(bgstat)
		case 0:
			break
		default:
			close $(onrun)
			put off $(ONRUN)
			put #(bgstat)/0x100+10 $(err_no)
			job err
			quit
	endswitch
	switch $(cur_work)
		case host:
			switch $(addr_cmp)
				case diff:
					put addr $(cur_work)
					$(pid) = bg $(etc)/Network/Shosts.sh addr $(NEW_NAME) #(NEW_ADDR1) #(NEW_ADDR2) #(NEW_ADDR3) #(NEW_ADDR4)
					$(bgstat) = trap $(pid) exec_end
					quit
			endswitch
	endswitch
	buzzer $(main)
	close $(onrun)
	switch $(mapped)
		case on:
			$(n_end) = sub $(commonPath)/normalEnd ++48++48
			trap $(n_end) n_end
			break
		case off:
			put on $(opened)
			break
	endswitch
	put 102 $(menu_no)
endproc:
proc: unmap
	switch #(menu_no)
		case 1:
		case 2:
		case 3:
		case 4:
		case 5:
		case 6:
		case 11:
		case 12:
		case 13:
		case 14:
		case 15:
			unmap $(err)
			break
		case 101:
			unmap $(onrun)
			break
		case 102:
			unmap $(n_end)
			break
	endswitch
	put off $(mapped)
endproc:
proc: map
	switch #(menu_no)
		case 1:
		case 2:
		case 3:
		case 4:
		case 5:
		case 6:
		case 11:
		case 12:
		case 13:
		case 14:
		case 15:
			move $(err)
			raise $(err)
			map $(err)
			break
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
		case 102:
			switch $(opened)
				case on:
					$(n_end) = sub $(commonPath)/normalEnd ++48++48
					trap $(n_end) n_end
					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 1:
		case 2:
		case 3:
		case 4:
		case 5:
		case 6:
		case 11:
		case 12:
		case 13:
		case 14:
		case 15:
			move $(err)
			break
		case 101:
			move $(onrun)
			break
		case 102:
			move $(n_end)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 1:
		case 2:
		case 3:
		case 4:
		case 5:
		case 6:
		case 11:
		case 12:
		case 13:
		case 14:
		case 15:
			raise $(err)
			break
		case 101:
			raise $(onrun)
			break
		case 102:
			raise $(n_end)
			break
	endswitch
endproc:
proc: n_end
	put on $(CHANGE_HOSTS)
	put off $(ONRUN)
	put 0 $(menu_no)
	job close
endproc:
proc: nonstand_end
	put 0 $(menu_no)
endproc:
proc: err
	put $(err_no) $(menu_no)
	switch #(err_no)
		case 1:
			put 'zXgw肵ĉB' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 2:
			put 'zXgɂ͏̉pi-_. ܂ށjA' $(confirm_msg1)
			put 'ѐŎw肵ĉB' $(confirm_msg1)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 3:
			put 'AhX̊etB[h̍ől͂QTTłB' $(confirm_msg1)
			put 'ʂ̃AhXw肵ĂB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 4:
			$(err) = sub $(menuPath)/Network/addr_error ++48++48
			break
		case 5:
			put 'zXgu$(NEW_NAME)v͊ɎgpĂ܂B' $(confirm_msg1)
			put 'ʂ̃zXgw肵ĂB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 6:
			put 'zXgEAhXu$(NEW_ADDR1)\Z3.$(NEW_ADDR2)\Z3.$(NEW_ADDR3)\Z3.$(NEW_ADDR4)\Z3v' $(confirm_msg1)
			put 'ɎgpĂ܂Bʂ̃AhXw肵ĉB' $(confirm_msg2)
			
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 11:
			put '݁ÃzXg̃fBXN|g}Eg' $(confirm_msg1)
			put 'Ă܂BUA}EgĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 12:
			put '݁ÃzXg烊|g}EgĂ܂B' $(confirm_msg1)
			put 'UA}EgĂĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 13:
			put '݁ÃzXgɃ|gOCĂ܂B' $(confirm_msg1)
			put 'UOAEgĂĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 14:
			put '݁ÃzXg烊|gOCĂ܂B' $(confirm_msg1)
			put 'UOAEgĂĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 15:
			put '̃zXg̃v^ւ̈v܂B' $(confirm_msg1)
			put 'IĂsĉB' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
endproc:
proc: err_end
	switch #(menu_no)
		case 11:
		case 12:
		case 13:
		case 14:
		case 15:
			close
			quit
	endswitch
	put 0 $(menu_no)
endproc:
