equal
deleted
inserted
replaced
3833 oldClassName := currentClass name. |
3833 oldClassName := currentClass name. |
3834 currentClass := self findClassNamed:oldClassName. |
3834 currentClass := self findClassNamed:oldClassName. |
3835 ]. |
3835 ]. |
3836 |
3836 |
3837 currentClassCategory notNil ifTrue:[ |
3837 currentClassCategory notNil ifTrue:[ |
3838 MessageTally spyOn:[ |
|
3839 classes := self listOfAllClassesInCategory:currentClassCategory |
3838 classes := self listOfAllClassesInCategory:currentClassCategory |
3840 ]. |
|
3841 ] ifFalse:[ |
3839 ] ifFalse:[ |
3842 currentClassHierarchy notNil ifTrue:[ |
3840 currentClassHierarchy notNil ifTrue:[ |
3843 classes := self listOfClassHierarchyOf:currentClassHierarchy |
3841 classes := self listOfClassHierarchyOf:currentClassHierarchy |
3844 ] |
3842 ] |
3845 ]. |
3843 ]. |
3863 ] |
3861 ] |
3864 ] |
3862 ] |
3865 ]. |
3863 ]. |
3866 ] |
3864 ] |
3867 |
3865 |
3868 "Modified: 20.12.1996 / 19:32:43 / cg" |
3866 "Modified: 20.12.1996 / 21:18:44 / cg" |
3869 ! ! |
3867 ! ! |
3870 |
3868 |
3871 !BrowserView methodsFor:'class-method list menu'! |
3869 !BrowserView methodsFor:'class-method list menu'! |
3872 |
3870 |
3873 classMethodBrowse |
3871 classMethodBrowse |
8693 ! ! |
8691 ! ! |
8694 |
8692 |
8695 !BrowserView class methodsFor:'documentation'! |
8693 !BrowserView class methodsFor:'documentation'! |
8696 |
8694 |
8697 version |
8695 version |
8698 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.222 1996-12-20 20:17:39 cg Exp $' |
8696 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.223 1996-12-20 20:19:49 cg Exp $' |
8699 ! ! |
8697 ! ! |
8700 BrowserView initialize! |
8698 BrowserView initialize! |