--- capa/capa51/GUITools/capastats.tcl	1999/11/02 19:10:44	1.6
+++ capa/capa51/GUITools/capastats.tcl	2000/01/05 21:11:15	1.8
@@ -1953,7 +1953,7 @@ proc CToutput { num cmdnum } {
 	pack $buttonFrame.wrap $buttonFrame.save $buttonFrame.print \
 	    $buttonFrame.dismiss -side left
     }
-    set index [$gCT($num.output) index end]
+    set index [$gCT($num.output) index end-1c]
     foreach line $gCT(output.$cmdnum) {
 	eval $gCT($num.output) insert end $line
     }
@@ -2845,7 +2845,7 @@ proc CTcreateReportDialog { num cmdnum }
 	-variable gCT(summary.filename.$cmdnum) -value specified
     set entryFrame [frame $fileFrame.entryFrame]
     button $fileFrame.select -text "Select File" \
-	    -command "selectOutputFile"
+	    -command "CTselectOutputFile $cmdnum"
     pack $fileFrame.label $entryFrame $fileFrame.select -side left
     entry $entryFrame.entry -textvariable gCT(summary.file.$cmdnum) \
 	-xscrollcommand "$entryFrame.scroll set"
@@ -2867,6 +2867,17 @@ proc CTcreateReportDialog { num cmdnum }
 }
 
 ###########################################################
+# CTselectOutputFile
+###########################################################
+###########################################################
+###########################################################
+proc CTselectOutputFile { num } {
+    global gCT
+    set gCT(summary.filename.$num) specified
+    if { "" != [ set temp [tk_getSaveFile] ] } {set gCT(summary.file.$num) $temp}
+}    
+
+###########################################################
 # CTcreateSummaryReport
 ###########################################################
 ###########################################################
@@ -2912,4 +2923,18 @@ proc CTcreateSummaryReport { num cmdnum
 	CTputs $cmdnum [read $fileId]
 	CToutput $num $cmdnum 
     }
+}
+
+###########################################################
+# CTsetList
+###########################################################
+###########################################################
+###########################################################
+proc CTsetList { num } {
+    global gCT gFile
+    set list ""
+    for { set i 0 } { $i < 1000 } { incr i } {
+	if { [file readable [file join $gFile($num) records set$i.db]] } {
+	    lappend list 
+    }
 }
\ No newline at end of file