--- ray/src/util/do_results3.6.tcl	1994/11/06 21:35:52	2.2
+++ ray/src/util/do_results3.6.tcl	1995/03/14 10:16:46	2.4
@@ -53,7 +53,7 @@ set conv(types) {GIF-bw GIF-8 PICT PS PPM-asc PPM-bin 
 set conv(typ) tga-24
 
 proc list_views {} {		# List finished and unfinished pictures
-	global radvar fvwbox ufvwbox
+	global radvar fvwbox ufvwbox alldone
 	set fpics {}
 	set ufpics {}
 	foreach vw $radvar(view) {
@@ -68,10 +68,11 @@ proc list_views {} {		# List finished and unfinished p
 	eval $fvwbox insert end $fpics
 	$ufvwbox delete 0 end
 	eval $ufvwbox insert end $ufpics
+	set alldone [expr [llength $fpics] == [llength $radvar(view)]]
 }
 
 proc delpic {} {		# Delete selected pictures
-	global curmess alldone
+	global curmess
 	set selected_pics [get_selpics]
 	if {"$selected_pics" == {}} {
 		set curmess "No pictures selected."
@@ -79,14 +80,13 @@ proc delpic {} {		# Delete selected pictures
 	}
 	if [tk_dialog .dlg {Verification} \
 			"Really delete picture file(s) $selected_pics?" \
-			questhead 1 {Delete} {Cancel}] {
+			questhead 0 {Delete} {Cancel}] {
 		return
 	}
 	if {! [catch {eval exec rm $selected_pics < /dev/null} curmess]} {
 		set curmess "Deleted [llength $selected_pics] file(s)."
 	}
 	list_views
-	set alldone 0
 }
 
 proc get_selpics {} {		# return selected pictures