diff options
| -rwxr-xr-x | GradeBook_lib.tcl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl index f32f746..073ac60 100755 --- a/GradeBook_lib.tcl +++ b/GradeBook_lib.tcl @@ -21,6 +21,17 @@ set grades_category [list \ # ########################## procs begin ################################# +proc getGradingWeights { } { + return [ list \ + HomeWork .15 \ + Quiz .10 \ + LabReport .25 \ + Participation .05 \ + Midterm .20 \ + Final .25 \ + ] +} + proc isCalculateTotalForCategorySet { category } { switch $category { "unset" {set flag false} |