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}