diff --git a/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st b/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st index e2702d10..1f36a867 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st @@ -671,6 +671,86 @@ PyramidBackgroundBlocPlugin class >> outskirts [ ^ property ] +{ #category : #accessing } +PyramidBackgroundBlocPlugin class >> shadow [ + + | property | + property := PyramidProperty new + name: 'Shadow Effect'; + command: PyramidShadowCommand current; + inputPresenterClass: PyramidMagicButtonsInputPresenter; + yourself. + property inputPresenterModel + addButtonModel: (PyramidMagicButtonModel new + icon: (Smalltalk ui icons iconNamed: #blank); + helpSelected: 'No shadow.'; + helpNotSelected: 'Remove shadow.'; + label: 'None'; + inputValue: [ BlNullEffect new ]; + inputValidation: [ :value | value class = BlNullEffect ]; + yourself); + addButtonModel: (PyramidMagicButtonModel new + icon: (Smalltalk ui icons iconNamed: #windowMaximize); + helpSelected: 'Shadow type is simple.'; + helpNotSelected: 'Set shadow type to simple.'; + label: 'Simple'; + inputValue: [ PyramidShadowCommand current lastSimpleShadow ]; + inputValidation: [ :value | value class = BlSimpleShadowEffect ]; + yourself); + addButtonModel: (PyramidMagicButtonModel new + icon: (Smalltalk ui icons iconNamed: #radioButtonUnselected); + helpSelected: 'Shadow type is gaussian.'; + helpNotSelected: 'Set shadow type to gaussian.'; + label: 'Gaussian'; + inputValue: [ PyramidShadowCommand current lastGaussianShadow ]; + inputValidation: [ :value | value class = BlGaussianShadowEffect ]; + yourself). + ^ property +] + +{ #category : #accessing } +PyramidBackgroundBlocPlugin class >> shadowColor [ + + | property | + property := PyramidProperty new + name: 'Shadow Color'; + command: PyramidShadowColorCommand new; + inputPresenterClass: + PyramidColorInputSingleLineWithPickupButtonPresenter; + yourself. + ^ property + + +] + +{ #category : #accessing } +PyramidBackgroundBlocPlugin class >> shadowOffset [ + + | property | + property := PyramidProperty new + name: 'Shadow Offset'; + command: PyramidShadowOffsetCommand new; + inputPresenterClass: + PyramidPointInputPresenter; + yourself. + property inputPresenterModel help: + 'Set the position x and y for the shadow offset'. + ^ property +] + +{ #category : #accessing } +PyramidBackgroundBlocPlugin class >> shadowWidthGaussian [ + + | property | + property := PyramidProperty new + name: 'Shadow Width'; + command: PyramidShadowGaussianWidthCommand new; + inputPresenterClass: PyramidNumberInputPresenter; + yourself. + property inputPresenterModel help: 'Set the width value'. + ^ property +] + { #category : #adding } PyramidBackgroundBlocPlugin >> addPanelsOn: aPyramidSimpleWindow [ @@ -747,7 +827,14 @@ PyramidBackgroundBlocPlugin >> initialize [ propertiesManager addProperty: self class borderRadialInnerCenter. propertiesManager addProperty: self class borderRadialInnerRadius. propertiesManager addProperty: self class borderRadialOuterCenter. - propertiesManager addProperty: self class borderRadialOuterRadius + propertiesManager addProperty: self class borderRadialOuterRadius. + + "Shadow" + PyramidShadowCommand resetShadowCommand. + propertiesManager addProperty: self class shadow. + propertiesManager addProperty: self class shadowColor. + propertiesManager addProperty: self class shadowOffset. + propertiesManager addProperty: self class shadowWidthGaussian ] { #category : #adding } diff --git a/src/Pyramid-Bloc/PyramidMoveChildInParentPlugin.class.st b/src/Pyramid-Bloc/PyramidMoveChildInParentPlugin.class.st index 74b2a560..4fe6a43b 100644 --- a/src/Pyramid-Bloc/PyramidMoveChildInParentPlugin.class.st +++ b/src/Pyramid-Bloc/PyramidMoveChildInParentPlugin.class.st @@ -46,22 +46,21 @@ PyramidMoveChildInParentPlugin >> contextMenuMoveChildInParent: aBuilder [ aBuilder addGroupSingleSelection: [ :group :single | - group - addItem: [ :item | - item - icon: (Smalltalk ui icons iconNamed: #up); - name: 'Move index child up'; - action: [ self moveChildIndexUpInParent ]; - yourself ]; - - addItem: [ :item | - item - icon: (Smalltalk ui icons iconNamed: #down); - name: 'Move index child down'; - action: [ self moveChildIndexDownInParent ]; - yourself ]; - yourself ] - order: 10. + group + addItem: [ :item | + item + icon: (Smalltalk ui icons iconNamed: #up); + name: 'Move child up'; + action: [ self moveChildIndexDownInParent ]; + yourself ]; + addItem: [ :item | + item + icon: (Smalltalk ui icons iconNamed: #down); + name: 'Move child down'; + action: [self moveChildIndexUpInParent]; + yourself ]; + yourself ] + order: 10 ] { #category : #accessing } @@ -91,28 +90,23 @@ PyramidMoveChildInParentPlugin >> moveChildIndexDownCommand: aBlElementParent wi PyramidMoveChildInParentPlugin >> moveChildIndexDownInParent [ | childToMoveCollection childToMove childIndexToMove parentChild navigationSelectionPanel | - childToMoveCollection := projectModel selection collection. navigationSelectionPanel := navigationPlugin navigation selectionPanel. - - childToMoveCollection size = 1 - ifFalse: [ ^ self ]. + + childToMoveCollection size = 1 ifFalse: [ ^ self ]. childToMove := childToMoveCollection first. - - childToMove hasParent - ifFalse: [ ^ self ]. + + childToMove hasParent ifFalse: [ ^ self ]. parentChild := childToMove parent. - - childIndexToMove := (parentChild childIndexOf: childToMove). - - childIndexToMove > 1 - ifTrue: [ self moveChildIndexDownCommand: parentChild with: childToMove. - self refreshTreeTable ] - ifFalse: [ self inform: 'Cannot move down' ]. - - + childIndexToMove := parentChild childIndexOf: childToMove. + childIndexToMove > 1 + ifTrue: [ + self moveChildIndexDownCommand: parentChild with: childToMove. + self refreshTreeTable ] + ifFalse: [ "cannot move the child up and the index down" + self inform: 'Cannot move up' ] ] { #category : #'as yet unclassified' } @@ -129,27 +123,23 @@ PyramidMoveChildInParentPlugin >> moveChildIndexUpCommand: aBlElementParent with PyramidMoveChildInParentPlugin >> moveChildIndexUpInParent [ | childToMoveCollection childToMove childIndexToMove parentChild navigationSelectionPanel | - childToMoveCollection := projectModel selection collection. navigationSelectionPanel := navigationPlugin navigation selectionPanel. - - childToMoveCollection size = 1 - ifFalse: [ ^ self ]. + + childToMoveCollection size = 1 ifFalse: [ ^ self ]. childToMove := childToMoveCollection first. - - childToMove hasParent - ifFalse: [ ^ self ]. + + childToMove hasParent ifFalse: [ ^ self ]. parentChild := childToMove parent. - - childIndexToMove := (parentChild childIndexOf: childToMove). - - childIndexToMove < (parentChild children size) - ifTrue: [ self moveChildIndexUpCommand: parentChild with: childToMove. - self refreshTreeTable ] - ifFalse: [ self inform: 'Cannot move up' ]. - - + childIndexToMove := parentChild childIndexOf: childToMove. + + childIndexToMove < parentChild children size + ifTrue: [ + self moveChildIndexUpCommand: parentChild with: childToMove. + self refreshTreeTable ] + ifFalse: [ "cannot move the child down and the index up" + self inform: 'Cannot move down' ] ] { #category : #accessing } diff --git a/src/Pyramid-Bloc/PyramidShadowColorCommand.class.st b/src/Pyramid-Bloc/PyramidShadowColorCommand.class.st new file mode 100644 index 00000000..52bfd00c --- /dev/null +++ b/src/Pyramid-Bloc/PyramidShadowColorCommand.class.st @@ -0,0 +1,30 @@ +Class { + #name : #PyramidShadowColorCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' +} + +{ #category : #testing } +PyramidShadowColorCommand >> canBeUsedFor: anObject [ + + ^ (super canBeUsedFor: anObject) and: [ + anObject effect class = BlSimpleShadowEffect or: [ + anObject effect class = BlGaussianShadowEffect ] ] +] + +{ #category : #accessing } +PyramidShadowColorCommand >> getValueFor: aBlElement [ + + (aBlElement effect class = BlSimpleShadowEffect or: [ + aBlElement effect class = BlGaussianShadowEffect ]) ifFalse: [ ^ nil ]. + ^ aBlElement effect color +] + +{ #category : #accessing } +PyramidShadowColorCommand >> setValueFor: aBlElement with: aColor [ + + (aBlElement effect class = BlSimpleShadowEffect or: [ + aBlElement effect class = BlGaussianShadowEffect ]) ifFalse: [ ^ nil ]. + aBlElement effect: (aBlElement effect copyWithColor: aColor). + PyramidShadowCommand current syncFromElement: aBlElement +] diff --git a/src/Pyramid-Bloc/PyramidShadowCommand.class.st b/src/Pyramid-Bloc/PyramidShadowCommand.class.st new file mode 100644 index 00000000..6734091f --- /dev/null +++ b/src/Pyramid-Bloc/PyramidShadowCommand.class.st @@ -0,0 +1,61 @@ +Class { + #name : #PyramidShadowCommand, + #superclass : #PyramidAbstractBlocCommand, + #instVars : [ + 'lastSimpleShadow', + 'lastGaussianShadow' + ], + #classInstVars : [ + 'current' + ], + #category : #'Pyramid-Bloc-plugin-bloc-visuals' +} + +{ #category : #accessing } +PyramidShadowCommand class >> current [ + current ifNil: [ current := self new ]. + ^ current +] + +{ #category : #accessing } +PyramidShadowCommand class >> resetShadowCommand [ + + current := nil +] + +{ #category : #accessing } +PyramidShadowCommand >> getValueFor: aBlElement [ + + ^ aBlElement effect +] + +{ #category : #accessing } +PyramidShadowCommand >> lastGaussianShadow [ + ^ lastGaussianShadow ifNil: [ BlGaussianShadowEffect color: Color black width: 2 offset: 2 @ 2 ] +] + +{ #category : #accessing } +PyramidShadowCommand >> lastSimpleShadow [ + + ^ lastSimpleShadow ifNil: [ + BlSimpleShadowEffect color: Color black offset: 2 @ 2 ] +] + +{ #category : #accessing } +PyramidShadowCommand >> setValueFor: aBlElement with: anArgument [ + + anArgument class = BlSimpleShadowEffect ifTrue: [ + lastSimpleShadow := anArgument ]. + anArgument class = BlGaussianShadowEffect ifTrue: [ + lastGaussianShadow := anArgument ]. + aBlElement effect: anArgument +] + +{ #category : #updating } +PyramidShadowCommand >> syncFromElement: aBlElement [ + + aBlElement effect class = BlSimpleShadowEffect ifTrue: [ + lastSimpleShadow := aBlElement effect ]. + aBlElement effect class = BlGaussianShadowEffect ifTrue: [ + lastGaussianShadow := aBlElement effect ] +] diff --git a/src/Pyramid-Bloc/PyramidShadowGaussianWidthCommand.class.st b/src/Pyramid-Bloc/PyramidShadowGaussianWidthCommand.class.st new file mode 100644 index 00000000..c9e8984b --- /dev/null +++ b/src/Pyramid-Bloc/PyramidShadowGaussianWidthCommand.class.st @@ -0,0 +1,29 @@ +Class { + #name : #PyramidShadowGaussianWidthCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' +} + +{ #category : #testing } +PyramidShadowGaussianWidthCommand >> canBeUsedFor: anObject [ + + ^ (super canBeUsedFor: anObject) and: [ + anObject effect class = BlGaussianShadowEffect ] +] + +{ #category : #accessing } +PyramidShadowGaussianWidthCommand >> getValueFor: aBlElement [ + + (aBlElement effect class = BlSimpleShadowEffect or: [ + aBlElement effect class = BlGaussianShadowEffect ]) ifFalse: [ ^ nil ]. + ^ aBlElement effect width +] + +{ #category : #accessing } +PyramidShadowGaussianWidthCommand >> setValueFor: aBlElement with: aWidth [ + + (aBlElement effect class = BlSimpleShadowEffect or: [ + aBlElement effect class = BlGaussianShadowEffect ]) ifFalse: [ ^ nil ]. + aBlElement effect: (aBlElement effect copyWithWidth: aWidth). + PyramidShadowCommand current syncFromElement: aBlElement +] diff --git a/src/Pyramid-Bloc/PyramidShadowOffsetCommand.class.st b/src/Pyramid-Bloc/PyramidShadowOffsetCommand.class.st new file mode 100644 index 00000000..73737e5e --- /dev/null +++ b/src/Pyramid-Bloc/PyramidShadowOffsetCommand.class.st @@ -0,0 +1,29 @@ +Class { + #name : #PyramidShadowOffsetCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' +} + +{ #category : #testing } +PyramidShadowOffsetCommand >> canBeUsedFor: anObject [ + + ^ (super canBeUsedFor: anObject) and: [ + anObject effect class = BlSimpleShadowEffect or: [anObject effect class = BlGaussianShadowEffect] ] +] + +{ #category : #accessing } +PyramidShadowOffsetCommand >> getValueFor: aBlElement [ + + (aBlElement effect class = BlSimpleShadowEffect or: [ + aBlElement effect class = BlGaussianShadowEffect ]) ifFalse: [ ^ nil ]. + ^ aBlElement effect offset +] + +{ #category : #accessing } +PyramidShadowOffsetCommand >> setValueFor: aBlElement with: aPoint [ + + (aBlElement effect class = BlSimpleShadowEffect or: [ + aBlElement effect class = BlGaussianShadowEffect ]) ifFalse: [ ^ nil ]. + aBlElement effect: (aBlElement effect copyWithOffset: aPoint). + PyramidShadowCommand current syncFromElement: aBlElement +] diff --git a/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st b/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st index ad54c577..39710d5d 100644 --- a/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st @@ -12,7 +12,7 @@ PyramidAddChildCommandTest >> command [ ^ PyramidAddChildCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidAddChildCommandTest >> targetsCanBeUsedFor [ ^ { BlElement new . BlElement new addChild: BlElement new; yourself } diff --git a/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st index f5308c6b..d1c49058 100644 --- a/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundImageCommandTest >> command [ ^ PyramidBackgroundImageCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundImageCommandTest >> targetContainers [ ^ { @@ -34,7 +34,7 @@ PyramidBackgroundImageCommandTest >> targetContainers [ prop: (Smalltalk ui icons iconNamed: #pharoBig)) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundImageCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st index 6f01df3d..32d70ba5 100644 --- a/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st @@ -26,7 +26,7 @@ PyramidBackgroundOpacityCommandTest >> isBlBackgroundEqualityFix [ ^ e background == b2 ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundOpacityCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st index ea72a86d..8312b04b 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintColorCommandTest >> command [ ^ PyramidBackgroundPaintColorCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintColorCommandTest >> targetContainers [ ^ { @@ -35,7 +35,7 @@ PyramidBackgroundPaintColorCommandTest >> targetContainers [ } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintColorCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st index 949a9ab7..fcbb4cbc 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintCommandTest >> command [ ^ PyramidBackgroundPaintCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintCommandTest >> targetContainers [ ^ {(PyramidCommandTestContainer diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st index 116912ab..f2a1768b 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintLinearEndCommandTest >> command [ ^ PyramidBackgroundPaintLinearEndCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintLinearEndCommandTest >> targetContainers [ ^ { @@ -58,7 +58,7 @@ PyramidBackgroundPaintLinearEndCommandTest >> targetContainers [ prop: 0 @ 0) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintLinearEndCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st index 31caf284..b6f99ab7 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintLinearStartCommandTest >> command [ ^ PyramidBackgroundPaintLinearStartCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintLinearStartCommandTest >> targetContainers [ ^ { @@ -58,7 +58,7 @@ PyramidBackgroundPaintLinearStartCommandTest >> targetContainers [ prop: 0 @ 10) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintLinearStartCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st index aac47749..402c74b6 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintRadialInnerCenterCommandTest >> command [ ^ PyramidBackgroundPaintRadialInnerCenterCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialInnerCenterCommandTest >> targetContainers [ ^ { @@ -66,7 +66,7 @@ PyramidBackgroundPaintRadialInnerCenterCommandTest >> targetContainers [ prop: 500 asPoint) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialInnerCenterCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st index b9bfbd44..63231a90 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintRadialInnerRadiusCommandTest >> command [ ^ PyramidBackgroundPaintRadialInnerRadiusCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialInnerRadiusCommandTest >> targetContainers [ ^ { @@ -66,7 +66,7 @@ PyramidBackgroundPaintRadialInnerRadiusCommandTest >> targetContainers [ prop: 600) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialInnerRadiusCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st index ba329f0d..2d8175df 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintRadialOuterCenterCommandTest >> command [ ^ PyramidBackgroundPaintRadialOuterCenterCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialOuterCenterCommandTest >> targetContainers [ ^ { @@ -66,7 +66,7 @@ PyramidBackgroundPaintRadialOuterCenterCommandTest >> targetContainers [ prop: 500 asPoint) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialOuterCenterCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st index 742ef40e..179e1144 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintRadialOuterRadiusCommandTest >> command [ ^ PyramidBackgroundPaintRadialOuterRadiusCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialOuterRadiusCommandTest >> targetContainers [ ^ { @@ -58,7 +58,7 @@ PyramidBackgroundPaintRadialOuterRadiusCommandTest >> targetContainers [ prop: 600) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintRadialOuterRadiusCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st index 284afe89..d8ed51e3 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundPaintStopsCommandTest >> command [ ^ PyramidBackgroundPaintStopsCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintStopsCommandTest >> targetContainers [ ^ { @@ -87,7 +87,7 @@ PyramidBackgroundPaintStopsCommandTest >> targetContainers [ } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundPaintStopsCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st index b3c75e7b..b8f703c7 100644 --- a/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBackgroundTypeCommandTest >> command [ ^ PyramidBackgroundTypeCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBackgroundTypeCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st index ddb32c3c..c5252455 100644 --- a/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBasicExactHorizontalConstraintsBlocCommandTest >> command [ ^ PyramidBasicExactHorizontalConstraintsBlocCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicExactHorizontalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 p2 a2 b2 | @@ -42,7 +42,7 @@ PyramidBasicExactHorizontalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: b2 prop: 600) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicExactHorizontalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st index a1165f8e..db990f7f 100644 --- a/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBasicExactVerticalConstraintsBlocCommandTest >> command [ ^ PyramidBasicExactVerticalConstraintsBlocCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicExactVerticalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 p2 a2 b2 | @@ -44,7 +44,7 @@ PyramidBasicExactVerticalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: b2 prop: 100) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicExactVerticalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st index 0c34c59c..1acbfbab 100644 --- a/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBasicHorizontalConstraintsBlocCommandTest >> command [ ^ PyramidBasicHorizontalConstraintsBlocCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicHorizontalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 c1 d1 p2 a2 b2 c2 d2 | @@ -56,7 +56,7 @@ PyramidBasicHorizontalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: d2 prop: #matchParent) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicHorizontalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st index 6bd1493e..aca41fd1 100644 --- a/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBasicVerticalConstraintsBlocCommandTest >> command [ ^ PyramidBasicVerticalConstraintsBlocCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicVerticalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 c1 d1 p2 a2 b2 c2 d2 | @@ -56,7 +56,7 @@ PyramidBasicVerticalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: d2 prop: #matchParent) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBasicVerticalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st index 618ef42f..64e5d04c 100644 --- a/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBorderDashArrayCommandTest >> command [ ^ PyramidBorderDashArrayCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBorderDashArrayCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st index a7d65f33..ce8b116c 100644 --- a/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBorderDashOffsetCommandTest >> command [ ^ PyramidBorderDashOffsetCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBorderDashOffsetCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st index dce90ad7..9567d36d 100644 --- a/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBorderLineCapCommandTest >> command [ ^ PyramidBorderLineCapCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBorderLineCapCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st index fef84f1f..8b25b0e1 100644 --- a/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBorderLineJoinCommandTest >> command [ ^ PyramidBorderLineJoinCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBorderLineJoinCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st index f4ddb511..c97c1afa 100644 --- a/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBorderMiterLimitCommandTest >> command [ ^ PyramidBorderMiterLimitCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBorderMiterLimitCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st index 77ba3328..e6cdffb0 100644 --- a/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBorderOpacityCommandTest >> command [ ^ PyramidBorderOpacityCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBorderOpacityCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st index cc091120..72f3111e 100644 --- a/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st @@ -12,7 +12,7 @@ PyramidBorderTypeCommandTest >> command [ ^ PyramidBorderPaintCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidBorderTypeCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st b/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st index 3f304800..046812b1 100644 --- a/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st @@ -35,7 +35,7 @@ PyramidChangeOrderWithIndexCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidChangeOrderWithIndexCommandTest >> targetContainers [ | test1 test2 test3 test4 test5 test6 | @@ -73,7 +73,7 @@ PyramidChangeOrderWithIndexCommandTest >> targetContainers [ prop: 1) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidChangeOrderWithIndexCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | diff --git a/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st b/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st index 18dd1eb5..bb1b4974 100644 --- a/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st @@ -12,7 +12,7 @@ PyramidChangeTextCommandTest >> command [ ^ PyramidChangeTextCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidChangeTextCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st b/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st index 07f02a09..c3ddf1e5 100644 --- a/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st @@ -12,7 +12,7 @@ PyramidClipChildrenCommandTest >> command [ ^ PyramidClipChildrenCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidClipChildrenCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st b/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st index b235dc3b..4b3d132a 100644 --- a/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st @@ -12,7 +12,7 @@ PyramidElementIdCommandTest >> command [ ^ PyramidElementIdCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidElementIdCommandTest >> targetContainers [ diff --git a/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st b/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st index effab2f4..343ce6e3 100644 --- a/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st @@ -18,7 +18,7 @@ PyramidFontSizeCommandTest >> command [ ^ PyramidFontSizeCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidFontSizeCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st b/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st index ca2f6b2e..1b5bfb98 100644 --- a/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st @@ -18,7 +18,7 @@ PyramidFontWeightCommandTest >> command [ ^ PyramidFontWeightCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidFontWeightCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st b/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st index 070c4ad8..1cefa683 100644 --- a/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st @@ -12,7 +12,7 @@ PyramidGeometryCommandTest >> command [ ^ PyramidGeometryCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidGeometryCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st index 9da98d0b..a1c5f317 100644 --- a/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st @@ -12,7 +12,7 @@ PyramidLayoutBlocCommandTest >> command [ ^ PyramidLayoutBlocCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidLayoutBlocCommandTest >> targetContainers [ | flowLayoutVertical basicLayout proportionalLayout | @@ -43,7 +43,7 @@ PyramidLayoutBlocCommandTest >> targetContainers [ prop: proportionalLayout) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidLayoutBlocCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers collect: [ :each | each targetNoProp ]. diff --git a/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st b/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st index b0e2e9e5..20cc4bcf 100644 --- a/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st @@ -12,7 +12,7 @@ PyramidLayoutChangeOrientationCommandTest >> command [ ^ PyramidLayoutChangeOrientationCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidLayoutChangeOrientationCommandTest >> targetContainers [ ^ { (PyramidCommandTestContainer @@ -49,7 +49,7 @@ PyramidLayoutChangeOrientationCommandTest >> targetContainers [ prop: BlLayoutOrientation horizontal) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidLayoutChangeOrientationCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidMarginCommandTest.class.st b/src/Pyramid-Tests/PyramidMarginCommandTest.class.st index 1ff7ea4b..5f6771c5 100644 --- a/src/Pyramid-Tests/PyramidMarginCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidMarginCommandTest.class.st @@ -12,7 +12,7 @@ PyramidMarginCommandTest >> command [ ^ PyramidMarginCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMarginCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st index beae1f5e..9c0a4d77 100644 --- a/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st @@ -6,7 +6,7 @@ Class { #category : #'Pyramid-Tests-cases-plugin-bloc-order' } -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveBackwardOrderCommandTest >> argumentsForHistory [ ^ { 3. 2. 1 } @@ -30,7 +30,7 @@ PyramidMoveBackwardOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveBackwardOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -53,7 +53,7 @@ PyramidMoveBackwardOrderCommandTest >> targetContainers [ prop: 3) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveBackwardOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | @@ -61,7 +61,7 @@ PyramidMoveBackwardOrderCommandTest >> targetsCanBeUsedFor [ each targetNoProp } ] ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveBackwardOrderCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st index 876ebefa..0cbc4141 100644 --- a/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st @@ -6,7 +6,7 @@ Class { #category : #'Pyramid-Tests-cases-plugin-bloc-order' } -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveForwardOrderCommandTest >> argumentsForHistory [ ^ { 1 . 2 . 3 } @@ -30,7 +30,7 @@ PyramidMoveForwardOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveForwardOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -53,7 +53,7 @@ PyramidMoveForwardOrderCommandTest >> targetContainers [ prop: 3) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveForwardOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | @@ -61,7 +61,7 @@ PyramidMoveForwardOrderCommandTest >> targetsCanBeUsedFor [ each targetNoProp } ] ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidMoveForwardOrderCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st index 0e57fc9e..5af89655 100644 --- a/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st @@ -35,7 +35,7 @@ PyramidOnBackgroundOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidOnBackgroundOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -58,7 +58,7 @@ PyramidOnBackgroundOrderCommandTest >> targetContainers [ prop: 1) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidOnBackgroundOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | diff --git a/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st index dfd10ec8..329c9857 100644 --- a/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st @@ -35,7 +35,7 @@ PyramidOnForegroundOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidOnForegroundOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -58,7 +58,7 @@ PyramidOnForegroundOrderCommandTest >> targetContainers [ prop: 3) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidOnForegroundOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | diff --git a/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st index 15abba92..90043941 100644 --- a/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st @@ -12,7 +12,7 @@ PyramidOpacityCommandTest >> command [ ^ PyramidOpacityCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidOpacityCommandTest >> targetContainers [ | e1 e2 | diff --git a/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st b/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st index 842a6e73..25058fe6 100644 --- a/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st @@ -12,7 +12,7 @@ PyramidPaddingCommandTest >> command [ ^ PyramidPaddingCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidPaddingCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidPositionCommandTest.class.st b/src/Pyramid-Tests/PyramidPositionCommandTest.class.st index 596e92eb..0d5784d3 100644 --- a/src/Pyramid-Tests/PyramidPositionCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidPositionCommandTest.class.st @@ -12,7 +12,7 @@ PyramidPositionCommandTest >> command [ ^ PyramidPositionCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidPositionCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st b/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st index 34285057..bf3c08a8 100644 --- a/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st @@ -12,7 +12,7 @@ PyramidPositionOffsetCommandTest >> command [ ^ PyramidPositionOffsetCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidPositionOffsetCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st index 40e93624..1da847b8 100644 --- a/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st @@ -12,7 +12,7 @@ PyramidProportionnalHorizontalConstraintsCommandTest >> command [ ^ PyramidProportionalHorizontalConstraintsCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidProportionnalHorizontalConstraintsCommandTest >> targetContainers [ | parent e1 e2 | @@ -31,7 +31,7 @@ PyramidProportionnalHorizontalConstraintsCommandTest >> targetContainers [ prop: 0.2 @ 0.4)} ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidProportionnalHorizontalConstraintsCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st index 81496cc8..7797a248 100644 --- a/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st @@ -12,7 +12,7 @@ PyramidProportionnalVerticalConstraintsCommandTest >> command [ ^ PyramidProportionalVerticalConstraintsCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidProportionnalVerticalConstraintsCommandTest >> targetContainers [ | parent e1 e2 | @@ -35,7 +35,7 @@ PyramidProportionnalVerticalConstraintsCommandTest >> targetContainers [ ^ { (PyramidCommandTestContainer no: e1 with: e2 prop: 0.3 @ 0.6) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidProportionnalVerticalConstraintsCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st index 30f24257..923c5ca1 100644 --- a/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st @@ -12,7 +12,7 @@ PyramidRemoveChildCommandTest >> command [ ^ PyramidRemoveChildCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidRemoveChildCommandTest >> targetsCanBeUsedFor [ ^ { BlElement new . BlElement new addChild: BlElement new; yourself } diff --git a/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st index 18aa0bb1..c2e6a27b 100644 --- a/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st @@ -116,7 +116,7 @@ PyramidRemoveSelectionCommandTest >> parentsAndElements [ ^ parents -> elements ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidRemoveSelectionCommandTest >> targetsCanBeUsedFor [ ^ { diff --git a/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st b/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st index 68db7048..38d349a6 100644 --- a/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st @@ -12,7 +12,7 @@ PyramidRoundedRectangleCornerRadiiCommandTest >> command [ ^ PyramidRoundedRectangleCornerRadiiCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidRoundedRectangleCornerRadiiCommandTest >> targetContainers [ ^ { @@ -30,7 +30,7 @@ PyramidRoundedRectangleCornerRadiiCommandTest >> targetContainers [ prop: (BlCornerRadii radius: 20)) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidRoundedRectangleCornerRadiiCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidShadowColorCommandTest.class.st b/src/Pyramid-Tests/PyramidShadowColorCommandTest.class.st new file mode 100644 index 00000000..fcd6eddd --- /dev/null +++ b/src/Pyramid-Tests/PyramidShadowColorCommandTest.class.st @@ -0,0 +1,35 @@ +Class { + #name : #PyramidShadowColorCommandTest, + #superclass : #TestCase, + #traits : 'TPyramidCommandTest', + #classTraits : 'TPyramidCommandTest classTrait', + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' +} + +{ #category : #accessing } +PyramidShadowColorCommandTest >> command [ + + ^ PyramidShadowColorCommand new +] + +{ #category : #accessing } +PyramidShadowColorCommandTest >> targetContainers [ + + ^ { + (PyramidCommandTestContainer + no: (BlElement new effect: BlSimpleShadowEffect new) + with: (BlElement new + effect: (BlSimpleShadowEffect color: Color red offset: 2 @ 2); + yourself) + prop: Color red). + (PyramidCommandTestContainer + no: (BlElement new effect: BlGaussianShadowEffect new) + with: (BlElement new + effect: + (BlGaussianShadowEffect + color: Color blue + width: 10 + offset: 4 @ 4); + yourself) + prop: Color blue) } +] diff --git a/src/Pyramid-Tests/PyramidShadowCommandTest.class.st b/src/Pyramid-Tests/PyramidShadowCommandTest.class.st new file mode 100644 index 00000000..0e96a6e3 --- /dev/null +++ b/src/Pyramid-Tests/PyramidShadowCommandTest.class.st @@ -0,0 +1,114 @@ +Class { + #name : #PyramidShadowCommandTest, + #superclass : #TestCase, + #traits : 'TPyramidCommandTest', + #classTraits : 'TPyramidCommandTest classTrait', + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' +} + +{ #category : #tests } +PyramidShadowCommandTest >> assert: anObject hasSamePropertiesAs: anotherObject [ + + self assert: anObject color equals: anotherObject color. + self assert: anObject offset equals: anotherObject offset. + (anObject isKindOf: BlGaussianShadowEffect) ifTrue: [ + self assert: anObject width equals: anotherObject width ] +] + +{ #category : #accessing } +PyramidShadowCommandTest >> command [ + + ^ PyramidShadowCommand new +] + +{ #category : #accessing } +PyramidShadowCommandTest >> targetContainers [ + + ^ { + (PyramidCommandTestContainer + no: BlElement new + with: (BlElement new + effect: (BlSimpleShadowEffect color: Color red offset: 2 @ 2); + yourself) + prop: (BlSimpleShadowEffect color: Color red offset: 2 @ 2)). + (PyramidCommandTestContainer + no: BlElement new + with: (BlElement new + effect: + (BlGaussianShadowEffect + color: Color blue + width: 10 + offset: 4 @ 4); + yourself) + prop: + (BlGaussianShadowEffect + color: Color blue + width: 10 + offset: 4 @ 4)). + (PyramidCommandTestContainer + no: (BlElement new effect: BlOverlayEffect new) + with: (BlElement new + effect: + (BlGaussianShadowEffect + color: Color blue + width: 10 + offset: 4 @ 4); + yourself) + prop: + (BlGaussianShadowEffect + color: Color blue + width: 10 + offset: 4 @ 4)) } +] + +{ #category : #tests } +PyramidShadowCommandTest >> testGetValueFor [ + + self targetsWithValuesAndValues do: [ :each | + self assert: (self command getValueFor: each key) hasSamePropertiesAs: each value ] +] + +{ #category : #tests } +PyramidShadowCommandTest >> testHistory [ + "Do once. + undo + redo + undo + redo" + + | history commandExecutor targets | + targets := self targetsCanBeUsedFor. + history := PyramidHistory new. + commandExecutor := PyramidHistoryCommandExecutor new + history: history; + wrappee: PyramidMainCommandExecutor new; + yourself. + + "Do once" + self argumentsForHistory do: [ :each | + commandExecutor use: self command on: targets with: each ]. + + "Undo all" + self argumentsForHistory reverseDo: [ :argument | + targets do: [ :target | + self assert: (self command getValueFor: target) hasSamePropertiesAs: argument ]. + history canUndo ifTrue: [ history undo ] ]. + + "Redo all" + self argumentsForHistory do: [ :argument | + history canRedo ifTrue: [ history redo ]. + targets do: [ :target | + self assert: (self command getValueFor: target) hasSamePropertiesAs: argument ] ]. + + "Undo all" + self argumentsForHistory reverseDo: [ :argument | + targets do: [ :target | + self assert: (self command getValueFor: target) hasSamePropertiesAs: argument ]. + history canUndo ifTrue: [ history undo ] ]. + + "Redo all" + self argumentsForHistory do: [ :argument | + history canRedo ifTrue: [ history redo ]. + targets do: [ :target | + self assert: (self command getValueFor: target) hasSamePropertiesAs: argument ] ] +] diff --git a/src/Pyramid-Tests/PyramidShadowGaussianWidthTest.class.st b/src/Pyramid-Tests/PyramidShadowGaussianWidthTest.class.st new file mode 100644 index 00000000..bf2b5df0 --- /dev/null +++ b/src/Pyramid-Tests/PyramidShadowGaussianWidthTest.class.st @@ -0,0 +1,36 @@ +Class { + #name : #PyramidShadowGaussianWidthTest, + #superclass : #TestCase, + #traits : 'TPyramidCommandTest', + #classTraits : 'TPyramidCommandTest classTrait', + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' +} + +{ #category : #accessing } +PyramidShadowGaussianWidthTest >> command [ + + ^ PyramidShadowGaussianWidthCommand new + +] + +{ #category : #accessing } +PyramidShadowGaussianWidthTest >> targetContainers [ + + ^ { + (PyramidCommandTestContainer + no: (BlElement new effect: BlGaussianShadowEffect new) + with: (BlElement new + effect: (BlGaussianShadowEffect color: Color red width: 5 offset: 2 @ 2); + yourself) + prop: 5). + (PyramidCommandTestContainer + no: (BlElement new effect: BlGaussianShadowEffect new) + with: (BlElement new + effect: + (BlGaussianShadowEffect + color: Color blue + width: 10 + offset: 4 @ 4); + yourself) + prop: 10) } +] diff --git a/src/Pyramid-Tests/PyramidShadowOffsetCommandTest.class.st b/src/Pyramid-Tests/PyramidShadowOffsetCommandTest.class.st new file mode 100644 index 00000000..2825bb4d --- /dev/null +++ b/src/Pyramid-Tests/PyramidShadowOffsetCommandTest.class.st @@ -0,0 +1,35 @@ +Class { + #name : #PyramidShadowOffsetCommandTest, + #superclass : #TestCase, + #traits : 'TPyramidCommandTest', + #classTraits : 'TPyramidCommandTest classTrait', + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' +} + +{ #category : #accessing } +PyramidShadowOffsetCommandTest >> command [ + + ^ PyramidShadowOffsetCommand new +] + +{ #category : #accessing } +PyramidShadowOffsetCommandTest >> targetContainers [ + + ^ { + (PyramidCommandTestContainer + no: (BlElement new effect: BlSimpleShadowEffect new) + with: (BlElement new + effect: (BlSimpleShadowEffect color: Color red offset: 2 @ 2); + yourself) + prop: 2@2). + (PyramidCommandTestContainer + no: (BlElement new effect: BlGaussianShadowEffect new) + with: (BlElement new + effect: + (BlGaussianShadowEffect + color: Color blue + width: 10 + offset: 4 @ 4); + yourself) + prop: 4@4) } +] diff --git a/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st b/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st index 36b77372..457a78b1 100644 --- a/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st @@ -18,7 +18,7 @@ PyramidTextForegroundCommandTest >> command [ ^ PyramidTextForegroundCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidTextForegroundCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st b/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st index abca3c83..028dad1c 100644 --- a/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st @@ -12,7 +12,7 @@ PyramidVisibilityCommandTest >> command [ ^ PyramidVisibilityCommand new. ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidVisibilityCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidWeightConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidWeightConstraintsCommandTest.class.st index 3af4cf20..7680fbde 100644 --- a/src/Pyramid-Tests/PyramidWeightConstraintsCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidWeightConstraintsCommandTest.class.st @@ -12,7 +12,7 @@ PyramidWeightConstraintsCommandTest >> command [ ^ PyramidWeightConstraintsCommand new ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidWeightConstraintsCommandTest >> targetContainers [ | parentLinear e1Linear e2Linear parentFlow e1Flow e2Flow | @@ -41,7 +41,7 @@ PyramidWeightConstraintsCommandTest >> targetContainers [ ^ { (PyramidCommandTestContainer no: e1Linear with: e2Linear prop: 0.5) . (PyramidCommandTestContainer no: e1Flow with: e2Flow prop: 0.5) } ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidWeightConstraintsCommandTest >> targetsCannotBeUsedFor [ "override if needed" | parent child | diff --git a/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st b/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st index ccb5fe23..13a1594a 100644 --- a/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st @@ -12,7 +12,7 @@ PyramidZIndexCommandTest >> command [ ^ PyramidZIndexCommand new. ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidZIndexCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/TPyramidCommandTest.trait.st b/src/Pyramid-Tests/TPyramidCommandTest.trait.st index fb408590..c7f62f97 100644 --- a/src/Pyramid-Tests/TPyramidCommandTest.trait.st +++ b/src/Pyramid-Tests/TPyramidCommandTest.trait.st @@ -3,7 +3,7 @@ Trait { #category : #'Pyramid-Tests-cases-command' } -{ #category : #'as yet unclassified' } +{ #category : #accessing } TPyramidCommandTest >> argumentsForHistory [ @@ -16,19 +16,19 @@ TPyramidCommandTest >> command [ ^ self shouldBeImplemented ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } TPyramidCommandTest >> targetContainers [ ^ self shouldBeImplemented ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } TPyramidCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | { each targetNoProp . each targetWithProp } ]. ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } TPyramidCommandTest >> targetsCannotBeUsedFor [ "override if needed" ^ { nil . false . 0 . $a } diff --git a/src/Pyramid-Toplo-Tests/PyramidStampCommandTest.class.st b/src/Pyramid-Toplo-Tests/PyramidStampCommandTest.class.st index b27c592e..f7143ce0 100644 --- a/src/Pyramid-Toplo-Tests/PyramidStampCommandTest.class.st +++ b/src/Pyramid-Toplo-Tests/PyramidStampCommandTest.class.st @@ -12,7 +12,7 @@ PyramidStampCommandTest >> command [ ^ PyramidStampCommand new stamp: #test; yourself ] -{ #category : #'as yet unclassified' } +{ #category : #accessing } PyramidStampCommandTest >> targetContainers [ ^ {