# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 972490394 -7200
# Node ID 2eb407e5c9d89ef7fc85dbf127cb13f7f06a7b07
# Parent  9d7f116978062b1daecf68f6988c3a5e7bc87bec
checkin from browser

diff -r 9d7f11697806 -r 2eb407e5c9d8 BrowserView.st
--- 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!