window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	'Change Initialize Setup'
		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: part
		res:
			itemType	bitmap
			leftLabel	'Partition     :  hd0xx'
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: size
		res:
			itemType	bitmap
			fromVert	part
			leftLabel	'Size          :  12345678KB'
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			vertDistance	4
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: swap_label
		res:
			itemType	bitmap
			fromVert	size
			label		'Use as swap area    : '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: swap
		res:
			itemType	button
			fromVert	size
			fromHoriz	swap_label
			label		' No     '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	6
		endres:
		act:
			switch $(TMP_SWAP)
				case on:
					put off $(TMP_SWAP)
					break
				case off:
					put on $(TMP_SWAP)
					break
			endswitch
			job chg_swap
		endact:
	endditem:
	ditem: change
		res:
			itemType	button
			fromHoriz	part
			label		' Set '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*14
		endres:
		act:
			switch $(FROM_MAIN)
				case on:
					put on $(ONRUN)
					put 101 $(menu_no)
					$(onrun) = sub $(commonPath)/onrun ++48++48
					$(pid) = bg $(etc)/Disk/Sfstab.sh swap '/dev/$(DISK_NAME)' $(TMP_SWAP)
					$(bgstat) = trap $(pid) cmd_end
					quit
			endswitch
			switch $(TMP_SWAP)
				case $(SWAP):
					break
				default:
					put on $(CHANGE_PART)
					put $(TMP_SWAP) $(SWAP)
					break
			endswitch
			job close
		endact:
	endditem:
	ditem: reset
		res:
			itemType	button
			fromVert	change
			fromHoriz	part
			label		' Undo '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*14
		endres:
		act:
			job reset
		endact:
	endditem:
enddialog:
proc: pre
	put 0 $(menu_no)
	put on $(mapped)
	put off $(opened)
endproc:
proc: close
	close
endproc:
proc: open
	switch $(FROM_MAIN)
		case on:
			setval part leftLabel 'Partition     :  $(DISK_NAME)'
			break
		case off:
			setval part leftLabel 'Partition     :  $(DRIVE_NO)$(PART)'
			break
	endswitch
	setval size leftLabel 'Size          :  $(SIZE)KB'
	job reset
endproc:
proc: reset
	put $(SWAP) $(TMP_SWAP)
	job chg_swap
endproc:
proc: chg_swap
	switch $(TMP_SWAP)
		case on:
			setval swap label ' Yes    '
			break
		case off:
			setval swap label ' No     '
			break
	endswitch
endproc:
proc: cmd_end
	put off $(ONRUN)
	close $(onrun)
	buzzer $(main)
	switch $(mapped)
		case on:
			job bgdone
			break
		default:
			put on $(opened)
			break
	endswitch
	put 102 $(menu_no)
endproc:
proc: bgdone
	switch #(bgstat)
		case 0:
			put 'Setting is effectual after next bootup.' $(confirm_msg1)
			$(n_end) = sub $(commonPath)/normalEnd1 ++48++48
			trap $(n_end) n_end
			quit
	endswitch
endproc:
proc: n_end
	put off $(ONRUN)
	put 0 $(menu_no)
	put on $(CHANGE_DISK)
	close
endproc:
proc: unmap
	switch #(menu_no)
		case 101:
			unmap $(onrun)
			break
		case 102:
			unmap $(n_end)
			break
	endswitch
	put off $(mapped)
endproc:
proc: map
	switch #(menu_no)
		case 101:
			move $(onrun)
			raise $(onrun)
			map $(onrun)
			break
		case 102:
			switch $(opened)
				case on:
					job bgdone
					break
				default:
					move $(n_end)
					raise $(n_end)
					map $(n_end)
			endswitch
			break
	endswitch
endproc:
proc: title
	job move
	job up
endproc:
proc: raise
	job up
endproc:
proc: move
	switch #(menu_no)
		case 101:
			move $(onrun)
			break
		case 102:
			move $(n_end)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 101:
			raise $(onrun)
			break
		case 102:
			raise $(n_end)
			break
	endswitch
endproc:
