[BACK]Return to scorer.tcl CVS log [TXT] [DIR] Up to [LON-CAPA] / capa / capa51 / GUITools

Diff for /capa/capa51/GUITools/scorer.tcl between versions 1.4 and 1.7

version 1.4, 1999/12/01 18:22:00 version 1.7, 1999/12/16 22:18:35
Line 153  proc runScorer { setFile } { Line 153  proc runScorer { setFile } {
     configureOptions $num      configureOptions $num
     loadScorerConfig $num      loadScorerConfig $num
     Centre_Dialog $scorerWin default      Centre_Dialog $scorerWin default
   #    trace variable gScorer(quit.$num) w "scorerClose $num 0"
 }  }
   
 ###########################################################  ###########################################################
Line 411  proc insertQuest { num where } { Line 412  proc insertQuest { num where } {
  }   }
     }      }
     renumberScorerQuest $num      renumberScorerQuest $num
       update
       $gScorer(quest.$num) see $where
 }  }
   
 ###########################################################  ###########################################################
Line 506  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 943  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"] {
Line 1554  proc scorerClose { num {mustClose 0} {du Line 1558  proc scorerClose { num {mustClose 0} {du
     global gScorer      global gScorer
   
     puts "scorerClose"      puts "scorerClose"
     if { $gScorer(needToUpdateDB) } {      set message "Are you sure you wish to close?"
  set message \      catch {
     "Are you sure you wish to close, you haven't yet updated the .sb file."   if { $gScorer(needToUpdateDB) } {
     } else {      set message \
  set message "Are you sure you wish to close?"   "Are you sure you wish to close, you haven't yet updated the .sb file."
    }
     }      }
     if { (! $mustClose ) && [makeSure $message ] == "Cancel" } { return 0 }      if { (! $mustClose ) && [makeSure $message ] == "Cancel" } { return 0 }
     stopScorer $num      stopScorer $num
Removed from v.1.4  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>