window:
	res:
		windowType	wplainbox
		switch $(COLOR)
			case COLOR:
			case GRAY:
				topShadow	SkyBlue
				bottomShadow	LightBlue
				break
		endswitch
	endres:
endwindow:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modal
	endres:
	ditem: bitmap
		res:
			itemType	bitmap
			bitmapPath	$(bitmaps)
			bitmapFile	Wait::CBM
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			switch $(COLOR)
				case COLOR:
				case GRAY:
					foreground	SkyBlue
					break
			endswitch
		endres:
	endditem:
	ditem: msg
		res:
			itemType	bitmap
			label		'In process, wait a minute !!'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromHoriz	bitmap
			vertDistance	#(bWidth)-#(fWidth)/2+#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
enddialog:
proc: pre
	put 48 $(bWidth)
endproc:
