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

Diff for /capa/capa51/GUITools/quizzer.tcl between versions 1.7 and 1.8

version 1.7, 1999/11/08 22:30:02 version 1.8, 1999/11/17 21:34:40
Line 3653  proc printWindow {} { Line 3653  proc printWindow {} {
  -value "printWholeClass" -variable gPrintSelection(type)    -value "printWholeClass" -variable gPrintSelection(type) 
     pack $wholeClassFrame.wholeClass -side left      pack $wholeClassFrame.wholeClass -side left
           
     message $studentNumber.msg -text "Student Number: "  -aspect 10000  i   message $studentNumber.msg -text "Student Number: "  -aspect 10000
     entry $studentNumber.entry -textvariable gPrintSelection(studentNumber) -width 9 \      entry $studentNumber.entry -textvariable gPrintSelection(studentNumber) -width 9 \
  -validate key -validatecommand "limitEntry %W 9 any %P"   -validate key -validatecommand "limitEntry %W 9 any %P"
     pack $studentNumber.msg $studentNumber.entry -side left      pack $studentNumber.msg $studentNumber.entry -side left
Line 3791  proc createCreateDviWin {} { Line 3791  proc createCreateDviWin {} {
 #          gStopPrinting -  #          gStopPrinting -
 # Files: quiztemp.ps - file containg info to print (removed)  # Files: quiztemp.ps - file containg info to print (removed)
 ###########################################################  ###########################################################
 proc printBody { lprCommand { showCompletionMessage 1 } } {  proc printBodon(section
   ionMessage 1 } } {
     global gCapaConfig gStopPrinting gDonePrinting      global gCapaConfig gStopPrinting gDonePrinting
   
     set errorMsg ""      set errorMsg ""
Line 4070  proc printSection { { lprCommand "" } } Line 4071  proc printSection { { lprCommand "" } }
  default { set type "-T" }   default { set type "-T" }
     }      }
   
       set prSection [string trimleft $gPrintSelection(section) 0]
   
     if { [set gStopPrinting [expr 2 == [runLatex \      if { [set gStopPrinting [expr 2 == [runLatex \
     "echo [pwd] | $gCapaConfig(qzparse_command) \      "echo [pwd] | $gCapaConfig(qzparse_command) \
     -sec $gPrintSelection(section) -set $set \      -sec $prSection -set $set \
     -d [pwd] -c [pwd] $type " gCreateDviText] ] ] } {      -d [pwd] -c [pwd] $type " gCreateDviText] ] ] } {
  for {set i $start} { $i <= $end} { incr i } {   for {set i $start} { $i <= $end} { incr i } {
     exec rm -f section$gPrintSelection(section)-set$i.tex       exec rm -f section$prSection-set$i.tex 
  }   }
  if {$showStopping} {   if {$showStopping} {
     displayMessage "Printing has been stopped."      displayMessage "Printing has been stopped."
Line 4092  proc printSection { { lprCommand "" } } Line 4095  proc printSection { { lprCommand "" } }
     }      }
   
     for { set i $start} { $i <= $end } { incr i } {      for { set i $start} { $i <= $end } { incr i } {
  if { ! [file exists section$gPrintSelection(section)-set$i.tex] } {   if { ! [file exists section$prSection-set$i.tex] } {
     if {$showStopping} {      if {$showStopping} {
  displayError "The qzparse command: $gCapaConfig(qzparse_command), was unable to produce the expected output. Printing stopped"   displayError "The qzparse command: $gCapaConfig(qzparse_command), was unable to produce the expected output. Printing stopped"
  set gStopPrinting 0   set gStopPrinting 0
Line 4101  proc printSection { { lprCommand "" } } Line 4104  proc printSection { { lprCommand "" } }
     return 2      return 2
  }   }
   
  exec mv section$gPrintSelection(section)-set$i.tex quiztemp.tex   exec mv section$prSection-set$i.tex quiztemp.tex
  exec /bin/rm -f quiztemp.dvi    exec /bin/rm -f quiztemp.dvi 
   
  $gCreateDviText insert end "$gCapaConfig(latex_command)\n"   $gCreateDviText insert end "$gCapaConfig(latex_command)\n"
Removed from v.1.7  
changed lines
  Added in v.1.8

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