Index: openacs-4/packages/xowf/tcl/grading-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/Attic/grading-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/xowf/tcl/grading-procs.tcl	12 Sep 2022 14:12:55 -0000	1.1.2.2
+++ openacs-4/packages/xowf/tcl/grading-procs.tcl	12 Sep 2022 14:18:12 -0000	1.1.2.3
@@ -15,6 +15,10 @@
 
 namespace eval ::xowf::test_item::grading {
   nx::Class create Grading {
+    #
+    # Superclass representing a generic grading
+    #
+
     :property {precision ""}
     :property {title ""}
     #
@@ -165,6 +169,9 @@
   # Class: xowf::test_item::grading::GradingRoundPoints
   #----------------------------------------------------------------------
   nx::Class create GradingRoundPoints -superclass Grading {
+    #
+    # Implements a grading expressed as a rounded number of points
+    #
     :property {csv {$achievedPoints\t$achievedPointsRounded\t$percentage%\t$grade}}
 
     :public method grade {-achieved_points:required} {
@@ -183,6 +190,9 @@
   # Class: xowf::test_item::grading::GradingRoundPercentage
   #----------------------------------------------------------------------
   nx::Class create GradingRoundPercentage -superclass Grading {
+    #
+    # Implements a grading expressed as a rounded percentage
+    #
     :property {csv {$achievedPoints\t$percentage%\t$percentageRounded%\t$grade}}
 
     :public method grade {-achieved_points:required} {
@@ -203,6 +213,9 @@
   # Class: xowf::test_item::grading::GradingRoundNone
   #----------------------------------------------------------------------
   nx::Class create GradingRoundNone -superclass Grading {
+    #
+    # Implements a grading with no special rounding.
+    #
     :property {csv {$achievedPoints\t$percentage%\t$grade}}
 
     :public method grade {-achieved_points:required} {