--- capa/capa51/GUITools/gradesubjective.tcl	1999/11/02 19:10:44	1.2
+++ capa/capa51/GUITools/gradesubjective.tcl	1999/11/05 19:32:17	1.3
@@ -78,7 +78,10 @@ proc createGradeSubjWindow {} {
     pack configure $idlist.scroll -fill y
 
     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]
     pack $response 
@@ -318,6 +321,9 @@ proc subjNext {} {
 	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"
     if { [catch {set gSubj(score) $gSubj(done.$id.score)}] } {
 	set gSubj(score) ""