Index: openacs-4/packages/xooauth/tcl/authorize-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xooauth/tcl/Attic/authorize-procs.tcl,v
diff -u -r1.1.2.7 -r1.1.2.8
--- openacs-4/packages/xooauth/tcl/authorize-procs.tcl	19 May 2023 18:27:27 -0000	1.1.2.7
+++ openacs-4/packages/xooauth/tcl/authorize-procs.tcl	25 May 2023 09:13:42 -0000	1.1.2.8
@@ -15,13 +15,15 @@
 
     ###########################################################
     #
-    # xo::Authorize class:
+    # xo::Authorize class
     #
-    # Base class to support OAuth authorization API
-    #
     ###########################################################
 
     nx::Class create ::xo::Authorize -superclasses ::xo::REST {
+        #
+        # Base class to support OAuth authorization API
+        #
+
         :property {pretty_name}
         :property {base_url}
         :property {responder_url}
@@ -114,6 +116,9 @@
         }
 
         :public method name {} {
+            #
+            # @return instance name
+            #
             return [expr {[info exists :pretty_name]
                           ? ${:pretty_name}
                           : [namespace tail [self]]}]
@@ -312,10 +317,15 @@
     }
 
     ####################################################################
-    # Tailored OAuth handler for GitHub
+    #
+    # ::xo::oauth::GitHub class
+    #
     ####################################################################
 
     nx::Class create ::xo::oauth::GitHub -superclasses ::xo::Authorize {
+        #
+        # Tailored OAuth handler for GitHub
+        #
 
         :property {pretty_name "GitHub"}
         :property {base_url https://github.com/login/oauth}