--- a/BrowserView.st Sun Feb 11 11:16:19 1996 +0100
+++ b/BrowserView.st Sun Feb 11 15:45:40 1996 +0100
@@ -2460,70 +2460,73 @@
|oldMethodCategory oldMethod oldSelector|
self withWaitCursorDo:[
- oldMethodCategory := currentMethodCategory.
- oldMethod := currentMethod.
- oldSelector := currentSelector.
-
- showInstance ifTrue:[
- actualClass := acceptClass := currentClass
- ] ifFalse:[
- actualClass := acceptClass := currentClass class
- ].
- currentMethodCategory := nil.
- currentMethod := nil.
- currentSelector := nil.
-
- self updateVariableList.
- self updateMethodCategoryList.
-
- oldMethodCategory notNil ifTrue:[
- methodCategoryListView selectElement:oldMethodCategory.
- methodCategoryListView hasSelection ifTrue:[
- currentMethodCategory := oldMethodCategory.
- self methodCategorySelectionChanged
- ]
- ].
- self updateMethodList.
- self updateCodeView.
-
- fullClass ifTrue:[
- codeView acceptAction:[:theCode |
- codeView cursor:Cursor execute.
- Object abortSignal catch:[
- self compileCode:theCode asString.
- codeView modified:false.
- ].
- codeView cursor:Cursor normal.
- ].
- ] ifFalse:[
+ aspect := #definition.
+
+ oldMethodCategory := currentMethodCategory.
+ oldMethod := currentMethod.
+ oldSelector := currentSelector.
+
+ showInstance ifTrue:[
+ actualClass := acceptClass := currentClass
+ ] ifFalse:[
+ actualClass := acceptClass := currentClass class
+ ].
+ currentMethodCategory := nil.
+ currentMethod := nil.
+ currentSelector := nil.
+
+ self updateVariableList.
+ self updateMethodCategoryList.
+
+ oldMethodCategory notNil ifTrue:[
+ methodCategoryListView selectElement:oldMethodCategory.
+ methodCategoryListView hasSelection ifTrue:[
+ currentMethodCategory := oldMethodCategory.
+ self methodCategorySelectionChanged
+ ]
+ ].
+ self updateMethodList.
+ self updateCodeView.
+
+ fullClass ifTrue:[
+ codeView acceptAction:[:theCode |
+ codeView cursor:Cursor execute.
+ Object abortSignal catch:[
+ self compileCode:theCode asString.
+ codeView modified:false.
+ ].
+ codeView cursor:Cursor normal.
+ ].
+ ] ifFalse:[
"/ self classDefinition.
self classListUpdate.
- codeView acceptAction:[:theCode |
- codeView cursor:Cursor execute.
- Object abortSignal catch:[
- (Compiler evaluate:theCode asString notifying:codeView compile:false)
- isBehavior ifTrue:[
- self classCategoryUpdate.
- self updateClassListWithScroll:false.
- codeView modified:false.
- ].
- ].
- codeView cursor:Cursor normal.
- ].
- ].
- codeView explainAction:nil.
-
- classCategoryListView notNil ifTrue:[
- (currentClassCategory = currentClass category) ifFalse:[
- currentClassCategory := currentClass category.
- classCategoryListView selectElement:currentClassCategory
- ]
- ].
-
- self setDoitActionForClass
+ codeView acceptAction:[:theCode |
+ codeView cursor:Cursor execute.
+ Object abortSignal catch:[
+ (Compiler evaluate:theCode asString notifying:codeView compile:false)
+ isBehavior ifTrue:[
+ self classCategoryUpdate.
+ self updateClassListWithScroll:false.
+ codeView modified:false.
+ ].
+ ].
+ codeView cursor:Cursor normal.
+ ].
+ ].
+ codeView explainAction:nil.
+
+ classCategoryListView notNil ifTrue:[
+ (currentClassCategory = currentClass category) ifFalse:[
+ currentClassCategory := currentClass category.
+ classCategoryListView selectElement:currentClassCategory
+ ]
+ ].
+
+ self setDoitActionForClass
]
"Created: 23.11.1995 / 11:32:03 / cg"
+ "Modified: 11.2.1996 / 15:45:10 / cg"
!
classTemplateFor:className in:cat
@@ -6774,6 +6777,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.98 1996-02-11 10:16:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.99 1996-02-11 14:45:40 cg Exp $'
! !
BrowserView initialize!