window:
	res:
		windowType	wshadowbox
		switch $(COLOR)
			case COLOR:
			case GRAY:
				topShadow	CadetBlue
				bottomShadow	LightBlue
				break
		endswitch
	endres:
endwindow:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modal
	endres:
	ditem: face
		res:
			itemType	bitmap
			bitmapPath	$(icons)
			bitmapFile	Restore-0
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			switch $(COLOR)
				case COLOR:
				case GRAY:
					foreground	brown
					break
			endswitch
		endres:
	endditem:
	ditem: msg
		res:
			itemType	bitmap
			label		ޥꥹȥ桦
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromHoriz	face
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: cancel
		res:
			itemType	button
			label		' 桡 '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	face
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*16
		endres:
		act:
			put on $(stop)
			close
		endact:
	endditem:
enddialog:
proc: open
	put off $(stop)
	put 0 $(flag)
	setval face bitmapFile Restore-0
	alarm 1000 alarm
endproc:
proc: alarm
	switch #(flag)
		case 0:
			setval face bitmapFile Restore-1
			put 1 $(flag)
			break
		case 1:
			setval face bitmapFile Restore-0
			put 0 $(flag)
			break
	endswitch
	alarm 1000 alarm
endproc:
