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)} |
} |
} |
|
|
########################################################### |
########################################################### |