From 3c3981c6be0f3c53a6acfc46dd290f71cb4bb96b Mon Sep 17 00:00:00 2001
From: Eugeniy Mikhailov <evgmik@gmail.com>
Date: Fri, 15 Apr 2011 15:07:52 -0400
Subject: added default grades category string

Ignore-this: 63f8a5953efad4dd9fcbac01ac262b4d

darcs-hash:20110415190752-067c0-fc2da0315890d45ddea855fe1743b8f4d30e17e2.gz
---
 GradeBook_lib.tcl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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 \
-- 
cgit v1.2.3