--- a/HTMLDocGenerator.st Thu Jul 31 19:55:30 1997 +0200
+++ b/HTMLDocGenerator.st Thu Aug 07 12:53:31 1997 +0200
@@ -357,6 +357,10 @@
privateClasses owner className metaClass shortName shortMetaName
text path|
+ aClass isNil ifTrue:[
+ ^ '' "/ just in case ...
+ ].
+
(wasLoaded := aClass isLoaded) ifFalse:[
"/ load it - but not a binary
didLoadBin := Smalltalk loadBinaries.
@@ -547,11 +551,11 @@
backHRef := backRef
].
backCmd notNil ifTrue:[
- s nextPutAll:'<a NOPRINT HREF="' , backHRef , '" action="html:' , self name , ' ' , backCmd , '"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
+ s nextPutAll:'<a NOPRINT HREF="' , backHRef , '" action="html:' , self name , ' ' , backCmd , '"> <IMG NOPRINT SRC="../icons/DocsUpArrow.gif" ALT="back"></A>'.
s nextPutLine:'<hr>'.
] ifFalse:[
backHRef ~~ #none ifTrue:[
- s nextPutAll:'<a NOPRINT HREF="' , backHRef , '"> <IMG SRC="../icons/DocsUpArrow.gif" ALT="back"></A>';cr.
+ s nextPutAll:'<a NOPRINT HREF="' , backHRef , '"> <IMG NOPRINT SRC="../icons/DocsUpArrow.gif" ALT="back"></A>';cr.
s nextPutLine:'<hr>'.
]
].
@@ -932,7 +936,7 @@
"
"Created: 24.4.1996 / 15:01:59 / cg"
- "Modified: 31.7.1997 / 19:54:21 / cg"
+ "Modified: 6.8.1997 / 16:04:58 / cg"
!
htmlDocOf:aClass backRef:backRef
@@ -1594,5 +1598,5 @@
!HTMLDocGenerator class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.20 1997-07-31 17:55:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.21 1997-08-07 10:53:31 cg Exp $'
! !