window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	饤ȿϿ
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		rightLabel	/etc/fstab
		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: host_label
		res:
			itemType	bitmap
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			label		'ۥ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
	endditem:
	ditem: host
		res:
			itemType	bitmap
			fromVert	host_label
			vertDistance	2
			horizDistance	#(fWidth)
			leftLabel	'                '
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			borderWidth	1
		endres:
	endditem:
	ditem: host_list
		res:
			itemType	scrtext
			fromVert	host
			vertDistance	4
			horizDistance	#(fWidth)
			width		#(fWidth)+1*20
			height		#(lHeight)*7+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		host_select1
			bind2		host_select2
			file		/dev/null
		endres:
		act:
			put $(line)
			put $(line)@0 $(NEW_NAME)
		endact:
	endditem:
	ditem: host_select
		res:
			itemType	button
			fromVert	host_list
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			label		'  '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			job host_select
		endact:
	endditem:
	ditem: dir_label
		res:
			itemType	bitmap
			fromHoriz	host_list
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
			label		'ͭǥ쥯ȥ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
	endditem:
	ditem: dir
		res:
			itemType	text
			fromHoriz	host_list
			fromVert	dir_label
			vertDistance	2
			horizDistance	#(fWidth)*2
			length		32
			width		#(fWidth)*32+4
			height		#(fHeight)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(line)
			put $(line)@0 $(SERVER_DIR)
		endact:
	endditem:
	ditem: dir_list
		res:
			itemType	scrtext
			fromVert	dir
			fromHoriz	host_list
			vertDistance	4
			horizDistance	#(fWidth)*2
			width		#(fWidth)+1*31
			height		#(lHeight)*7+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		dir_select1
			bind2		dir_select2
			file		/dev/null
		endres:
		act:
			put $(line)
			put $(line)@0 $(SERVER_DIR1)
		endact:
	endditem:
	ditem: dir_select
		res:
			itemType	button
			fromVert	dir_list
			fromHoriz	host_list
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
			label		'  '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			job dir_select
		endact:
	endditem:
	ditem: set
		res:
			itemType	button
			fromVert	dir_label
			fromHoriz	dir_list
			vertDistance	2
			horizDistance	#(fWidth)*2
			label		' СϿ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			switch $(NEW_NAME)
				case '':
					put 1 $(err_no)
					job err
					quit
			endswitch
			switch $(SERVER_DIR)
				case '':
					put 2 $(err_no)
					job err
					quit
				case /\*:
					break
				default:
					put 3 $(err_no)
					job err
					quit
			endswitch
			switch $(CLIENT_DIR)
				case '':
					put 4 $(err_no)
					job err
					quit
				case /\*:
					break
				default:
					put 5 $(err_no)
					job err
					quit
			endswitch
			put 2 $(cmd)
			put on $(ONRUN)
			put 101 $(menu_no)
			$(onrun) = sub $(commonPath)/onrun ++48++48
			$(pid) = bg $(etc)/Disk/Sfstab.sh add nfs $(NEW_NAME):$(SERVER_DIR) $(CLIENT_DIR) off $(NFS_WRITE) $(NFS_AUTO) > $(ERR_LIST)
			$(bgstat) = trap $(pid) cmd_end
		endact:
	endditem:
	ditem: cdir_label
		res:
			itemType	button
			fromVert	host_select
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
			label		ޥȥǥ쥯ȥꡧ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			$(getdir) = getdir
			trap $(getdir) getdir
		endact:
	endditem:
	ditem: cdir
		res:
			itemType	text
			fromVert	host_select
			fromHoriz	cdir_label
			vertDistance	#(fWidth)*2
			horizDistance	6
			length		32
			width		#(fWidth)*32+4
			height		#(fHeight)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(line)
			put $(line)@0 $(CLIENT_DIR)
		endact:
	endditem:
	ditem: write_label
		res:
			itemType	bitmap
			fromVert	cdir_label
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			label		񤭹ߡ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
	endditem:
	ditem: write
		res:
			itemType	button
			fromVert	cdir_label
			fromHoriz	cdir_label
			vertDistance	#(fWidth)
			horizDistance	6
			label		'  '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			switch $(NFS_WRITE)
				case on:
					put off $(NFS_WRITE)
					break
				case off:
					put on $(NFS_WRITE)
					break
			endswitch
			job chg_write
		endact:
	endditem:
	ditem: autom_label
		res:
			itemType	bitmap
			fromVert	write_label
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			label		ưޥȡ
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
	endditem:
	ditem: autom
		res:
			itemType	button
			fromVert	write_label
			fromHoriz	cdir_label
			vertDistance	#(fWidth)
			horizDistance	6
			label		' ʤ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			switch $(NFS_AUTO)
				case on:
					put off $(NFS_AUTO)
					break
				case off:
					put on $(NFS_AUTO)
					break
			endswitch
			job chg_autom
		endact:
	endditem:
