From 4d6b8a25d93f3a53fbdb90df3952bea48c75299e Mon Sep 17 00:00:00 2001
From: Joana Bergsiek <joana.bergsiek@student.hpi.de>
Date: Mon, 8 Apr 2024 18:55:14 +0200
Subject: [PATCH] Fix change of all tabs in history view

---
 packages/Sandblocks-Babylonian/SBHistoryView.class.st | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/packages/Sandblocks-Babylonian/SBHistoryView.class.st b/packages/Sandblocks-Babylonian/SBHistoryView.class.st
index deb2eaa6..e0252565 100644
--- a/packages/Sandblocks-Babylonian/SBHistoryView.class.st
+++ b/packages/Sandblocks-Babylonian/SBHistoryView.class.st
@@ -184,7 +184,8 @@ SBHistoryView >> offerChangeTabMenu [
 	index := UIManager default chooseFrom: options.
 	index = 0 ifTrue: [^ self].
 	
-	self scroller submorphs do: [:anEpoche | anEpoche lastSubmorph activeIndex: index].
+	self scroller submorphs do: [:anEpoche | 
+		(anEpoche lastSubmorph isKindOf: SBTabView) ifTrue: [anEpoche lastSubmorph activeIndex: index]].
 ]
 
 { #category : #building }