version 1.7, 1999/11/08 22:30:02
|
version 1.12, 2000/01/12 21:00:25
|
Line 1580 proc replaceAll {} {
|
Line 1580 proc replaceAll {} {
|
set gCreateImportLinks 1 |
set gCreateImportLinks 1 |
getFindWindow refNum |
getFindWindow refNum |
if { $refNum >= 0 } { registerCreateImportLinks $refNum 0.0 end } |
if { $refNum >= 0 } { registerCreateImportLinks $refNum 0.0 end } |
displayMessage "Replaced $num occurance$s" |
displayMessage "Replaced $num occurrence$s" |
} |
} |
|
|
########################################################### |
########################################################### |
Line 3005 proc trackChanges { procName num } {
|
Line 3005 proc trackChanges { procName num } {
|
set chars \[ .$procName get \$insertindex \$insertindex2 \] |
set chars \[ .$procName get \$insertindex \$insertindex2 \] |
} |
} |
set gUndo($num.\$numChange) \"insert \$insertindex \[list \$chars\] \" |
set gUndo($num.\$numChange) \"insert \$insertindex \[list \$chars\] \" |
if {\[regexp \{.*\[\"/\].*\} \$chars\] || \ |
if { \[string length \$chars\] > 100 } { |
\[regexp \{.*\[\"/\].*\} \[.$procName get \"\$insertindex linestart\" \"\$insertindex2 lineend\"\]\]} { |
registerCreateImportLinks $num \$insertindex-1line \$insertindex2+1line |
registerCreateImportLinks $num \$insertindex \$insertindex2 |
} else { |
|
if {\[regexp \{.*\[\"/\].*\} \$chars\] || \ |
|
\[regexp \{.*\[\"/\].*\} \[.$procName get \"\$insertindex linestart\" \"\$insertindex2 lineend\"\]\]} { |
|
registerCreateImportLinks $num \$insertindex \$insertindex2 |
|
} |
} |
} |
} |
} |
set result \[uplevel .$procName \$args\] |
set result \[uplevel .$procName \$args\] |
updateLocation $num |
updateLocation $num |
return \$result |
return \$result |
Line 3785 proc createCreateDviWin {} {
|
Line 3789 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 - |
Line 3799 proc printBody { lprCommand { showComple
|
Line 3806 proc printBody { lprCommand { showComple
|
-o quiztemp.ps >& /dev/null} errorMsg ] |
-o quiztemp.ps >& /dev/null} errorMsg ] |
if { $error } { |
if { $error } { |
displayError \ |
displayError \ |
"When attempting to run dvips an error occured : $errorMsg" |
"When attempting to run dvips an error occurred : $errorMsg" |
return 1 |
return 1 |
} |
} |
|
|
Line 3814 proc printBody { lprCommand { showComple
|
Line 3821 proc printBody { lprCommand { showComple
|
set error [catch {set returnMessage [eval "exec $lprCommand"] } errorMsg ] |
set error [catch {set returnMessage [eval "exec $lprCommand"] } errorMsg ] |
|
|
if { $error == 1 } { |
if { $error == 1 } { |
displayError "When attempting to print an error occured : $errorMsg" |
displayError "When attempting to print an error occurred : $errorMsg" |
return 1 |
return 1 |
} else { |
} else { |
if { $showCompletionMessage } { |
if { $showCompletionMessage } { |
Line 4070 proc printSection { { lprCommand "" } }
|
Line 4077 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 4101 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 4110 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" |
Line 4381 proc analyzeClass { {start 1} } {
|
Line 4390 proc analyzeClass { {start 1} } {
|
set name [lindex $gAnalyze(toprocess) 1] |
set name [lindex $gAnalyze(toprocess) 1] |
set section [lindex $gAnalyze(toprocess) 2] |
set section [lindex $gAnalyze(toprocess) 2] |
set gAnalyze(toprocess) [lrange $gAnalyze(toprocess) 3 end] |
set gAnalyze(toprocess) [lrange $gAnalyze(toprocess) 3 end] |
set command "$gCapaConfig(answers_command) $number \"$name\" $section $gAnalyze(set)" |
set command "$gCapaConfig(answers_command) $number \"$name\" 0 $gAnalyze(set)" |
set fileId [open "|$command" "r"] |
set fileId [open "|$command" "r"] |
set gAnalyze(pid) [pid $fileId] |
set gAnalyze(pid) [pid $fileId] |
fconfigure $fileId -blocking 0 |
fconfigure $fileId -blocking 0 |
Line 4662 proc analyzeStop {} {
|
Line 4671 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)} |
} |
} |
|
|
########################################################### |
########################################################### |