Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed: #selectorOfMethodFromCode:in:
authorClaus Gittinger <cg@exept.de>
Tue, 06 Oct 2009 12:39:26 +0200
changeset 8885 b07ed820bcd4
parent 8884 5ccb122c6f73
child 8886 dfadacc58cf9
changed: #selectorOfMethodFromCode:in:
NewSystemBrowser.st file | annotate | diff | comparison | revisions
Tools__NewSystemBrowser.st file | annotate | diff | comparison | revisions 
--- a/NewSystemBrowser.st	Tue Oct 06 10:45:42 2009 +0200
+++ b/NewSystemBrowser.st	Tue Oct 06 12:39:26 2009 +0200
@@ -42177,16 +42177,17 @@
 
     |parser|
 
-    aClass programmingLanguage isSmalltalk ifTrue:[
-        "/ that's a stupid interface - should ask for a tree and then for a selector...
-        parser := aClass parserClass
-                parseMethodSpecification:someCode asString
-                in:aClass
-                ignoreErrors:true ignoreWarnings:true.
-
-        (parser notNil and:[parser ~~ #Error]) ifTrue:[
-            ^ parser selector asSymbol.
-        ].
+    "/ that's a stupid interface - should ask for a tree and then for a selector...
+    parser := aClass parserClass
+                perform:#'parseMethodSpecification:in:ignoreErrors:ignoreWarnings:'
+                    withArguments:(Array with:(someCode asString)
+                                         with:aClass
+                                         with:true 
+                                         with:true)
+                    ifNotUnderstood:[ nil ].
+
+    (parser notNil and:[parser ~~ #Error]) ifTrue:[
+        ^ parser selector asSymbol.
     ].
     ^ nil
 
@@ -42895,11 +42896,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1328 2009-10-06 08:45:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1329 2009-10-06 10:39:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1328 2009-10-06 08:45:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1329 2009-10-06 10:39:26 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st	Tue Oct 06 10:45:42 2009 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Oct 06 12:39:26 2009 +0200
@@ -42177,16 +42177,17 @@
 
     |parser|
 
-    aClass programmingLanguage isSmalltalk ifTrue:[
-        "/ that's a stupid interface - should ask for a tree and then for a selector...
-        parser := aClass parserClass
-                parseMethodSpecification:someCode asString
-                in:aClass
-                ignoreErrors:true ignoreWarnings:true.
-
-        (parser notNil and:[parser ~~ #Error]) ifTrue:[
-            ^ parser selector asSymbol.
-        ].
+    "/ that's a stupid interface - should ask for a tree and then for a selector...
+    parser := aClass parserClass
+                perform:#'parseMethodSpecification:in:ignoreErrors:ignoreWarnings:'
+                    withArguments:(Array with:(someCode asString)
+                                         with:aClass
+                                         with:true 
+                                         with:true)
+                    ifNotUnderstood:[ nil ].
+
+    (parser notNil and:[parser ~~ #Error]) ifTrue:[
+        ^ parser selector asSymbol.
     ].
     ^ nil
 
@@ -42895,11 +42896,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1328 2009-10-06 08:45:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1329 2009-10-06 10:39:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1328 2009-10-06 08:45:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1329 2009-10-06 10:39:26 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!
hg/stx-libtool