equal
deleted
inserted
replaced
2475 classMakePrivate |
2475 classMakePrivate |
2476 "change a class from public to private; |
2476 "change a class from public to private; |
2477 ask for the owners class, check if a private class with the same name exists, |
2477 ask for the owners class, check if a private class with the same name exists, |
2478 before doing this." |
2478 before doing this." |
2479 |
2479 |
2480 |ownerName owner sel newClass| |
2480 |ownerName owner| |
2481 |
2481 |
2482 ownerName := Dialog request:(resources string:'name of owner class:'). |
2482 ownerName := Dialog request:(resources string:'name of owner class:'). |
2483 ownerName size == 0 ifTrue:[ |
2483 ownerName size == 0 ifTrue:[ |
2484 "/ cancelled |
2484 "/ cancelled |
2485 ^ self |
2485 ^ self |
4453 ! |
4453 ! |
4454 |
4454 |
4455 classSelection:lineNr |
4455 classSelection:lineNr |
4456 "user clicked on a class line - show method categories" |
4456 "user clicked on a class line - show method categories" |
4457 |
4457 |
4458 |cls nm oldSelector sel classes key msg globlName| |
4458 |cls nm oldSelector sel classes msg globlName| |
4459 |
4459 |
4460 (currentClassHierarchy notNil |
4460 (currentClassHierarchy notNil |
4461 and:[fullProtocol]) ifTrue:[ |
4461 and:[fullProtocol]) ifTrue:[ |
4462 oldSelector := currentSelector. |
4462 oldSelector := currentSelector. |
4463 |
4463 |
4652 ! |
4652 ! |
4653 |
4653 |
4654 classTemplateFor:aSuperClass in:categoryString namespace:isNameSpace private:isPrivate |
4654 classTemplateFor:aSuperClass in:categoryString namespace:isNameSpace private:isPrivate |
4655 "return a class definition template - be smart in what is offered initially" |
4655 "return a class definition template - be smart in what is offered initially" |
4656 |
4656 |
4657 |cat aString name nameProto namePrefix i existingNames withNameSpaceDirective |
4657 |cat name nameProto namePrefix i existingNames withNameSpaceDirective |
4658 className ownerName s| |
4658 className ownerName s| |
4659 |
4659 |
4660 s := TextStream on:''. |
4660 s := TextStream on:''. |
4661 |
4661 |
4662 isNameSpace ifTrue:[ |
4662 isNameSpace ifTrue:[ |
4784 listOfAllClassesInCategory:aCategory names:namesFlag |
4784 listOfAllClassesInCategory:aCategory names:namesFlag |
4785 "return a list of (the names) of all classes in a given category |
4785 "return a list of (the names) of all classes in a given category |
4786 from the currently selected set of nameSpaces." |
4786 from the currently selected set of nameSpaces." |
4787 |
4787 |
4788 |nameSpaces listOfClassNames listOfClasses classesPresent namesPresent searchCategory |
4788 |nameSpaces listOfClassNames listOfClasses classesPresent namesPresent searchCategory |
4789 match anyCategory nm owner allNameSpaces| |
4789 match anyCategory nm allNameSpaces| |
4790 |
4790 |
4791 allNameSpaces := (currentNamespace = '* all *'). |
4791 allNameSpaces := (currentNamespace = '* all *'). |
4792 |
4792 |
4793 "/ keep track of added names (care for obsolete classes) |
4793 "/ keep track of added names (care for obsolete classes) |
4794 |
4794 |
5050 |
5050 |
5051 "Modified: / 19.4.1998 / 20:56:04 / cg" |
5051 "Modified: / 19.4.1998 / 20:56:04 / cg" |
5052 ! |
5052 ! |
5053 |
5053 |
5054 switchToClassNamed:aString |
5054 switchToClassNamed:aString |
5055 |meta str classSymbol theClass newCat element idx l| |
5055 |meta str theClass newCat element idx l| |
5056 |
5056 |
5057 meta := false. |
5057 meta := false. |
5058 |
5058 |
5059 str := aString. |
5059 str := aString. |
5060 (aString endsWith:' class') ifTrue:[ |
5060 (aString endsWith:' class') ifTrue:[ |
6427 ! |
6427 ! |
6428 |
6428 |
6429 methodCategoryCreateDocumentationMethods |
6429 methodCategoryCreateDocumentationMethods |
6430 "create empty documentation methods" |
6430 "create empty documentation methods" |
6431 |
6431 |
6432 |cls histStream fn txt| |
6432 |cls fn txt| |
6433 |
6433 |
6434 self checkClassSelected ifFalse:[^ self]. |
6434 self checkClassSelected ifFalse:[^ self]. |
6435 |
6435 |
6436 cls := currentClass class. |
6436 cls := currentClass class. |
6437 |
6437 |
8497 listOfAllSelectorsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass |
8497 listOfAllSelectorsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass |
8498 "answer a list of all selectors in a given method category |
8498 "answer a list of all selectors in a given method category |
8499 of the argument, aClass and its superclasses. |
8499 of the argument, aClass and its superclasses. |
8500 Used with fullProtocol browsing." |
8500 Used with fullProtocol browsing." |
8501 |
8501 |
8502 |methodList newList otherSelectors allCategories| |
8502 |methodList newList| |
8503 |
8503 |
8504 methodList := self listOfAllMethodsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass. |
8504 methodList := self listOfAllMethodsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass. |
8505 (methodList size == 0) ifTrue:[^ nil]. |
8505 (methodList size == 0) ifTrue:[^ nil]. |
8506 |
8506 |
8507 aClass isJavaClass ifTrue:[ |
8507 aClass isJavaClass ifTrue:[ |
8738 |
8738 |
8739 switchToAnyMethodNamed:matchString |
8739 switchToAnyMethodNamed:matchString |
8740 "switch (in the current classes hierarchy) to a method named matchString. |
8740 "switch (in the current classes hierarchy) to a method named matchString. |
8741 If there are more than one matches, switch to the first." |
8741 If there are more than one matches, switch to the first." |
8742 |
8742 |
8743 |aSelector classToStartSearch classToSearch aClass nm idx| |
8743 |aSelector classToStartSearch classToSearch aClass nm| |
8744 |
8744 |
8745 actualClass isNil ifTrue:[ |
8745 actualClass isNil ifTrue:[ |
8746 currentClassHierarchy notNil ifTrue:[ |
8746 currentClassHierarchy notNil ifTrue:[ |
8747 classToStartSearch := currentClassHierarchy |
8747 classToStartSearch := currentClassHierarchy |
8748 ] |
8748 ] |
11595 ! ! |
11595 ! ! |
11596 |
11596 |
11597 !BrowserView class methodsFor:'documentation'! |
11597 !BrowserView class methodsFor:'documentation'! |
11598 |
11598 |
11599 version |
11599 version |
11600 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.393 1998-04-19 19:07:17 cg Exp $' |
11600 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.394 1998-04-21 00:37:47 cg Exp $' |
11601 ! ! |
11601 ! ! |
11602 BrowserView initialize! |
11602 BrowserView initialize! |