window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	'NIS Management'
		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		set
	endres:
	ditem: msg
		res:
			itemType	bitmap
			label		'Select Mode of YP use.'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: mserver-00
		res:
			itemType	radio
			fromVert	msg
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		'Master Server'
			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 $(kind)
			endswitch
		endact:
	endditem:
	ditem: toservers
		res:
			itemType	bitmap
			fromVert	msg
			fromHoriz	mserver-00
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		'=>'
		endres:
	endditem:
	ditem: servers
		res:
			itemType	button
			fromVert	msg
			fromHoriz	toservers
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		'Select Slave Servers'
		endres:
		act:
			put 1 $(menu_no)
			$(sub) = sub $(menu)/ypserver ++48++48
			trap $(sub) sub_end
		endact:
	endditem:
	ditem: sserver-00
		res:
			itemType	radio
			fromVert	mserver-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		'Slave Server'
			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 $(kind)
			endswitch
		endact:
	endditem:
	ditem: client-00
		res:
			itemType	radio
			fromVert	sserver-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		Client
			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 $(kind)
			endswitch
		endact:
	endditem:
	ditem: domain_label
		res:
			itemType	bitmap
			fromVert	client-00
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		'Domain name:'
		endres:
	endditem:
	ditem: domain
		res:
			itemType	text
			fromVert	client-00
			fromHoriz	domain_label
			vertDistance	#(fWidth)
			horizDistance	4
			length		32
			width		#(fWidth)*32+4
			height		#(fHeight)
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			shadowWidth	0
			borderWidth	2
			focus
		endres:
		act:
			put $(line)
			put $(line)@0 $(domain)
		endact:
	endditem:
	ditem: set
		res:
			itemType	button
			fromHoriz	servers
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		' Set '
		endres:
		act:
			switch #(kind)
				case 0:
					put 1 $(err_no)
					job err
					quit
			endswitch
			switch $(domain)
				case '':
					put 2 $(err_no)
					job err
					quit
			endswitch
			$(bin)/Sname_check ypdomain $(domain)
			switch #(status)
				case 0x100:
					put 3 $(err_no)
					job err
					quit
			endswitch
			switch #(kind)
				case 0:
					put ------ $(YP_TYPE)
					break
				case 1:
					put 'Master Server' $(YP_TYPE)
					break
				case 2:
					switch $(domain)
						case $(YP_DOMAIN):
							break
						default:
							put 4 $(err_no)
							job err
							quit
					endswitch
					put 'Slave Server' $(YP_TYPE)
					break
				case 3:
					put Client $(YP_TYPE)
					break
			endswitch
			put on $(YP_SET)
			put $(kind) $(YP_KIND)
			put $(domain) $(YP_DOMAIN)
			close
		endact:
	endditem:
	ditem: reset
		res:
			itemType	button
			fromVert	set
			fromHoriz	servers
			vertDistance	#(fWidth)*2
			horizDistance	#(fWidth)*2
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			label		' Reset '
		endres:
		act:
			job open
		endact:
	endditem:
enddialog:
proc: pre
	put 0 $(menu_no)
	put 0 $(kind)
	echo -n > $(YPSERV_LIST)
endproc:
proc: close
	switch $(allset)
		case on:
		case off:
			put off $(YP_SET)
			break
	endswitch
	job off
	close
endproc:
proc: off
	switch #(menu_no)
		case 1:
			close $(sub)
			break
		case 10:
			close $(err)
			break
	endswitch
endproc:
proc: open
	setval mserver-00 selected false
	setval sserver-00 selected false
	setval client-00 selected false
	setval sserver-00 sensitive true
	setval domain string $(YP_DOMAIN)
	switch #(YP_KIND)
		case 1:
			setval sserver-00 sensitive false
			setval mserver-00 selected true
			break
		case 2:
			setval sserver-00 sensitive false
			setval sserver-00 selected true
			break
		case 3:
			setval client-00 selected true
			break
		default:
			setval sserver-00 sensitive false
			setval domain string ''
			break
	endswitch
	test -d /usr/etc/yp
	switch #(status)
		case 0:
			break
		default:
			setval servers sensitive false
			setval mserver-00 sensitive false
			setval sserver-00 sensitive false
			break
	endswitch
endproc:
proc: err
	put 10 $(menu_no)
	switch #(err_no)
		case 1:
			put 'Select mode of YP use !!' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 2:
			put 'Specify domain name !!' $(confirm_msg1)
			$(err) = sub $(commonPath)/error1 ++48++48
			break
		case 3:
			put 'Use alphabetical(include -+_.) or' $(confirm_msg1)
			put 'numeric char in host name !!' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
		case 4:
			put 'Cannot specify slave server,' $(confirm_msg1)
			put 'with another domain name !!' $(confirm_msg2)
			$(err) = sub $(commonPath)/error2 ++48++48
			break
	endswitch
	buzzer
	trap $(err) err_end
endproc:
proc: err_end
	put 0 $(menu_no)
endproc:
proc: unmap
	switch #(menu_no)
		case 10:
			unmap $(err)
			break
	endswitch
endproc:
proc: map
	switch #(menu_no)
		case 10:
			move $(err)
			raise $(err)
			map $(err)
			break
	endswitch
endproc:
proc: title
	job move
	job up
endproc:
proc: raise
	job up
endproc:
proc: move
	switch #(menu_no)
		case 10:
			move $(err)
			break
	endswitch
endproc:
proc: up
	switch #(menu_no)
		case 10:
			raise $(err)
			break
	endswitch
endproc:
proc: sub_end
	put 0 $(menu_no)
endproc:
