--- a/MethodFinder.st Mon Jun 24 03:25:27 2013 +0000
+++ b/MethodFinder.st Tue Jun 25 17:21:08 2013 +0200
@@ -116,8 +116,9 @@
resultOC do: [:exp | strm nextPut: $(; nextPutAll: exp; nextPut: $); space]].
Smalltalk isMorphic ifTrue: [
selFinder _ (Display bestGuessOfCurrentWorld
- submorphThat: [:mm | mm class == SystemWindow and:
- [mm model isKindOf: SelectorBrowser]]
+ submorphThat: [:mm |
+ mm class == SystemWindow
+ and: [mm model isKindOf: SelectorBrowser]]
ifNone: [^ resultString]) model.
selFinder searchResult: resultOC].
@@ -645,7 +646,7 @@
"in class"
primesUpTo:
"testing"
- isPowerOfTwo digitBytes isPrime nextPrime
+ isPowerOfTwo isPowerOf: digitBytes isPrime nextPrime
"arithmetic"
alignedTo:
"comparing"
@@ -1630,9 +1631,10 @@
!MethodFinder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.31 2012-10-29 11:38:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.33 2013-06-25 15:21:08 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.31 2012-10-29 11:38:51 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.33 2013-06-25 15:21:08 cg Exp $'
! !
+