capa/capa51/GUITools/scorer.tcl - diff

Return to scorer.tcl CVS log

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

version 1.5, 1999/12/03 18:39:38	version 1.7, 1999/12/16 22:18:35
Line 412 proc insertQuest { num where } {	Line 412 proc insertQuest { num where } {
}	}
}	}
renumberScorerQuest $num	renumberScorerQuest $num
	update
	$gScorer(quest.$num) see $where
}	}

###########################################################	###########################################################
Line 507 proc cloneScorerQuest { num } {	Line 509 proc cloneScorerQuest { num } {

set temp [ $gScorer(quest.$num) get [ $gScorer(quest.$num) curselection ] ]	set temp [ $gScorer(quest.$num) get [ $gScorer(quest.$num) curselection ] ]
$gScorer(quest.$num) insert end $temp	$gScorer(quest.$num) insert end $temp
	$gScorer(quest.$num) see end
renumberScorerQuest $num	renumberScorerQuest $num
}	}

Line 944 proc getAnswers { PID set maxQuest num }	Line 947 proc getAnswers { PID set maxQuest num }
global gFile gCapaConfig	global gFile gCapaConfig
set pwd [pwd]	set pwd [pwd]
cd $gFile($num)	cd $gFile($num)
set temp [exec $gCapaConfig($num.answers_command) $PID {} 1 $set]	set temp [exec $gCapaConfig($num.answers_command) $PID {} 0 $set]
cd $pwd	cd $pwd
set result ""	set result ""
foreach line [split $temp "\n"] {	foreach line [split $temp "\n"] {