#UI_ENHANCEMENT by exept
class: MethodFinderWindow
changed: #receiverEditorContents
allow c-style integers
--- a/MethodFinderWindow.st Sun Jul 28 01:09:11 2019 +0200
+++ b/MethodFinderWindow.st Tue Jul 30 11:54:55 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
Copyright (C) Original Authors (Kaehler, Scott Wallace and Dan Ingalls)
Copyright (C) 2001 eXept Software AG
@@ -1909,6 +1911,18 @@
|aCleanedReceiverString compiledReceiver|
aCleanedReceiverString := self cleanInputs:(receiverEditor contents).
+ "/ allow C-style integers
+ (aCleanedReceiverString startsWith:'0b') ifTrue:[
+ aCleanedReceiverString := '2r',(aCleanedReceiverString withoutPrefix:'0b')
+ ] ifFalse:[
+ (aCleanedReceiverString startsWith:'0x') ifTrue:[
+ aCleanedReceiverString := '16r',(aCleanedReceiverString withoutPrefix:'0x')
+ ] ifFalse:[
+ (aCleanedReceiverString startsWith:'0o') ifTrue:[
+ aCleanedReceiverString := '8r',(aCleanedReceiverString withoutPrefix:'0o')
+ ].
+ ].
+ ].
compiledReceiver := Compiler evaluate:aCleanedReceiverString.
((self isExpression:aCleanedReceiverString) or:[ compiledReceiver isNil ]) ifTrue:[
aCleanedReceiverString := compiledReceiver printString