version 1.6, 1999/11/02 19:10:44
|
version 1.8, 2000/01/05 21:11:15
|
Line 1953 proc CToutput { num cmdnum } {
|
Line 1953 proc CToutput { num cmdnum } {
|
pack $buttonFrame.wrap $buttonFrame.save $buttonFrame.print \ |
pack $buttonFrame.wrap $buttonFrame.save $buttonFrame.print \ |
$buttonFrame.dismiss -side left |
$buttonFrame.dismiss -side left |
} |
} |
set index [$gCT($num.output) index end] |
set index [$gCT($num.output) index end-1c] |
foreach line $gCT(output.$cmdnum) { |
foreach line $gCT(output.$cmdnum) { |
eval $gCT($num.output) insert end $line |
eval $gCT($num.output) insert end $line |
} |
} |
Line 2845 proc CTcreateReportDialog { num cmdnum }
|
Line 2845 proc CTcreateReportDialog { num cmdnum }
|
-variable gCT(summary.filename.$cmdnum) -value specified |
-variable gCT(summary.filename.$cmdnum) -value specified |
set entryFrame [frame $fileFrame.entryFrame] |
set entryFrame [frame $fileFrame.entryFrame] |
button $fileFrame.select -text "Select File" \ |
button $fileFrame.select -text "Select File" \ |
-command "selectOutputFile" |
-command "CTselectOutputFile $cmdnum" |
pack $fileFrame.label $entryFrame $fileFrame.select -side left |
pack $fileFrame.label $entryFrame $fileFrame.select -side left |
entry $entryFrame.entry -textvariable gCT(summary.file.$cmdnum) \ |
entry $entryFrame.entry -textvariable gCT(summary.file.$cmdnum) \ |
-xscrollcommand "$entryFrame.scroll set" |
-xscrollcommand "$entryFrame.scroll set" |
Line 2867 proc CTcreateReportDialog { num cmdnum }
|
Line 2867 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 |
# CTcreateSummaryReport |
########################################################### |
########################################################### |
########################################################### |
########################################################### |
Line 2912 proc CTcreateSummaryReport { num cmdnum
|
Line 2923 proc CTcreateSummaryReport { num cmdnum
|
CTputs $cmdnum [read $fileId] |
CTputs $cmdnum [read $fileId] |
CToutput $num $cmdnum |
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 |
|
} |
} |
} |
|
|