window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	XgAt@C̎w
		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
	endres:
	ditem: dir_label
		res:
			itemType	bitmap
			label		'fBNg'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: dir
		res:
			itemType	scrtext
			fromVert	dir_label
			vertDistance	4
			horizDistance	#(fWidth)
			width		#(fWidth)+1*20
			height		#(lHeight)*6+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		dir1
			bind2		dir2
			textOptions	1
			file		/dev/null
		endres:
		act:
			put $(line)
			put $(line)@0 $(dir)
			put $(txt_start) $(dir_start)
		endact:
	endditem:
	ditem: open1
		res:
			itemType	button
			fromVert	dir
			label		' J@ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			job open1
		endact:
	endditem:
	ditem: select1
		res:
			itemType	button
			fromVert	dir
			fromHoriz	open1
			label		' I@ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			job select1
		endact:
	endditem:
	ditem: cont_label
		res:
			itemType	bitmap
			fromHoriz	dir
			label		'fBNg̓e'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
		endres:
	endditem:
	ditem: cont
		res:
			itemType	scrtext
			fromVert	cont_label
			fromHoriz	dir
			vertDistance	4
			horizDistance	#(fWidth)*3
			width		#(fWidth)+1*24
			height		#(lHeight)*6+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		cont1
			bind2		cont2
			textOptions	1
			file		/dev/null
		endres:
		act:
			put $(line)
			put $(line)@0 $(cont)
			put $(txt_start) $(cont_start)
		endact:
	endditem:
	ditem: open2
		res:
			itemType	button
			fromVert	cont
			fromHoriz	dir
			label		' J@ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*3
		endres:
		act:
			job open2
		endact:
	endditem:
	ditem: select2
		res:
			itemType	button
			fromVert	cont
			fromHoriz	open2
			label		' I@ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			job select2
		endact:
	endditem:
	ditem: file_label
		res:
			itemType	bitmap
			fromVert	open1
			label		'Iꂽt@C'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: file
		res:
			itemType	scrtext
			fromVert	file_label
			vertDistance	4
			horizDistance	#(fWidth)
			width		#(fWidth)+1*50
			height		#(lHeight)*6+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		file1
			bind2		file2
			textOptions	1
			file		/dev/null
		endres:
		act:
			put $(line)
			put $(line)@0 $(file)
			put $(txt_start) $(file_start)
		endact:
	endditem:
	ditem: delete
		res:
			itemType	button
			fromVert	file
			label		' @ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			job delete
		endact:
	endditem:
	ditem: clear
		res:
			itemType	button
			fromVert	file
			fromHoriz	delete
			label		' NA '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
		act:
			job clear
		endact:
	endditem:
	ditem: set
		res:
			itemType	button
			fromVert	cont_label
			fromHoriz	cont
			label		' w@ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	4
			horizDistance	#(fWidth)*4
		endres:
		act:
			job set
		endact:
	endditem:
enddialog:
proc: pre
	$(TMP) = mktemp
	put /tmp/$(TMP) $(DIR_LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(CONT_LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(PATH_LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(FILE_LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(TMP_FILE)
	awk '{ if ( $1 == $(file_selno) ) { print $5 } }' $(LIST_INFOSEL)
	switch $(stdout)
		case '*':
			echo -n > $(FILE_LIST)
			break
		default:
			cp $(stdout) $(FILE_LIST)
			break
	endswitch
	$(etc)/Restore/Srestorefile.sh.sjis init $(TMPDIR)/Backup.list.$(file_selno) $(DIR_LIST) $(CONT_LIST) $(PATH_LIST)
	
	/usr/ucb/wc -l $(FILE_LIST)
	put $(stdout)@0 $(file_cnt)
endproc:
proc: close
	job off
	close
endproc:
proc: off
	rm -f $(DIR_LIST) $(CONT_LIST) $(PATH_LIST) $(FILE_LIST) $(TMP_FILE)
endproc:
proc: open
	job open_dir
	job open_cont
	job open_file
endproc:
proc: open_dir
	setval dir file $(DIR_LIST)
	setval open1 sensitive false
	setval select1 sensitive false
endproc:
proc: open_cont
	setval cont file $(CONT_LIST)
	setval open2 sensitive false
	setval select2 sensitive false
endproc:
proc: open_file
	setval file file $(FILE_LIST)
	setval delete sensitive false
	switch #(file_cnt)
		case 0:
			setval clear sensitive false
			setval set sensitive false
			break
		default:
			setval clear sensitive true
			setval set sensitive true
			break
	endswitch
endproc:
proc: dir1
	switch $(dir)
		case '':
			quit
	endswitch
	setval open1 sensitive true
	setval select1 sensitive true
endproc:
proc: dir2
	switch $(dir)
		case '':
			quit
	endswitch
	setval open1 selected true
	job open1
	setval open1 selected false
endproc:
proc: open1
	$(etc)/Restore/Srestorefile.sh.sjis open1 $(TMPDIR)/Backup.list.$(file_selno) $(DIR_LIST) $(CONT_LIST) $(PATH_LIST) $(dir_start)
	job open_dir
	job open_cont
endproc:
proc: select1
	switch $(dir)
		case '':
			quit
	endswitch
	$(etc)/Restore/Srestorefile.sh.sjis select1 $(DIR_LIST) $(FILE_LIST) $(dir_start)
	/usr/ucb/wc -l $(FILE_LIST)
	put $(stdout)@0 $(file_cnt)
	job open_file
endproc:
proc: cont1
	switch $(cont)
		case '':
			quit
		case \*:
			setval open2 sensitive true
			setval select2 sensitive true
			quit
	endswitch
	setval open2 sensitive false
	setval select2 sensitive true
endproc:
proc: cont2
	switch $(cont)
		case '':
			quit
		case \*:
			break
		default:
			quit
	endswitch
	setval open2 selected true
	job open2
	setval open2 selected false
endproc:
proc: open2
	$(etc)/Restore/Srestorefile.sh.sjis open2 $(TMPDIR)/Backup.list.$(file_selno) $(DIR_LIST) $(CONT_LIST) $(PATH_LIST) $(cont_start)
	job open_dir
	job open_cont
endproc:
proc: select2
	switch $(cont)
		case '':
			quit
	endswitch
	$(etc)/Restore/Srestorefile.sh.sjis select2 $(CONT_LIST) $(FILE_LIST) $(PATH_LIST) $(cont_start)
	/usr/ucb/wc -l $(FILE_LIST)
	put $(stdout)@0 $(file_cnt)
	job open_file
endproc:
proc: file1
	switch $(file)
		case '':
			quit
	endswitch
	setval delete sensitive true
endproc:
proc: file2
	switch $(file)
		case '':
			quit
	endswitch
	setval delete selected true
	job delete
	setval delete selected false
endproc:
proc: delete
	put $(file) > $(TMP_FILE)
	$(bin)/Sfile_op -d -f 0 -i $(TMP_FILE) -o $(FILE_LIST)
	put #(file_cnt)-1 $(file_cnt)
	job open_file
endproc:
proc: clear
	echo -n > $(FILE_LIST)
	put 0 $(file_cnt)
	job open_file
endproc:
proc: set
	$(etc)/Restore/Srestorelist.sh file $(TMPDIR) $(file_selno) $(LIST_DISPSEL) $(LIST_INFOSEL) $(FILE_LIST)
	rm -f $(DIR_LIST) $(CONT_LIST) $(PATH_LIST) $(TMP_FILE)
	close
endproc:
