[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.8 and 1.10

version 1.8, 1999/11/17 21:34:40 version 1.10, 1999/12/03 18:39:38
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
           
 i   message $studentNumber.msg -text "Student Number: "  -aspect 10000      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 3785  proc createCreateDviWin {} { Line 3785  proc createCreateDviWin {} {
 # sends the file quiztemp.ps to the printer through lpr using  # sends the file quiztemp.ps to the printer through lpr using
 # the option foud in gLprCommand  # the option foud in gLprCommand
 ###########################################################  ###########################################################
 # Arguments: none  # Arguments: lprCommand - actual command to be run to print
   #            showCompletionMessage - (defaults to 1 true)
   #                      controls whether the print complete 
   #                      message gets shown
 # Returns: Nothing  # Returns: Nothing
 # Globals: gCapaConfig -  # Globals: gCapaConfig -
 #          gStopPrinting -  #          gStopPrinting -
 # Files: quiztemp.ps - file containg info to print (removed)  # Files: quiztemp.ps - file containg info to print (removed)
 ###########################################################  ###########################################################
 proc printBodon(section  proc printBody { lprCommand { showCompletionMessage 1 } } {
 ionMessage 1 } } {  
     global gCapaConfig gStopPrinting gDonePrinting      global gCapaConfig gStopPrinting gDonePrinting
   
     set errorMsg ""      set errorMsg ""
Line 4665  proc analyzeStop {} { Line 4667  proc analyzeStop {} {
     global gAnalyze      global gAnalyze
     set gAnalyze(stop) 1      set gAnalyze(stop) 1
     set gAnalyze(status) "Stopped"      set gAnalyze(status) "Stopped"
     exec kill -SIGKILL $gAnalyze(pid)      catch {exec kill -SIGKILL $gAnalyze(pid)}
 }  }
   
 ###########################################################  ###########################################################
Removed from v.1.8  
changed lines
  Added in v.1.10

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