--- ray/src/util/do_results3.6.tcl	1994/10/27 15:56:08	2.1
+++ 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
@@ -140,7 +140,7 @@ proc cnvpic {} {		# Convert selected pictures
 		set p $radvar(PICTURE)_$vw.pic
 		set df [format $convdest $vw]
 		set curmess "Converting $p to $df..."
-		update idletasks
+		update
 		set cc [format $conv($conv(typ),com) $p $df]
 		if {! [catch {eval exec $cc} curmess]} {
 			set curmess "Done."
@@ -154,7 +154,7 @@ proc prtpic {} {		# Print selected pictures
 	foreach i [$fvwbox curselection] {
 		set p $radvar(PICTURE)_[$fvwbox get $i].pic
 		set curmess "Printing $p..."
-		update idletasks
+		update
 		set pc [format $prntcom $p]
 		if {! [catch {eval exec $pc} curmess]} {
 			set curmess "Done."