capa/capa51/GUITools/manager.tcl - diff

Return to manager.tcl CVS log

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

version 1.2, 2000/02/02 19:14:10	version 1.3, 2000/02/22 18:10:27
Line 60 proc createControlWindow {} {	Line 60 proc createControlWindow {} {
{ 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 \	$action add command -label "Send Class Email" -command \
{ specifyClass "Select the capa.config in the class directory" \	{ specifyClass "Select the capa.config in the class directory" \
"CAPA configuration" "capa.config" runGroupEmail }	"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] }