equal
deleted
inserted
replaced
6323 name := 'NewClass' , i printString. |
6323 name := 'NewClass' , i printString. |
6324 ]. |
6324 ]. |
6325 s nextPutAll:name; space. |
6325 s nextPutAll:name; space. |
6326 |
6326 |
6327 className := aSuperClass lastName. |
6327 className := aSuperClass lastName. |
6328 superPackage := aSuperClass package copy replaceAll:$/ with:$.. |
6328 superPackage := aSuperClass package copyReplaceAll:$/ with:$.. |
6329 superPackage = categoryString ifFalse:[ |
6329 superPackage = categoryString ifFalse:[ |
6330 superPackage = 'java.lang' ifFalse:[ |
6330 superPackage = 'java.lang' ifFalse:[ |
6331 className := aSuperClass name asString copy replaceAll:$/ with:$.. |
6331 className := aSuperClass name copyReplaceAll:$/ with:$.. |
6332 ]. |
6332 ]. |
6333 ]. |
6333 ]. |
6334 |
6334 |
6335 s nextPutAll:'extends '; nextPutAll:className. |
6335 s nextPutAll:'extends '; nextPutAll:className. |
6336 s nextPutLine:' {'. |
6336 s nextPutLine:' {'. |
6350 // either via the menu or the keyboard (usually CMD-A). |
6350 // either via the menu or the keyboard (usually CMD-A). |
6351 '. |
6351 '. |
6352 |
6352 |
6353 ^ s contents |
6353 ^ s contents |
6354 |
6354 |
6355 "Created: / 23.12.1996 / 12:46:31 / cg" |
6355 "Created: / 23-12-1996 / 12:46:31 / cg" |
6356 "Modified: / 15.6.1998 / 17:23:05 / cg" |
6356 "Modified: / 16-07-2013 / 19:50:01 / cg" |
6357 ! |
6357 ! |
6358 |
6358 |
6359 listOfAllClassNamesInCategory:aCategory |
6359 listOfAllClassNamesInCategory:aCategory |
6360 "return a list of the names of all classes in a given category" |
6360 "return a list of the names of all classes in a given category" |
6361 |
6361 |
14530 ! ! |
14530 ! ! |
14531 |
14531 |
14532 !BrowserView class methodsFor:'documentation'! |
14532 !BrowserView class methodsFor:'documentation'! |
14533 |
14533 |
14534 version_CVS |
14534 version_CVS |
14535 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.852 2013-06-30 09:10:54 cg Exp $' |
14535 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.853 2013-07-16 17:50:18 cg Exp $' |
14536 ! |
14536 ! |
14537 |
14537 |
14538 version_HG |
14538 version_HG |
14539 |
14539 |
14540 ^ '$Changeset: <not expanded> $' |
14540 ^ '$Changeset: <not expanded> $' |