Return to groupemail.tcl CVS log

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

Annotation of capa/capa51/GUITools/groupemail.tcl, revision 1.1

1.1     ! albertel    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: }