class: Explainer
authorClaus Gittinger <cg@exept.de>
Tue, 19 Mar 2013 16:58:29 +0100
changeset 3047 3ca3ad7eb9b7
parent 3046 20057ca84e3f
child 3048 f8fbcd500f51
class: Explainer changed: #fetchCommentOfMethod: care for empty comment
Explainer.st
--- a/Explainer.st	Mon Mar 18 14:38:01 2013 +0100
+++ b/Explainer.st	Tue Mar 19 16:58:29 2013 +0100
@@ -420,7 +420,7 @@
     |methodComment lines|
 
     methodComment := mthd comment.
-    methodComment isNil ifTrue:[^ nil].
+    methodComment isEmptyOrNil ifTrue:[^ nil].
 
     lines := methodComment asStringCollection.
     methodComment := lines first.
@@ -1459,9 +1459,10 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.115 2012-12-13 14:16:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.116 2013-03-19 15:58:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.115 2012-12-13 14:16:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.116 2013-03-19 15:58:29 cg Exp $'
 ! !
+