undo commands, categorisations, enhance to all blocks

hpi-swa · Aug 3, 2023 · e9a2d23 · e9a2d23
1 parent 3e5124c
commit e9a2d23
Show file tree

Hide file tree

Showing 5 changed files with 198 additions and 123 deletions.
diff --git a/packages/Sandblocks-Core/SBNamedBlock.class.st b/packages/Sandblocks-Core/SBNamedBlock.class.st
@@ -8,27 +8,27 @@ Class {
 	#category : #'Sandblocks-Core'
 }
 
-{ #category : #'as yet unclassified' }
+{ #category : #'instance creation' }
 SBNamedBlock class >> block: aSBBlock named: aString [
 
 	^ self new
 		block: aSBBlock;
 		name: aString
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SBNamedBlock >> block [
 
 	^ block
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SBNamedBlock >> block: aSBBlock [
 
 	block := aSBBlock
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #initialization }
 SBNamedBlock >> initialize [
 
 	super initialize.
@@ -37,13 +37,13 @@ SBNamedBlock >> initialize [
 	self block: (SBLabel new contents: 'Some Content').
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SBNamedBlock >> name [
 
 	^ name
 ]
 
-{ #category : #'as yet unclassified' }
+{ #category : #accessing }
 SBNamedBlock >> name: aString [
 
 	name := aString

diff --git a/packages/Sandblocks-Core/SBUnwrapConsecutiveCommand.class.st b/packages/Sandblocks-Core/SBUnwrapConsecutiveCommand.class.st
@@ -12,7 +12,7 @@ Class {
 { #category : #'as yet unclassified' }
 SBUnwrapConsecutiveCommand >> do [
 
-	unwrapped := target childSandblocks.
+	unwrapped ifNil: [unwrapped := target childSandblocks].
 	oldPositions := unwrapped collect: [:m | {m owner. m submorphIndex}].
 
 	target owner addAllMorphs: unwrapped after: target.
@@ -41,3 +41,9 @@ SBUnwrapConsecutiveCommand >> undo [
 		do: [:pos :morph | pos first addMorph: morph asElementNumber: pos second].
 	^ target
 ]
+
+{ #category : #'as yet unclassified' }
+SBUnwrapConsecutiveCommand >> unwrapped: aCollectionOfBlocks [
+
+	unwrapped := aCollectionOfBlocks
+]