# HG changeset patch
# User mawalch
# Date 1469647721 -7200
# Node ID 17b0d3a76b7caf474c4aec8e9f4303c6c11d5792
# Parent  a2f087b57f90fd35ac9fa439d2beea6af576c070
#OTHER by mawalch
the the -> the
the the -> that the

diff -r a2f087b57f90 -r 17b0d3a76b7c MethodFinderWindow.st
--- a/MethodFinderWindow.st	Wed Jul 20 11:35:42 2016 +0200
+++ b/MethodFinderWindow.st	Wed Jul 27 21:28:41 2016 +0200
@@ -1444,10 +1444,10 @@
     ^ aStringToBeCleaned
 !
 
-markMatchingClasses:aSelector classesWithSelector:anOrderedCollection 
+markMatchingClasses:aSelector classesWithSelector:anOrderedCollection
     " Matches the class of the receiver with all the elements in anOrderedCollection
      (which are classes with selectors). If a match is found it is marked with an asterisk.
-     The classes are then sorted so the the asterisk appears first. Return the
+     The classes are then sorted so the asterisk appears first. Return the
      markedClassList."
     
     |marker recClass unmarkedClassList markedClassList|
@@ -1455,22 +1455,22 @@
     marker := self class markerForImplementingClass.
     recClass := receiver value class.
     unmarkedClassList := anOrderedCollection copy.
-    unmarkedClassList do:[:classAndMethod | 
+    unmarkedClassList do:[:classAndMethod |
         |className class sel|
 
         className := classAndMethod copyButLast:aSelector size.
         class := Smalltalk classNamed:className. "/ Compiler evaluate:className.
-        
+
         "/ (recClass == class)
-        
+
         (recClass whichClassImplements:aSelector) == class ifTrue:[
             "/ unmarkedClassList add: marker, classAndMethod.
             unmarkedClassList add:classAndMethod allBold.
             unmarkedClassList remove:classAndMethod.
         ].
     ].
-    unmarkedClassList 
-        sort:[:a :b | 
+    unmarkedClassList
+        sort:[:a :b |
             |rawA rawB|
 
             rawA := a string withoutPrefix:marker.