had broken hierarchy tests

take into consideration that class list can be empty.
GemTalk · Sep 5, 2018 · 316dc90 · 316dc90
1 parent dc1f38c
commit 316dc90
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/sources/JadeiteProjectsBrowserPresenter.cls b/sources/JadeiteProjectsBrowserPresenter.cls
@@ -1330,7 +1330,11 @@ updateHierarchy
 	| service selection |
 	classHierarchyPresenter model: TreeModel new.
 	Cursor wait showWhile: 
-			[service := classListPresenter selectionOrNil ifNil: [RowanClassService new name: classListPresenter list first name].
+			[service := classListPresenter selectionOrNil
+						ifNil: 
+							[classListPresenter list isEmpty
+								ifTrue: [RowanClassService new name: 'Object']
+								ifFalse: [RowanClassService new name: classListPresenter list first name]].
 			service command: #classHierarchy.
 			self issueCommand: (Array with: service).
 			service name = 'Object'