diff -r 37407947454f -r 7309f1b3fc47 doc-docbook/src/etik-ol-html.dsl
--- a/doc-docbook/src/etik-ol-html.dsl	Thu Mar 04 13:01:53 2004 +0000
+++ b/doc-docbook/src/etik-ol-html.dsl	Thu Mar 04 13:08:17 2004 +0000
@@ -6,8 +6,25 @@
 <style-specification use="docbook">
 <style-specification-body>
 
+(define x "25")
+(define nnl (named-node-list-names (attributes current-node)))
+(define attributumok (attributes current-node))
+
+
 (element etik:class
-            (process-children))
+  (make sequence
+          (if (attribute-string "id")
+              (make element gi: "A"
+                    attributes: (list (list "NAME" (attribute-string "id")))
+                    (empty-sosofo))
+              (empty-sosofo))
+	  
+
+	  (if (attribute-string "xreflabel") (empty-sosofo)
+	      ( literal "ures xreflabel"))
+
+;;    (toc-entry (current-node))
+    (process-children)))
 
 (element (etik:class etik:name)
   (make element gi: "H2"
@@ -95,11 +112,61 @@
 	    (make element gi: "TH"  (literal "Description"))
 	    (process-children)))))
 
+(element (etik:class etik:prot_members)
+  (make sequence
+    (make element gi: "H3"
+	  (literal "Protected members"))
+    (make element gi: "TABLE"
+	  attributes: (list
+		       (list "CELLSPACING" "1")
+		       (list "BORDER" "1"))
+ 	  (make element gi: "TR"
+	    (make element gi: "TH"  (literal "Name"))
+	    (make element gi: "TH"  (literal "Where defined"))
+	    (make element gi: "TH"  (literal "Description"))
+	    (process-children)))))
+
+(element (etik:prot_members etik:member)  
+  (make element gi: "TR"
+	  (process-children)))
+
+(element (etik:class etik:priv_members)
+  (make sequence
+    (make element gi: "H3"
+	  (literal "Private members"))
+    (make element gi: "TABLE"
+	  attributes: (list
+		       (list "CELLSPACING" "1")
+		       (list "BORDER" "1"))
+ 	  (make element gi: "TR"
+	    (make element gi: "TH"  (literal "Name"))
+	    (make element gi: "TH"  (literal "Where defined"))
+	    (make element gi: "TH"  (literal "Description"))
+	    (process-children)))))
+
+(element (etik:priv_members etik:member)  
+  (make element gi: "TR"
+	  (process-children)))
+
 (element (etik:example etik:code)
   ($verbatim-display$
    #f   ;; mivel indentaljon
    #f)) ;; legyen-e sorszamozas
 
+(element (etik:class etik:notes)  
+  (make sequence
+    (make element gi: "H3"
+	  (literal "Notes"))
+    (make element gi: "P"
+	  (process-children))))
+
+(element (etik:class etik:category)
+  (make sequence
+    (make element gi: "H3"
+	  (literal "Category"))
+    (make element gi: "P"
+	  (process-children))))
+
 
 </style-specification-body>
 </style-specification>