--- 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 $'
! !