--- a/BrowserView.st Wed Oct 25 17:54:48 2000 +0200
+++ b/BrowserView.st Wed Oct 25 18:13:14 2000 +0200
@@ -1037,17 +1037,19 @@
|brwsr|
brwsr := SystemBrowser openInClass:actualClass selector:currentSelector.
-
- brwsr environment:environment.
- brwsr switchToClassNamed:actualClass name.
- brwsr classSelectionChanged.
- currentSelector notNil ifTrue:[
- brwsr switchToMethodNamed:currentSelector.
- ].
+ brwsr notNil ifTrue:[
+ environment ~~ Smalltalk ifTrue:[
+ brwsr environment:environment.
+ brwsr switchToClassNamed:actualClass name.
+ brwsr classSelectionChanged.
+ currentSelector notNil ifTrue:[
+ brwsr switchToMethodNamed:currentSelector.
+ ].
+ ].
+ ]
"Created: 14.9.1995 / 10:55:20 / claus"
- "Modified: 14.9.1995 / 10:59:31 / claus"
-!
+ "Modified: 14.9.1995 / 10:59:31 / claus"!
classCategoryFileOut
"create a file 'categoryName.st' consisting of all classes in current category
@@ -1793,8 +1795,7 @@
]
]
- "Modified: 18.8.1997 / 15:42:58 / cg"
-!
+ "Modified: 18.8.1997 / 15:42:58 / cg"!
classCategorySpawnExtensions
"create a new SystemBrowser browsing all extensions"
@@ -1816,7 +1817,7 @@
].
brwsr := SystemBrowser browseMethods:methods title:'All Class extensions'.
- brwsr environment:environment
+ brwsr notNil ifTrue:[brwsr environment:environment].
]
"Modified: 18.8.1997 / 15:42:58 / cg"
@@ -1825,20 +1826,19 @@
classCategorySpawnFullClass
"create a new SystemBrowser browsing full class"
- |newBrowser|
+ |brwsr|
self withBusyCursorDo:[
- newBrowser := SystemBrowser browseFullClasses.
- newBrowser environment:environment.
+ brwsr := SystemBrowser browseFullClasses.
+ brwsr environment:environment.
" "
currentClass notNil ifTrue:[
- newBrowser switchToClassNamed:(currentClass name)
+ brwsr switchToClassNamed:(currentClass name)
]
" "
]
- "Modified: 18.8.1997 / 15:43:01 / cg"
-!
+ "Modified: 18.8.1997 / 15:43:01 / cg"!
classCategoryUpdate
"update class category list and dependants"
@@ -5821,8 +5821,7 @@
brwsr environment:environment
"Created: 13.12.1995 / 15:05:12 / cg"
- "Modified: 13.12.1995 / 15:06:26 / cg"
-!
+ "Modified: 13.12.1995 / 15:06:26 / cg"!
classMethodFileOutAll
"fileout all methods into one source file"
@@ -13790,6 +13789,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.644 2000-10-25 10:24:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.645 2000-10-25 16:13:14 cg Exp $'
! !
BrowserView initialize!