equal
deleted
inserted
replaced
22315 "/ remove this a.s.a.p |
22315 "/ remove this a.s.a.p |
22316 (classes conform:[:cls | |lang| lang := cls programmingLanguage. lang isSmalltalk or:[lang isSTXJavaScript]]) ifFalse:[ |
22316 (classes conform:[:cls | |lang| lang := cls programmingLanguage. lang isSmalltalk or:[lang isSTXJavaScript]]) ifFalse:[ |
22317 Dialog warn:('Sorry.\\For now, this works only for Smalltalk classes.' withCRs). |
22317 Dialog warn:('Sorry.\\For now, this works only for Smalltalk classes.' withCRs). |
22318 ^ self. |
22318 ^ self. |
22319 ]. |
22319 ]. |
22320 codeGeneratorClass := classes first programmingLanguage codeGeneratorToolClass. |
22320 codeGeneratorClass := classes first programmingLanguage codeGeneratorClass. |
22321 codeGeneratorClass isNil ifTrue:[ |
22321 codeGeneratorClass isNil ifTrue:[ |
22322 Dialog warn:('Sorry.\\For now, there seems to be no codeGeneratorClass defined for this language.' withCRs). |
22322 Dialog warn:('Sorry.\\For now, there seems to be no codeGeneratorClass defined for this language.' withCRs). |
22323 ^ self. |
22323 ^ self. |
22324 ]. |
22324 ]. |
22325 |
22325 |
22360 ] do:[ |
22360 ] do:[ |
22361 generator executeCollectedChangesNamed:(nameOfOperation expandPlaceholdersWith:dict) |
22361 generator executeCollectedChangesNamed:(nameOfOperation expandPlaceholdersWith:dict) |
22362 ] |
22362 ] |
22363 ] |
22363 ] |
22364 |
22364 |
22365 "Modified: / 30-01-2011 / 10:43:55 / cg" |
22365 "Modified: / 30-01-2011 / 15:20:03 / cg" |
22366 ! |
22366 ! |
22367 |
22367 |
22368 generateUndoableChangeOverSelectedClasses:nameOfOperation via:aBlock |
22368 generateUndoableChangeOverSelectedClasses:nameOfOperation via:aBlock |
22369 "helper for code generators" |
22369 "helper for code generators" |
22370 |
22370 |
22375 ! |
22375 ! |
22376 |
22376 |
22377 generateUndoableChangeOverSelectedMethods:nameOfOperation via:aBlock |
22377 generateUndoableChangeOverSelectedMethods:nameOfOperation via:aBlock |
22378 "helper for code generators" |
22378 "helper for code generators" |
22379 |
22379 |
22380 |generator count dict method methodName| |
22380 |generator count dict method methodName languageOfFirstMethod| |
22381 |
22381 |
22382 generator := CodeGeneratorTool new. |
22382 languageOfFirstMethod := self selectedMethods value first mclass language. |
|
22383 (self selectedMethods value conform:[:mthd | (mthd mclass language) = languageOfFirstMethod]) ifFalse:[ |
|
22384 Dialog warn:'All methods must be defined in the same programming language'. |
|
22385 ^ self |
|
22386 ]. |
|
22387 |
|
22388 generator := languageOfFirstMethod codeGeneratorClass new. |
22383 generator startCollectChanges. |
22389 generator startCollectChanges. |
22384 |
22390 |
22385 count := 0. |
22391 count := 0. |
22386 self selectedMethodsDo:[:eachClass | |
22392 self selectedMethodsDo:[:eachClass | |
22387 aBlock value:generator value:eachClass. |
22393 aBlock value:generator value:eachClass. |
22406 dict at:#sForPlural put:''. |
22412 dict at:#sForPlural put:''. |
22407 dict at:#singleMethodNameOrNumberOfMethods put:methodName. |
22413 dict at:#singleMethodNameOrNumberOfMethods put:methodName. |
22408 ]. |
22414 ]. |
22409 |
22415 |
22410 generator executeCollectedChangesNamed:(nameOfOperation expandPlaceholdersWith:dict) |
22416 generator executeCollectedChangesNamed:(nameOfOperation expandPlaceholdersWith:dict) |
|
22417 |
|
22418 "Modified: / 30-01-2011 / 15:20:35 / cg" |
22411 ! |
22419 ! |
22412 |
22420 |
22413 launchSelectedApplication |
22421 launchSelectedApplication |
22414 self startApplication:(self theSingleSelectedClass). |
22422 self startApplication:(self theSingleSelectedClass). |
22415 ! |
22423 ! |
44835 ! ! |
44843 ! ! |
44836 |
44844 |
44837 !NewSystemBrowser class methodsFor:'documentation'! |
44845 !NewSystemBrowser class methodsFor:'documentation'! |
44838 |
44846 |
44839 version |
44847 version |
44840 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1503 2011-01-30 09:56:43 cg Exp $' |
44848 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1504 2011-01-30 14:32:37 cg Exp $' |
44841 ! |
44849 ! |
44842 |
44850 |
44843 version_CVS |
44851 version_CVS |
44844 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1503 2011-01-30 09:56:43 cg Exp $' |
44852 ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1504 2011-01-30 14:32:37 cg Exp $' |
44845 ! ! |
44853 ! ! |
44846 |
44854 |
44847 NewSystemBrowser initialize! |
44855 NewSystemBrowser initialize! |