--- a/NewSystemBrowser.st Mon Oct 05 21:43:18 2009 +0200
+++ b/NewSystemBrowser.st Mon Oct 05 21:43:32 2009 +0200
@@ -30172,9 +30172,9 @@
!
methodTemplate
- "return a method definition template"
-
- |s classes cls|
+ "return a method definition template string or nil"
+
+ |classes cls|
cls := self theSingleSelectedClass.
cls isNil ifTrue:[
@@ -30184,40 +30184,7 @@
]
].
cls notNil ifTrue:[
- cls theMetaclass isJavaScriptMetaclass ifTrue:[
- s := TextStream on:''.
-
- s nextPutAll:'//
-// comment stating purpose of this method
-//
-
-function name ( arg1 , ... )
-{
- var temp1, ... ;
-
- statement;
- statement;
-}
-'.
- s nextPutAll:'
-// change the above template into real code;
-// remove this comment.
-// Then `accept'' either via the menu
-// or via the keyboard (usually CMD-A).
-
-// You do not need this template; you can also
-// select any existing methods code, change it,
-// and finally `accept''. The method will then be
-// installed under the selector as defined in the
-// actual text - no matter which method is selected
-// in the browser, or where the original text came from.
-
-// Or clear this text, type in the method from scratch
-// and install it with `accept''.
-'.
-
- ^ s contents
- ].
+ ^ cls programmingLanguage methodTemplate
].
^ SystemBrowser methodTemplate
!
@@ -35785,10 +35752,6 @@
^ RBParser notNil and:[RBParser isLoaded]
!
-canUseRefactoringSupport
- ^ CodeGeneratorTool canUseRefactoringSupport
-!
-
canUseRefactoringSupportAndHasClassSelected
^ self canUseRefactoringSupport and:[self hasClassSelected]
!
@@ -42203,29 +42166,6 @@
^ cat
!
-selectorOfMethodFromCode:someCode in:aClass
- "a quick parse for the selector - is done BEFORE we actually compile something,
- to be able to get the existing method's category (q: is that really needed - can change
- the category afterwards, if the compiled method is installed late)"
-
- |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.
- ].
- ].
- ^ nil
-
- "Modified: / 23-04-2009 / 09:32:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
setAcceptAction:aBlockOrNil
"tell the codeView what to do on accept"
@@ -42928,11 +42868,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1324 2009-10-05 18:27:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1325 2009-10-05 19:43:32 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1324 2009-10-05 18:27:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1325 2009-10-05 19:43:32 cg Exp $'
! !
NewSystemBrowser initialize!
--- a/Tools__NewSystemBrowser.st Mon Oct 05 21:43:18 2009 +0200
+++ b/Tools__NewSystemBrowser.st Mon Oct 05 21:43:32 2009 +0200
@@ -30172,9 +30172,9 @@
!
methodTemplate
- "return a method definition template"
-
- |s classes cls|
+ "return a method definition template string or nil"
+
+ |classes cls|
cls := self theSingleSelectedClass.
cls isNil ifTrue:[
@@ -30184,40 +30184,7 @@
]
].
cls notNil ifTrue:[
- cls theMetaclass isJavaScriptMetaclass ifTrue:[
- s := TextStream on:''.
-
- s nextPutAll:'//
-// comment stating purpose of this method
-//
-
-function name ( arg1 , ... )
-{
- var temp1, ... ;
-
- statement;
- statement;
-}
-'.
- s nextPutAll:'
-// change the above template into real code;
-// remove this comment.
-// Then `accept'' either via the menu
-// or via the keyboard (usually CMD-A).
-
-// You do not need this template; you can also
-// select any existing methods code, change it,
-// and finally `accept''. The method will then be
-// installed under the selector as defined in the
-// actual text - no matter which method is selected
-// in the browser, or where the original text came from.
-
-// Or clear this text, type in the method from scratch
-// and install it with `accept''.
-'.
-
- ^ s contents
- ].
+ ^ cls programmingLanguage methodTemplate
].
^ SystemBrowser methodTemplate
!
@@ -35785,10 +35752,6 @@
^ RBParser notNil and:[RBParser isLoaded]
!
-canUseRefactoringSupport
- ^ CodeGeneratorTool canUseRefactoringSupport
-!
-
canUseRefactoringSupportAndHasClassSelected
^ self canUseRefactoringSupport and:[self hasClassSelected]
!
@@ -42203,29 +42166,6 @@
^ cat
!
-selectorOfMethodFromCode:someCode in:aClass
- "a quick parse for the selector - is done BEFORE we actually compile something,
- to be able to get the existing method's category (q: is that really needed - can change
- the category afterwards, if the compiled method is installed late)"
-
- |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.
- ].
- ].
- ^ nil
-
- "Modified: / 23-04-2009 / 09:32:05 / Jan Vrany <vranyj1@fel.cvut.cz>"
-!
-
setAcceptAction:aBlockOrNil
"tell the codeView what to do on accept"
@@ -42928,11 +42868,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1324 2009-10-05 18:27:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1325 2009-10-05 19:43:32 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1324 2009-10-05 18:27:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1325 2009-10-05 19:43:32 cg Exp $'
! !
NewSystemBrowser initialize!