HTMLDocGenerator.st
changeset 649 e8cfff2a5d6c
parent 642 077371c28483
child 650 f3cbff8e76ae
--- a/HTMLDocGenerator.st	Sat Feb 07 13:53:59 1998 +0100
+++ b/HTMLDocGenerator.st	Sat Feb 07 16:11:34 1998 +0100
@@ -497,14 +497,16 @@
             hintLines := self extractSpecial:'[hint:]' from:docu.
         ].
 
-        "/
-        "/ strip off empty lines
-        "/
-        [(docu at:1) size == 0] whileTrue:[
-            docu removeIndex:1
-        ].
-        [(docu at:docu size) size == 0] whileTrue:[
-            docu removeIndex:(docu size)
+        docu notEmpty ifTrue:[
+            "/
+            "/ strip off empty lines
+            "/
+            [(docu at:1) size == 0] whileTrue:[
+                docu removeIndex:1
+            ].
+            [(docu at:docu size) size == 0] whileTrue:[
+                docu removeIndex:(docu size)
+            ].
         ].
 
         docu notEmpty ifTrue:[
@@ -882,8 +884,11 @@
                     ] ifFalse:[
                         realRef := ref.
                         (ns := aClass nameSpace) notNil ifTrue:[
-                            (ns at:realRef asSymbol) notNil ifTrue:[
-                                realRef := ns name , '::' , realRef
+                            ns isNamespace ifTrue:[
+                                (ns at:realRef asSymbol) notNil ifTrue:[
+                                    realRef := ns name , '::' , realRef
+                                ]
+                            ] ifFalse:[
                             ]
                         ].
                         s nextPutAll:'<a INFO="show documentation of ' , realRef , '" href="../misc/onlyInSTX2.html" action="html:' , self name , ' htmlDocOf:' , realRef , '">' , ref , '</A>'.
@@ -1002,7 +1007,7 @@
     "
 
     "Created: / 24.4.1996 / 15:01:59 / cg"
-    "Modified: / 18.12.1997 / 10:37:11 / cg"
+    "Modified: / 7.2.1998 / 16:09:33 / cg"
 !
 
 htmlDocOf:aClass backRef:backRef
@@ -1694,5 +1699,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.25 1998-01-19 15:29:17 dq Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.26 1998-02-07 15:11:34 cg Exp $'
 ! !