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: user_list
		res:
			itemType	scrtext
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			width		#(fWidth)+1*20
			height		#(lHeight)*7+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		user_select1
			bind2		user_select2
			file		/dev/null
		endres:
		act:
			put $(line)
			put $(line)@0 $(TMP_USER1)
		endact:
	endditem:
	ditem: select
		res:
			itemType	button
			fromVert	user_list
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
			label		'  '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
		endres:
		act:
			put $(TMP_USER1) $(TMP_USER)
			job user_select
		endact:
	endditem:
enddialog:
proc: pre
	$(TMP) = mktemp
	put /tmp/$(TMP) $(LIST)
	$(TMP) = mktemp
	put /tmp/$(TMP) $(SORT_LIST)
	put '' $(select_user)
	$(bin)/Spw_check -lud > $(SORT_LIST)
	sed '/^  /d' $(SORT_LIST) > $(LIST)
	sed 's/^* /  /' $(LIST) > $(SORT_LIST)
	sort -u $(SORT_LIST) > $(LIST)
endproc:
proc: close
	put '' $(select_user)
	job off
	close
endproc:
proc: off
	rm -f $(LIST) $(SORT_LIST)
endproc:
proc: open
	setval user_list file $(LIST)
	setval select sensitive false
endproc:
proc: user_select1
	switch $(TMP_USER1)
		case '':
			quit
	endswitch
	setval select sensitive true
endproc:
proc: user_select2
	switch $(TMP_USER1)
		case '':
			quit
	endswitch
	setval select selected true
	put $(TMP_USER1) $(TMP_USER)
	job user_select
	setval select selected false
endproc:
proc: user_select
	put $(TMP_USER) $(select_user)
	job off
	close
endproc:
