--- capa/capa51/GUITools/manager.tcl	1999/09/28 21:25:36	1.1
+++ capa/capa51/GUITools/manager.tcl	2000/02/02 19:14:10	1.2
@@ -59,6 +59,9 @@ proc createControlWindow {} {
     $action add command -label "Generate Stats" -command \
 	    { specifyClass "Select the capa.config in the class directory" \
 		  "CAPA configuration" "capa.config" runCapaTools }
+    $action add command -label "Send Class Email" -command \
+	    { specifyClass "Select the capa.config in the class directory" \
+		  "CAPA configuration" "capa.config" runGroupEmail }
     $action add command -label "Randomize Seating File" \
 	-command { RSstart [incr gUniqueNumber] }
 
@@ -280,6 +283,7 @@ source scorer.anon.tcl
 source scorer.errors.tcl
 source capastats.tcl
 source seating.tcl
+source groupemail.tcl
 
 set gUniqueNumber 0
 set gMaxSet 99