enddialog:
proc: pre
	$(TMP) = mktemp
	put /tmp/$(TMP) $(DIR_LIST)
	echo -n > $(DIR_LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(ERR_LIST)
	put 0 $(menu_no)
	put on $(mapped)
	put off $(opened)
endproc:
proc: close
	switch $(ONRUN)
		case on:
			quit
	endswitch
	job off
	close
endproc:
proc: off
	switch #(menu_no)
		case 1:
		case 2:
		case 3:
		case 4:
		case 5:
			close $(err)
	endswitch
	rm -f $(DIR_LIST) $(ERR_LIST)
endproc:
proc: open
	setval host_list file $(STATION_LIST)
	setval host_select sensitive false
	setval host leftLabel ''
	job dir_init
	put off $(NFS_WRITE)
	job chg_write
	put off $(NFS_AUTO)
	job chg_autom
endproc:
proc: chg_write
	switch $(NFS_WRITE)
		case on:
			setval write label '  '
			break
		case off:
			setval write label ' ء '
			break
	endswitch
endproc:
proc: chg_autom
	switch $(NFS_AUTO)
		case on:
			setval autom label '  '
			break
		case off:
			setval autom label ' ʤ '
			break
	endswitch
endproc:
proc: host_select1
	switch $(NEW_NAME)
		case '':
			quit
	endswitch
	setval host_select sensitive true
endproc:
proc: host_select2
	switch $(NEW_NAME)
		case '':
			quit
	endswitch
	setval host_select selected true
	job host_select
	setval host_select selected false
endproc:
proc: host_select
	setval host leftLabel $(NEW_NAME)
	put 1 $(cmd)
	put on $(ONRUN)
	put 101 $(menu_no)
	echo -n > $(DIR_LIST)
	setval dir_list file $(DIR_LIST)
	$(pid) = bg $(bin)/Sexports -p $(NEW_NAME) > $(DIR_LIST)
	$(bgstat) = trap $(pid) cmd_end
endproc:
proc: dir_select1
	switch $(SERVER_DIR1)
		case '':
			quit
	endswitch
	setval dir_select sensitive true
endproc:
proc: dir_select2
	switch $(SERVER_DIR1)
		case '':
			quit
	endswitch
	setval dir_select selected true
	job dir_select
	setval dir_select selected false
endproc:
proc: dir_select
	setval dir string $(SERVER_DIR1)
endproc:
proc: dir_init
	setval dir_list file $(DIR_LIST)
	setval dir_select sensitive false
endproc:
proc: getdir
	switch #(pg_stat)
		case 0:
			setval cdir string $(pg_path)
			break
	endswitch
endproc:
proc: cmd_end
	buzzer $(main)
	switch #(cmd)
		case 1:
			switch #(bgstat)
				case 0:
					put 0 $(menu_no)
					put off $(ONRUN)
					job dir_init
					quit
			endswitch
			break
		default:
			close $(onrun)
			break
	endswitch
	switch $(mapped)
		case on:
			switch #(cmd)
				case 1:
					job getdirs
					break
				case 2:
					job bgdone
					break
			endswitch
			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:
			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:
			move $(err)
			raise $(err)
			map $(err)
			break
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
		case 102:
			switch $(opened)
				case on:
					switch #(cmd)
						case 1:
							job getdirs
							break
						case 2:
							job bgdone
							break
					endswitch
					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:
			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:
			raise $(err)
			break
		case 101:
			raise $(onrun)
			break
		case 102:
			raise $(n_end)
			break
	endswitch
endproc:
proc: bgdone
	switch #(bgstat)
		case 0:
			$(n_end) = sub $(commonPath)/normalEnd ++48++48
			trap $(n_end) n_end
			break
		case 0x100:
			put 'ͭǥ쥯ȥ$(NEW_NAME):$(SERVER_DIR)פϡ' $(confirm_msg1)
			put 'ϴϿƤޤ' $(confirm_msg2)
			$(n_end) = sub $(commonPath)/error2 ++48++48
			trap $(n_end) n_err
			break
		case 0x200:
			put $(error_dir) < $(ERR_LIST)
			put '$(error_dir)פȤǥ쥯ȥǤʤե뤬¸ߤޤΤǡ' $(confirm_msg1)
			put 'ǥ쥯ȥ$(CLIENT_DIR)פǤޤ' $(confirm_msg2)
			$(n_end) = sub $(commonPath)/error2 ++48++48
			trap $(n_end) n_err
			break
		case 0x300:
			put $(error_dir) < $(ERR_LIST)
			put 'ǥ쥯ȥ$(CLIENT_DIR)פǤޤ' $(confirm_msg1)
			$(n_end) = sub $(commonPath)/error1 ++48++48
			trap $(n_end) n_err
			break
		case 0x400:
			put 'Ĥΰۤʤե륷ƥबƱǥ쥯ȥ' $(confirm_msg1)
			put 'ưݥɤǥޥȤ뤳ȤϤǤޤ' $(confirm_msg2)
			$(n_end) = sub $(commonPath)/error2 ++48++48
			trap $(n_end) n_err
			break
	endswitch
endproc:
proc: getdirs
	switch #(bgstat)
		case 0:
			job dir_init
			break
		case 0x100:
			put 'ۥȡ$(NEW_NAME)פǵĤƤ' $(confirm_msg1)
			put 'ͭǥ쥯ȥ꤬狼ޤ' $(confirm_msg2)
			put 'ǧξ塢ݥܡݥɤϤƲ' $(confirm_msg3)
			$(n_end) = sub $(commonPath)/error3 ++48++48
			trap $(n_end) n_err
			break
		case 0x200:
			put 'ۥȡ$(NEW_NAME)פˤϡΥۥȤˡ' $(confirm_msg1)
			put 'ĤƤ붦ͭǥ쥯ȥ꤬ޤ' $(confirm_msg2)
			$(n_end) = sub $(commonPath)/error2 ++48++48
			trap $(n_end) n_err
			break
	endswitch
endproc:
proc: n_end
	put off $(ONRUN)
	put on $(CHANGE_CLIENT)
	put 0 $(menu_no)
	job close
endproc:
proc: n_err
	put off $(ONRUN)
	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)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 3:
			put 'ͭǥ쥯ȥ / ǻϤޤѥ̾ꤷƲ' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 4:
			put 'ޥȥǥ쥯ȥꤷƲ' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 5:
			put 'ޥȥǥ쥯ȥ / ǻϤޤѥ̾ꤷƲ' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
endproc:
proc: err_end
	put 0 $(menu_no)
endproc:
