|
version 1.11, 1999/12/16 22:18:35
|
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 3806 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 3821 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 } { |
![[BACK]](/icons/back.gif){kind=icon}
Return to quizzer.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools