BrowserView.st
changeset 1550 a1c0d6cb1954
parent 1543 8d3f734ec81d
child 1557 5ecd643fc71c
--- a/BrowserView.st	Thu Apr 16 17:22:15 1998 +0200
+++ b/BrowserView.st	Thu Apr 16 19:02:35 1998 +0200
@@ -942,17 +942,19 @@
     box action:[:aString | className := aString].
     box showAtPointer.
 
-    open ifTrue:[
-        brwsr := SystemBrowser open.
-        "/ brwsr topView waitUntilVisible.
-    ] ifFalse:[
-        brwsr := self
-    ].
-    brwsr switchToClassNameMatching:className.
-    brwsr classSelectionChanged.
+    className notNil ifTrue:[
+        open ifTrue:[
+            brwsr := SystemBrowser open.
+            "/ brwsr topView waitUntilVisible.
+        ] ifFalse:[
+            brwsr := self
+        ].
+        brwsr switchToClassNameMatching:className.
+        brwsr classSelectionChanged.
+    ]
 
     "Created: / 1.6.1996 / 16:03:15 / cg"
-    "Modified: / 10.4.1998 / 12:21:37 / cg"
+    "Modified: / 16.4.1998 / 18:39:15 / cg"
 !
 
 classCategoryFindMethod
@@ -11574,6 +11576,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.389 1998-04-10 10:28:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.390 1998-04-16 17:02:35 cg Exp $'
 ! !
 BrowserView initialize!