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: msg1
		res:
			itemType	bitmap
			leftLabel	
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			autoAdjust	true
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: msg2
		res:
			itemType	bitmap
			fromVert	msg1
			leftLabel	
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			autoAdjust	true
			vertDistance	2
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: msg3
		res:
			itemType	bitmap
			fromVert	msg2
			leftLabel	
			leftKanjiFont	$(kanjiFont)
			leftFont	$(kanaFont)
			autoAdjust	true
			vertDistance	2
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: ok
		res:
			itemType	button
			label		' ϡ '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	msg3
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
		endres:
		act:
			put ok $(answer)
			close
		endact:
	endditem:
	ditem: cancel
		res:
			itemType	button
			label		ä
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	msg3
			fromHoriz	ok
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
		endres:
		act:
			put cancel $(answer)
			close
		endact:
	endditem:
enddialog:
proc: open
	setval msg1 leftLabel $(confirm_msg1)
	setval msg2 leftLabel $(confirm_msg2)
	setval msg3 leftLabel $(confirm_msg3)
endproc:
