equal
deleted
inserted
replaced
3966 " |
3966 " |
3967 commentOrNil := cls commentOrDocumentationString. |
3967 commentOrNil := cls commentOrDocumentationString. |
3968 isComment := (commentOrNil = cls comment). |
3968 isComment := (commentOrNil = cls comment). |
3969 |
3969 |
3970 commentOrNil notNil ifTrue:[ |
3970 commentOrNil notNil ifTrue:[ |
3971 commentOrNil := commentOrNil asStringCollection withoutLeadingBlankLines asString |
3971 commentOrNil := commentOrNil asStringCollection withoutLeadingAndTrailingBlankLines asString |
3972 ]. |
3972 ]. |
3973 ]. |
3973 ]. |
3974 cls isJavaClass ifFalse:[ |
3974 cls isJavaClass ifFalse:[ |
3975 aStream cr; cr; cr; cr; cr. |
3975 aStream cr; cr; cr; cr; cr. |
3976 aStream emphasis:(UserPreferences current commentEmphasisAndColor). |
3976 aStream emphasis:(UserPreferences current commentEmphasisAndColor). |