equal
deleted
inserted
replaced
562 anArgument isNil ifTrue:[ |
562 anArgument isNil ifTrue:[ |
563 ^ nil |
563 ^ nil |
564 ]. |
564 ]. |
565 marker := self class markerForImplementingClass. |
565 marker := self class markerForImplementingClass. |
566 |
566 |
567 theArgument := anArgument string. |
567 theArgument := anArgument string withoutPrefix:marker. |
568 (theArgument startsWith:marker) ifTrue:[ |
|
569 theArgument := theArgument copyFrom:marker size+1 |
|
570 ]. |
|
571 aClass := theArgument copyUpTo:(Character space). |
568 aClass := theArgument copyUpTo:(Character space). |
572 x := aClass size + 2. |
569 x := aClass size + 2. |
573 aSelector := theArgument copyFrom:x. |
570 aSelector := theArgument copyFrom:x. |
574 aClass := Smalltalk classNamed:aClass. |
571 aClass := Smalltalk classNamed:aClass. |
575 (aSelector startsWith:'class ') ifTrue:[ |
572 (aSelector startsWith:'class ') ifTrue:[ |
576 aSelector := aSelector copyFrom:'class 'size+1. |
573 aSelector := aSelector withoutPrefix:'class '. |
577 aClass := aClass class. |
574 aClass := aClass class. |
578 ]. |
575 ]. |
579 ^ aClass -> aSelector asSymbol |
576 ^ aClass -> aSelector asSymbol |
580 |
577 |
581 " |
578 " |
1167 unmarkedClassList remove: classAndMethod. |
1164 unmarkedClassList remove: classAndMethod. |
1168 ]. |
1165 ]. |
1169 ]. |
1166 ]. |
1170 |
1167 |
1171 unmarkedClassList sort:[:a :b | |rawA rawB| |
1168 unmarkedClassList sort:[:a :b | |rawA rawB| |
1172 rawA := a string. |
1169 rawA := a string withoutPrefix:marker. |
1173 (rawA startsWith:marker) ifTrue:[rawA := rawA copyFrom:marker size+1]. |
1170 rawB := b string withoutPrefix:marker. |
1174 rawB := b string. |
|
1175 (rawB startsWith:marker) ifTrue:[rawB := rawB copyFrom:marker size+1]. |
|
1176 rawA < rawB. ]. |
1171 rawA < rawB. ]. |
1177 markedClassList:= unmarkedClassList. |
1172 markedClassList:= unmarkedClassList. |
1178 |
1173 |
1179 ^markedClassList |
1174 ^markedClassList |
1180 |
1175 |
1241 ! |
1236 ! |
1242 |
1237 |
1243 version_CVS |
1238 version_CVS |
1244 ^ '$Header$' |
1239 ^ '$Header$' |
1245 ! ! |
1240 ! ! |
|
1241 |