--- 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!