diff --git a/packages/Sandblocks-Babylonian/SBExploriants.class.st b/packages/Sandblocks-Babylonian/SBExploriants.class.st index 37008cae..eb8d2935 100644 --- a/packages/Sandblocks-Babylonian/SBExploriants.class.st +++ b/packages/Sandblocks-Babylonian/SBExploriants.class.st @@ -43,6 +43,13 @@ SBExploriants >> = other [ ^ self class = other class ] +{ #category : #ui } +SBExploriants >> buildTabs [ + + super buildTabs. + (self submorphNamed: #tabs) firstSubmorph delete. +] + { #category : #initialization } SBExploriants >> initialize [ @@ -82,6 +89,12 @@ SBExploriants >> selector [ ^ nil ] +{ #category : #accessing } +SBExploriants >> tabs [ + + ^ (self submorphNamed: #tabs) submorphs allButLast +] + { #category : #actions } SBExploriants >> visualize [