window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	' űԵ'
		leftKanjiFont	$(kanjiFont)
		leftFont	$(kanaFont)
		switch $(COLOR)
			case MONO:
				bitmapPath	$(bitmaps)
				backgroundFile	GRAY3
				transparent	false
				break
		endswitch
	endres:
endtitle:
dialog: dialogs
	res:
		defaultDistance		#(fWidth)
		dialogType		modeless
		defaultButton		select
	endres:
	ditem: msg
		res:
			itemType	bitmap
			label		'ӹ Ͽ ֽʽÿ.'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: lbp-00
		res:
			itemType	radio
			fromVert	msg
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		̣£
			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 $(connect)
			endswitch
		endact:
	endditem:
	ditem: para-00
		res:
			itemType	radio
			fromVert	lbp-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		ķ
			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 $(connect)
			endswitch
		endact:
	endditem:
	ditem: serial-00
		res:
			itemType	radio
			fromVert	para-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		ø
			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 3 $(connect)
			endswitch
		endact:
	endditem:
	ditem: remote-00
		res:
			itemType	radio
			fromVert	serial-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		Ʈ
			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 4 $(connect)
			endswitch
		endact:
	endditem:
	ditem: select
		res:
			itemType	button
			fromVert	msg
			fromHoriz	lbp-00
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*7
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		'   '
		endres:
		act:
			switch #(connect)
				case 0:
					buzzer
					quit
				default:
					put $(connect) $(NEW_PRINTER_CONNECT)
					put on $(CHANGE_PRINTER)
					close
			endswitch
		endact:
	endditem:
enddialog:
proc: close
	close
endproc:
proc: open
	put 0 $(connect)
	setval title leftLabel ' űԵ'
	setval lbp-00 selected false
	setval para-00 selected false
	setval serial-00 selected false
	setval remote-00 selected false
	switch $(PRINTER_NEW)
		case off:
			setval title leftLabel ' '
			switch #(PRINTER_CONNECT)
				case 0:
					break
				case 1:
					setval lbp-00 selected true
					break
				case 2:
					setval para-00 selected true
					break
				case 3:
					setval serial-00 selected true
					break
				case 4:
					setval remote-00 selected true
					break
			endswitch
	endswitch
endproc:
