ViewVC Help

View File | Revision Log | Show Annotations | Download File | Root Listing

root/Development/ray/src/util/do_results3.6.tcl

Comparing ray/src/util/do_results3.6.tcl (file contents):
Revision 2.1 by greg, Thu Oct 27 15:56:08 1994 UTC vs.
Revision 2.3 by greg, Wed Feb 22 20:48:51 1995 UTC

#	Line 79 | Line 79 | proc delpic {} {               # Delete selected pictures
79		}
80		if [tk_dialog .dlg {Verification} \
81		"Really delete picture file(s) $selected_pics?" \
82	<	questhead 1 {Delete} {Cancel}] {
82	>	questhead 0 {Delete} {Cancel}] {
83		return
84		}
85		if {! [catch {eval exec rm $selected_pics < /dev/null} curmess]} {
#	Line 140 | Line 140 | proc cnvpic {} {               # Convert selected pictures
140		set p $radvar(PICTURE)_$vw.pic
141		set df [format $convdest $vw]
142		set curmess "Converting $p to $df..."
143	<	update idletasks
143	>	update
144		set cc [format $conv($conv(typ),com) $p $df]
145		if {! [catch {eval exec $cc} curmess]} {
146		set curmess "Done."
#	Line 154 | Line 154 | proc prtpic {} {               # Print selected pictures
154		foreach i [$fvwbox curselection] {
155		set p $radvar(PICTURE)_[$fvwbox get $i].pic
156		set curmess "Printing $p..."
157	<	update idletasks
157	>	update
158		set pc [format $prntcom $p]
159		if {! [catch {eval exec $pc} curmess]} {
160		set curmess "Done."

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)