--- a/BrowserView.st Mon Feb 19 17:27:29 1996 +0100
+++ b/BrowserView.st Tue Feb 20 00:33:24 1996 +0100
@@ -2480,7 +2480,6 @@
currentMethod := nil.
currentSelector := nil.
- self updateVariableList.
self updateMethodCategoryList.
oldMethodCategory notNil ifTrue:[
@@ -2492,6 +2491,7 @@
].
self updateMethodList.
self updateCodeView.
+ self updateVariableList.
fullClass ifTrue:[
codeView acceptAction:[:theCode |
@@ -2531,7 +2531,7 @@
]
"Created: 23.11.1995 / 11:32:03 / cg"
- "Modified: 11.2.1996 / 15:45:10 / cg"
+ "Modified: 20.2.1996 / 00:26:30 / cg"
!
classTemplateFor:className in:cat
@@ -6621,76 +6621,80 @@
name isNil ifTrue:[^ self].
self withSearchCursorDo:[
- |classes filter any|
-
- classes := Array with:actualClass.
- currentClassHierarchy notNil ifTrue:[
- classes := classes , actualClass allSuperclasses.
- redefinedSelectors := IdentitySet new.
- ].
-
- filter := SystemBrowser filterToSearchRefsTo:name classVars:showInstance not modificationsOnly:false.
-
- any := false.
- "
- highlight the method that ref this variable
- "
- classes do:[:someClass |
- (fullProtocol
- and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
- someClass methodArray with:someClass selectorArray
- do:[:method :selector |
-
- (inCat
- or:[methodListView list notNil
- and:[methodListView list includes:selector]])
- ifTrue:[
- (redefinedSelectors isNil
- or:[(redefinedSelectors includes:selector) not])
- ifTrue:[
- (filter value:someClass value:method value:selector) ifTrue:[
- |idx cat|
-
- (inCat
- and:[methodCategoryListView notNil
- and:[methodCategoryListView list notNil]]) ifTrue:[
- cat := method category.
- "
- highlight the methodCategory
- "
- idx := methodCategoryListView list indexOf:cat.
- idx ~~ 0 ifTrue:[
- methodCategoryListView attributeAt:idx put:#bold.
- ].
- ].
-
- (inMethods
- and:[methodListView notNil
- and:[methodListView list notNil]]) ifTrue:[
- "
- highlight the method
- "
- idx := methodListView list indexOf:selector.
- idx ~~ 0 ifTrue:[
- methodListView attributeAt:idx put:#bold.
- ].
- any := true
- ].
- ].
- redefinedSelectors notNil ifTrue:[
- redefinedSelectors add:selector
- ]
- ]
- ]
- ]
- ]
- ].
- any ifTrue:[
- self setSearchPattern:name
- ]
+ |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 modificationsOnly:false.
+
+ any := false.
+ "
+ highlight the method that ref this variable
+ "
+ classes do:[:someClass |
+ (fullProtocol
+ and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
+ someClass methodArray with:someClass selectorArray
+ do:[:method :selector |
+
+ (inCat
+ or:[methodListView list notNil
+ and:[methodListView list includes:selector]])
+ ifTrue:[
+ (redefinedSelectors isNil
+ or:[(redefinedSelectors includes:selector) not])
+ ifTrue:[
+ (filter value:someClass value:method value:selector) ifTrue:[
+ |idx cat|
+
+ (inCat
+ and:[methodCategoryListView notNil
+ and:[methodCategoryListView list notNil]]) ifTrue:[
+ cat := method category.
+ "
+ highlight the methodCategory
+ "
+ idx := methodCategoryListView list indexOf:cat.
+ idx ~~ 0 ifTrue:[
+ methodCategoryListView attributeAt:idx put:#bold.
+ ].
+ ].
+
+ (inMethods
+ and:[methodListView notNil
+ and:[methodListView list notNil]]) ifTrue:[
+ "
+ highlight the method
+ "
+ idx := methodListView list indexOf:selector.
+ idx ~~ 0 ifTrue:[
+ methodListView attributeAt:idx put:#bold.
+ ].
+ any := true
+ ].
+ ].
+ redefinedSelectors notNil ifTrue:[
+ redefinedSelectors add:selector
+ ]
+ ]
+ ]
+ ]
+ ]
+ ].
+ any ifTrue:[
+ self setSearchPattern:name
+ ]
]
"Created: 23.11.1995 / 14:12:08 / cg"
+ "Modified: 20.2.1996 / 00:30:26 / cg"
!
hilightMethodsInMethodList
@@ -6784,6 +6788,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.102 1996-02-19 16:27:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.103 1996-02-19 23:33:24 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Mon Feb 19 17:27:29 1996 +0100
+++ b/BrwsrView.st Tue Feb 20 00:33:24 1996 +0100
@@ -2480,7 +2480,6 @@
currentMethod := nil.
currentSelector := nil.
- self updateVariableList.
self updateMethodCategoryList.
oldMethodCategory notNil ifTrue:[
@@ -2492,6 +2491,7 @@
].
self updateMethodList.
self updateCodeView.
+ self updateVariableList.
fullClass ifTrue:[
codeView acceptAction:[:theCode |
@@ -2531,7 +2531,7 @@
]
"Created: 23.11.1995 / 11:32:03 / cg"
- "Modified: 11.2.1996 / 15:45:10 / cg"
+ "Modified: 20.2.1996 / 00:26:30 / cg"
!
classTemplateFor:className in:cat
@@ -6621,76 +6621,80 @@
name isNil ifTrue:[^ self].
self withSearchCursorDo:[
- |classes filter any|
-
- classes := Array with:actualClass.
- currentClassHierarchy notNil ifTrue:[
- classes := classes , actualClass allSuperclasses.
- redefinedSelectors := IdentitySet new.
- ].
-
- filter := SystemBrowser filterToSearchRefsTo:name classVars:showInstance not modificationsOnly:false.
-
- any := false.
- "
- highlight the method that ref this variable
- "
- classes do:[:someClass |
- (fullProtocol
- and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
- someClass methodArray with:someClass selectorArray
- do:[:method :selector |
-
- (inCat
- or:[methodListView list notNil
- and:[methodListView list includes:selector]])
- ifTrue:[
- (redefinedSelectors isNil
- or:[(redefinedSelectors includes:selector) not])
- ifTrue:[
- (filter value:someClass value:method value:selector) ifTrue:[
- |idx cat|
-
- (inCat
- and:[methodCategoryListView notNil
- and:[methodCategoryListView list notNil]]) ifTrue:[
- cat := method category.
- "
- highlight the methodCategory
- "
- idx := methodCategoryListView list indexOf:cat.
- idx ~~ 0 ifTrue:[
- methodCategoryListView attributeAt:idx put:#bold.
- ].
- ].
-
- (inMethods
- and:[methodListView notNil
- and:[methodListView list notNil]]) ifTrue:[
- "
- highlight the method
- "
- idx := methodListView list indexOf:selector.
- idx ~~ 0 ifTrue:[
- methodListView attributeAt:idx put:#bold.
- ].
- any := true
- ].
- ].
- redefinedSelectors notNil ifTrue:[
- redefinedSelectors add:selector
- ]
- ]
- ]
- ]
- ]
- ].
- any ifTrue:[
- self setSearchPattern:name
- ]
+ |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 modificationsOnly:false.
+
+ any := false.
+ "
+ highlight the method that ref this variable
+ "
+ classes do:[:someClass |
+ (fullProtocol
+ and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
+ someClass methodArray with:someClass selectorArray
+ do:[:method :selector |
+
+ (inCat
+ or:[methodListView list notNil
+ and:[methodListView list includes:selector]])
+ ifTrue:[
+ (redefinedSelectors isNil
+ or:[(redefinedSelectors includes:selector) not])
+ ifTrue:[
+ (filter value:someClass value:method value:selector) ifTrue:[
+ |idx cat|
+
+ (inCat
+ and:[methodCategoryListView notNil
+ and:[methodCategoryListView list notNil]]) ifTrue:[
+ cat := method category.
+ "
+ highlight the methodCategory
+ "
+ idx := methodCategoryListView list indexOf:cat.
+ idx ~~ 0 ifTrue:[
+ methodCategoryListView attributeAt:idx put:#bold.
+ ].
+ ].
+
+ (inMethods
+ and:[methodListView notNil
+ and:[methodListView list notNil]]) ifTrue:[
+ "
+ highlight the method
+ "
+ idx := methodListView list indexOf:selector.
+ idx ~~ 0 ifTrue:[
+ methodListView attributeAt:idx put:#bold.
+ ].
+ any := true
+ ].
+ ].
+ redefinedSelectors notNil ifTrue:[
+ redefinedSelectors add:selector
+ ]
+ ]
+ ]
+ ]
+ ]
+ ].
+ any ifTrue:[
+ self setSearchPattern:name
+ ]
]
"Created: 23.11.1995 / 14:12:08 / cg"
+ "Modified: 20.2.1996 / 00:30:26 / cg"
!
hilightMethodsInMethodList
@@ -6784,6 +6788,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.102 1996-02-19 16:27:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.103 1996-02-19 23:33:24 cg Exp $'
! !
BrowserView initialize!