diff options
| author | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-15 15:07:52 -0400 |
|---|---|---|
| committer | Eugeniy Mikhailov <evgmik@gmail.com> | 2011-04-15 15:07:52 -0400 |
| commit | 3c3981c6be0f3c53a6acfc46dd290f71cb4bb96b (patch) | |
| tree | 8880ab861442d1a46f0c274ba78c468c8a073ecd /GradeBook_lib.tcl | |
| parent | ec22c93a097c818030a1f604051c085132f42d87 (diff) | |
| download | GradeBook-3c3981c6be0f3c53a6acfc46dd290f71cb4bb96b.tar.gz GradeBook-3c3981c6be0f3c53a6acfc46dd290f71cb4bb96b.zip | |
added default grades category string
Ignore-this: 63f8a5953efad4dd9fcbac01ac262b4d
darcs-hash:20110415190752-067c0-fc2da0315890d45ddea855fe1743b8f4d30e17e2.gz
Diffstat (limited to 'GradeBook_lib.tcl')
| -rwxr-xr-x | GradeBook_lib.tcl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index 08dbecf..963f3a5 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -21,6 +21,18 @@ set grades_category [list \ # ########################## procs begin ################################# +proc default_grades_category {} { + set grades_category [list \ + "unset"\ + Quiz\ + HomeWork\ + LabReport\ + MidTerm\ + FinalExam\ + ] + return $grades_category +} + proc getGradingWeights { } { return [ list \ HomeWork .15 \ |