Diff for /capa/capa51/GUITools/gradesubjective.tcl between versions 1.2 and 1.3

version 1.2, 1999/11/02 19:10:44 version 1.3, 1999/11/05 19:32:17
Line 78  proc createGradeSubjWindow {} { Line 78  proc createGradeSubjWindow {} {
     pack configure $idlist.scroll -fill y      pack configure $idlist.scroll -fill y
   
     button $idbutton.delete -text Delete -command subjDeleteId      button $idbutton.delete -text Delete -command subjDeleteId
     pack $idbutton.delete      frame $idbutton.spacer -width 30
       label $idbutton.l1 -text "\# Words:"
       label $idbutton.words -textvariable gSubj(numwords)
       pack $idbutton.delete $idbutton.spacer $idbutton.l1 $idbutton.words -side left 
           
     set response [frame $grade.response]      set response [frame $grade.response]
     pack $response       pack $response 
Line 318  proc subjNext {} { Line 321  proc subjNext {} {
  subjInsertIds $id   subjInsertIds $id
     }      }
   
       append words [string trim [$gSubj(response) get 0.0 end-1c]] " "
       set ws [format " \t\n"]
       set gSubj(numwords) [regsub -all -- \[$ws\]+  $words {} b]
     wm title .gradesubjective "Grading Subjective, Set $gSubj(set), Prob $gSubj(quest), $id"      wm title .gradesubjective "Grading Subjective, Set $gSubj(set), Prob $gSubj(quest), $id"
     if { [catch {set gSubj(score) $gSubj(done.$id.score)}] } {      if { [catch {set gSubj(score) $gSubj(done.$id.score)}] } {
  set gSubj(score) ""   set gSubj(score) ""

Removed from v.1.2  
changed lines
  Added in v.1.3


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