dont clobber acceptAction if aspect is ninNil (in methodCategorySelectionChanged)
authorClaus Gittinger <cg@exept.de>
Sun, 11 Feb 1996 16:15:39 +0100
changeset 367 b3076a450eb2
parent 366 07c1e46ec4bc
child 368 16b400bb820d
dont clobber acceptAction if aspect is ninNil (in methodCategorySelectionChanged)
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Sun Feb 11 15:45:40 1996 +0100
+++ b/BrowserView.st	Sun Feb 11 16:15:39 1996 +0100
@@ -4278,7 +4278,9 @@
 	    methodCategoryListView selectElement:currentMethodCategory
 	].
 
-	self setAcceptAndExplainActionsForMethod.
+	aspect isNil ifTrue:[
+	    self setAcceptAndExplainActionsForMethod.
+	].
 	self hilightMethodsInMethodCategoryList:false inMethodList:true.
     ]
 
@@ -6777,6 +6779,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.99 1996-02-11 14:45:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.100 1996-02-11 15:15:39 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Sun Feb 11 15:45:40 1996 +0100
+++ b/BrwsrView.st	Sun Feb 11 16:15:39 1996 +0100
@@ -4278,7 +4278,9 @@
 	    methodCategoryListView selectElement:currentMethodCategory
 	].
 
-	self setAcceptAndExplainActionsForMethod.
+	aspect isNil ifTrue:[
+	    self setAcceptAndExplainActionsForMethod.
+	].
 	self hilightMethodsInMethodCategoryList:false inMethodList:true.
     ]
 
@@ -6777,6 +6779,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.99 1996-02-11 14:45:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.100 1996-02-11 15:15:39 cg Exp $'
 ! !
 BrowserView initialize!