window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	'ȣƮ '
		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		'ȣƮ:'
			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		'巹:'
			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		'   '
			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		'   '
			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 'ȣƮ Ͽ ֽʽÿ.' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 2:
			put 'ȣƮ ҹ (-_.  ) ' $(confirm_msg1)
			put ' ڷ Ͽ ֽʽÿ.' $(confirm_msg1)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 3:
			put '巹  ʵ ִġ Դϴ.' $(confirm_msg1)
			put 'ٸ 巹 Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 4:
			$(err) = sub $(menuPath)/Network/addr_error ++48++48
			break
		case 5:
			put 'ȣƮ$(NEW_NAME)() ̹ ǰ ֽϴ.' $(confirm_msg1)
			put 'ٸ ȣƮ Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 6:
			put 'ȣƮ巹$(NEW_ADDR1)\Z3.$(NEW_ADDR2)\Z3.$(NEW_ADDR3)\Z3.$(NEW_ADDR4)\Z3() ' $(confirm_msg1)
			put '̹ ǰ ֽϴ. ٸ 巹 Ͽ ֽʽÿ.' $(confirm_msg2)
			
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 11:
			put ',  ȣƮ ũ Ʈ Ʈ' $(confirm_msg1)
			put 'ϰ ֽϴ. ϴ 𸶿Ʈ  Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 12:
			put ',  ȣƮ Ʈ ƮǾ ֽϴ.' $(confirm_msg1)
			put 'ϴ 𸶿Ʈ  Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 13:
			put ',  ȣƮ Ʈ αϰ ֽϴ.' $(confirm_msg1)
			put 'ϴ α׾ƿ  Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 14:
			put ',  ȣƮ Ʈ αεǾ ֽϴ.' $(confirm_msg1)
			put 'ϴ α׾ƿ  Ͽ ֽʽÿ.' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 15:
			put ' ȣƮ ͷ μ 䱸 ֽϴ. ' $(confirm_msg1)
			put '  Ͽ ֽʽÿ.' $(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:
