# HG changeset patch
# User ca
# Date 886529017 -3600
# Node ID ae30a5ae2838b88b5903da3d222d807f1f006be0
# Parent  c37c7568be8fc0257c937324d7f2ea0f9a2db6ff
care for methodCategory-update, if selection is nil.

diff -r c37c7568be8f -r ae30a5ae2838 BrowserView.st
--- a/BrowserView.st	Tue Feb 03 14:40:19 1998 +0100
+++ b/BrowserView.st	Tue Feb 03 19:03:37 1998 +0100
@@ -6947,7 +6947,14 @@
 methodCategorySelection:lineNr
     "user clicked on a method category line - show selectors"
 
-    self switchToMethodCategory:(methodCategoryListView selectionValue string).
+    |cat|
+
+    (cat := methodCategoryListView selectionValue) isNil ifTrue:[
+        cat := currentMethodCategory
+    ].
+    cat notNil ifTrue:[
+        self switchToMethodCategory:cat string.
+    ].
 
     "Modified: 22.10.1996 / 17:27:13 / cg"
 !
@@ -11281,6 +11288,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.363 1998-02-02 12:51:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.364 1998-02-03 18:03:37 ca Exp $'
 ! !
 BrowserView initialize!
diff -r c37c7568be8f -r ae30a5ae2838 BrwsrView.st
--- a/BrwsrView.st	Tue Feb 03 14:40:19 1998 +0100
+++ b/BrwsrView.st	Tue Feb 03 19:03:37 1998 +0100
@@ -6947,7 +6947,14 @@
 methodCategorySelection:lineNr
     "user clicked on a method category line - show selectors"
 
-    self switchToMethodCategory:(methodCategoryListView selectionValue string).
+    |cat|
+
+    (cat := methodCategoryListView selectionValue) isNil ifTrue:[
+        cat := currentMethodCategory
+    ].
+    cat notNil ifTrue:[
+        self switchToMethodCategory:cat string.
+    ].
 
     "Modified: 22.10.1996 / 17:27:13 / cg"
 !
@@ -11281,6 +11288,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.363 1998-02-02 12:51:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.364 1998-02-03 18:03:37 ca Exp $'
 ! !
 BrowserView initialize!