adds save and change tab button to history view

hpi-swa · Feb 19, 2024 · dc43e9c · dc43e9c
1 parent 2ee71e6
commit dc43e9c
Show file tree

Hide file tree

Showing 2 changed files with 48 additions and 11 deletions.
diff --git a/packages/Sandblocks-Babylonian/SBHistoryView.class.st b/packages/Sandblocks-Babylonian/SBHistoryView.class.st
@@ -31,7 +31,8 @@ SBHistoryView >> buildMetaUsageIn: aRow [
 	^ self containerRow
 		cellGap: 5@0;
 		addAllMorphsBack: {self deleteEpocheButton: aRow. 
-								TextMorph new contents: (Text fromString: TimeStamp current asStringOrText) allBold}
+								TextMorph new contents: (Text fromString: TimeStamp current asStringOrText) allBold.
+								SBLabel new contents: 'Notes'}
 
 
 ]
@@ -40,9 +41,8 @@ SBHistoryView >> buildMetaUsageIn: aRow [
 SBHistoryView >> buildSnapshotTabView [
 
 	^ SBTabView 
-		namedBlocks: (SBExploriants uniqueInstance namedBlocks 
-							select: #wantsHistory 
-							thenCollect: [:aTab | SBNamedBlock block: aTab snapshot named: aTab name]) 
+		namedBlocks: (self tabsToSnapshot
+							collect: [:aTab | SBNamedBlock block: aTab snapshot named: aTab name]) 
 		activeIndex: (SBExploriants uniqueInstance active wantsHistory
 							ifTrue: [SBExploriants uniqueInstance activeIndex] 
 							 ifFalse: [1])
@@ -52,23 +52,27 @@ SBHistoryView >> buildSnapshotTabView [
 { #category : #building }
 SBHistoryView >> buttons [
 
-	^ super buttons, {self clearButton}
+	^ super buttons, {self clearButton. self changeTabsButton. self saveButton }
 ]
 
 { #category : #building }
-SBHistoryView >> clearButton [
+SBHistoryView >> changeTabsButton [
 
 	^ SBButton new
-		icon: SBIcon iconClockO
-			label: 'Clear History'
-			do: [self clean. self block addMorphBack: self buildButtonRow];
+		icon: SBIcon iconTable
+			label: 'Change All Tabs To'
+			do: [self offerChangeTabMenu];
 		cornerStyle: #squared
 ]
 
 { #category : #building }
-SBHistoryView >> collectSnapshots [
+SBHistoryView >> clearButton [
 
-	^ (SBExploriants uniqueInstance namedBlocks collect: [:aView | aView snapshot]) flatten
+	^ SBButton new
+		icon: SBIcon iconClockO
+			label: 'Clear History'
+			do: [self clean. self block addMorphBack: self buildButtonRow];
+		cornerStyle: #squared
 ]
 
 { #category : #building }
@@ -99,6 +103,33 @@ SBHistoryView >> maxEpoches [
 	^ 100
 ]
 
+{ #category : #building }
+SBHistoryView >> offerChangeTabMenu [
+
+	| index options |
+	options := self tabsToSnapshot collect: #name.
+	index := UIManager default chooseFrom: options.
+	index = 0 ifTrue: [^ self].
+
+	self block submorphs allButFirst do: [:anEpoche | anEpoche lastSubmorph activeIndex: index].
+]
+
+{ #category : #building }
+SBHistoryView >> saveButton [
+
+	^ SBButton new
+		icon: SBIcon iconSave
+			label: 'Save As PNG'
+			do: [self block exportAsPNG];
+		cornerStyle: #squared
+]
+
+{ #category : #accessing }
+SBHistoryView >> tabsToSnapshot [
+
+	^ SBExploriants uniqueInstance namedBlocks select: #wantsHistory
+]
+
 { #category : #actions }
 SBHistoryView >> visualize [ 
 

diff --git a/packages/Sandblocks-Babylonian/SBVariantsView.class.st b/packages/Sandblocks-Babylonian/SBVariantsView.class.st
@@ -56,3 +56,9 @@ SBVariantsView >> visualize [
 		ifNotEmptyDo: [:theMethods | theMethods do: [:aSBStMethod | self buildMethodSectionFor: aSBStMethod]] 
 		ifEmpty: [self buildNoVariantsText]
 ]
+
+{ #category : #copying }
+SBVariantsView >> wantsHistory [ 
+
+	^ false
+]