--- ray/src/util/do_results3.6.tcl 1994/11/06 21:35:52 2.2 +++ ray/src/util/do_results3.6.tcl 1995/02/22 20:48:51 2.3 @@ -79,7 +79,7 @@ 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]} {