capa/capa51/GUITools/manager.tcl - diff

Return to manager.tcl CVS log

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

version 1.1, 1999/09/28 21:25:36	version 1.2, 2000/02/02 19:14:10
Line 59 proc createControlWindow {} {	Line 59 proc createControlWindow {} {
$action add command -label "Generate Stats" -command \	$action add command -label "Generate Stats" -command \
{ specifyClass "Select the capa.config in the class directory" \	{ specifyClass "Select the capa.config in the class directory" \
"CAPA configuration" "capa.config" runCapaTools }	"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" \	$action add command -label "Randomize Seating File" \
-command { RSstart [incr gUniqueNumber] }	-command { RSstart [incr gUniqueNumber] }

Line 280 source scorer.anon.tcl	Line 283 source scorer.anon.tcl
source scorer.errors.tcl	source scorer.errors.tcl
source capastats.tcl	source capastats.tcl
source seating.tcl	source seating.tcl
	source groupemail.tcl

set gUniqueNumber 0	set gUniqueNumber 0
set gMaxSet 99	set gMaxSet 99