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

proc runGroupEmail { capaConfigFile } {
    global gUniqueNumber gFile gWindowMenu
    set num [incr gUniqueNumber]
    set gFile($num) [file dirname $capaConfigFile]
    parseCapaConfig $num $gFile($num)
    parseCapaUtilsConfig $num $gFile($num)
    
    set emailwin [toplevel .email$num]
    $gWindowMenu add command -label "Sending Email $gFile($num)" \
	-command "capaRaise \"$emailwin\""
    wm title $scorerWin $classDir
}