--- a/BrowserView.st Thu Jan 09 00:11:20 1997 +0100
+++ b/BrowserView.st Thu Jan 09 00:17:04 1997 +0100
@@ -125,6 +125,15 @@
|list selector oldMethod|
(changedObject == Smalltalk) ifTrue:[
+ something == #methodInClassRemoved ifTrue:[
+ "/ ignored; I am dependent of individual class update messages
+ ^ self
+ ].
+ something == #methodInClass ifTrue:[
+ "/ ignored; I am dependent of individual class update messages
+ ^ self
+ ].
+
self updateNamespaceList.
something == #newClass ifTrue:[
@@ -201,7 +210,9 @@
"/
"/ its the current class that has changed
"/
- something == #methodDictionary ifTrue:[
+ ((something == #methodDictionary)
+ or:[something == #methodTrap
+ or:[something == #methodPrivacy]]) ifTrue:[
"/ new feature: changeArg may be an array consisting of
"/ the selector and the oldMethod
@@ -219,7 +230,10 @@
"
the method with selector was changed or removed
"
- self updateMethodCategoryListWithScroll:false.
+ (something ~~ #methodTrap
+ and:[something ~~ #methodPrivacy]) ifTrue:[
+ self updateMethodCategoryListWithScroll:false.
+ ].
self updateMethodListWithScroll:false.
selector == currentSelector ifTrue:[
@@ -335,7 +349,7 @@
]
"Created: 4.1.1997 / 13:54:00 / cg"
- "Modified: 8.1.1997 / 10:54:16 / cg"
+ "Modified: 8.1.1997 / 23:20:44 / cg"
!
refetchClass
@@ -5837,31 +5851,20 @@
"install a break/trace or countPoint for the current method"
currentMethod := MessageTracer perform:aSelector with:currentMethod.
-"/ self updateMethodListWithScroll:false keepSelection:true.
-
-"/ (currentMethod notNil and:[currentMethod isWrapped not]) ifTrue:[
- Class withoutUpdatingChangesDo:[
- currentClass changed:#methodDictionary with:currentSelector.
- ]
-"/ ]
-
- "Modified: 22.10.1996 / 21:24:41 / cg"
+ Class withoutUpdatingChangesDo:[
+ currentClass changed:#methodTrap with:currentSelector.
+ ]
!
commonTraceHelperWith:aSelector with:argument
"install a break/trace or countPoint for the current method"
currentMethod := MessageTracer perform:aSelector with:currentMethod with:argument.
-"/ self updateMethodListWithScroll:false keepSelection:true.
-
-"/ (currentMethod notNil and:[currentMethod isWrapped not]) ifTrue:[
- Class withoutUpdatingChangesDo:[
- currentClass changed:#methodDictionary with:currentSelector.
- ]
-"/ ]
-
- "Created: 14.10.1996 / 15:37:57 / cg"
- "Modified: 22.10.1996 / 21:24:52 / cg"
+ Class withoutUpdatingChangesDo:[
+ currentClass changed:#methodTrap with:currentSelector.
+ ]
+
+ "Modified: 8.1.1997 / 22:34:21 / cg"
!
methodAproposSearch
@@ -5948,7 +5951,7 @@
method := currentMethod.
method category:aString asSymbol.
- actualClass changed.
+ actualClass changed:#organization with:currentSelector.
method changed:#category.
actualClass addChangeRecordForMethodCategory:method category:aString.
self updateMethodCategoryListWithScroll:false.
@@ -5957,7 +5960,7 @@
box showAtPointer
"Created: 29.10.1995 / 19:59:22 / cg"
- "Modified: 26.5.1996 / 12:47:10 / cg"
+ "Modified: 8.1.1997 / 22:36:35 / cg"
!
methodCompareWithPreviousVersion
@@ -6553,14 +6556,14 @@
] ifFalse:[
self warn:'cannot write change record (no class)'
].
-"/ self updateMethodListWithScroll:false keepSelection:true.
+
Class withoutUpdatingChangesDo:[
- currentClass changed:#methodDictionary with:currentSelector.
+ currentClass changed:#methodPrivacy with:currentSelector.
]
]
"Created: 29.10.1995 / 20:00:00 / cg"
- "Modified: 1.11.1996 / 16:31:50 / cg"
+ "Modified: 8.1.1997 / 22:37:02 / cg"
!
methodRemove
@@ -9158,6 +9161,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.248 1997-01-08 09:59:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.249 1997-01-08 23:17:04 cg Exp $'
! !
BrowserView initialize!