window:
	res:
		windowType	wstandard
	endres:
endwindow:
close:
	res:
		bitmapPath	$(bitmaps)
		bitmapFile	CLOSE::CBM
	endres:
endclose:
title:
	res:
		leftLabel	'List print queue'
		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
	endres:
	ditem: list_label
		res:
			itemType	bitmap
			label		'No    Owner      Job   File                                 Size'
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)
		endres:
	endditem:
	ditem: list
		res:
			itemType	scrtext
			fromVert	list_label
			vertDistance	4
			horizDistance	#(fWidth)
			width		#(fWidth)+1*68
			height		#(lHeight)*7+8
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			bind1		select1
			file		/dev/null
		endres:
		act:
			put $(line)
			put $(line)@1 $(JOB_USER)
			put $(line)@2 $(JOB)
		endact:
	endditem:
	ditem: del
		res:
			itemType	button
			fromVert	list_label
			fromHoriz	list
			label		' Delete '
			kanjiFont	$(kanjiFont)
			vertDistance	4
			horizDistance	#(fWidth)*2
		endres:
		act:
			/usr/ucb/lprm -P$(PRINTER_NAME) $(JOB)
			job open
		endact:
	endditem:
	ditem: redisp
		res:
			itemType	button
			fromVert	del
			fromHoriz	list
			label		' Re-list '
			kanjiFont	$(kanjiFont)
			font		$(kanaFont)
			vertDistance	#(fWidth)
			horizDistance	#(fWidth)*2
		endres:
		act:
			job open
		endact:
	endditem:
enddialog:
proc: pre
	$(TMP) = mktemp
	put /tmp/$(TMP) $(LPQ_LIST)
endproc:
proc: close
	switch $(ONRUN)
		case on:
			quit
	endswitch
	job off
	close
endproc:
proc: off
	rm -f $(LPQ_LIST)
endproc:
proc: open
	$(etc)/Printer/Slpq.sh $(PRINTER_NAME) $(USER) > $(LPQ_LIST)
	setval list file $(LPQ_LIST)
	buzzer
	setval del sensitive false
endproc:
proc: select1
	switch $(JOB)
		case '':
			quit
	endswitch
	switch #(uid)
		case 0:
			setval del sensitive true
			break
		default:
			switch $(JOB_USER)
				case $(USER):
					setval del sensitive true
					break
				default:
					setval del sensitive false
					break
			endswitch
			break
	endswitch
endproc:
