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		select
	endres:
	ditem: msg
		res:
			itemType	bitmap
			label		'ۡݥǥ쥯ȥ꤬¸ߤޤ'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: copy-00
		res:
			itemType	radio
			fromVert	msg
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		õΥǥ쥯ȥƤ򥳥ԡ
			shadowWidth	0
			switch $(COLOR)
				case MONO:
					background	white
					foreground	black
					highlightBack	white
					highlightFore	black
					selectedBack	white
					selectedFore	black
					selhighBack	white
					break
				default:
					background	#c5c5c5
					highlightBack	#c5c5c5
					selectedBack	#c5c5c5
					break
			endswitch
		endres:
		act:
			put $(value)
			switch #(value)
				case 1:
					put 1 $(NEW_HOMEDIR)
			endswitch
		endact:
	endditem:
	ditem: dir-00
		res:
			itemType	radio
			fromVert	copy-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			label		Υǥ쥯ȥƤ򥪡ݥСݥ饤
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			switch $(COLOR)
				case MONO:
					background	white
					foreground	black
					highlightBack	white
					highlightFore	black
					selectedBack	white
					selectedFore	black
					selhighBack	white
					break
				default:
					background	#c5c5c5
					highlightBack	#c5c5c5
					selectedBack	#c5c5c5
					break
			endswitch
		endres:
		act:
			put $(value)
			switch #(value)
				case 1:
					put 2 $(NEW_HOMEDIR)
			endswitch
		endact:
	endditem:
	ditem: set
		res:
			itemType	button
			fromVert	msg
			fromHoriz	dir-00
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
			label		' ߡ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			close
		endact:
	endditem:
	ditem: cancel
		res:
			itemType	button
			fromVert	set
			fromHoriz	dir-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
			label		ä
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			put 0 $(NEW_HOMEDIR)
			close
		endact:
	endditem:
enddialog:
proc: pre
	put 0 $(NEW_HOMEDIR)
	put 0 $(menu_no)
endproc:
proc: close
	switch #(menu_no)
		case 1:
			quit
	endswitch
	put ݥѹμ¹Ԥϥ󥻥뤵ޤ $(confirm_msg1)
	$(confirm) = sub $(commonPath)/error1 ++48++48
	buzzer
	trap $(confirm) confirm
endproc:
proc: confirm
	put 0 $(NEW_HOMEDIR)
	close
endproc:
proc: open
	setval copy-00 selected true
	setval dir-00 selected false
endproc:
proc: unmap
	switch #(menu_no)
		case 1:
			unmap $(confirm)
			break
	endswitch
endproc:
proc: map
	switch #(menu_no)
		case 1:
			move $(confirm)
			raise $(confirm)
			map $(confirm)
			break
	endswitch
endproc:
proc: title
	job move
	job up
endproc:
proc: raise
	job up
endproc:
proc: move
	switch #(menu_no)
		case 1:
			move $(confirm)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 1:
			raise $(confirm)
			break
	endswitch
endproc:
