From 20a0e81c026c9593f2cb8d39ff6bec23a3aaf46b Mon Sep 17 00:00:00 2001 From: Eric Winger Date: Mon, 20 Aug 2018 15:53:21 -0700 Subject: [PATCH] Fixes #85 Hierarchy class def tab not updating --- sources/JadeiteProjectsBrowserPresenter.cls | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) diff --git a/sources/JadeiteProjectsBrowserPresenter.cls b/sources/JadeiteProjectsBrowserPresenter.cls index 1d653628..ded97051 100644 --- a/sources/JadeiteProjectsBrowserPresenter.cls +++ b/sources/JadeiteProjectsBrowserPresenter.cls @@ -616,12 +616,14 @@ populateFilterList postOkToChangeEvent | service | - service := classListPresenter selectionOrNil ifNil: [^self]. + service := self isClassListTabSelected + ifTrue: [classListPresenter selectionIfNone: [^self]] + ifFalse: [classHierarchyPresenter selectionIfNone: [^self]]. classDefinitionPresenter value: service template. classDefinitionPresenter view backcolor: Color white; isModified: false. - self sundryCleanup.! + self sundryCleanup! projectChanges projectListPresenter selection changesUsing: self! @@ -1144,7 +1146,9 @@ updateClasses updateClassInfo | service | - service := classListPresenter selectionIfNone: [^self]. + service := self isClassListTabSelected + ifTrue: [classListPresenter selectionIfNone: [^self]] + ifFalse: [classHierarchyPresenter selectionIfNone: [^self]]. classCommentPresenter value: service comment. classDefinitionPresenter view isModified ifTrue: