--- a/BrowserView.st Mon Jul 26 09:31:02 1999 +0200
+++ b/BrowserView.st Mon Jul 26 09:34:32 1999 +0200
@@ -5835,21 +5835,16 @@
|startClass classes thisOne|
showInstance ifTrue:[
- startClass := aClass
+ startClass := aClass
] ifFalse:[
- startClass := aClass class.
+ startClass := aClass class.
].
classes := startClass allSuperclasses.
thisOne := Array with:startClass.
-
- classes notNil ifTrue:[
- classes := classes reverse , thisOne.
- ] ifFalse:[
- classes := thisOne
- ].
+ classes := classes reverse , thisOne.
fullProtocol ifFalse:[
- classes := classes , startClass allSubclassesInOrder
+ classes := classes , startClass allSubclassesInOrder
].
^ classes collect:[:c | self displayedClassNameOf:c "c name"]
@@ -13417,92 +13412,90 @@
name isNil ifTrue:[^ self].
self withSearchCursorDo:[
- |classes filter any supers|
-
- classes := Array with:actualClass.
- (currentClassHierarchy notNil and:[fullProtocol]) ifTrue:[
- supers := actualClass allSuperclasses.
- supers notNil ifTrue:[
- classes := classes , supers.
- ].
- redefinedSelectors := IdentitySet new.
- ].
-
- filter := SystemBrowser
- filterToSearchRefsTo:name
- classVars:(showInstance not and:[classInstVarsInVarList ~~ true])
- modificationsOnly:false.
-
- methodListView notNil ifTrue:[
- methodList := methodListView list.
- ].
- methodCategoryListView notNil ifTrue:[
- methodCategoryList := methodCategoryListView list.
- ].
-
- any := false.
-
- "
- highlight the method that ref this variable
- "
- classes do:[:someClass |
- (fullProtocol
- and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
- someClass methodDictionary keysAndValuesDo:[:selector :method |
- (inCat
- or:[methodList notNil
- and:[methodList includes:selector]])
- ifTrue:[
- (redefinedSelectors isNil
- or:[(redefinedSelectors includes:selector) not])
- ifTrue:[
- (filter value:someClass value:method value:selector) ifTrue:[
- |idx cat|
-
- (inCat
- and:[methodCategoryList notNil]) ifTrue:[
- cat := method category.
- "
- highlight the methodCategory
- "
- idx := methodCategoryListView list indexOf:cat.
- idx ~~ 0 ifTrue:[
- entry := methodCategoryListView at:idx.
- entry := self hilightEntryFor:entry.
- methodCategoryListView at:idx put:entry
+ |classes filter any supers|
+
+ classes := Array with:actualClass.
+ (currentClassHierarchy notNil and:[fullProtocol]) ifTrue:[
+ supers := actualClass allSuperclasses.
+ classes := classes , supers.
+ redefinedSelectors := IdentitySet new.
+ ].
+
+ filter := SystemBrowser
+ filterToSearchRefsTo:name
+ classVars:(showInstance not and:[classInstVarsInVarList ~~ true])
+ modificationsOnly:false.
+
+ methodListView notNil ifTrue:[
+ methodList := methodListView list.
+ ].
+ methodCategoryListView notNil ifTrue:[
+ methodCategoryList := methodCategoryListView list.
+ ].
+
+ any := false.
+
+ "
+ highlight the method that ref this variable
+ "
+ classes do:[:someClass |
+ (fullProtocol
+ and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
+ someClass methodDictionary keysAndValuesDo:[:selector :method |
+ (inCat
+ or:[methodList notNil
+ and:[methodList includes:selector]])
+ ifTrue:[
+ (redefinedSelectors isNil
+ or:[(redefinedSelectors includes:selector) not])
+ ifTrue:[
+ (filter value:someClass value:method value:selector) ifTrue:[
+ |idx cat|
+
+ (inCat
+ and:[methodCategoryList notNil]) ifTrue:[
+ cat := method category.
+ "
+ highlight the methodCategory
+ "
+ idx := methodCategoryListView list indexOf:cat.
+ idx ~~ 0 ifTrue:[
+ entry := methodCategoryListView at:idx.
+ entry := self hilightEntryFor:entry.
+ methodCategoryListView at:idx put:entry
"/ methodCategoryListView attributeAt:idx put:#bold.
- ].
- ].
-
- (inMethods
- and:[methodList notNil]) ifTrue:[
- "
- highlight the method
- "
- idx := methodListView list
- findFirst:[:item | item string = selector
- or:[item string startsWith:(selector , ' ')]
- ].
- idx ~~ 0 ifTrue:[
- entry := methodListView at:idx.
- entry := self hilightEntryFor:entry.
- methodListView at:idx put:entry
+ ].
+ ].
+
+ (inMethods
+ and:[methodList notNil]) ifTrue:[
+ "
+ highlight the method
+ "
+ idx := methodListView list
+ findFirst:[:item | item string = selector
+ or:[item string startsWith:(selector , ' ')]
+ ].
+ idx ~~ 0 ifTrue:[
+ entry := methodListView at:idx.
+ entry := self hilightEntryFor:entry.
+ methodListView at:idx put:entry
"/ methodListView attributeAt:idx put:#bold.
- ].
- any := true
- ].
- ].
- redefinedSelectors notNil ifTrue:[
- redefinedSelectors add:selector
- ]
- ]
- ]
- ]
- ]
- ].
- any ifTrue:[
- self setSearchPattern:name
- ]
+ ].
+ any := true
+ ].
+ ].
+ redefinedSelectors notNil ifTrue:[
+ redefinedSelectors add:selector
+ ]
+ ]
+ ]
+ ]
+ ]
+ ].
+ any ifTrue:[
+ self setSearchPattern:name
+ ]
]
"Created: / 23.11.1995 / 14:12:08 / cg"
@@ -13665,6 +13658,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.530 1999-07-22 22:53:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.531 1999-07-26 07:34:32 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Mon Jul 26 09:31:02 1999 +0200
+++ b/BrwsrView.st Mon Jul 26 09:34:32 1999 +0200
@@ -5835,21 +5835,16 @@
|startClass classes thisOne|
showInstance ifTrue:[
- startClass := aClass
+ startClass := aClass
] ifFalse:[
- startClass := aClass class.
+ startClass := aClass class.
].
classes := startClass allSuperclasses.
thisOne := Array with:startClass.
-
- classes notNil ifTrue:[
- classes := classes reverse , thisOne.
- ] ifFalse:[
- classes := thisOne
- ].
+ classes := classes reverse , thisOne.
fullProtocol ifFalse:[
- classes := classes , startClass allSubclassesInOrder
+ classes := classes , startClass allSubclassesInOrder
].
^ classes collect:[:c | self displayedClassNameOf:c "c name"]
@@ -13417,92 +13412,90 @@
name isNil ifTrue:[^ self].
self withSearchCursorDo:[
- |classes filter any supers|
-
- classes := Array with:actualClass.
- (currentClassHierarchy notNil and:[fullProtocol]) ifTrue:[
- supers := actualClass allSuperclasses.
- supers notNil ifTrue:[
- classes := classes , supers.
- ].
- redefinedSelectors := IdentitySet new.
- ].
-
- filter := SystemBrowser
- filterToSearchRefsTo:name
- classVars:(showInstance not and:[classInstVarsInVarList ~~ true])
- modificationsOnly:false.
-
- methodListView notNil ifTrue:[
- methodList := methodListView list.
- ].
- methodCategoryListView notNil ifTrue:[
- methodCategoryList := methodCategoryListView list.
- ].
-
- any := false.
-
- "
- highlight the method that ref this variable
- "
- classes do:[:someClass |
- (fullProtocol
- and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
- someClass methodDictionary keysAndValuesDo:[:selector :method |
- (inCat
- or:[methodList notNil
- and:[methodList includes:selector]])
- ifTrue:[
- (redefinedSelectors isNil
- or:[(redefinedSelectors includes:selector) not])
- ifTrue:[
- (filter value:someClass value:method value:selector) ifTrue:[
- |idx cat|
-
- (inCat
- and:[methodCategoryList notNil]) ifTrue:[
- cat := method category.
- "
- highlight the methodCategory
- "
- idx := methodCategoryListView list indexOf:cat.
- idx ~~ 0 ifTrue:[
- entry := methodCategoryListView at:idx.
- entry := self hilightEntryFor:entry.
- methodCategoryListView at:idx put:entry
+ |classes filter any supers|
+
+ classes := Array with:actualClass.
+ (currentClassHierarchy notNil and:[fullProtocol]) ifTrue:[
+ supers := actualClass allSuperclasses.
+ classes := classes , supers.
+ redefinedSelectors := IdentitySet new.
+ ].
+
+ filter := SystemBrowser
+ filterToSearchRefsTo:name
+ classVars:(showInstance not and:[classInstVarsInVarList ~~ true])
+ modificationsOnly:false.
+
+ methodListView notNil ifTrue:[
+ methodList := methodListView list.
+ ].
+ methodCategoryListView notNil ifTrue:[
+ methodCategoryList := methodCategoryListView list.
+ ].
+
+ any := false.
+
+ "
+ highlight the method that ref this variable
+ "
+ classes do:[:someClass |
+ (fullProtocol
+ and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
+ someClass methodDictionary keysAndValuesDo:[:selector :method |
+ (inCat
+ or:[methodList notNil
+ and:[methodList includes:selector]])
+ ifTrue:[
+ (redefinedSelectors isNil
+ or:[(redefinedSelectors includes:selector) not])
+ ifTrue:[
+ (filter value:someClass value:method value:selector) ifTrue:[
+ |idx cat|
+
+ (inCat
+ and:[methodCategoryList notNil]) ifTrue:[
+ cat := method category.
+ "
+ highlight the methodCategory
+ "
+ idx := methodCategoryListView list indexOf:cat.
+ idx ~~ 0 ifTrue:[
+ entry := methodCategoryListView at:idx.
+ entry := self hilightEntryFor:entry.
+ methodCategoryListView at:idx put:entry
"/ methodCategoryListView attributeAt:idx put:#bold.
- ].
- ].
-
- (inMethods
- and:[methodList notNil]) ifTrue:[
- "
- highlight the method
- "
- idx := methodListView list
- findFirst:[:item | item string = selector
- or:[item string startsWith:(selector , ' ')]
- ].
- idx ~~ 0 ifTrue:[
- entry := methodListView at:idx.
- entry := self hilightEntryFor:entry.
- methodListView at:idx put:entry
+ ].
+ ].
+
+ (inMethods
+ and:[methodList notNil]) ifTrue:[
+ "
+ highlight the method
+ "
+ idx := methodListView list
+ findFirst:[:item | item string = selector
+ or:[item string startsWith:(selector , ' ')]
+ ].
+ idx ~~ 0 ifTrue:[
+ entry := methodListView at:idx.
+ entry := self hilightEntryFor:entry.
+ methodListView at:idx put:entry
"/ methodListView attributeAt:idx put:#bold.
- ].
- any := true
- ].
- ].
- redefinedSelectors notNil ifTrue:[
- redefinedSelectors add:selector
- ]
- ]
- ]
- ]
- ]
- ].
- any ifTrue:[
- self setSearchPattern:name
- ]
+ ].
+ any := true
+ ].
+ ].
+ redefinedSelectors notNil ifTrue:[
+ redefinedSelectors add:selector
+ ]
+ ]
+ ]
+ ]
+ ]
+ ].
+ any ifTrue:[
+ self setSearchPattern:name
+ ]
]
"Created: / 23.11.1995 / 14:12:08 / cg"
@@ -13665,6 +13658,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.530 1999-07-22 22:53:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.531 1999-07-26 07:34:32 cg Exp $'
! !
BrowserView initialize!