[BACK]Return to capastats.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/capastats.tcl between versions 1.6 and 1.7

version 1.6, 1999/11/02 19:10:44 version 1.7, 1999/12/13 21:38:44
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
 ###########################################################  ###########################################################
 ###########################################################  ###########################################################
Removed from v.1.6  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>