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
		defaultButton		cancel
	endres:
	ditem: face
		res:
			itemType	bitmap
			bitmapPath	$(icons)
			bitmapFile	3.5-FD
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			switch $(COLOR)
				case COLOR:
				case GRAY:
					foreground	CadetBlue
					break
			endswitch
		endres:
	endditem:
	ditem: msg1
		res:
			itemType	bitmap
			label		'Floppy Copying : Normal End'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromHoriz	face
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: msg2
		res:
			itemType	bitmap
			label		'Do you copy to another disk ?'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	msg1
			fromHoriz	face
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: ok
		res:
			itemType	button
			label		Yes
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	msg2
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*8
		endres:
		act:
			put ok $(answer)
			close
		endact:
	endditem:
	ditem: cancel
		res:
			itemType	button
			label		No
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			fromVert	msg2
			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	msg2
			fromHoriz	cancel
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*4
		endres:
		act:
			/bin/fe 1> /dev/null 2> /dev/null
		endact:
	endditem:
enddialog:
proc: open
	switch $(EJECT)
		case on:
			setval eject sensitive on
			break
		case off:
			setval eject sensitive off
			break
	endswitch
endproc:
