From 8550b54e3b83d5f588c30563407e3c072483b76f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mathieu=20Magu=C3=A9r=C3=A8s?= Date: Tue, 21 Apr 2026 14:43:54 +0200 Subject: [PATCH 1/5] =?UTF-8?q?fix=20issue=20:=20Undo=20of=20remove=20elem?= =?UTF-8?q?ent=20doesn=E2=80=99t=20put=20it=20back=20in=20the=20same=20pos?= =?UTF-8?q?ition=20#187?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../PyramidAddChildCommand.class.st | 7 +- .../PyramidAddChildrenCommand.class.st | 4 +- ...amidRemoveSelectedElementsCommand.class.st | 29 ++++--- ...PyramidUndoRemoveChildCommandTest.class.st | 87 +++++++++++++++++++ src/Pyramid/PyramidCompositeMemento.class.st | 7 +- 5 files changed, 117 insertions(+), 17 deletions(-) create mode 100644 src/Pyramid-Tests/PyramidUndoRemoveChildCommandTest.class.st diff --git a/src/Pyramid-Bloc/PyramidAddChildCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildCommand.class.st index 5b13af98..05e2cb54 100644 --- a/src/Pyramid-Bloc/PyramidAddChildCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildCommand.class.st @@ -12,6 +12,9 @@ PyramidAddChildCommand >> commandInverse [ { #category : #'as yet unclassified' } PyramidAddChildCommand >> setValueFor: aBlElement with: aChildToAdd [ - - aBlElement addChild: aChildToAdd + | index | + index := aChildToAdd userData at: #removedAtIndex ifAbsent: [ 0 ]. + (index = 0 or: [ index > aBlElement children size ]) + ifTrue: [ aBlElement addChild: aChildToAdd ] + ifFalse: [ aBlElement addChild: aChildToAdd at: index ] ] diff --git a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st index 1c146561..520fe7cd 100644 --- a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st @@ -12,6 +12,6 @@ PyramidAddChildrenCommand >> commandInverse [ { #category : #'as yet unclassified' } PyramidAddChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [ - - aBlElement addChildren: aChildrenToAdd + aChildrenToAdd do: [ :child | + aBlElement addChild: child ] ] diff --git a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st index 2beae596..9e281af1 100644 --- a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st @@ -15,18 +15,23 @@ PyramidRemoveSelectedElementsCommand >> getValueFor: anElementOfSelection [ { #category : #'as yet unclassified' } PyramidRemoveSelectedElementsCommand >> mementoFor: anElement withArguments: anArgument [ - - (anArgument includes: anElement) ifTrue: [ - ^ PyramidCommandMemento new - command: PyramidRemoveFromCollectionCommand new commandInverse; - target: anArgument; - arguments: anElement; - yourself ]. - ^ PyramidCommandMemento new - command: PyramidRemoveChildCommand new commandInverse; - target: anElement parent; - arguments: anElement; - yourself + | index | + "Save index before removing" + index := anElement parent + ifNotNil: [ :p | p children indexOf: anElement ] + ifNil: [ 0 ]. + anElement userData at: #removedAtIndex put: index. + (anArgument includes: anElement) ifTrue: [ + ^ PyramidCommandMemento new + command: PyramidRemoveFromCollectionCommand new commandInverse; + target: anArgument; + arguments: anElement; + yourself ]. + ^ PyramidCommandMemento new + command: PyramidRemoveChildCommand new commandInverse; + target: anElement parent; + arguments: anElement; + yourself ] { #category : #accessing } diff --git a/src/Pyramid-Tests/PyramidUndoRemoveChildCommandTest.class.st b/src/Pyramid-Tests/PyramidUndoRemoveChildCommandTest.class.st new file mode 100644 index 00000000..76ffedc0 --- /dev/null +++ b/src/Pyramid-Tests/PyramidUndoRemoveChildCommandTest.class.st @@ -0,0 +1,87 @@ +Class { + #name : #PyramidUndoRemoveChildCommandTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-bloc' +} + +{ #category : #tests } +PyramidUndoRemoveChildCommandTest >> testUndoRemoveAllChildrenRestoresIndex [ + + | history commandExecutor parent child1 child2 child3 child4| + parent := BlElement new. + child1 := BlElement new. + child2 := BlElement new. + child3 := BlElement new. + child4 := BlElement new. + parent addChildren: {child1. child2 .child3. child4}. + + history := PyramidHistory new. + commandExecutor := PyramidHistoryCommandExecutor new + history: history; + wrappee: PyramidMainCommandExecutor new; + yourself. + commandExecutor + use: PyramidRemoveSelectedElementsCommand new + on: { + child4. + child2. + child1 } + with: { parent }. + + self deny: (parent children includes: child2). + self deny: (parent children includes: child1). + self deny: (parent children includes: child4). + + "Undo" + history undo. + + self assert: (parent children includes: child1). + self assert: (parent children includes: child2). + self assert: (parent children indexOf: child1) equals: 1. + self assert: (parent children indexOf: child2) equals: 2. + self assert: (parent children indexOf: child4) equals: 4 +] + +{ #category : #tests } +PyramidUndoRemoveChildCommandTest >> testUndoRemoveChildRestoresIndex [ + + | history commandExecutor parent child1 child2 child3 | + + parent := BlElement new. + child1 := BlElement new. + child2 := BlElement new. + child3 := BlElement new. + parent addChild: child1. + parent addChild: child2. + parent addChild: child3. + + history := PyramidHistory new. + commandExecutor := PyramidHistoryCommandExecutor new + history: history; + wrappee: PyramidMainCommandExecutor new; + yourself. + + commandExecutor + use: PyramidRemoveSelectedElementsCommand new + on: { child2 } + with: { parent }. + + self deny: (parent children includes: child2). + + "Undo" + history undo. + + self assert: (parent children includes: child2). + self assert: (parent children indexOf: child2) equals: 2. + + "Redo" + history redo. + + self deny: (parent children includes: child2). + + "Undo" + history undo. + + self assert: (parent children includes: child2). + self assert: (parent children indexOf: child2) equals: 2 +] diff --git a/src/Pyramid/PyramidCompositeMemento.class.st b/src/Pyramid/PyramidCompositeMemento.class.st index f3eb07f9..8ec74569 100644 --- a/src/Pyramid/PyramidCompositeMemento.class.st +++ b/src/Pyramid/PyramidCompositeMemento.class.st @@ -34,5 +34,10 @@ PyramidCompositeMemento >> mementos: anObject [ { #category : #'window management' } PyramidCompositeMemento >> restore [ - self mementos do: [ :each | each restore ] + (self mementos allSatisfy: [ :m | m arguments isKindOf: BlElement ]) + ifFalse: [ self mementos do: [ :each | each restore ]. ^ self ]. + (self mementos asSortedCollection: [ :a :b | + (a arguments userData at: #removedAtIndex ifAbsent: [ 0 ]) + < (b arguments userData at: #removedAtIndex ifAbsent: [ 0 ]) ]) + do: [ :each | each restore ] ] From 4e82ec8a0a53bdc6a6c79189f207fd69e4f0d5c6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mathieu=20Magu=C3=A9r=C3=A8s?= Date: Thu, 23 Apr 2026 14:48:56 +0200 Subject: [PATCH 2/5] update devStage_fixIssueUndo187 --- src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st index 520fe7cd..24c741a9 100644 --- a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st @@ -12,6 +12,6 @@ PyramidAddChildrenCommand >> commandInverse [ { #category : #'as yet unclassified' } PyramidAddChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [ - aChildrenToAdd do: [ :child | - aBlElement addChild: child ] + + aBlElement addChildren: aChildrenToAdd ] From d425f9fdf45dd7e02fa24ead3ddd1fdce91adefc Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mathieu=20Magu=C3=A9r=C3=A8s?= Date: Tue, 28 Apr 2026 14:26:17 +0200 Subject: [PATCH 3/5] =?UTF-8?q?update=20fix=20issue=20:=20Undo=20of=20remo?= =?UTF-8?q?ve=20element=20doesn=E2=80=99t=20put=20it=20back=20in=20the=20s?= =?UTF-8?q?ame=20position=20#187?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../PyramidAbstractBorderCommand.class.st | 2 +- ...midAbstractChangeDrawOrderCommand.class.st | 2 +- .../PyramidAddChildCommand.class.st | 23 ++++++--- .../PyramidAddChildrenCommand.class.st | 4 +- .../PyramidBackgroundImageCommand.class.st | 4 +- .../PyramidBackgroundOpacityCommand.class.st | 4 +- ...yramidBackgroundPaintColorCommand.class.st | 4 +- .../PyramidBackgroundPaintCommand.class.st | 6 +-- ...idBackgroundPaintLinearEndCommand.class.st | 4 +- ...BackgroundPaintLinearStartCommand.class.st | 4 +- ...oundPaintRadialInnerCenterCommand.class.st | 4 +- ...oundPaintRadialInnerRadiusCommand.class.st | 4 +- ...oundPaintRadialOuterCenterCommand.class.st | 4 +- ...oundPaintRadialOuterRadiusCommand.class.st | 4 +- ...yramidBackgroundPaintStopsCommand.class.st | 4 +- .../PyramidBackgroundTypeCommand.class.st | 6 +-- ...tHorizontalConstraintsBlocCommand.class.st | 4 +- ...actVerticalConstraintsBlocCommand.class.st | 4 +- ...cHorizontalConstraintsBlocCommand.class.st | 6 +-- ...sicVerticalConstraintsBlocCommand.class.st | 6 +-- .../PyramidBorderDashArrayCommand.class.st | 2 +- .../PyramidBorderDashOffsetCommand.class.st | 2 +- .../PyramidBorderLineCapCommand.class.st | 2 +- .../PyramidBorderLineJoinCommand.class.st | 2 +- .../PyramidBorderMiterLimitCommand.class.st | 2 +- .../PyramidBorderOpacityCommand.class.st | 2 +- .../PyramidBorderPaintColorCommand.class.st | 2 +- .../PyramidBorderPaintCommand.class.st | 2 +- ...derPaintLinearDirectionEndCommand.class.st | 2 +- ...rPaintLinearDirectionStartCommand.class.st | 2 +- ...rderPaintRadialInnerCenterCommand.class.st | 2 +- ...rderPaintRadialInnerRadiusCommand.class.st | 2 +- ...rderPaintRadialOuterCenterCommand.class.st | 2 +- ...rderPaintRadialOuterRadiusCommand.class.st | 2 +- .../PyramidBorderPaintStopsCommand.class.st | 2 +- .../PyramidBorderWidthCommand.class.st | 2 +- ...yramidChangeOrderWithIndexCommand.class.st | 2 +- .../PyramidChangeTextCommand.class.st | 4 +- .../PyramidChildrenCommand.class.st | 4 +- .../PyramidClipChildrenCommand.class.st | 4 +- .../PyramidDynamicResizeCommand.class.st | 8 ++-- .../PyramidElementIdCommand.class.st | 4 +- .../PyramidFontSizeCommand.class.st | 4 +- .../PyramidFontWeightCommand.class.st | 4 +- ...FrameHorizontalConstraintsCommand.class.st | 4 +- ...idFrameVerticalConstraintsCommand.class.st | 4 +- .../PyramidGeometryCommand.class.st | 4 +- src/Pyramid-Bloc/PyramidGroupCommand.class.st | 10 ++-- .../PyramidLayoutBlocCommand.class.st | 4 +- ...midLayoutChangeOrientationCommand.class.st | 4 +- .../PyramidMarginCommand.class.st | 4 +- .../PyramidMoveBackwardOrderCommand.class.st | 4 +- .../PyramidMoveChildInParentCommand.class.st | 4 +- .../PyramidMoveChildIndexDownCommand.class.st | 4 +- .../PyramidMoveChildIndexUpCommand.class.st | 4 +- .../PyramidMoveForwardOrderCommand.class.st | 4 +- .../PyramidOnBackgroundOrderCommand.class.st | 4 +- .../PyramidOnForegroundOrderCommand.class.st | 4 +- .../PyramidOpacityCommand.class.st | 4 +- .../PyramidOutskirtsCommand.class.st | 4 +- .../PyramidPaddingCommand.class.st | 4 +- .../PyramidPositionCommand.class.st | 4 +- .../PyramidPositionOffsetCommand.class.st | 8 ++-- ...ionalHorizontalConstraintsCommand.class.st | 4 +- ...rtionalVerticalConstraintsCommand.class.st | 4 +- .../PyramidRedoGroupCommand.class.st | 6 +-- .../PyramidRemoveChildCommand.class.st | 4 +- .../PyramidRemoveChildrenCommand.class.st | 4 +- ...amidRemoveSelectedElementsCommand.class.st | 48 +++++++++++-------- ...oundedRectangleCornerRadiiCommand.class.st | 4 +- .../PyramidTextForegroundCommand.class.st | 4 +- ...ramidUndoDynamicResizeBlocCommand.class.st | 6 +-- .../PyramidUndoGroupCommand.class.st | 6 +-- .../PyramidVisibilityCommand.class.st | 4 +- .../PyramidWeightConstraintsCommand.class.st | 4 +- .../PyramidZIndexCommand.class.st | 4 +- .../PyramidDecreaseMockCommand.class.st | 6 +-- .../PyramidIncreaseMockCommand.class.st | 6 +-- .../PyramidSimpleMockCommand.class.st | 4 +- .../PyramidSimpleMockGroupedCommand.class.st | 2 +- .../PyramidStampCommand.class.st | 4 +- .../PyramidThemeCommand.class.st | 4 +- .../PyramidAddAllToCollectionCommand.class.st | 6 +-- .../PyramidAddToCollectionCommand.class.st | 6 +-- src/Pyramid/PyramidCollectionCommand.class.st | 2 +- src/Pyramid/PyramidCommand.class.st | 18 +++---- ...midRemoveAllFromCollectionCommand.class.st | 6 +-- ...yramidRemoveFromCollectionCommand.class.st | 6 +-- 88 files changed, 221 insertions(+), 206 deletions(-) diff --git a/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st index d95e6834..d355e19a 100644 --- a/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st @@ -20,7 +20,7 @@ PyramidAbstractBorderCommand >> borderBuilderOf: aBlElement [ ^ builder ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidAbstractBorderCommand >> setValueFor: aBlElement with: anArgument [ | builder | diff --git a/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st index 38ee07cb..a6616327 100644 --- a/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st @@ -16,7 +16,7 @@ PyramidAbstractChangeDrawOrderCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject hasParent] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidAbstractChangeDrawOrderCommand >> getValueFor: aBlElement [ "return current index for testing." diff --git a/src/Pyramid-Bloc/PyramidAddChildCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildCommand.class.st index 05e2cb54..40ae11b1 100644 --- a/src/Pyramid-Bloc/PyramidAddChildCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildCommand.class.st @@ -4,17 +4,26 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidAddChildCommand >> commandInverse [ ^ PyramidRemoveChildCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #private } +PyramidAddChildCommand >> savedIndexFor: aChild in: aParent [ + + | index | + index := aChild userData at: #removedAtIndex ifAbsent: [ 0 ]. + (index = 0 or: [ index > aParent children size ]) + ifTrue: [ ^ aParent children size + 1 ] + ifFalse: [ ^ index ] +] + +{ #category : #setter } PyramidAddChildCommand >> setValueFor: aBlElement with: aChildToAdd [ - | index | - index := aChildToAdd userData at: #removedAtIndex ifAbsent: [ 0 ]. - (index = 0 or: [ index > aBlElement children size ]) - ifTrue: [ aBlElement addChild: aChildToAdd ] - ifFalse: [ aBlElement addChild: aChildToAdd at: index ] + + aBlElement + addChild: aChildToAdd + at: (self savedIndexFor: aChildToAdd in: aBlElement) ] diff --git a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st index 520fe7cd..34df84a2 100644 --- a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidAddChildrenCommand >> commandInverse [ ^ PyramidRemoveChildrenCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidAddChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [ aChildrenToAdd do: [ :child | aBlElement addChild: child ] diff --git a/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st index e8d958a4..42bda929 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st @@ -11,13 +11,13 @@ PyramidBackgroundImageCommand >> canBeUsedFor: anObject [ anObject background isKindOf: BlImageBackground ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundImageCommand >> getValueFor: aBlElement [ ^ aBlElement background image ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundImageCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background: (BlBackground image: anArgument) diff --git a/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st index f5093b8e..5521f475 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundOpacityCommand >> getValueFor: aBlElement [ ^ aBlElement background opacity ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundOpacityCommand >> setValueFor: aBlElement with: anArgument [ | background | diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st index d2249ff9..0a63dd0d 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st @@ -12,13 +12,13 @@ PyramidBackgroundPaintColorCommand >> canBeUsedFor: anObject [ anObject background paint isKindOf: BlColorPaint ] ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintColorCommand >> getValueFor: aBlElement [ ^ aBlElement background paint color ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintColorCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background: (BlBackground paint: anArgument asBlPaint) diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st index 95c0fd85..45a5f776 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st @@ -11,19 +11,19 @@ PyramidBackgroundPaintCommand >> canBeUsedFor: anObject [ anObject background isKindOf: BlPaintBackground ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintCommand >> getGroupedValueFor: aBlElement [ ^ aBlElement background paint class ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintCommand >> getValueFor: aBlElement [ ^ aBlElement background paint ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background: (BlBackground paint: anArgument value) diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st index 4201cb78..54897472 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintLinearEndCommand >> getValueFor: aBlElement [ ^ aBlElement background paint end ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintLinearEndCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background paint end: anArgument diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st index c62bbd9f..317cd3a6 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintLinearStartCommand >> getValueFor: aBlElement [ ^ aBlElement background paint start ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintLinearStartCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background paint start: anArgument diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st index e85efec8..3e5181ee 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintRadialInnerCenterCommand >> getValueFor: aBlElement [ ^ aBlElement background paint innerCenter ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintRadialInnerCenterCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background paint innerCenter: anArgument diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st index a2c2888d..2416e8c1 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintRadialInnerRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement background paint innerRadius ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintRadialInnerRadiusCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background paint innerRadius: anArgument diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st index 8d8deac9..352d4e4c 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintRadialOuterCenterCommand >> getValueFor: aBlElement [ ^ aBlElement background paint outerCenter ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintRadialOuterCenterCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background paint outerCenter: anArgument diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st index f1ba79b4..c313f420 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintRadialOuterRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement background paint outerRadius ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintRadialOuterRadiusCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background paint outerRadius: anArgument diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st index faebbb2a..57073903 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintStopsCommand >> canBeUsedFor: anObject [ anObject background paint isKindOf: BlGradientPaint ] ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundPaintStopsCommand >> getValueFor: aBlElement [ "We ensure that we are working with a copy of the associations." @@ -20,7 +20,7 @@ PyramidBackgroundPaintStopsCommand >> getValueFor: aBlElement [ asso key copy -> asso value copy ] ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundPaintStopsCommand >> setValueFor: aBlElement with: anArgument [ "We ensure that we are working with a copy of the associations." diff --git a/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st index 9031fa54..77e77faa 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st @@ -4,19 +4,19 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundTypeCommand >> getGroupedValueFor: aBlElement [ ^ aBlElement background class ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBackgroundTypeCommand >> getValueFor: aBlElement [ ^ aBlElement background ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBackgroundTypeCommand >> setValueFor: aBlElement with: anArgument [ "Must be a blockClosure to ensure no background are created." diff --git a/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st b/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st index 0988c930..cbd6cff3 100644 --- a/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st @@ -11,13 +11,13 @@ PyramidBasicExactHorizontalConstraintsBlocCommand >> canBeUsedFor: anObject [ anObject constraints horizontal resizer isExact ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBasicExactHorizontalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints horizontal resizer size ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBasicExactHorizontalConstraintsBlocCommand >> setValueFor: anObject with: anArgument [ ^ anObject constraintsDo: [ :c | c horizontal exact: anArgument ] diff --git a/src/Pyramid-Bloc/PyramidBasicExactVerticalConstraintsBlocCommand.class.st b/src/Pyramid-Bloc/PyramidBasicExactVerticalConstraintsBlocCommand.class.st index 664cf61e..34b3f184 100644 --- a/src/Pyramid-Bloc/PyramidBasicExactVerticalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicExactVerticalConstraintsBlocCommand.class.st @@ -11,13 +11,13 @@ PyramidBasicExactVerticalConstraintsBlocCommand >> canBeUsedFor: anObject [ anObject constraints vertical resizer isExact ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBasicExactVerticalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints vertical resizer size ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBasicExactVerticalConstraintsBlocCommand >> setValueFor: anObject with: anArgument [ ^ anObject constraintsDo: [ :c | c vertical exact: anArgument ] diff --git a/src/Pyramid-Bloc/PyramidBasicHorizontalConstraintsBlocCommand.class.st b/src/Pyramid-Bloc/PyramidBasicHorizontalConstraintsBlocCommand.class.st index 1c1af430..3286df52 100644 --- a/src/Pyramid-Bloc/PyramidBasicHorizontalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicHorizontalConstraintsBlocCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBasicHorizontalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints horizontal ] -{ #category : #'as yet unclassified' } +{ #category : #private } PyramidBasicHorizontalConstraintsBlocCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | @@ -26,7 +26,7 @@ PyramidBasicHorizontalConstraintsBlocCommand >> saveStatesOf: aCollection withCo yourself ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBasicHorizontalConstraintsBlocCommand >> setValueFor: anObject with: anArgument [ anArgument isSymbol diff --git a/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st b/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st index b68c7202..db8daf3f 100644 --- a/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBasicVerticalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints vertical ] -{ #category : #'as yet unclassified' } +{ #category : #private } PyramidBasicVerticalConstraintsBlocCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | @@ -27,7 +27,7 @@ PyramidBasicVerticalConstraintsBlocCommand >> saveStatesOf: aCollection withComm yourself ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidBasicVerticalConstraintsBlocCommand >> setValueFor: anObject with: anArgument [ anArgument isSymbol diff --git a/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st b/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st index c8d064ae..009c994b 100644 --- a/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderDashArrayCommand >> getValueFor: aBlElement [ ^ aBlElement border style dashArray diff --git a/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st b/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st index a30514b4..ca51c9d2 100644 --- a/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st @@ -11,7 +11,7 @@ PyramidBorderDashOffsetCommand >> canBeUsedFor: anObject [ anObject border style dashArray isNotEmpty ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderDashOffsetCommand >> getValueFor: aBlElement [ ^ aBlElement border style dashOffset diff --git a/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st b/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st index 90ae60e9..f9c10852 100644 --- a/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderLineCapCommand >> getValueFor: aBlElement [ ^ aBlElement border style lineCap diff --git a/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st b/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st index 3ea1dbb1..3b461432 100644 --- a/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderLineJoinCommand >> getValueFor: aBlElement [ ^ aBlElement border style lineJoin diff --git a/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st b/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st index e70e6d41..c6f86446 100644 --- a/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st @@ -11,7 +11,7 @@ PyramidBorderMiterLimitCommand >> canBeUsedFor: anObject [ (anObject border style lineJoin isKindOf: BlStrokeLineMiterJoin) ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderMiterLimitCommand >> getValueFor: aBlElement [ ^ aBlElement border style miterLimit diff --git a/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st b/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st index e1d6b44e..5c818acf 100644 --- a/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderOpacityCommand >> getValueFor: aBlElement [ ^ aBlElement border opacity diff --git a/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st index 10eeb2d7..de5ff490 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st @@ -11,7 +11,7 @@ PyramidBorderPaintColorCommand >> canBeUsedFor: anObject [ anObject border paint isKindOf: BlColorPaint ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintColorCommand >> getValueFor: aBlElement [ ^ aBlElement border paint color diff --git a/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st index 44fb1a6d..85ac677c 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintCommand >> getValueFor: aBlElement [ ^ aBlElement border paint diff --git a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st index 1b18eb86..5b30c8b9 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintLinearDirectionEndCommand >> getValueFor: aBlElement [ ^ aBlElement border paint end diff --git a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st index 4f08a8a9..ca09f43d 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintLinearDirectionStartCommand >> getValueFor: aBlElement [ ^ aBlElement border paint start diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st index bdb47e7b..e95c8e32 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintRadialInnerCenterCommand >> getValueFor: aBlElement [ ^ aBlElement border paint innerCenter diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st index 8f6a2812..a2f83c29 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintRadialInnerRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement border paint innerRadius diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st index 5a32a29a..9cc5cc8d 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintRadialOuterCenterCommand >> getValueFor: aBlElement [ ^ aBlElement border paint outerCenter diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st index 43c5b541..95a573e0 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintRadialOuterRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement border paint outerRadius diff --git a/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st index 2626a3dd..da994230 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st @@ -11,7 +11,7 @@ PyramidBorderPaintStopsCommand >> canBeUsedFor: anObject [ anObject border paint isKindOf: BlGradientPaint ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderPaintStopsCommand >> getValueFor: aBlElement [ "We ensure that we are working with a copy of the associations." diff --git a/src/Pyramid-Bloc/PyramidBorderWidthCommand.class.st b/src/Pyramid-Bloc/PyramidBorderWidthCommand.class.st index b943532a..f7ed7450 100644 --- a/src/Pyramid-Bloc/PyramidBorderWidthCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderWidthCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidBorderWidthCommand >> getValueFor: aBlElement [ ^ aBlElement border width diff --git a/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st b/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st index f314fb83..9db79209 100644 --- a/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st +++ b/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidChangeOrderWithIndexCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex parent | diff --git a/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st b/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st index 93a2bbda..228a26b3 100644 --- a/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st +++ b/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidChangeTextCommand >> getValueFor: aBlTextElement [ ^ aBlTextElement text asString ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidChangeTextCommand >> setValueFor: aBlTextElement with: aString [ | attributes rope | diff --git a/src/Pyramid-Bloc/PyramidChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidChildrenCommand.class.st index 0331d157..d06778ef 100644 --- a/src/Pyramid-Bloc/PyramidChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidChildrenCommand.class.st @@ -10,13 +10,13 @@ PyramidChildrenCommand class >> isAbstract [ ^ self == PyramidChildrenCommand ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidChildrenCommand >> getValueFor: aBlElement [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #private } PyramidChildrenCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | diff --git a/src/Pyramid-Bloc/PyramidClipChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidClipChildrenCommand.class.st index a4209f42..df44798a 100644 --- a/src/Pyramid-Bloc/PyramidClipChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidClipChildrenCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidClipChildrenCommand >> getValueFor: aBlElement [ ^ aBlElement clipChildren ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidClipChildrenCommand >> setValueFor: aBlElement with: anArgument [ aBlElement clipChildren: anArgument diff --git a/src/Pyramid-Bloc/PyramidDynamicResizeCommand.class.st b/src/Pyramid-Bloc/PyramidDynamicResizeCommand.class.st index 816bac00..0808cfe1 100644 --- a/src/Pyramid-Bloc/PyramidDynamicResizeCommand.class.st +++ b/src/Pyramid-Bloc/PyramidDynamicResizeCommand.class.st @@ -11,19 +11,19 @@ PyramidDynamicResizeCommand >> canBeUsedFor: anObject [ anObject size ] ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidDynamicResizeCommand >> commandInverse [ ^ PyramidUndoDynamicResizeBlocCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidDynamicResizeCommand >> getValueFor: anObject [ ^ anObject extent ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidDynamicResizeCommand >> saveStatesWithCommandInverseOf: aCollection with: arguments [ | mementos | @@ -39,7 +39,7 @@ PyramidDynamicResizeCommand >> saveStatesWithCommandInverseOf: aCollection with: yourself ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidDynamicResizeCommand >> setValueFor: anObject with: anArgument [ ^ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidElementIdCommand.class.st b/src/Pyramid-Bloc/PyramidElementIdCommand.class.st index 66f89484..f6c48266 100644 --- a/src/Pyramid-Bloc/PyramidElementIdCommand.class.st +++ b/src/Pyramid-Bloc/PyramidElementIdCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidElementIdCommand >> getValueFor: aBlElement [ ^ aBlElement id ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidElementIdCommand >> setValueFor: aBlElement with: anArgument [ aBlElement id: anArgument diff --git a/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st b/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st index 8dbf1c83..ae3786ae 100644 --- a/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidFontSizeCommand >> getValueFor: aBlTextElement [ aBlTextElement text attributesFinder @@ -14,7 +14,7 @@ PyramidFontSizeCommand >> getValueFor: aBlTextElement [ ^ 10 ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidFontSizeCommand >> setValueFor: aBlTextElement with: aNumber [ aBlTextElement text attribute: (BlFontSizeAttribute size: aNumber). diff --git a/src/Pyramid-Bloc/PyramidFontWeightCommand.class.st b/src/Pyramid-Bloc/PyramidFontWeightCommand.class.st index a7c5ba98..5a175d22 100644 --- a/src/Pyramid-Bloc/PyramidFontWeightCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFontWeightCommand.class.st @@ -4,14 +4,14 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidFontWeightCommand >> getValueFor: aBlTextElement [ aBlTextElement text attributesFinder findAttributesSuchThat: [ :a | a class = BlFontWeightAttribute ] indicesDo: [ :new :old :a | ^ a weight ]. ^ LogicalFont weightRegular ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidFontWeightCommand >> setValueFor: aBlTextElement with: aNumber [ aBlTextElement text attribute: diff --git a/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st index 271f6c0e..62753f9b 100644 --- a/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidFrameHorizontalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints frame horizontal alignment ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidFrameHorizontalConstraintsCommand >> setValueFor: anObject with: anArgument [ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidFrameVerticalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidFrameVerticalConstraintsCommand.class.st index 99b53c7a..af0b2905 100644 --- a/src/Pyramid-Bloc/PyramidFrameVerticalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFrameVerticalConstraintsCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidFrameVerticalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints frame vertical alignment ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidFrameVerticalConstraintsCommand >> setValueFor: anObject with: anArgument [ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidGeometryCommand.class.st b/src/Pyramid-Bloc/PyramidGeometryCommand.class.st index 411acf89..ad6277e3 100644 --- a/src/Pyramid-Bloc/PyramidGeometryCommand.class.st +++ b/src/Pyramid-Bloc/PyramidGeometryCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-geometry' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidGeometryCommand >> getValueFor: aBlElement [ ^ aBlElement geometry ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidGeometryCommand >> setValueFor: aBlElement with: anArgument [ aBlElement geometry: anArgument diff --git a/src/Pyramid-Bloc/PyramidGroupCommand.class.st b/src/Pyramid-Bloc/PyramidGroupCommand.class.st index bfb54ab2..e5292bd5 100644 --- a/src/Pyramid-Bloc/PyramidGroupCommand.class.st +++ b/src/Pyramid-Bloc/PyramidGroupCommand.class.st @@ -20,7 +20,7 @@ PyramidGroupCommand >> canBeUsedFor: aCollectionOfBlElements [ each parent = parent ] ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidGroupCommand >> commandInverse [ "Command used to undo the group." @@ -67,7 +67,7 @@ PyramidGroupCommand >> createNewGroupElement: aCollectionOfBlElement [ yourself. ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidGroupCommand >> getValueFor: aBlElement [ ^ self historyCommandArguments @@ -106,7 +106,7 @@ PyramidGroupCommand >> positionGroupElement: groupElement [ child constraints position - (currentLeft @ currentTop) ] ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidGroupCommand >> saveStatesOf: aCollection with: arguments [ ^ self @@ -116,7 +116,7 @@ PyramidGroupCommand >> saveStatesOf: aCollection with: arguments [ (self commandRestaurationArgumentsFor: aCollection and: arguments) ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidGroupCommand >> saveStatesWithCommandInverseOf: aCollection with: arguments [ ^ self @@ -126,7 +126,7 @@ PyramidGroupCommand >> saveStatesWithCommandInverseOf: aCollection with: argumen (self commandInverseArgumentsFor: aCollection and: arguments) ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidGroupCommand >> setValueFor: aCollectionToGroup with: aCollectionOfFirstLevelElements [ | groupInCorrectOrder parent groupElement removedElementFromFirstLevel | diff --git a/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st b/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st index 880f6ede..fd6180e7 100644 --- a/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidLayoutBlocCommand >> getValueFor: anObject [ ^ anObject layout ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidLayoutBlocCommand >> setValueFor: anObject with: anArgument [ anObject layout: anArgument diff --git a/src/Pyramid-Bloc/PyramidLayoutChangeOrientationCommand.class.st b/src/Pyramid-Bloc/PyramidLayoutChangeOrientationCommand.class.st index 57cc5aab..26ec48bd 100644 --- a/src/Pyramid-Bloc/PyramidLayoutChangeOrientationCommand.class.st +++ b/src/Pyramid-Bloc/PyramidLayoutChangeOrientationCommand.class.st @@ -11,13 +11,13 @@ PyramidLayoutChangeOrientationCommand >> canBeUsedFor: anObject [ { BlFlowLayout . BlLinearLayout } includes: anObject layout class ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidLayoutChangeOrientationCommand >> getValueFor: anObject [ ^ anObject layout orientation ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidLayoutChangeOrientationCommand >> setValueFor: anObject with: anArgument [ anObject layout orientation: anArgument diff --git a/src/Pyramid-Bloc/PyramidMarginCommand.class.st b/src/Pyramid-Bloc/PyramidMarginCommand.class.st index 40950338..c773ea9a 100644 --- a/src/Pyramid-Bloc/PyramidMarginCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMarginCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidMarginCommand >> getValueFor: aBlElement [ ^ aBlElement margin ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidMarginCommand >> setValueFor: aBlElement with: anArgument [ aBlElement margin: anArgument diff --git a/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st b/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st index 4fc68ba7..6003f24b 100644 --- a/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidMoveBackwardOrderCommand >> commandInverse [ ^ PyramidMoveForwardOrderCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidMoveBackwardOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex | diff --git a/src/Pyramid-Bloc/PyramidMoveChildInParentCommand.class.st b/src/Pyramid-Bloc/PyramidMoveChildInParentCommand.class.st index 362a3ca1..df0b5e5a 100644 --- a/src/Pyramid-Bloc/PyramidMoveChildInParentCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMoveChildInParentCommand.class.st @@ -7,13 +7,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidMoveChildInParentCommand >> getValueFor: aBlElement [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #private } PyramidMoveChildInParentCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | diff --git a/src/Pyramid-Bloc/PyramidMoveChildIndexDownCommand.class.st b/src/Pyramid-Bloc/PyramidMoveChildIndexDownCommand.class.st index be0b637d..5742b92f 100644 --- a/src/Pyramid-Bloc/PyramidMoveChildIndexDownCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMoveChildIndexDownCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidMoveChildIndexDownCommand >> commandInverse [ ^ PyramidMoveChildIndexUpCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidMoveChildIndexDownCommand >> setValueFor: aBlElementParent with: aBlElementToMove [ | childIndexToMove | diff --git a/src/Pyramid-Bloc/PyramidMoveChildIndexUpCommand.class.st b/src/Pyramid-Bloc/PyramidMoveChildIndexUpCommand.class.st index 4eabe2dc..bf5c13aa 100644 --- a/src/Pyramid-Bloc/PyramidMoveChildIndexUpCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMoveChildIndexUpCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidMoveChildIndexUpCommand >> commandInverse [ ^ PyramidMoveChildIndexDownCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidMoveChildIndexUpCommand >> setValueFor: aBlElementParent with: aBlElementToMove [ | childIndexToMove | diff --git a/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st b/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st index 35008ed9..4eb2ec15 100644 --- a/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidMoveForwardOrderCommand >> commandInverse [ ^ PyramidMoveBackwardOrderCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidMoveForwardOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex | diff --git a/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st b/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st index 257fd1b4..9a671789 100644 --- a/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidOnBackgroundOrderCommand >> commandInverse [ ^ PyramidChangeOrderWithIndexCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidOnBackgroundOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex parent | diff --git a/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st b/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st index dda01bb0..41477cf2 100644 --- a/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidOnForegroundOrderCommand >> commandInverse [ ^ PyramidChangeOrderWithIndexCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidOnForegroundOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex parent | diff --git a/src/Pyramid-Bloc/PyramidOpacityCommand.class.st b/src/Pyramid-Bloc/PyramidOpacityCommand.class.st index 31e02fdb..0b8b82d3 100644 --- a/src/Pyramid-Bloc/PyramidOpacityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOpacityCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidOpacityCommand >> getValueFor: aBlElement [ ^ aBlElement opacity ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidOpacityCommand >> setValueFor: aBlElement with: anArgument [ aBlElement opacity: anArgument diff --git a/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st b/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st index 07421899..288e90ed 100644 --- a/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidOutskirtsCommand >> getValueFor: aBlElement [ ^ aBlElement outskirts ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidOutskirtsCommand >> setValueFor: aBlElement with: anArgument [ aBlElement outskirts: anArgument diff --git a/src/Pyramid-Bloc/PyramidPaddingCommand.class.st b/src/Pyramid-Bloc/PyramidPaddingCommand.class.st index 50eb962e..8e5c4c09 100644 --- a/src/Pyramid-Bloc/PyramidPaddingCommand.class.st +++ b/src/Pyramid-Bloc/PyramidPaddingCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidPaddingCommand >> getValueFor: aBlElement [ ^ aBlElement padding ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidPaddingCommand >> setValueFor: aBlElement with: anArgument [ aBlElement padding: anArgument diff --git a/src/Pyramid-Bloc/PyramidPositionCommand.class.st b/src/Pyramid-Bloc/PyramidPositionCommand.class.st index 7f586f75..96f1ac9f 100644 --- a/src/Pyramid-Bloc/PyramidPositionCommand.class.st +++ b/src/Pyramid-Bloc/PyramidPositionCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidPositionCommand >> getValueFor: aBlElement [ ^ aBlElement constraints position ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidPositionCommand >> setValueFor: aBlElement with: anArgument [ anArgument isPoint ifFalse: [ ^ self ]. diff --git a/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st b/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st index 6abce729..9bef2315 100644 --- a/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st +++ b/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st @@ -4,25 +4,25 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidPositionOffsetCommand >> commandInverse [ ^ PyramidPositionCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidPositionOffsetCommand >> getValueFor: aBlElement [ ^ aBlElement constraints position ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidPositionOffsetCommand >> saveStatesOf: aCollection with: arguments [ ^ self saveStatesWithCommandInverseOf: aCollection with: arguments ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidPositionOffsetCommand >> setValueFor: aBlElement with: anArgument [ anArgument isPoint ifFalse: [ ^ self ]. diff --git a/src/Pyramid-Bloc/PyramidProportionalHorizontalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidProportionalHorizontalConstraintsCommand.class.st index 61b5aafb..ebd5ca24 100644 --- a/src/Pyramid-Bloc/PyramidProportionalHorizontalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidProportionalHorizontalConstraintsCommand.class.st @@ -4,14 +4,14 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidProportionalHorizontalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints proportional horizontal left @ anObject constraints proportional horizontal right ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidProportionalHorizontalConstraintsCommand >> setValueFor: anObject with: anArgument [ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidProportionalVerticalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidProportionalVerticalConstraintsCommand.class.st index 466755dd..38324d5f 100644 --- a/src/Pyramid-Bloc/PyramidProportionalVerticalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidProportionalVerticalConstraintsCommand.class.st @@ -4,14 +4,14 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidProportionalVerticalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints proportional vertical top @ anObject constraints proportional vertical bottom ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidProportionalVerticalConstraintsCommand >> setValueFor: anObject with: anArgument [ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st b/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st index 05c74d6e..a21047ff 100644 --- a/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-group' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidRedoGroupCommand >> commandInverse [ ^ PyramidUndoGroupCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidRedoGroupCommand >> getValueFor: aBlElement [ ^ nil @@ -34,7 +34,7 @@ PyramidRedoGroupCommand >> positionGroupElement: groupElement [ child constraints position - (currentLeft @ currentTop) ] ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidRedoGroupCommand >> setValueFor: aCollectionToGroup with: aGroupModel [ | anyElementInFirstLevels | diff --git a/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st b/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st index 2288f8f1..dc97608a 100644 --- a/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidRemoveChildCommand >> commandInverse [ ^ PyramidAddChildCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidRemoveChildCommand >> setValueFor: aBlElement with: aChildToRemove [ aBlElement removeChild: aChildToRemove diff --git a/src/Pyramid-Bloc/PyramidRemoveChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidRemoveChildrenCommand.class.st index 6d09bbb6..70cdbc18 100644 --- a/src/Pyramid-Bloc/PyramidRemoveChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveChildrenCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidRemoveChildrenCommand >> commandInverse [ ^ PyramidAddChildrenCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidRemoveChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [ aBlElement removeChildren: aChildrenToAdd diff --git a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st index 9e281af1..a7545749 100644 --- a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st @@ -7,7 +7,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidRemoveSelectedElementsCommand >> getValueFor: anElementOfSelection [ ^ nil @@ -15,23 +15,19 @@ PyramidRemoveSelectedElementsCommand >> getValueFor: anElementOfSelection [ { #category : #'as yet unclassified' } PyramidRemoveSelectedElementsCommand >> mementoFor: anElement withArguments: anArgument [ - | index | - "Save index before removing" - index := anElement parent - ifNotNil: [ :p | p children indexOf: anElement ] - ifNil: [ 0 ]. - anElement userData at: #removedAtIndex put: index. - (anArgument includes: anElement) ifTrue: [ - ^ PyramidCommandMemento new - command: PyramidRemoveFromCollectionCommand new commandInverse; - target: anArgument; - arguments: anElement; - yourself ]. - ^ PyramidCommandMemento new - command: PyramidRemoveChildCommand new commandInverse; - target: anElement parent; - arguments: anElement; - yourself + + self saveIndexOf: anElement. + (anArgument includes: anElement) ifTrue: [ + ^ PyramidCommandMemento new + command: PyramidRemoveFromCollectionCommand new commandInverse; + target: anArgument; + arguments: anElement; + yourself ]. + ^ PyramidCommandMemento new + command: PyramidRemoveChildCommand new commandInverse; + target: anElement parent; + arguments: anElement; + yourself ] { #category : #accessing } @@ -46,14 +42,24 @@ PyramidRemoveSelectedElementsCommand >> mementoInverse: anObject [ mementoInverse := anObject ] -{ #category : #'as yet unclassified' } +{ #category : #private } +PyramidRemoveSelectedElementsCommand >> saveIndexOf: anElement [ + + | index | + index := anElement parent + ifNotNil: [ :p | p children indexOf: anElement ] + ifNil: [ 0 ]. + anElement userData at: #removedAtIndex put: index +] + +{ #category : #history } PyramidRemoveSelectedElementsCommand >> saveStatesOf: aCollection with: aRoots [ "We ignore the state recovery for the redo, we will force the inverse of the undo state." ^ self mementoInverse accept: PyramidMementoInverser new. ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidRemoveSelectedElementsCommand >> saveStatesWithCommandInverseOf: aCollection with: aRoots [ | mementos finalMemento | @@ -69,7 +75,7 @@ PyramidRemoveSelectedElementsCommand >> saveStatesWithCommandInverseOf: aCollect ^ finalMemento ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidRemoveSelectedElementsCommand >> setValueFor: aBlElementToRemove with: aRoot [ "Remove the element from its parent" diff --git a/src/Pyramid-Bloc/PyramidRoundedRectangleCornerRadiiCommand.class.st b/src/Pyramid-Bloc/PyramidRoundedRectangleCornerRadiiCommand.class.st index f239660b..a035164b 100644 --- a/src/Pyramid-Bloc/PyramidRoundedRectangleCornerRadiiCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRoundedRectangleCornerRadiiCommand.class.st @@ -11,13 +11,13 @@ PyramidRoundedRectangleCornerRadiiCommand >> canBeUsedFor: anObject [ anObject geometry class = BlRoundedRectangleGeometry ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidRoundedRectangleCornerRadiiCommand >> getValueFor: aBlElement [ ^ aBlElement geometry cornerRadii ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidRoundedRectangleCornerRadiiCommand >> setValueFor: aBlElement with: anArgument [ aBlElement geometry: (BlRoundedRectangleGeometry cornerRadii: anArgument) diff --git a/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st b/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st index ac96ad6e..e904f324 100644 --- a/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st +++ b/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidTextForegroundCommand >> getValueFor: aBlTextElement [ aBlTextElement text attributesFinder @@ -14,7 +14,7 @@ PyramidTextForegroundCommand >> getValueFor: aBlTextElement [ ^ Color black ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidTextForegroundCommand >> setValueFor: aBlTextElement with: aColor [ aBlTextElement text attribute: diff --git a/src/Pyramid-Bloc/PyramidUndoDynamicResizeBlocCommand.class.st b/src/Pyramid-Bloc/PyramidUndoDynamicResizeBlocCommand.class.st index 6cf5688b..127f7083 100644 --- a/src/Pyramid-Bloc/PyramidUndoDynamicResizeBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidUndoDynamicResizeBlocCommand.class.st @@ -11,19 +11,19 @@ PyramidUndoDynamicResizeBlocCommand >> canBeUsedFor: anObject [ anObject size ] ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidUndoDynamicResizeBlocCommand >> commandInverse [ ^ PyramidDynamicResizeCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidUndoDynamicResizeBlocCommand >> getValueFor: anObject [ ^ anObject userData at: #pyramidPreviousDynamicResize ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidUndoDynamicResizeBlocCommand >> setValueFor: anObject with: anArgument [ ^ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st b/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st index 8fb36fa9..c6cd082c 100644 --- a/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st +++ b/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc-group' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidUndoGroupCommand >> commandInverse [ ^ PyramidRedoGroupCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidUndoGroupCommand >> getValueFor: aBlElement [ ^ nil @@ -27,7 +27,7 @@ PyramidUndoGroupCommand >> positionChildrenOfGroupElement: groupElement [ child constraints position + (currentLeft @ currentTop) ] ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidUndoGroupCommand >> setValueFor: aCollectionToGroup with: aGroupModel [ "Remove children of group. Remove children of origin. diff --git a/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st b/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st index bb53e301..fd465919 100644 --- a/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidVisibilityCommand >> getValueFor: aBlElement [ ^ aBlElement visibility ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidVisibilityCommand >> setValueFor: aBlElement with: anArgument [ aBlElement visibility: anArgument diff --git a/src/Pyramid-Bloc/PyramidWeightConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidWeightConstraintsCommand.class.st index 19f60089..2586c90d 100644 --- a/src/Pyramid-Bloc/PyramidWeightConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidWeightConstraintsCommand.class.st @@ -12,13 +12,13 @@ PyramidWeightConstraintsCommand >> canBeUsedFor: anObject [ { BlFlowLayout . BlLinearLayout } includes: anObject parent layout class ] ] ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidWeightConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints linear weight ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidWeightConstraintsCommand >> setValueFor: anObject with: anArgument [ anObject constraints linear weight: anArgument. diff --git a/src/Pyramid-Bloc/PyramidZIndexCommand.class.st b/src/Pyramid-Bloc/PyramidZIndexCommand.class.st index 3e09f726..1ce22820 100644 --- a/src/Pyramid-Bloc/PyramidZIndexCommand.class.st +++ b/src/Pyramid-Bloc/PyramidZIndexCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidZIndexCommand >> getValueFor: aBlElement [ ^ aBlElement elevation elevation ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidZIndexCommand >> setValueFor: aBlElement with: anArgument [ aBlElement zIndex: anArgument diff --git a/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st b/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st index 6e1c22c6..6b72ba7d 100644 --- a/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st +++ b/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st @@ -4,19 +4,19 @@ Class { #category : #'Pyramid-Tests-cases-command' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidDecreaseMockCommand >> commandInverse [ ^ PyramidIncreaseMockCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidDecreaseMockCommand >> getValueFor: anObject [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidDecreaseMockCommand >> setValueFor: anObject with: anArgument [ anObject count: anObject count - 1 diff --git a/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st b/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st index cd869468..22b48fd0 100644 --- a/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st +++ b/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st @@ -4,19 +4,19 @@ Class { #category : #'Pyramid-Tests-cases-command' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidIncreaseMockCommand >> commandInverse [ ^ PyramidDecreaseMockCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidIncreaseMockCommand >> getValueFor: anObject [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidIncreaseMockCommand >> setValueFor: anObject with: anArgument [ anObject count: anObject count + 1 diff --git a/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st b/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st index abf1e620..3160782a 100644 --- a/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st +++ b/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Tests-cases-command' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidSimpleMockCommand >> getValueFor: anObject [ ^ anObject count. ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidSimpleMockCommand >> setValueFor: anObject with: anArgument [ anObject count: anArgument diff --git a/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st b/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st index 84fcebb0..2a34f662 100644 --- a/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st +++ b/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st @@ -4,7 +4,7 @@ Class { #category : #'Pyramid-Tests-cases-command' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidSimpleMockGroupedCommand >> getGroupedValueFor: anObject [ ^ #group diff --git a/src/Pyramid-Toplo/PyramidStampCommand.class.st b/src/Pyramid-Toplo/PyramidStampCommand.class.st index 2ec2f0c1..7bfb5753 100644 --- a/src/Pyramid-Toplo/PyramidStampCommand.class.st +++ b/src/Pyramid-Toplo/PyramidStampCommand.class.st @@ -7,13 +7,13 @@ Class { #category : #'Pyramid-Toplo-plugin-theme-management' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidStampCommand >> getValueFor: anObject [ ^ anObject hasStamp: self stamp ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidStampCommand >> setValueFor: anObject with: aBoolean [ aBoolean diff --git a/src/Pyramid-Toplo/PyramidThemeCommand.class.st b/src/Pyramid-Toplo/PyramidThemeCommand.class.st index 66c4f825..d26dcdc1 100644 --- a/src/Pyramid-Toplo/PyramidThemeCommand.class.st +++ b/src/Pyramid-Toplo/PyramidThemeCommand.class.st @@ -4,13 +4,13 @@ Class { #category : #'Pyramid-Toplo-plugin-theme-management' } -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidThemeCommand >> getValueFor: anObject [ ^ anObject localTheme ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidThemeCommand >> setValueFor: anObject with: nilOrToTheme [ anObject localTheme: nilOrToTheme diff --git a/src/Pyramid/PyramidAddAllToCollectionCommand.class.st b/src/Pyramid/PyramidAddAllToCollectionCommand.class.st index b4a0224b..5bc12e91 100644 --- a/src/Pyramid/PyramidAddAllToCollectionCommand.class.st +++ b/src/Pyramid/PyramidAddAllToCollectionCommand.class.st @@ -4,19 +4,19 @@ Class { #category : #'Pyramid-commands' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidAddAllToCollectionCommand >> commandInverse [ ^ PyramidRemoveAllFromCollectionCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidAddAllToCollectionCommand >> getValueFor: anObject [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidAddAllToCollectionCommand >> setValueFor: anObject with: anArgument [ anObject addAll: anArgument diff --git a/src/Pyramid/PyramidAddToCollectionCommand.class.st b/src/Pyramid/PyramidAddToCollectionCommand.class.st index c1eb5377..fdf034e8 100644 --- a/src/Pyramid/PyramidAddToCollectionCommand.class.st +++ b/src/Pyramid/PyramidAddToCollectionCommand.class.st @@ -4,19 +4,19 @@ Class { #category : #'Pyramid-commands' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidAddToCollectionCommand >> commandInverse [ ^ PyramidRemoveFromCollectionCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidAddToCollectionCommand >> getValueFor: anObject [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidAddToCollectionCommand >> setValueFor: anObject with: anArgument [ anObject add: anArgument diff --git a/src/Pyramid/PyramidCollectionCommand.class.st b/src/Pyramid/PyramidCollectionCommand.class.st index 3a225279..c5700017 100644 --- a/src/Pyramid/PyramidCollectionCommand.class.st +++ b/src/Pyramid/PyramidCollectionCommand.class.st @@ -16,7 +16,7 @@ PyramidCollectionCommand >> canBeUsedFor: anObject [ ^ anObject isCollection ] -{ #category : #'as yet unclassified' } +{ #category : #private } PyramidCollectionCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | diff --git a/src/Pyramid/PyramidCommand.class.st b/src/Pyramid/PyramidCommand.class.st index 4bf754c6..46b6692e 100644 --- a/src/Pyramid/PyramidCommand.class.st +++ b/src/Pyramid/PyramidCommand.class.st @@ -27,7 +27,7 @@ PyramidCommand >> canBeUsedFor: anObject [ ^ self shouldBeImplemented ] -{ #category : #'as yet unclassified' } +{ #category : #actions } PyramidCommand >> clusterOf: aCollection [ | users cluster | @@ -40,25 +40,25 @@ PyramidCommand >> clusterOf: aCollection [ ^ cluster ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidCommand >> commandInverse [ ^ self ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidCommand >> getGroupedValueFor: anObject [ ^ self getValueFor: anObject ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidCommand >> getValueFor: anObject [ ^ self shouldBeImplemented ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidCommand >> saveStatesOf: aCollection with: arguments [ ^ self @@ -67,7 +67,7 @@ PyramidCommand >> saveStatesOf: aCollection with: arguments [ withArguments: arguments ] -{ #category : #'as yet unclassified' } +{ #category : #private } PyramidCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | @@ -83,19 +83,19 @@ PyramidCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: yourself ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidCommand >> saveStatesWithCommandInverseOf: aCollection with: arguments [ ^ self saveStatesOf: aCollection withCommand: self commandInverse withArguments: arguments ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidCommand >> setValueFor: anObject with: anArgument [ self shouldBeImplemented ] -{ #category : #'as yet unclassified' } +{ #category : #actions } PyramidCommand >> useOn: aCollection with: anArgument [ aCollection do: [ :each | self setValueFor: each with: anArgument ] diff --git a/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st b/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st index e039ab4d..91c4cb82 100644 --- a/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st +++ b/src/Pyramid/PyramidRemoveAllFromCollectionCommand.class.st @@ -4,19 +4,19 @@ Class { #category : #'Pyramid-commands' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidRemoveAllFromCollectionCommand >> commandInverse [ ^ PyramidAddAllToCollectionCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidRemoveAllFromCollectionCommand >> getValueFor: anObject [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidRemoveAllFromCollectionCommand >> setValueFor: anObject with: anArgument [ anObject removeAll: anArgument diff --git a/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st b/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st index cf9386a4..56c0aafe 100644 --- a/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st +++ b/src/Pyramid/PyramidRemoveFromCollectionCommand.class.st @@ -4,19 +4,19 @@ Class { #category : #'Pyramid-commands' } -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidRemoveFromCollectionCommand >> commandInverse [ ^ PyramidAddToCollectionCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #getter } PyramidRemoveFromCollectionCommand >> getValueFor: anObject [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #setter } PyramidRemoveFromCollectionCommand >> setValueFor: anObject with: anArgument [ anObject remove: anArgument From 40f8dc2cac0b6c40f12aaa416ae745f651d2c95f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mathieu=20Magu=C3=A9r=C3=A8s?= Date: Tue, 28 Apr 2026 14:52:33 +0200 Subject: [PATCH 4/5] =?UTF-8?q?update=20fix=20issue=20:=20Undo=20of=20remo?= =?UTF-8?q?ve=20element=20doesn=E2=80=99t=20put=20it=20back=20in=20the=20s?= =?UTF-8?q?ame=20position=20#187?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st index 34df84a2..d03a1e21 100644 --- a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st @@ -12,6 +12,6 @@ PyramidAddChildrenCommand >> commandInverse [ { #category : #setter } PyramidAddChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [ - aChildrenToAdd do: [ :child | - aBlElement addChild: child ] + + aBlElement addChildren: aChildrenToAdd ] From 4134e5167d3701d48e1cb64cdb242c871a4b7e72 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Mathieu=20Magu=C3=A9r=C3=A8s?= Date: Tue, 28 Apr 2026 14:55:23 +0200 Subject: [PATCH 5/5] =?UTF-8?q?update=20fix=20issue=20:=20Undo=20of=20remo?= =?UTF-8?q?ve=20element=20doesn=E2=80=99t=20put=20it=20back=20in=20the=20s?= =?UTF-8?q?ame=20position=20#187?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st index a7545749..dee6455b 100644 --- a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st @@ -13,7 +13,7 @@ PyramidRemoveSelectedElementsCommand >> getValueFor: anElementOfSelection [ ^ nil ] -{ #category : #'as yet unclassified' } +{ #category : #history } PyramidRemoveSelectedElementsCommand >> mementoFor: anElement withArguments: anArgument [ self saveIndexOf: anElement.