window:
	res:
		windowType	wplainbox
		switch $(COLOR)
			case COLOR:
			case GRAY:
				topShadow	CadetBlue
				bottomShadow	LightBlue
				break
		endswitch
	endres:
endwindow:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modal
		defaultButton		ok
	endres:
	ditem: msg
		res:
			itemType	bitmap
			leftLabel	x
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			autoAdjust	true
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: 2hd-00
		res:
			itemType	radio
			label		2HD
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	msg
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			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 $(device)
			endswitch
		endact:
	endditem:
	ditem: 2dd-00
		res:
			itemType	radio
			label		2DD
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	2hd-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			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 $(device)
			endswitch
		endact:
	endditem:
	ditem: chk
		res:
			itemType	check
			leftLabel	x
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			autoAdjust	true
			fromVert	2dd-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			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 $(answer_chk)
		endact:
	endditem:
	ditem: ok
		res:
			itemType	button
			label		' O K '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	chk
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
		endres:
		act:
			put ok $(answer)
			close
		endact:
	endditem:
	ditem: cancel
		res:
			itemType	button
			label		Cancel
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	chk
			fromHoriz	ok
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
		endres:
		act:
			put cancel $(answer)
			close
		endact:
	endditem:
	ditem: eject
		res:
			itemType	button
			label		'Eject'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	chk
			fromHoriz	cancel
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*4
		endres:
		act:
			/bin/fe 1> /dev/null 2> /dev/null
		endact:
	endditem:
enddialog:
proc: open
	setval msg leftLabel $(confirm_msg1)
	setval chk leftLabel $(confirm_chk_msg)
	setval chk selected $(confirm_chk_val)
	setval 2hd-00 selected false
	setval 2dd-00 selected false
	switch #(device)
		case 2:
			setval 2dd-00 selected true
			break
		default:
			setval 2hd-00 selected true
			break
	endswitch
	switch $(EJECT)
		case on:
			setval eject sensitive on
			break
		case off:
			setval eject sensitive off
			break
	endswitch
endproc:
