extensions.st
changeset 299 8fb1a71e54f2
parent 291 ad653f664e59
child 308 8a605d737807
child 361 09ed7e1f78a9
--- a/extensions.st	Fri Oct 17 00:11:54 2014 +0100
+++ b/extensions.st	Fri Oct 17 00:49:14 2014 +0100
@@ -344,6 +344,24 @@
     "Created: / 15-10-2014 / 10:42:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!RBContainsSmalltalkXEOLCommentRule methodsFor:'accessing'!
+
+fixes: fixer
+    | changes |
+
+    changes := self changes.
+    changes notEmptyOrNil ifTrue:[
+        fixer fix
+            label:'Change EOL comments to standard Smalltalk comments';
+            action: [ fixer apply:
+                ((ChangeSet withAll:changes) name: self name)
+            ].
+    ]
+
+    "Created: / 01-02-2012 / 12:11:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 17-10-2014 / 00:42:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !RBLintRule methodsFor:'accessing'!
 
 fixes: aSmallSenseQuickFixer