--- a/SmallSense__CriticsWindow.st Mon Mar 02 15:38:08 2015 +0100
+++ b/SmallSense__CriticsWindow.st Mon Mar 02 15:50:49 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
Copyright (C) 2013-2014 Jan Vrany
@@ -356,6 +358,7 @@
generateHTMLForRule: rule on: stream
| fixes |
+
stream
nextPutAll: rule name;
nextPutAll:'<P>';
@@ -408,15 +411,16 @@
] ifFalse:[
fixer := SmalltalkQuickFixer forView: codeView.
- html := String streamContents:[:s|
- rule isComposite ifFalse:[
- self generateHTMLForRule: rule on: s.
- ] ifTrue:[
- rule flatten
- do:[:each | self generateHTMLForRule: each on: s. ]
- separatedBy:[ s nextPutLine: '<hr>' ]
- ]
- ].
+ html :=
+ String streamContents:[:s|
+ rule isComposite ifFalse:[
+ self generateHTMLForRule: rule on: s.
+ ] ifTrue:[
+ rule flatten
+ do:[:each | self generateHTMLForRule: each on: s. ]
+ separatedBy:[ s nextPutLine: '<hr>' ]
+ ]
+ ].
].
self ruleRationaleAndFixesHTMLHolder value: html
@@ -489,11 +493,11 @@
!CriticsWindow class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.3 2015-02-15 16:15:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.4 2015-03-02 14:50:49 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.3 2015-02-15 16:15:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/smallsense/SmallSense__CriticsWindow.st,v 1.4 2015-03-02 14:50:49 cg Exp $'
!
version_HG
@@ -502,6 +506,6 @@
!
version_SVN
- ^ '$Id: SmallSense__CriticsWindow.st,v 1.3 2015-02-15 16:15:07 cg Exp $'
+ ^ '$Id: SmallSense__CriticsWindow.st,v 1.4 2015-03-02 14:50:49 cg Exp $'
! !