version 1.10, 1999/12/03 18:39:38
|
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 3802 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 3817 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 4386 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 |