version 1.9, 1999/11/18 17:55:24
|
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 "" |