|
version 1.1, 1999/09/28 21:25:36
|
version 1.2, 1999/10/28 16:32:07
|
|
Line 640 proc startScorer { num } {
|
Line 640 proc startScorer { num } {
|
| label $errors.num -textvariable gScorer(numerrors.$num) |
label $errors.num -textvariable gScorer(numerrors.$num) |
| pack $errors.mesg $errors.num -side left |
pack $errors.mesg $errors.num -side left |
| |
|
| button $statusButtons.handleErrors -text "Handle Errors" \ |
button $statusButtons.handleErrors -text "Save Errors" \ |
| -command "handleErrorsScorer $num" |
-command "handleErrorsScorer $num" |
| button $statusButtons.printMsg -text "Print Messages" \ |
button $statusButtons.printMsg -text "Print Messages" \ |
| -command "printScorerMsg $num" |
-command "printScorerMsg $num" |
![[BACK]](/icons/back.gif){kind=icon}
Return to scorer.tcl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / capa / capa51 / GUITools