Return to groupemail.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

- Fixed off by one count bug in GLabelImg
- started groupemail code
- fixed spelling error
- rearranged printing dialog in quizzer

    1: proc runGroupEmail { capaConfigFile } {
    2:     global gUniqueNumber gFile gWindowMenu
    3:     set num [incr gUniqueNumber]
    4:     set gFile($num) [file dirname $capaConfigFile]
    5:     parseCapaConfig $num $gFile($num)
    6:     parseCapaUtilsConfig $num $gFile($num)
    7:     
    8:     set emailwin [toplevel .email$num]
    9:     $gWindowMenu add command -label "Sending Email $gFile($num)" \
   10: 	-command "capaRaise \"$emailwin\""
   11:     wm title $scorerWin $classDir
   12: }