--- a/BrowserView.st Thu Jul 31 22:42:31 1997 +0200
+++ b/BrowserView.st Thu Jul 31 23:16:08 1997 +0200
@@ -1512,9 +1512,12 @@
|newCategory oldClass oldName classIndex list|
newCategory := classCategoryListView selectionValue.
- (newCategory startsWith:'*') ifTrue:[
- "etiher all or hierarchy;
- remember current selections and switch after showing class list"
+ (newCategory = '* all *'
+ or:[newCategory = '* hierarchy *']) ifTrue:[
+ "switch to all or hierarchy:
+ remember current class and reselect it
+ after showing the updated class list
+ "
oldClass := currentClass
].
currentClassCategory := newCategory.
@@ -1540,7 +1543,7 @@
]
]
- "Modified: 20.12.1996 / 16:40:15 / cg"
+ "Modified: 31.7.1997 / 23:01:40 / cg"
!
classCategorySelectionChanged
@@ -4045,11 +4048,11 @@
]
].
- msg := 'found ' , cls name , ' in category ''' , cls category , '.\'.
+ msg := 'found ' , cls name , ' in category ''' , cls category , '''.\'.
globlName notNil ifTrue:[
msg := msg , '(known as ' , globlName , ')\'.
].
- (self confirm:(msg , '\reconnect ?') withCRs)
+ (self confirm:(msg , '\rebind in Smalltalk as ''' , cls name , '''?') withCRs)
ifTrue:[
Smalltalk at:cls name asSymbol put:cls
]
@@ -4064,7 +4067,7 @@
]
]
- "Modified: 30.7.1997 / 17:56:55 / cg"
+ "Modified: 31.7.1997 / 22:56:45 / cg"
!
classSelectionChanged
@@ -8599,12 +8602,12 @@
|owner nm ns|
- "/ in which nameSpace is that class (or its owner) ?
-
aClass isJavaClass ifTrue:[
^ aClass fullName "/ asString replaceAll:$/ by:$.
].
+ "/ in which nameSpace is that class (or its owner) ?
+
owner := aClass topOwningClass.
owner notNil ifTrue:[
ns := owner nameSpace.
@@ -8640,7 +8643,7 @@
^ nm.
"Created: 20.12.1996 / 17:46:41 / cg"
- "Modified: 22.3.1997 / 14:08:08 / cg"
+ "Modified: 31.7.1997 / 22:57:16 / cg"
!
listOfAllNamespaces
@@ -10478,6 +10481,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.325 1997-07-31 20:42:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.326 1997-07-31 21:16:08 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Thu Jul 31 22:42:31 1997 +0200
+++ b/BrwsrView.st Thu Jul 31 23:16:08 1997 +0200
@@ -1512,9 +1512,12 @@
|newCategory oldClass oldName classIndex list|
newCategory := classCategoryListView selectionValue.
- (newCategory startsWith:'*') ifTrue:[
- "etiher all or hierarchy;
- remember current selections and switch after showing class list"
+ (newCategory = '* all *'
+ or:[newCategory = '* hierarchy *']) ifTrue:[
+ "switch to all or hierarchy:
+ remember current class and reselect it
+ after showing the updated class list
+ "
oldClass := currentClass
].
currentClassCategory := newCategory.
@@ -1540,7 +1543,7 @@
]
]
- "Modified: 20.12.1996 / 16:40:15 / cg"
+ "Modified: 31.7.1997 / 23:01:40 / cg"
!
classCategorySelectionChanged
@@ -4045,11 +4048,11 @@
]
].
- msg := 'found ' , cls name , ' in category ''' , cls category , '.\'.
+ msg := 'found ' , cls name , ' in category ''' , cls category , '''.\'.
globlName notNil ifTrue:[
msg := msg , '(known as ' , globlName , ')\'.
].
- (self confirm:(msg , '\reconnect ?') withCRs)
+ (self confirm:(msg , '\rebind in Smalltalk as ''' , cls name , '''?') withCRs)
ifTrue:[
Smalltalk at:cls name asSymbol put:cls
]
@@ -4064,7 +4067,7 @@
]
]
- "Modified: 30.7.1997 / 17:56:55 / cg"
+ "Modified: 31.7.1997 / 22:56:45 / cg"
!
classSelectionChanged
@@ -8599,12 +8602,12 @@
|owner nm ns|
- "/ in which nameSpace is that class (or its owner) ?
-
aClass isJavaClass ifTrue:[
^ aClass fullName "/ asString replaceAll:$/ by:$.
].
+ "/ in which nameSpace is that class (or its owner) ?
+
owner := aClass topOwningClass.
owner notNil ifTrue:[
ns := owner nameSpace.
@@ -8640,7 +8643,7 @@
^ nm.
"Created: 20.12.1996 / 17:46:41 / cg"
- "Modified: 22.3.1997 / 14:08:08 / cg"
+ "Modified: 31.7.1997 / 22:57:16 / cg"
!
listOfAllNamespaces
@@ -10478,6 +10481,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.325 1997-07-31 20:42:31 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.326 1997-07-31 21:16:08 cg Exp $'
! !
BrowserView initialize!