diff --git a/src/Pyramid-Bloc/BlBackground.extension.st b/src/Pyramid-Bloc/BlBackground.extension.st index 2a208239..5ac1c292 100644 --- a/src/Pyramid-Bloc/BlBackground.extension.st +++ b/src/Pyramid-Bloc/BlBackground.extension.st @@ -1,18 +1,18 @@ -Extension { #name : 'BlBackground' } +Extension { #name : #BlBackground } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlBackground >> asForm [ ^ self shouldBeImplemented ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlBackground >> asString [ ^ self shouldBeImplemented ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlBackground >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [ self shouldBeImplemented diff --git a/src/Pyramid-Bloc/BlBasicLayout.extension.st b/src/Pyramid-Bloc/BlBasicLayout.extension.st index 46bb6eb6..46a35316 100644 --- a/src/Pyramid-Bloc/BlBasicLayout.extension.st +++ b/src/Pyramid-Bloc/BlBasicLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlBasicLayout' } +Extension { #name : #BlBasicLayout } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlBasicLayout >> asIcon [ ^ self iconNamed: #radioButtonUnselected diff --git a/src/Pyramid-Bloc/BlBottomAlignment.extension.st b/src/Pyramid-Bloc/BlBottomAlignment.extension.st index f99c34d0..2683598c 100644 --- a/src/Pyramid-Bloc/BlBottomAlignment.extension.st +++ b/src/Pyramid-Bloc/BlBottomAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlBottomAlignment' } +Extension { #name : #BlBottomAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlBottomAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectEnd. diff --git a/src/Pyramid-Bloc/BlColorPaint.extension.st b/src/Pyramid-Bloc/BlColorPaint.extension.st index b06b0f7a..c6c9650d 100644 --- a/src/Pyramid-Bloc/BlColorPaint.extension.st +++ b/src/Pyramid-Bloc/BlColorPaint.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlColorPaint' } +Extension { #name : #BlColorPaint } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlColorPaint >> asForm [ ^ (Morph new @@ -9,7 +9,7 @@ BlColorPaint >> asForm [ yourself) asForm ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlColorPaint >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [ aPyramidBackgroundInputPresenter selectPaintSolidWith: self diff --git a/src/Pyramid-Bloc/BlCompositeBackground.extension.st b/src/Pyramid-Bloc/BlCompositeBackground.extension.st index f911ae17..9b757df1 100644 --- a/src/Pyramid-Bloc/BlCompositeBackground.extension.st +++ b/src/Pyramid-Bloc/BlCompositeBackground.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlCompositeBackground' } +Extension { #name : #BlCompositeBackground } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlCompositeBackground >> asForm [ ^ self iconNamed: #jigsawIcon ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlCompositeBackground >> asString [ ^ 'Composite' diff --git a/src/Pyramid-Bloc/BlCornerRadii.extension.st b/src/Pyramid-Bloc/BlCornerRadii.extension.st index f3ed3423..9bf47a27 100644 --- a/src/Pyramid-Bloc/BlCornerRadii.extension.st +++ b/src/Pyramid-Bloc/BlCornerRadii.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlCornerRadii' } +Extension { #name : #BlCornerRadii } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlCornerRadii >> setCornerRadiiOn: aPyramidInsetsInputPresenter [ ((self topLeft closeTo: self bottomRight) and: [(self topRight closeTo: self bottomLeft)]) ifTrue: [ diff --git a/src/Pyramid-Bloc/BlElement.extension.st b/src/Pyramid-Bloc/BlElement.extension.st index c8af2590..90e1b6dc 100644 --- a/src/Pyramid-Bloc/BlElement.extension.st +++ b/src/Pyramid-Bloc/BlElement.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlElement' } +Extension { #name : #BlElement } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlElement >> asIcon [ ^ self layout asIcon ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlElement >> editWithPyramid [ | editor oldParent | diff --git a/src/Pyramid-Bloc/BlFlowLayout.extension.st b/src/Pyramid-Bloc/BlFlowLayout.extension.st index e8c1693f..49929bdb 100644 --- a/src/Pyramid-Bloc/BlFlowLayout.extension.st +++ b/src/Pyramid-Bloc/BlFlowLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlFlowLayout' } +Extension { #name : #BlFlowLayout } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlFlowLayout >> asIcon [ ^ self iconNamed: #smallJustified diff --git a/src/Pyramid-Bloc/BlFrameLayout.extension.st b/src/Pyramid-Bloc/BlFrameLayout.extension.st index 00d335e3..fd888ddb 100644 --- a/src/Pyramid-Bloc/BlFrameLayout.extension.st +++ b/src/Pyramid-Bloc/BlFrameLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlFrameLayout' } +Extension { #name : #BlFrameLayout } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlFrameLayout >> asIcon [ ^ self iconNamed: #windowMaximize diff --git a/src/Pyramid-Bloc/BlGradientPaint.extension.st b/src/Pyramid-Bloc/BlGradientPaint.extension.st index c4ded47d..82500ced 100644 --- a/src/Pyramid-Bloc/BlGradientPaint.extension.st +++ b/src/Pyramid-Bloc/BlGradientPaint.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlGradientPaint' } +Extension { #name : #BlGradientPaint } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlGradientPaint >> asForm [ ^ (Morph new @@ -13,13 +13,13 @@ BlGradientPaint >> asForm [ yourself) asForm ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlGradientPaint >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [ aPyramidBackgroundInputPresenter selectPaintGradientWith: self ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlGradientPaint >> selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter [ aPyramidGradientPaintInputPresenter stopsInput value:self stops. diff --git a/src/Pyramid-Bloc/BlHorizontalCenterAlignment.extension.st b/src/Pyramid-Bloc/BlHorizontalCenterAlignment.extension.st index b36c1443..0c592c15 100644 --- a/src/Pyramid-Bloc/BlHorizontalCenterAlignment.extension.st +++ b/src/Pyramid-Bloc/BlHorizontalCenterAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlHorizontalCenterAlignment' } +Extension { #name : #BlHorizontalCenterAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlHorizontalCenterAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectCenter. diff --git a/src/Pyramid-Bloc/BlHorizontalCoordinateEndAlignment.extension.st b/src/Pyramid-Bloc/BlHorizontalCoordinateEndAlignment.extension.st index 7fcd23ef..e5ba3cff 100644 --- a/src/Pyramid-Bloc/BlHorizontalCoordinateEndAlignment.extension.st +++ b/src/Pyramid-Bloc/BlHorizontalCoordinateEndAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlHorizontalCoordinateEndAlignment' } +Extension { #name : #BlHorizontalCoordinateEndAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlHorizontalCoordinateEndAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectCenter. diff --git a/src/Pyramid-Bloc/BlHorizontalCoordinateLeftAlignment.extension.st b/src/Pyramid-Bloc/BlHorizontalCoordinateLeftAlignment.extension.st index 4cc645c2..a1e09b0a 100644 --- a/src/Pyramid-Bloc/BlHorizontalCoordinateLeftAlignment.extension.st +++ b/src/Pyramid-Bloc/BlHorizontalCoordinateLeftAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlHorizontalCoordinateLeftAlignment' } +Extension { #name : #BlHorizontalCoordinateLeftAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlHorizontalCoordinateLeftAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectStart. diff --git a/src/Pyramid-Bloc/BlHorizontalCoordinateRightAlignment.extension.st b/src/Pyramid-Bloc/BlHorizontalCoordinateRightAlignment.extension.st index c786f4cb..e9f5b757 100644 --- a/src/Pyramid-Bloc/BlHorizontalCoordinateRightAlignment.extension.st +++ b/src/Pyramid-Bloc/BlHorizontalCoordinateRightAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlHorizontalCoordinateRightAlignment' } +Extension { #name : #BlHorizontalCoordinateRightAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlHorizontalCoordinateRightAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectEnd. diff --git a/src/Pyramid-Bloc/BlHorizontalCoordinateStartAlignment.extension.st b/src/Pyramid-Bloc/BlHorizontalCoordinateStartAlignment.extension.st index def904a0..b571a509 100644 --- a/src/Pyramid-Bloc/BlHorizontalCoordinateStartAlignment.extension.st +++ b/src/Pyramid-Bloc/BlHorizontalCoordinateStartAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlHorizontalCoordinateStartAlignment' } +Extension { #name : #BlHorizontalCoordinateStartAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlHorizontalCoordinateStartAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectCenter. diff --git a/src/Pyramid-Bloc/BlHorizontalEndAlignment.extension.st b/src/Pyramid-Bloc/BlHorizontalEndAlignment.extension.st index ac0db50b..39362c5e 100644 --- a/src/Pyramid-Bloc/BlHorizontalEndAlignment.extension.st +++ b/src/Pyramid-Bloc/BlHorizontalEndAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlHorizontalEndAlignment' } +Extension { #name : #BlHorizontalEndAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlHorizontalEndAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectEnd. diff --git a/src/Pyramid-Bloc/BlHorizontalStartAlignment.extension.st b/src/Pyramid-Bloc/BlHorizontalStartAlignment.extension.st index e5c92f04..0b37baf7 100644 --- a/src/Pyramid-Bloc/BlHorizontalStartAlignment.extension.st +++ b/src/Pyramid-Bloc/BlHorizontalStartAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlHorizontalStartAlignment' } +Extension { #name : #BlHorizontalStartAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlHorizontalStartAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectStart. diff --git a/src/Pyramid-Bloc/BlImageBackground.extension.st b/src/Pyramid-Bloc/BlImageBackground.extension.st index 2fc68c21..7211fa2b 100644 --- a/src/Pyramid-Bloc/BlImageBackground.extension.st +++ b/src/Pyramid-Bloc/BlImageBackground.extension.st @@ -1,18 +1,18 @@ -Extension { #name : 'BlImageBackground' } +Extension { #name : #BlImageBackground } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlImageBackground >> asForm [ ^ self image ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlImageBackground >> asString [ ^ 'Image - ', self image asString ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlImageBackground >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [ aPyramidBackgroundInputPresenter selectImage diff --git a/src/Pyramid-Bloc/BlInsets.extension.st b/src/Pyramid-Bloc/BlInsets.extension.st index 18300bca..a47a58cc 100644 --- a/src/Pyramid-Bloc/BlInsets.extension.st +++ b/src/Pyramid-Bloc/BlInsets.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlInsets' } +Extension { #name : #BlInsets } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlInsets >> setInsetsOn: aPyramidInsetsInputPresenter [ self isUniform ifTrue: [ diff --git a/src/Pyramid-Bloc/BlLayout.extension.st b/src/Pyramid-Bloc/BlLayout.extension.st index 9e3b850a..5225f479 100644 --- a/src/Pyramid-Bloc/BlLayout.extension.st +++ b/src/Pyramid-Bloc/BlLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlLayout' } +Extension { #name : #BlLayout } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayout >> asIcon [ ^ self iconNamed: #smallQuestion diff --git a/src/Pyramid-Bloc/BlLayoutCommonConstraintsAxis.extension.st b/src/Pyramid-Bloc/BlLayoutCommonConstraintsAxis.extension.st index 00c4c1e1..bfe5dbfa 100644 --- a/src/Pyramid-Bloc/BlLayoutCommonConstraintsAxis.extension.st +++ b/src/Pyramid-Bloc/BlLayoutCommonConstraintsAxis.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlLayoutCommonConstraintsAxis' } +Extension { #name : #BlLayoutCommonConstraintsAxis } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutCommonConstraintsAxis >> asPyramidConstraintsArgument [ ^ self resizer asPyramidConstraintsArgument ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutCommonConstraintsAxis >> setConstraintsOn: aPyramidBasicConstraintsInputPresenter [ self resizer setResizerConstraintsOn: aPyramidBasicConstraintsInputPresenter diff --git a/src/Pyramid-Bloc/BlLayoutExactResizer.extension.st b/src/Pyramid-Bloc/BlLayoutExactResizer.extension.st index 5cf6b4dc..151bff37 100644 --- a/src/Pyramid-Bloc/BlLayoutExactResizer.extension.st +++ b/src/Pyramid-Bloc/BlLayoutExactResizer.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlLayoutExactResizer' } +Extension { #name : #BlLayoutExactResizer } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutExactResizer >> asPyramidConstraintsArgument [ ^ { @@ -8,7 +8,7 @@ BlLayoutExactResizer >> asPyramidConstraintsArgument [ self size } ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutExactResizer >> setResizerConstraintsOn: aPyramidBasicConstraintsInputPresenter [ aPyramidBasicConstraintsInputPresenter setExact diff --git a/src/Pyramid-Bloc/BlLayoutFitContentResizer.extension.st b/src/Pyramid-Bloc/BlLayoutFitContentResizer.extension.st index 7e2081b5..4e906210 100644 --- a/src/Pyramid-Bloc/BlLayoutFitContentResizer.extension.st +++ b/src/Pyramid-Bloc/BlLayoutFitContentResizer.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlLayoutFitContentResizer' } +Extension { #name : #BlLayoutFitContentResizer } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutFitContentResizer >> asPyramidConstraintsArgument [ ^ #fitContent ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutFitContentResizer >> setResizerConstraintsOn: aPyramidBasicConstraintsInputPresenter [ aPyramidBasicConstraintsInputPresenter setFitContent diff --git a/src/Pyramid-Bloc/BlLayoutHorizontal.extension.st b/src/Pyramid-Bloc/BlLayoutHorizontal.extension.st index c43504f5..5d8b5d0f 100644 --- a/src/Pyramid-Bloc/BlLayoutHorizontal.extension.st +++ b/src/Pyramid-Bloc/BlLayoutHorizontal.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlLayoutHorizontal' } +Extension { #name : #BlLayoutHorizontal } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutHorizontal >> asBooleanForPyramid [ ^ false ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutHorizontal >> switchOrientation [ ^ BlLayoutOrientation vertical diff --git a/src/Pyramid-Bloc/BlLayoutMatchParentResizer.extension.st b/src/Pyramid-Bloc/BlLayoutMatchParentResizer.extension.st index 0b51f945..383d676e 100644 --- a/src/Pyramid-Bloc/BlLayoutMatchParentResizer.extension.st +++ b/src/Pyramid-Bloc/BlLayoutMatchParentResizer.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlLayoutMatchParentResizer' } +Extension { #name : #BlLayoutMatchParentResizer } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutMatchParentResizer >> asPyramidConstraintsArgument [ ^ #matchParent ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutMatchParentResizer >> setResizerConstraintsOn: aPyramidBasicConstraintsInputPresenter [ aPyramidBasicConstraintsInputPresenter setMatchParent diff --git a/src/Pyramid-Bloc/BlLayoutVertical.extension.st b/src/Pyramid-Bloc/BlLayoutVertical.extension.st index 92f7611a..ff049ba9 100644 --- a/src/Pyramid-Bloc/BlLayoutVertical.extension.st +++ b/src/Pyramid-Bloc/BlLayoutVertical.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlLayoutVertical' } +Extension { #name : #BlLayoutVertical } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutVertical >> asBooleanForPyramid [ ^ true ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLayoutVertical >> switchOrientation [ ^ BlLayoutOrientation horizontal diff --git a/src/Pyramid-Bloc/BlLinearGradientPaint.extension.st b/src/Pyramid-Bloc/BlLinearGradientPaint.extension.st index 0a9c7759..f09ee7b5 100644 --- a/src/Pyramid-Bloc/BlLinearGradientPaint.extension.st +++ b/src/Pyramid-Bloc/BlLinearGradientPaint.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlLinearGradientPaint' } +Extension { #name : #BlLinearGradientPaint } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLinearGradientPaint >> selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter [ super selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter. diff --git a/src/Pyramid-Bloc/BlLinearLayout.extension.st b/src/Pyramid-Bloc/BlLinearLayout.extension.st index f6be948b..db887d29 100644 --- a/src/Pyramid-Bloc/BlLinearLayout.extension.st +++ b/src/Pyramid-Bloc/BlLinearLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlLinearLayout' } +Extension { #name : #BlLinearLayout } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLinearLayout >> asIcon [ ^ self iconNamed: #smallLeftFlush diff --git a/src/Pyramid-Bloc/BlLinearLayoutHorizontalOrientation.extension.st b/src/Pyramid-Bloc/BlLinearLayoutHorizontalOrientation.extension.st index 7594fa17..a6549508 100644 --- a/src/Pyramid-Bloc/BlLinearLayoutHorizontalOrientation.extension.st +++ b/src/Pyramid-Bloc/BlLinearLayoutHorizontalOrientation.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlLinearLayoutHorizontalOrientation' } +Extension { #name : #BlLinearLayoutHorizontalOrientation } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLinearLayoutHorizontalOrientation >> asBooleanForPyramid [ ^ false ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLinearLayoutHorizontalOrientation >> switchOrientation [ ^ BlLinearLayoutVerticalOrientation new diff --git a/src/Pyramid-Bloc/BlLinearLayoutVerticalOrientation.extension.st b/src/Pyramid-Bloc/BlLinearLayoutVerticalOrientation.extension.st index fd05d0f2..86c3321b 100644 --- a/src/Pyramid-Bloc/BlLinearLayoutVerticalOrientation.extension.st +++ b/src/Pyramid-Bloc/BlLinearLayoutVerticalOrientation.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlLinearLayoutVerticalOrientation' } +Extension { #name : #BlLinearLayoutVerticalOrientation } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLinearLayoutVerticalOrientation >> asBooleanForPyramid [ ^ true ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlLinearLayoutVerticalOrientation >> switchOrientation [ ^ BlLinearLayoutHorizontalOrientation new diff --git a/src/Pyramid-Bloc/BlNullHorizontalAlignment.extension.st b/src/Pyramid-Bloc/BlNullHorizontalAlignment.extension.st index 748a440c..c23a7bf5 100644 --- a/src/Pyramid-Bloc/BlNullHorizontalAlignment.extension.st +++ b/src/Pyramid-Bloc/BlNullHorizontalAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlNullHorizontalAlignment' } +Extension { #name : #BlNullHorizontalAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlNullHorizontalAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectNull. diff --git a/src/Pyramid-Bloc/BlNullVerticalAlignment.extension.st b/src/Pyramid-Bloc/BlNullVerticalAlignment.extension.st index 275ca64b..73f64c9b 100644 --- a/src/Pyramid-Bloc/BlNullVerticalAlignment.extension.st +++ b/src/Pyramid-Bloc/BlNullVerticalAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlNullVerticalAlignment' } +Extension { #name : #BlNullVerticalAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlNullVerticalAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectNull. diff --git a/src/Pyramid-Bloc/BlPaint.extension.st b/src/Pyramid-Bloc/BlPaint.extension.st index d60fe9e0..3d18a983 100644 --- a/src/Pyramid-Bloc/BlPaint.extension.st +++ b/src/Pyramid-Bloc/BlPaint.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'BlPaint' } +Extension { #name : #BlPaint } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlPaint >> asForm [ ^ self shouldBeImplemented ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlPaint >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [ self shouldBeImplemented diff --git a/src/Pyramid-Bloc/BlPaintBackground.extension.st b/src/Pyramid-Bloc/BlPaintBackground.extension.st index b548204b..7132fca7 100644 --- a/src/Pyramid-Bloc/BlPaintBackground.extension.st +++ b/src/Pyramid-Bloc/BlPaintBackground.extension.st @@ -1,18 +1,18 @@ -Extension { #name : 'BlPaintBackground' } +Extension { #name : #BlPaintBackground } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlPaintBackground >> asForm [ ^ self paint asForm ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlPaintBackground >> asString [ ^ self paint asString ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlPaintBackground >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [ self paint selectOnBackgroundInput: aPyramidBackgroundInputPresenter diff --git a/src/Pyramid-Bloc/BlProportionalLayout.extension.st b/src/Pyramid-Bloc/BlProportionalLayout.extension.st index 4c771409..25bf27d4 100644 --- a/src/Pyramid-Bloc/BlProportionalLayout.extension.st +++ b/src/Pyramid-Bloc/BlProportionalLayout.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlProportionalLayout' } +Extension { #name : #BlProportionalLayout } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlProportionalLayout >> asIcon [ ^ self iconNamed: #haloScale diff --git a/src/Pyramid-Bloc/BlRadialGradientPaint.extension.st b/src/Pyramid-Bloc/BlRadialGradientPaint.extension.st index e4acc377..b1c14f3f 100644 --- a/src/Pyramid-Bloc/BlRadialGradientPaint.extension.st +++ b/src/Pyramid-Bloc/BlRadialGradientPaint.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlRadialGradientPaint' } +Extension { #name : #BlRadialGradientPaint } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlRadialGradientPaint >> selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter [ super selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter. diff --git a/src/Pyramid-Bloc/BlSpace.extension.st b/src/Pyramid-Bloc/BlSpace.extension.st index 9d226121..588b6b98 100644 --- a/src/Pyramid-Bloc/BlSpace.extension.st +++ b/src/Pyramid-Bloc/BlSpace.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlSpace' } +Extension { #name : #BlSpace } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlSpace >> editWithPyramid [ | editor elements spacePlaceholder openFromSpacePlugin | diff --git a/src/Pyramid-Bloc/BlTextElement.extension.st b/src/Pyramid-Bloc/BlTextElement.extension.st index 92d7e644..3e98b88a 100644 --- a/src/Pyramid-Bloc/BlTextElement.extension.st +++ b/src/Pyramid-Bloc/BlTextElement.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlTextElement' } +Extension { #name : #BlTextElement } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlTextElement >> asIcon [ ^ self iconNamed: #smallFonts diff --git a/src/Pyramid-Bloc/BlTopAlignment.extension.st b/src/Pyramid-Bloc/BlTopAlignment.extension.st index 7537f7eb..4a7ea7ef 100644 --- a/src/Pyramid-Bloc/BlTopAlignment.extension.st +++ b/src/Pyramid-Bloc/BlTopAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlTopAlignment' } +Extension { #name : #BlTopAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlTopAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectStart. diff --git a/src/Pyramid-Bloc/BlTransparentBackground.extension.st b/src/Pyramid-Bloc/BlTransparentBackground.extension.st index 9dad9bda..c6771059 100644 --- a/src/Pyramid-Bloc/BlTransparentBackground.extension.st +++ b/src/Pyramid-Bloc/BlTransparentBackground.extension.st @@ -1,18 +1,18 @@ -Extension { #name : 'BlTransparentBackground' } +Extension { #name : #BlTransparentBackground } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlTransparentBackground >> asForm [ ^ self iconNamed: #smallSelect ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlTransparentBackground >> asString [ ^ 'Transparent' ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlTransparentBackground >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [ aPyramidBackgroundInputPresenter selectTransparent. diff --git a/src/Pyramid-Bloc/BlVerticalCenterAlignment.extension.st b/src/Pyramid-Bloc/BlVerticalCenterAlignment.extension.st index e11a5b58..9892aa8d 100644 --- a/src/Pyramid-Bloc/BlVerticalCenterAlignment.extension.st +++ b/src/Pyramid-Bloc/BlVerticalCenterAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlVerticalCenterAlignment' } +Extension { #name : #BlVerticalCenterAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVerticalCenterAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectCenter. diff --git a/src/Pyramid-Bloc/BlVerticalCoordinateBottomAlignment.extension.st b/src/Pyramid-Bloc/BlVerticalCoordinateBottomAlignment.extension.st index 7ffc4ae8..fcb941ef 100644 --- a/src/Pyramid-Bloc/BlVerticalCoordinateBottomAlignment.extension.st +++ b/src/Pyramid-Bloc/BlVerticalCoordinateBottomAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlVerticalCoordinateBottomAlignment' } +Extension { #name : #BlVerticalCoordinateBottomAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVerticalCoordinateBottomAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectEnd. diff --git a/src/Pyramid-Bloc/BlVerticalCoordinateTopAlignment.extension.st b/src/Pyramid-Bloc/BlVerticalCoordinateTopAlignment.extension.st index 67db26fd..9efda788 100644 --- a/src/Pyramid-Bloc/BlVerticalCoordinateTopAlignment.extension.st +++ b/src/Pyramid-Bloc/BlVerticalCoordinateTopAlignment.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'BlVerticalCoordinateTopAlignment' } +Extension { #name : #BlVerticalCoordinateTopAlignment } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVerticalCoordinateTopAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [ aFrameConstraintsPresenter selectStart. diff --git a/src/Pyramid-Bloc/BlVisibility.extension.st b/src/Pyramid-Bloc/BlVisibility.extension.st index 9bfa3ef2..ef2b9650 100644 --- a/src/Pyramid-Bloc/BlVisibility.extension.st +++ b/src/Pyramid-Bloc/BlVisibility.extension.st @@ -1,26 +1,26 @@ -Extension { #name : 'BlVisibility' } +Extension { #name : #BlVisibility } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibility >> asIcon [ "return a 16 by 16 `Form`" ^ self shouldBeImplemented ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibility >> asString [ "return a String" ^ self shouldBeImplemented ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibility >> nextVisibilityForTree [ "return the next visibility. Visible -> Hidden -> Gone -> Visible" ^ self shouldBeImplemented ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibility >> setVisibilityOn: aPyramidVisibilityInputPresenter [ self shouldBeImplemented diff --git a/src/Pyramid-Bloc/BlVisibilityGone.extension.st b/src/Pyramid-Bloc/BlVisibilityGone.extension.st index 8de7cf41..11939ad9 100644 --- a/src/Pyramid-Bloc/BlVisibilityGone.extension.st +++ b/src/Pyramid-Bloc/BlVisibilityGone.extension.st @@ -1,36 +1,36 @@ -Extension { #name : 'BlVisibilityGone' } +Extension { #name : #BlVisibilityGone } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityGone >> asIcon [ ^ self iconNamed: #haloDismiss ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityGone >> asString [ ^ 'gone' ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityGone >> nextVisibilityForTree [ ^ BlVisibility visible ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityGone >> setVisibilityOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter setVisibilityGone ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityGone >> switchNotVisibleOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter value: BlVisibility hidden. ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityGone >> switchVisibleOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter value: BlVisibility visible diff --git a/src/Pyramid-Bloc/BlVisibilityHidden.extension.st b/src/Pyramid-Bloc/BlVisibilityHidden.extension.st index 375c2586..59dd82b2 100644 --- a/src/Pyramid-Bloc/BlVisibilityHidden.extension.st +++ b/src/Pyramid-Bloc/BlVisibilityHidden.extension.st @@ -1,36 +1,36 @@ -Extension { #name : 'BlVisibilityHidden' } +Extension { #name : #BlVisibilityHidden } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityHidden >> asIcon [ ^ self iconNamed: #haloDrag ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityHidden >> asString [ ^ 'hidden' ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityHidden >> nextVisibilityForTree [ ^ BlVisibility gone ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityHidden >> setVisibilityOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter setVisibilityHidden ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityHidden >> switchNotVisibleOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter value: BlVisibility gone ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityHidden >> switchVisibleOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter value: BlVisibility visible diff --git a/src/Pyramid-Bloc/BlVisibilityVisible.extension.st b/src/Pyramid-Bloc/BlVisibilityVisible.extension.st index 5ea92f3d..65edf433 100644 --- a/src/Pyramid-Bloc/BlVisibilityVisible.extension.st +++ b/src/Pyramid-Bloc/BlVisibilityVisible.extension.st @@ -1,34 +1,34 @@ -Extension { #name : 'BlVisibilityVisible' } +Extension { #name : #BlVisibilityVisible } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityVisible >> asIcon [ ^ self iconNamed: #haloView ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityVisible >> asString [ ^ 'visible' ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityVisible >> nextVisibilityForTree [ ^ BlVisibility hidden ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityVisible >> setVisibilityOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter setVisibilityVisible ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityVisible >> switchNotVisibleOn: aPyramidVisibilityInputPresenter [ ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } BlVisibilityVisible >> switchVisibleOn: aPyramidVisibilityInputPresenter [ aPyramidVisibilityInputPresenter value: BlVisibility hidden diff --git a/src/Pyramid-Bloc/False.extension.st b/src/Pyramid-Bloc/False.extension.st index 90c8f543..b5527117 100644 --- a/src/Pyramid-Bloc/False.extension.st +++ b/src/Pyramid-Bloc/False.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'False' } +Extension { #name : #False } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } False >> asOrientationForFlowPyramid [ ^ BlLayoutOrientation horizontal ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } False >> asOrientationForLinearPyramid [ ^ BlLinearLayoutHorizontalOrientation new diff --git a/src/Pyramid-Bloc/PyramidAbstractBlocCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractBlocCommand.class.st index 96c8c777..51b17228 100644 --- a/src/Pyramid-Bloc/PyramidAbstractBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractBlocCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidAbstractBlocCommand', - #superclass : 'PyramidCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidAbstractBlocCommand, + #superclass : #PyramidCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'testing' } +{ #category : #testing } PyramidAbstractBlocCommand class >> isAbstract [ ^ self == PyramidAbstractBlocCommand ] -{ #category : 'testing' } +{ #category : #testing } PyramidAbstractBlocCommand >> canBeUsedFor: anObject [ ^ anObject class = BlElement or: [anObject class inheritsFrom: BlElement] diff --git a/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st index 000ef5ec..bf8d85c9 100644 --- a/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractBorderCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidAbstractBorderCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidAbstractBorderCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractBorderCommand >> borderBuilderOf: aBlElement [ | builder | @@ -22,7 +20,7 @@ PyramidAbstractBorderCommand >> borderBuilderOf: aBlElement [ ^ builder ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractBorderCommand >> setValueFor: aBlElement with: anArgument [ | builder | @@ -31,7 +29,7 @@ PyramidAbstractBorderCommand >> setValueFor: aBlElement with: anArgument [ aBlElement border: builder build. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractBorderCommand >> updateBuilder: aBuilder with: anArgument [ self shouldBeImplemented diff --git a/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st b/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st index a82388f4..38ee07cb 100644 --- a/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractChangeDrawOrderCommand.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidAbstractChangeDrawOrderCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-order', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-order' + #name : #PyramidAbstractChangeDrawOrderCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : 'testing' } +{ #category : #testing } PyramidAbstractChangeDrawOrderCommand class >> isAbstract [ ^ self == PyramidAbstractChangeDrawOrderCommand ] -{ #category : 'testing' } +{ #category : #testing } PyramidAbstractChangeDrawOrderCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject hasParent] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractChangeDrawOrderCommand >> getValueFor: aBlElement [ "return current index for testing." diff --git a/src/Pyramid-Bloc/PyramidAbstractColumnsBuilder.class.st b/src/Pyramid-Bloc/PyramidAbstractColumnsBuilder.class.st index 4168ad03..afe4b59d 100644 --- a/src/Pyramid-Bloc/PyramidAbstractColumnsBuilder.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractColumnsBuilder.class.st @@ -1,35 +1,33 @@ Class { - #name : 'PyramidAbstractColumnsBuilder', - #superclass : 'Object', + #name : #PyramidAbstractColumnsBuilder, + #superclass : #Object, #instVars : [ 'editor' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'testing' } +{ #category : #testing } PyramidAbstractColumnsBuilder class >> isAbstract [ ^ self == PyramidAbstractColumnsBuilder ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractColumnsBuilder >> buildOn: aPyramidTreePlugin [ "aPyramidTreePlugin addColumns: { }" self shouldBeImplemented ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidAbstractColumnsBuilder >> editor [ editor ifNil: [ Error signal: 'Editor should not be nil.' ]. ^ editor ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidAbstractColumnsBuilder >> editor: anObject [ editor := anObject diff --git a/src/Pyramid-Bloc/PyramidAbstractFrameConstraintsInputPresenter.class.st b/src/Pyramid-Bloc/PyramidAbstractFrameConstraintsInputPresenter.class.st index a49ed464..f1993d4a 100644 --- a/src/Pyramid-Bloc/PyramidAbstractFrameConstraintsInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractFrameConstraintsInputPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidAbstractFrameConstraintsInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidAbstractFrameConstraintsInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'buttonNull', 'buttonStart', @@ -11,41 +11,39 @@ Class { 'whenValueChangedDo', 'shouldTrigger' ], - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'testing' } +{ #category : #testing } PyramidAbstractFrameConstraintsInputPresenter class >> isAbstract [ ^ self == PyramidAbstractFrameConstraintsInputPresenter ] -{ #category : 'layout' } +{ #category : #layout } PyramidAbstractFrameConstraintsInputPresenter >> buttonCenter [ ^ buttonCenter ] -{ #category : 'layout' } +{ #category : #layout } PyramidAbstractFrameConstraintsInputPresenter >> buttonEnd [ ^ buttonEnd ] -{ #category : 'layout' } +{ #category : #layout } PyramidAbstractFrameConstraintsInputPresenter >> buttonNull [ ^ buttonNull ] -{ #category : 'layout' } +{ #category : #layout } PyramidAbstractFrameConstraintsInputPresenter >> buttonStart [ ^ buttonStart ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> connectPresenters [ self inputHasRelative whenChangedDo: [ :aBoolean | @@ -67,13 +65,13 @@ PyramidAbstractFrameConstraintsInputPresenter >> connectPresenters [ self triggerValueChanged. ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> currentRelativeValue [ ^ self inputRelative value isNumber ifTrue: [ ^ self inputRelative value ] ifFalse: [ ^ 0 ] ] -{ #category : 'layout' } +{ #category : #layout } PyramidAbstractFrameConstraintsInputPresenter >> defaultLayout [ ^ SpBoxLayout newHorizontal @@ -87,7 +85,7 @@ PyramidAbstractFrameConstraintsInputPresenter >> defaultLayout [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> doNotTriggerWhile: aBlock [ self shouldTrigger: false. @@ -95,62 +93,62 @@ PyramidAbstractFrameConstraintsInputPresenter >> doNotTriggerWhile: aBlock [ self shouldTrigger: true. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> helpCenter [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> helpEnd [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> helpNull [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> helpStart [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> iconCenter [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> iconEnd [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> iconNull [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> iconStart [ ^ self shouldBeImplemented ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> initialize [ super initialize. whenValueChangedDo := [ :newVal ] ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> initializePresenters [ buttonNull := SpButtonPresenter new @@ -176,19 +174,19 @@ PyramidAbstractFrameConstraintsInputPresenter >> initializePresenters [ inputRelative := PyramidNumberInputPresenter new value: 0; yourself ] -{ #category : 'layout' } +{ #category : #layout } PyramidAbstractFrameConstraintsInputPresenter >> inputHasRelative [ ^ inputHasRelative ] -{ #category : 'layout' } +{ #category : #layout } PyramidAbstractFrameConstraintsInputPresenter >> inputRelative [ ^ inputRelative ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> selectCenter [ self buttonNull state: false. self buttonStart state: false. @@ -197,7 +195,7 @@ PyramidAbstractFrameConstraintsInputPresenter >> selectCenter [ ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> selectEnd [ self buttonNull state: false. self buttonStart state: false. @@ -206,7 +204,7 @@ PyramidAbstractFrameConstraintsInputPresenter >> selectEnd [ ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> selectNull [. self buttonNull state: true. self buttonStart state: false. @@ -215,7 +213,7 @@ PyramidAbstractFrameConstraintsInputPresenter >> selectNull [. ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> selectStart [. self buttonNull state: false. self buttonStart state: true. @@ -224,25 +222,25 @@ PyramidAbstractFrameConstraintsInputPresenter >> selectStart [. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> shouldTrigger [ ^ shouldTrigger ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> shouldTrigger: aBoolean [ shouldTrigger:=aBoolean ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> triggerValueChanged [ self shouldTrigger ifFalse: [ ^ self ]. self whenValueChangedDo value: self value ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidAbstractFrameConstraintsInputPresenter >> unselectAll [ self buttonNull state: false. @@ -251,26 +249,26 @@ PyramidAbstractFrameConstraintsInputPresenter >> unselectAll [ self buttonEnd state: false ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> value [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> value: aValue [ self doNotTriggerWhile: [ aValue pyramidSelectOn: self ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractFrameConstraintsInputPresenter >> whenValueChangedDo: aBlock [ whenValueChangedDo := aBlock. diff --git a/src/Pyramid-Bloc/PyramidAbstractLayoutOrientationPresenter.class.st b/src/Pyramid-Bloc/PyramidAbstractLayoutOrientationPresenter.class.st index e2d86ef9..91ef518e 100644 --- a/src/Pyramid-Bloc/PyramidAbstractLayoutOrientationPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidAbstractLayoutOrientationPresenter.class.st @@ -1,28 +1,26 @@ Class { - #name : 'PyramidAbstractLayoutOrientationPresenter', - #superclass : 'PyramidSwitchInputPresenter', + #name : #PyramidAbstractLayoutOrientationPresenter, + #superclass : #PyramidSwitchInputPresenter, #instVars : [ 'buttonSwitch' ], - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractLayoutOrientationPresenter >> switchState [ self value: self value switchOrientation. self whenValueChangedDo value: self value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractLayoutOrientationPresenter >> value [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAbstractLayoutOrientationPresenter >> value: anOrientation [ super value: anOrientation asBooleanForPyramid diff --git a/src/Pyramid-Bloc/PyramidAddChildCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildCommand.class.st index 0fbbef39..5b13af98 100644 --- a/src/Pyramid-Bloc/PyramidAddChildCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidAddChildCommand', - #superclass : 'PyramidChildrenCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidAddChildCommand, + #superclass : #PyramidChildrenCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAddChildCommand >> commandInverse [ ^ PyramidRemoveChildCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAddChildCommand >> setValueFor: aBlElement with: aChildToAdd [ aBlElement addChild: aChildToAdd diff --git a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st index e427786c..1c146561 100644 --- a/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidAddChildrenCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidAddChildrenCommand', - #superclass : 'PyramidChildrenCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidAddChildrenCommand, + #superclass : #PyramidChildrenCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAddChildrenCommand >> commandInverse [ ^ PyramidRemoveChildrenCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAddChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [ aBlElement addChildren: aChildrenToAdd diff --git a/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st b/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st index 8486a2ca..2e00e2be 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundBlocPlugin.class.st @@ -1,17 +1,15 @@ Class { - #name : 'PyramidBackgroundBlocPlugin', - #superclass : 'Object', + #name : #PyramidBackgroundBlocPlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ 'propertiesManager' ], - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundImageSelector [ | property | @@ -24,7 +22,7 @@ PyramidBackgroundBlocPlugin class >> backgroundImageSelector [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundLinearEnd [ | property | @@ -40,7 +38,7 @@ PyramidBackgroundBlocPlugin class >> backgroundLinearEnd [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundLinearGradientDirection [ | property | @@ -57,7 +55,7 @@ PyramidBackgroundBlocPlugin class >> backgroundLinearGradientDirection [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundLinearStart [ | property | @@ -74,7 +72,7 @@ PyramidBackgroundBlocPlugin class >> backgroundLinearStart [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundOpacity [ | property | @@ -88,7 +86,7 @@ PyramidBackgroundBlocPlugin class >> backgroundOpacity [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundPaintColor [ | property | @@ -101,7 +99,7 @@ PyramidBackgroundBlocPlugin class >> backgroundPaintColor [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundPaintStops [ | property | @@ -114,7 +112,7 @@ PyramidBackgroundBlocPlugin class >> backgroundPaintStops [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundPaintType [ | property | @@ -170,7 +168,7 @@ PyramidBackgroundBlocPlugin class >> backgroundPaintType [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundRadialInnerCenter [ | property | @@ -186,7 +184,7 @@ PyramidBackgroundBlocPlugin class >> backgroundRadialInnerCenter [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundRadialInnerRadius [ | property | @@ -201,7 +199,7 @@ PyramidBackgroundBlocPlugin class >> backgroundRadialInnerRadius [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundRadialOuterCenter [ | property | @@ -218,7 +216,7 @@ PyramidBackgroundBlocPlugin class >> backgroundRadialOuterCenter [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundRadialOuterRadius [ | property | @@ -233,7 +231,7 @@ PyramidBackgroundBlocPlugin class >> backgroundRadialOuterRadius [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> backgroundType [ | property | @@ -273,7 +271,7 @@ PyramidBackgroundBlocPlugin class >> backgroundType [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderDashArray [ | property | @@ -287,7 +285,7 @@ PyramidBackgroundBlocPlugin class >> borderDashArray [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderDashOffset [ | property | @@ -301,7 +299,7 @@ PyramidBackgroundBlocPlugin class >> borderDashOffset [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderLineCap [ | property | @@ -340,7 +338,7 @@ PyramidBackgroundBlocPlugin class >> borderLineCap [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderLineJoin [ | property | @@ -379,7 +377,7 @@ PyramidBackgroundBlocPlugin class >> borderLineJoin [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderLinearEnd [ | property | @@ -395,7 +393,7 @@ PyramidBackgroundBlocPlugin class >> borderLinearEnd [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderLinearGradientDirection [ | property | @@ -412,7 +410,7 @@ PyramidBackgroundBlocPlugin class >> borderLinearGradientDirection [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderLinearStart [ | property | @@ -428,7 +426,7 @@ PyramidBackgroundBlocPlugin class >> borderLinearStart [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderMiterLimit [ | property | @@ -442,7 +440,7 @@ PyramidBackgroundBlocPlugin class >> borderMiterLimit [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderOpacity [ | property | @@ -456,7 +454,7 @@ PyramidBackgroundBlocPlugin class >> borderOpacity [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderPaintColor [ | property | @@ -469,7 +467,7 @@ PyramidBackgroundBlocPlugin class >> borderPaintColor [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderPaintStops [ | property | @@ -482,7 +480,7 @@ PyramidBackgroundBlocPlugin class >> borderPaintStops [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderPaintType [ | property | @@ -541,7 +539,7 @@ PyramidBackgroundBlocPlugin class >> borderPaintType [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderRadialInnerCenter [ | property | @@ -558,7 +556,7 @@ PyramidBackgroundBlocPlugin class >> borderRadialInnerCenter [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderRadialInnerRadius [ | property | @@ -573,7 +571,7 @@ PyramidBackgroundBlocPlugin class >> borderRadialInnerRadius [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderRadialOuterCenter [ | property | @@ -590,7 +588,7 @@ PyramidBackgroundBlocPlugin class >> borderRadialOuterCenter [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderRadialOuterRadius [ | property | @@ -605,7 +603,7 @@ PyramidBackgroundBlocPlugin class >> borderRadialOuterRadius [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> borderWidth [ | property | @@ -620,7 +618,7 @@ PyramidBackgroundBlocPlugin class >> borderWidth [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> opacity [ | property | @@ -634,7 +632,7 @@ PyramidBackgroundBlocPlugin class >> opacity [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundBlocPlugin class >> outskirts [ | property | @@ -673,7 +671,7 @@ PyramidBackgroundBlocPlugin class >> outskirts [ ^ property ] -{ #category : 'adding' } +{ #category : #adding } PyramidBackgroundBlocPlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow at: #tabRight addItem: [ :builder | @@ -684,14 +682,14 @@ PyramidBackgroundBlocPlugin >> addPanelsOn: aPyramidSimpleWindow [ order: 2 ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidBackgroundBlocPlugin >> connectOn: aPyramidEditor [ propertiesManager projectModel: aPyramidEditor projectModel. propertiesManager commandExecutor: aPyramidEditor propertiesManager commandExecutor ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundBlocPlugin >> initialize [ propertiesManager := PyramidPropertiesManagerForSelection new. @@ -751,7 +749,7 @@ PyramidBackgroundBlocPlugin >> initialize [ propertiesManager addProperty: self class borderRadialOuterRadius ] -{ #category : 'adding' } +{ #category : #adding } PyramidBackgroundBlocPlugin >> propertiesManager [ ^ propertiesManager diff --git a/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st index 6ddc3116..e8d958a4 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundImageCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidBackgroundImageCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundImageCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBackgroundImageCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject background isKindOf: BlImageBackground ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundImageCommand >> getValueFor: aBlElement [ ^ aBlElement background image ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundImageCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background: (BlBackground image: anArgument) diff --git a/src/Pyramid-Bloc/PyramidBackgroundImageInputPresenter.class.st b/src/Pyramid-Bloc/PyramidBackgroundImageInputPresenter.class.st index 39f96290..4f6ff18c 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundImageInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundImageInputPresenter.class.st @@ -1,48 +1,46 @@ Class { - #name : 'PyramidBackgroundImageInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidBackgroundImageInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'buttonEdit', 'whenValueChangedDo', 'image' ], - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> buttonEdit [ ^ buttonEdit ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundImageInputPresenter >> defaultLayout [ ^ SpBoxLayout newVertical add: self buttonEdit; yourself. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> emptyValue [ self image: PyramidEmptyValue new. self buttonEdit label: 'Empty value' ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> image [ ^ image ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> image: anObject [ image := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> initializePresenters [ image := PyramidEmptyValue new. @@ -52,14 +50,14 @@ PyramidBackgroundImageInputPresenter >> initializePresenters [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> mixedValues [ self image: PyramidMixedValues new. self buttonEdit label: 'Mixed values' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundImageInputPresenter >> openModalWindow [ | dialog window imageSelectorPresenter | @@ -74,25 +72,25 @@ PyramidBackgroundImageInputPresenter >> openModalWindow [ self whenValueChangedDo value: imageSelectorPresenter currentObject ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> value [ ^ self image ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> value: anObject [ self image: anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageInputPresenter >> whenValueChangedDo: anObject [ whenValueChangedDo := anObject diff --git a/src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st b/src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st index 0b1a5b5f..54f94d9e 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundImageModalPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidBackgroundImageModalPresenter', - #superclass : 'SpPresenter', + #name : #PyramidBackgroundImageModalPresenter, + #superclass : #SpPresenter, #instVars : [ 'radioProxy', 'radioBitmap', @@ -13,12 +13,10 @@ Class { 'buttonExampleFileSystem', 'buttonExampleBloc' ], - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundImageModalPresenter class >> ensurePharoBigFileExists [ './pharoBig.png' asFileReference exists ifTrue: [ ^ self ]. @@ -26,7 +24,7 @@ PyramidBackgroundImageModalPresenter class >> ensurePharoBigFileExists [ ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundImageModalPresenter >> baseLayout [ ^ SpBoxLayout newVertical @@ -57,7 +55,7 @@ PyramidBackgroundImageModalPresenter >> baseLayout [ yourself ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundImageModalPresenter >> bitmapLayout [ ^ self baseLayout @@ -71,7 +69,7 @@ PyramidBackgroundImageModalPresenter >> bitmapLayout [ yourself ] -{ #category : 'special objects' } +{ #category : #'special objects' } PyramidBackgroundImageModalPresenter >> bitmapObject [ ^ self codeBitmap @@ -80,24 +78,24 @@ PyramidBackgroundImageModalPresenter >> bitmapObject [ onError: [ :err | err pass ] ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundImageModalPresenter >> buttonExampleBloc [ ^ buttonExampleBloc ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundImageModalPresenter >> buttonExampleDefault [ ^ buttonExampleDefault ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundImageModalPresenter >> buttonExampleFileSystem [ ^ buttonExampleFileSystem ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundImageModalPresenter >> buttonInpectLayout [ ^ SpBoxLayout newHorizontal @@ -109,19 +107,19 @@ PyramidBackgroundImageModalPresenter >> buttonInpectLayout [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageModalPresenter >> buttonInspect [ ^ buttonInspect ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageModalPresenter >> codeBitmap [ ^ codeBitmap ] -{ #category : 'action' } +{ #category : #action } PyramidBackgroundImageModalPresenter >> currentObject [ ^ (self isProxySelected @@ -129,14 +127,14 @@ PyramidBackgroundImageModalPresenter >> currentObject [ ifFalse: [ self bitmapObject ]) ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundImageModalPresenter >> defaultLayout [ self isProxySelected ifTrue: [ ^ self proxyLayout ]. ^ self bitmapLayout ] -{ #category : 'action' } +{ #category : #action } PyramidBackgroundImageModalPresenter >> image: aForm [ self codeBitmap beForObject: aForm. @@ -144,7 +142,7 @@ PyramidBackgroundImageModalPresenter >> image: aForm [ ' ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundImageModalPresenter >> initializePresenters [ radioProxy := SpRadioButtonPresenter new @@ -195,37 +193,37 @@ PyramidBackgroundImageModalPresenter >> initializePresenters [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageModalPresenter >> inputArgumentsProxy [ ^ inputArgumentsProxy ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageModalPresenter >> inputReceiverProxy [ ^ inputReceiverProxy ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageModalPresenter >> inputSelectorProxy [ ^ inputSelectorProxy ] -{ #category : 'action' } +{ #category : #action } PyramidBackgroundImageModalPresenter >> inspectCurrent [ (self currentObject) inspect ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundImageModalPresenter >> isProxySelected [ ^ self radioProxy state ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundImageModalPresenter >> proxyLayout [ ^ self baseLayout @@ -251,7 +249,7 @@ PyramidBackgroundImageModalPresenter >> proxyLayout [ yourself ] -{ #category : 'special objects' } +{ #category : #'special objects' } PyramidBackgroundImageModalPresenter >> proxyObject [ | receiver selector arguments proxySource proxy | @@ -278,19 +276,19 @@ PyramidBackgroundImageModalPresenter >> proxyObject [ ^ PyramidExternalRessourceProxy fromSource: proxySource ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageModalPresenter >> radioBitmap [ ^ radioBitmap ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageModalPresenter >> radioProxy [ ^ radioProxy ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundImageModalPresenter >> setTextToBloc [ self codeBitmap text: self textBitmapBloc. @@ -299,7 +297,7 @@ PyramidBackgroundImageModalPresenter >> setTextToBloc [ self inputArgumentsProxy text: self textArgumentsBloc ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundImageModalPresenter >> setTextToDefault [ self codeBitmap text: self textBitmapDefault. @@ -308,7 +306,7 @@ PyramidBackgroundImageModalPresenter >> setTextToDefault [ self inputArgumentsProxy text: self textArgumentsDefault. ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundImageModalPresenter >> setTextToFile [ self codeBitmap text: self textBitmapFile. @@ -317,56 +315,56 @@ PyramidBackgroundImageModalPresenter >> setTextToFile [ self inputArgumentsProxy text: self textArgumentsFile ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textArguments [ ^ '"Use it like a Playground. Last object must be a Collection that will be used as arguments." ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textArgumentsBloc [ ^ self textArguments , '{ } ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textArgumentsDefault [ ^ self textArguments, '#(#pharoBig) ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textArgumentsFile [ ^ self textArguments , '{ ''./pharoBig.png'' } ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textBitmap [ ^ '"Use it like a Playground. Last object must be a Form." ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textBitmapBloc [ ^ self textBitmap , 'BlElement new background: Color red; size: 25 @ 50; asForm ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textBitmapDefault [ ^ self textBitmap, 'Object iconNamed: #pharoBig ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textBitmapFile [ ^ self textBitmap @@ -375,14 +373,14 @@ Form fromFileNamed: ''./pharoBig.png'' asFileReference. ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textReceiver [ ^ '"Use it like a Playground. Last object will be the serialized receiver." ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textReceiverBloc [ ^ self textReceiver , 'BlElement new @@ -392,14 +390,14 @@ PyramidBackgroundImageModalPresenter >> textReceiverBloc [ ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textReceiverDefault [ ^ self textReceiver , 'Object ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textReceiverFile [ ^ self textReceiver , 'PyramidBackgroundImageModalPresenter ensurePharoBigFileExists. @@ -407,40 +405,40 @@ Form ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textSelector [ ^ '"Use it like a Playground. Last object must be a Symbol that will be performed on the receiver." ' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundImageModalPresenter >> textSelectorBloc [ ^ self textSelector, '#asForm' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textSelectorDefault [ ^ self textSelector, '#iconNamed: ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textSelectorFile [ ^ self textSelector , '#fromFileNamed: ' ] -{ #category : 'text' } +{ #category : #text } PyramidBackgroundImageModalPresenter >> textSelectorbloc [ ^ self textSelector , '#asForm ' ] -{ #category : 'update' } +{ #category : #update } PyramidBackgroundImageModalPresenter >> updatePresenter [ self layout: self defaultLayout diff --git a/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st index 9fbf7efe..f5093b8e 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundOpacityCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBackgroundOpacityCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundOpacityCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundOpacityCommand >> getValueFor: aBlElement [ ^ aBlElement background opacity ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundOpacityCommand >> setValueFor: aBlElement with: anArgument [ | background | diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st index 3e20d3b7..d2249ff9 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintColorCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidBackgroundPaintColorCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintColorCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintColorCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ @@ -14,13 +12,13 @@ PyramidBackgroundPaintColorCommand >> canBeUsedFor: anObject [ anObject background paint isKindOf: BlColorPaint ] ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintColorCommand >> getValueFor: aBlElement [ ^ aBlElement background paint color ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 7a50ad67..95c0fd85 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintCommand.class.st @@ -1,31 +1,29 @@ Class { - #name : 'PyramidBackgroundPaintCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBackgroundPaintCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject background isKindOf: BlPaintBackground ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintCommand >> getGroupedValueFor: aBlElement [ ^ aBlElement background paint class ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintCommand >> getValueFor: aBlElement [ ^ aBlElement background paint ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background: (BlBackground paint: anArgument value) diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearDirectionCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearDirectionCommand.class.st index 10d56210..8dabdfa0 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearDirectionCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearDirectionCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidBackgroundPaintLinearDirectionCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintLinearDirectionCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBackgroundPaintLinearDirectionCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st index e83f2fbc..4201cb78 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearEndCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBackgroundPaintLinearEndCommand', - #superclass : 'PyramidBackgroundPaintLinearDirectionCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintLinearEndCommand, + #superclass : #PyramidBackgroundPaintLinearDirectionCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintLinearEndCommand >> getValueFor: aBlElement [ ^ aBlElement background paint end ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 8c4626df..c62bbd9f 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintLinearStartCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBackgroundPaintLinearStartCommand', - #superclass : 'PyramidBackgroundPaintLinearDirectionCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintLinearStartCommand, + #superclass : #PyramidBackgroundPaintLinearDirectionCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintLinearStartCommand >> getValueFor: aBlElement [ ^ aBlElement background paint start ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintLinearStartCommand >> setValueFor: aBlElement with: anArgument [ aBlElement background paint start: anArgument diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialCommand.class.st index ba77e854..16af6c4b 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidBackgroundPaintRadialCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintRadialCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBackgroundPaintRadialCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st index dda152a4..e85efec8 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerCenterCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBackgroundPaintRadialInnerCenterCommand', - #superclass : 'PyramidBackgroundPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintRadialInnerCenterCommand, + #superclass : #PyramidBackgroundPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialInnerCenterCommand >> getValueFor: aBlElement [ ^ aBlElement background paint innerCenter ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 12e07919..a2c2888d 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialInnerRadiusCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBackgroundPaintRadialInnerRadiusCommand', - #superclass : 'PyramidBackgroundPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintRadialInnerRadiusCommand, + #superclass : #PyramidBackgroundPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialInnerRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement background paint innerRadius ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 984772e7..8d8deac9 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterCenterCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBackgroundPaintRadialOuterCenterCommand', - #superclass : 'PyramidBackgroundPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintRadialOuterCenterCommand, + #superclass : #PyramidBackgroundPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialOuterCenterCommand >> getValueFor: aBlElement [ ^ aBlElement background paint outerCenter ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 f0539952..f1ba79b4 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintRadialOuterRadiusCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBackgroundPaintRadialOuterRadiusCommand', - #superclass : 'PyramidBackgroundPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintRadialOuterRadiusCommand, + #superclass : #PyramidBackgroundPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialOuterRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement background paint outerRadius ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 db35aae9..faebbb2a 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundPaintStopsCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidBackgroundPaintStopsCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundPaintStopsCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBackgroundPaintStopsCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ @@ -14,7 +12,7 @@ PyramidBackgroundPaintStopsCommand >> canBeUsedFor: anObject [ anObject background paint isKindOf: BlGradientPaint ] ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintStopsCommand >> getValueFor: aBlElement [ "We ensure that we are working with a copy of the associations." @@ -22,7 +20,7 @@ PyramidBackgroundPaintStopsCommand >> getValueFor: aBlElement [ asso key copy -> asso value copy ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintStopsCommand >> setValueFor: aBlElement with: anArgument [ "We ensure that we are working with a copy of the associations." diff --git a/src/Pyramid-Bloc/PyramidBackgroundStopsInputPresenter.class.st b/src/Pyramid-Bloc/PyramidBackgroundStopsInputPresenter.class.st index c45e7664..e53a8cb0 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundStopsInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundStopsInputPresenter.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidBackgroundStopsInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidBackgroundStopsInputPresenter, + #superclass : #PyramidInputPresenter, #classTraits : 'TPyramidPlugin classTrait', #instVars : [ 'buttonEdit', 'stops', 'whenValueChangedDo' ], - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenter >> buttonEdit [ ^ buttonEdit ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundStopsInputPresenter >> defaultLayout [ ^ SpBoxLayout newVertical @@ -26,7 +24,7 @@ PyramidBackgroundStopsInputPresenter >> defaultLayout [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenter >> editStops [ | dialog window stopsPresenter stopsArray | @@ -42,7 +40,7 @@ PyramidBackgroundStopsInputPresenter >> editStops [ self whenValueChangedDo value: stopsPresenter stopsArray ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenter >> emptyValue [ self stops: nil. @@ -50,7 +48,7 @@ PyramidBackgroundStopsInputPresenter >> emptyValue [ self buttonEdit icon: nil ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenter >> iconForEditButton [ | morph | @@ -62,7 +60,7 @@ PyramidBackgroundStopsInputPresenter >> iconForEditButton [ ^ morph asForm ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundStopsInputPresenter >> initializePresenters [ whenValueChangedDo := [ :value | ]. @@ -72,7 +70,7 @@ PyramidBackgroundStopsInputPresenter >> initializePresenters [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenter >> mixedValues [ self stops: nil. @@ -80,19 +78,19 @@ PyramidBackgroundStopsInputPresenter >> mixedValues [ self buttonEdit icon: nil. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenter >> stops [ ^ stops ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenter >> stops: anObject [ stops := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenter >> updatePresenter [ self stops ifNil: [ @@ -101,7 +99,7 @@ PyramidBackgroundStopsInputPresenter >> updatePresenter [ self buttonEdit icon: self iconForEditButton ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenter >> value [ self stops isCollection @@ -109,7 +107,7 @@ PyramidBackgroundStopsInputPresenter >> value [ ifFalse: [ ^ PyramidUnknowState new ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenter >> value: aCollection [ self stops: aCollection. @@ -117,13 +115,13 @@ PyramidBackgroundStopsInputPresenter >> value: aCollection [ self buttonEdit icon: self iconForEditButton ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenter >> whenValueChangedDo: anObject [ whenValueChangedDo := anObject diff --git a/src/Pyramid-Bloc/PyramidBackgroundStopsModalPresenter.class.st b/src/Pyramid-Bloc/PyramidBackgroundStopsModalPresenter.class.st index 5daf1832..1590f050 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundStopsModalPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundStopsModalPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidBackgroundStopsModalPresenter', - #superclass : 'SpPresenter', + #name : #PyramidBackgroundStopsModalPresenter, + #superclass : #SpPresenter, #instVars : [ 'tableStops', 'buttonAddStops', @@ -9,12 +9,10 @@ Class { 'colorInput', 'stopsArray' ], - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'adding' } +{ #category : #adding } PyramidBackgroundStopsModalPresenter >> addNewStop [ | association | @@ -23,31 +21,31 @@ PyramidBackgroundStopsModalPresenter >> addNewStop [ self tableStops selectItem: association. ] -{ #category : 'adding' } +{ #category : #adding } PyramidBackgroundStopsModalPresenter >> addToStopsArray: association [ self stopsArray: (self stopsArray , {association }) sorted. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsModalPresenter >> buttonAddStops [ ^ buttonAddStops ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsModalPresenter >> buttonRemoveStops [ ^ buttonRemoveStops ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsModalPresenter >> colorInput [ ^ colorInput ] -{ #category : 'layout' } +{ #category : #layout } PyramidBackgroundStopsModalPresenter >> defaultLayout [ | inputPanelLayout | @@ -80,7 +78,7 @@ PyramidBackgroundStopsModalPresenter >> defaultLayout [ yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBackgroundStopsModalPresenter >> initializePresenters [ stopsArray := { }. @@ -118,7 +116,7 @@ PyramidBackgroundStopsModalPresenter >> initializePresenters [ self updateCurrentStop: nil ] -{ #category : 'adding' } +{ #category : #adding } PyramidBackgroundStopsModalPresenter >> makeNewAssociation [ | position color index | @@ -156,7 +154,7 @@ PyramidBackgroundStopsModalPresenter >> makeNewAssociation [ ^ position -> color ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsModalPresenter >> orderStopsArray [ |currentSelection| @@ -165,38 +163,38 @@ PyramidBackgroundStopsModalPresenter >> orderStopsArray [ self tableStops selectItem: currentSelection ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsModalPresenter >> positionInput [ ^ positionInput ] -{ #category : 'removing' } +{ #category : #removing } PyramidBackgroundStopsModalPresenter >> removeStop: anAssociation [ self stopsArray: (self stopsArray copyWithout: anAssociation) ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsModalPresenter >> stopsArray [ ^ stopsArray ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsModalPresenter >> stopsArray: anObject [ stopsArray := anObject. self tableStops items: stopsArray. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsModalPresenter >> tableStops [ ^ tableStops ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsModalPresenter >> updateCurrentStop: anAssociation [ self positionInput enabled: anAssociation isNotNil. @@ -228,7 +226,7 @@ PyramidBackgroundStopsModalPresenter >> updateCurrentStop: anAssociation [ self updatePresenter ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsModalPresenter >> updatePresenter [ self tableStops refresh. diff --git a/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st b/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st index 4a0d0855..5f263cb8 100644 --- a/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBackgroundTypeCommand.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidBackgroundTypeCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBackgroundTypeCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundTypeCommand >> getGroupedValueFor: aBlElement [ ^ aBlElement background class ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundTypeCommand >> getValueFor: aBlElement [ ^ aBlElement background ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundTypeCommand >> setValueFor: aBlElement with: anArgument [ "Must be a blockClosure to ensure no background are created." diff --git a/src/Pyramid-Bloc/PyramidBasicConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidBasicConstraintsCommand.class.st index be108240..37fb42eb 100644 --- a/src/Pyramid-Bloc/PyramidBasicConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicConstraintsCommand.class.st @@ -1,19 +1,17 @@ Class { - #name : 'PyramidBasicConstraintsCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidBasicConstraintsCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicConstraintsCommand >> authorizedLayouts [ ^ { BlBasicLayout . BlFlowLayout . BlLinearLayout . BlFrameLayout } ] -{ #category : 'testing' } +{ #category : #testing } PyramidBasicConstraintsCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidBasicConstraintsInputPresenter.class.st b/src/Pyramid-Bloc/PyramidBasicConstraintsInputPresenter.class.st index 6e2eaa5b..3f490052 100644 --- a/src/Pyramid-Bloc/PyramidBasicConstraintsInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidBasicConstraintsInputPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidBasicConstraintsInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidBasicConstraintsInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'buttonExact', 'buttonMatchParent', @@ -8,30 +8,28 @@ Class { 'whenValueChangedDo', 'value' ], - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicConstraintsInputPresenter >> buttonExact [ ^ buttonExact ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicConstraintsInputPresenter >> buttonFitContent [ ^ buttonFitContent ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicConstraintsInputPresenter >> buttonMatchParent [ ^ buttonMatchParent ] -{ #category : 'layout' } +{ #category : #layout } PyramidBasicConstraintsInputPresenter >> defaultLayout [ ^ SpBoxLayout newHorizontal @@ -42,7 +40,7 @@ add: self buttonFitContent; yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBasicConstraintsInputPresenter >> initializePresenters [ whenValueChangedDo := [ :visibility | ]. @@ -76,7 +74,7 @@ PyramidBasicConstraintsInputPresenter >> initializePresenters [ yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBasicConstraintsInputPresenter >> setExact [ self buttonExact @@ -90,7 +88,7 @@ PyramidBasicConstraintsInputPresenter >> setExact [ icon: (Smalltalk ui icons iconNamed: #checkboxUnselected) ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBasicConstraintsInputPresenter >> setFitContent [ self buttonExact @@ -104,7 +102,7 @@ PyramidBasicConstraintsInputPresenter >> setFitContent [ icon: (Smalltalk ui icons iconNamed: #checkboxUnselected) ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBasicConstraintsInputPresenter >> setMatchParent [ self buttonExact @@ -118,7 +116,7 @@ PyramidBasicConstraintsInputPresenter >> setMatchParent [ icon: (Smalltalk ui icons iconNamed: #checkboxSelected) ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBasicConstraintsInputPresenter >> setUnknowValue [ self buttonExact @@ -132,26 +130,26 @@ PyramidBasicConstraintsInputPresenter >> setUnknowValue [ icon: (Smalltalk ui icons iconNamed: #checkboxUnselected) ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicConstraintsInputPresenter >> value [ ^ value asPyramidConstraintsArgument ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicConstraintsInputPresenter >> value: aCommonConstraints [ value := aCommonConstraints. aCommonConstraints setConstraintsOn: self ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicConstraintsInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicConstraintsInputPresenter >> whenValueChangedDo: anObject [ whenValueChangedDo := anObject diff --git a/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st b/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st index f54e0eb7..0988c930 100644 --- a/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicExactHorizontalConstraintsBlocCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidBasicExactHorizontalConstraintsBlocCommand', - #superclass : 'PyramidBasicConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidBasicExactHorizontalConstraintsBlocCommand, + #superclass : #PyramidBasicConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactHorizontalConstraintsBlocCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject constraints horizontal resizer isExact ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactHorizontalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints horizontal resizer size ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 36bb6e3d..664cf61e 100644 --- a/src/Pyramid-Bloc/PyramidBasicExactVerticalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicExactVerticalConstraintsBlocCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidBasicExactVerticalConstraintsBlocCommand', - #superclass : 'PyramidBasicConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidBasicExactVerticalConstraintsBlocCommand, + #superclass : #PyramidBasicConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactVerticalConstraintsBlocCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject constraints vertical resizer isExact ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactVerticalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints vertical resizer size ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 99329a04..1c1af430 100644 --- a/src/Pyramid-Bloc/PyramidBasicHorizontalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicHorizontalConstraintsBlocCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBasicHorizontalConstraintsBlocCommand', - #superclass : 'PyramidBasicConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidBasicHorizontalConstraintsBlocCommand, + #superclass : #PyramidBasicConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicHorizontalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints horizontal ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicHorizontalConstraintsBlocCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | @@ -28,7 +26,7 @@ PyramidBasicHorizontalConstraintsBlocCommand >> saveStatesOf: aCollection withCo yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicHorizontalConstraintsBlocCommand >> setValueFor: anObject with: anArgument [ anArgument isSymbol diff --git a/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st b/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st index 2e0a1086..b68c7202 100644 --- a/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBasicVerticalConstraintsBlocCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBasicVerticalConstraintsBlocCommand', - #superclass : 'PyramidBasicConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidBasicVerticalConstraintsBlocCommand, + #superclass : #PyramidBasicConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicVerticalConstraintsBlocCommand >> getValueFor: anObject [ ^ anObject constraints vertical ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicVerticalConstraintsBlocCommand >> saveStatesOf: aCollection withCommand: aCommand withArguments: anArguments [ | mementos | @@ -29,7 +27,7 @@ PyramidBasicVerticalConstraintsBlocCommand >> saveStatesOf: aCollection withComm yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicVerticalConstraintsBlocCommand >> setValueFor: anObject with: anArgument [ anArgument isSymbol diff --git a/src/Pyramid-Bloc/PyramidBlElementHelper.class.st b/src/Pyramid-Bloc/PyramidBlElementHelper.class.st index bcc9f84d..1bc95b51 100644 --- a/src/Pyramid-Bloc/PyramidBlElementHelper.class.st +++ b/src/Pyramid-Bloc/PyramidBlElementHelper.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidBlElementHelper', - #superclass : 'Object', - #category : 'Pyramid-Bloc-utils', - #package : 'Pyramid-Bloc', - #tag : 'utils' + #name : #PyramidBlElementHelper, + #superclass : #Object, + #category : #'Pyramid-Bloc-utils' } -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidBlElementHelper class >> openInPyramidHelper [ ^ [ "BlStashSerializer" diff --git a/src/Pyramid-Bloc/PyramidBlocLayoutPlugin.class.st b/src/Pyramid-Bloc/PyramidBlocLayoutPlugin.class.st index 0aa5a44b..a97ed8c2 100644 --- a/src/Pyramid-Bloc/PyramidBlocLayoutPlugin.class.st +++ b/src/Pyramid-Bloc/PyramidBlocLayoutPlugin.class.st @@ -1,17 +1,15 @@ Class { - #name : 'PyramidBlocLayoutPlugin', - #superclass : 'Object', + #name : #PyramidBlocLayoutPlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ 'propertiesManager' ], - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsBasicH [ | property | @@ -25,7 +23,7 @@ PyramidBlocLayoutPlugin class >> constraintsBasicH [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsBasicHExact [ | property | @@ -40,7 +38,7 @@ PyramidBlocLayoutPlugin class >> constraintsBasicHExact [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsBasicV [ | property | @@ -54,7 +52,7 @@ PyramidBlocLayoutPlugin class >> constraintsBasicV [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsBasicVExact [ | property | @@ -69,7 +67,7 @@ PyramidBlocLayoutPlugin class >> constraintsBasicVExact [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsFrameH [ | property | @@ -82,7 +80,7 @@ PyramidBlocLayoutPlugin class >> constraintsFrameH [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsFrameV [ | property | @@ -95,7 +93,7 @@ PyramidBlocLayoutPlugin class >> constraintsFrameV [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsPropH [ | property | @@ -112,7 +110,7 @@ PyramidBlocLayoutPlugin class >> constraintsPropH [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> constraintsPropV [ | property | @@ -129,7 +127,21 @@ PyramidBlocLayoutPlugin class >> constraintsPropV [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } +PyramidBlocLayoutPlugin class >> constraintsWeight [ + + | property | + property := PyramidProperty new + name: 'Constraints - weight'; + command: PyramidWeightConstraintsCommand new; + pyramidInputPresenterClass: PyramidNumberInputPresenter; + yourself. + property pyramidInputPresenterStrings help: + 'Define the weight of the element to compute its size. The constraints must be "matchParent" to have an effect.'. + ^ property +] + +{ #category : #accessing } PyramidBlocLayoutPlugin class >> flowLayoutOrientation [ | property | @@ -148,7 +160,7 @@ PyramidBlocLayoutPlugin class >> flowLayoutOrientation [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> layout [ | property | @@ -202,7 +214,7 @@ PyramidBlocLayoutPlugin class >> layout [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> linearLayoutOrientation [ | property | @@ -221,7 +233,7 @@ PyramidBlocLayoutPlugin class >> linearLayoutOrientation [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> margin [ | property | @@ -237,7 +249,7 @@ PyramidBlocLayoutPlugin class >> margin [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> padding [ | property | @@ -254,7 +266,7 @@ PyramidBlocLayoutPlugin class >> padding [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> position [ | property | @@ -268,7 +280,7 @@ PyramidBlocLayoutPlugin class >> position [ ^ property ] -{ #category : 'adding' } +{ #category : #adding } PyramidBlocLayoutPlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow at: #tabRight addItem: [ :builder | @@ -279,7 +291,7 @@ PyramidBlocLayoutPlugin >> addPanelsOn: aPyramidSimpleWindow [ order: 3 ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidBlocLayoutPlugin >> connectOn: aPyramidEditor [ propertiesManager projectModel: aPyramidEditor projectModel. @@ -287,7 +299,7 @@ PyramidBlocLayoutPlugin >> connectOn: aPyramidEditor [ aPyramidEditor propertiesManager commandExecutor ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBlocLayoutPlugin >> initialize [ propertiesManager := PyramidPropertiesManagerForSelection new. @@ -298,33 +310,24 @@ PyramidBlocLayoutPlugin >> initialize [ propertiesManager addProperty: self class margin. propertiesManager addProperty: self class layout. - propertiesManager addProperty: - self class flowLayoutOrientation. - propertiesManager addProperty: - self class linearLayoutOrientation. + propertiesManager addProperty: self class flowLayoutOrientation. + propertiesManager addProperty: self class linearLayoutOrientation. + propertiesManager addProperty: self class constraintsWeight. "Constraints - horizontal" - propertiesManager addProperty: - self class constraintsFrameH. - propertiesManager addProperty: - self class constraintsPropH. - propertiesManager addProperty: - self class constraintsBasicH. - propertiesManager addProperty: - self class constraintsBasicHExact. + propertiesManager addProperty: self class constraintsFrameH. + propertiesManager addProperty: self class constraintsPropH. + propertiesManager addProperty: self class constraintsBasicH. + propertiesManager addProperty: self class constraintsBasicHExact. "Constraints - vertical" - propertiesManager addProperty: - self class constraintsFrameV. - propertiesManager addProperty: - self class constraintsPropV. - propertiesManager addProperty: - self class constraintsBasicV. - propertiesManager addProperty: - self class constraintsBasicVExact. + propertiesManager addProperty: self class constraintsFrameV. + propertiesManager addProperty: self class constraintsPropV. + propertiesManager addProperty: self class constraintsBasicV. + propertiesManager addProperty: self class constraintsBasicVExact ] -{ #category : 'adding' } +{ #category : #adding } PyramidBlocLayoutPlugin >> propertiesManager [ ^ propertiesManager diff --git a/src/Pyramid-Bloc/PyramidBlocPlugin.class.st b/src/Pyramid-Bloc/PyramidBlocPlugin.class.st index 03dcafb2..acef6910 100644 --- a/src/Pyramid-Bloc/PyramidBlocPlugin.class.st +++ b/src/Pyramid-Bloc/PyramidBlocPlugin.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBlocPlugin', - #superclass : 'Object', + #name : #PyramidBlocPlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ 'editor', 'groupCommand' ], - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin class >> clipChildren [ | property | @@ -29,7 +27,7 @@ PyramidBlocPlugin class >> clipChildren [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin class >> cornerRadii [ | property | @@ -47,7 +45,7 @@ PyramidBlocPlugin class >> cornerRadii [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin class >> elementId [ | property | @@ -60,7 +58,7 @@ PyramidBlocPlugin class >> elementId [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin class >> geometry [ | property | @@ -73,7 +71,7 @@ PyramidBlocPlugin class >> geometry [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin class >> visibility [ | property | @@ -85,7 +83,7 @@ PyramidBlocPlugin class >> visibility [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin class >> zIndex [ | property | @@ -99,7 +97,7 @@ PyramidBlocPlugin class >> zIndex [ ^ property ] -{ #category : 'adding' } +{ #category : #adding } PyramidBlocPlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow @@ -110,7 +108,7 @@ PyramidBlocPlugin >> addPanelsOn: aPyramidSimpleWindow [ addItem: [ :builder | self menuChangeOrderOn: builder ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidBlocPlugin >> connectOn: aPyramidEditor [ "Configure the sort function." @@ -125,19 +123,19 @@ PyramidBlocPlugin >> connectOn: aPyramidEditor [ aPyramidEditor propertiesManager addProperty: self class cornerRadii ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin >> editor [ ^ editor ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin >> editor: anObject [ editor := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocPlugin >> groupCollection: aCollection [ self editor ifNil: [ ^ self ]. @@ -147,13 +145,13 @@ PyramidBlocPlugin >> groupCollection: aCollection [ with: self editor projectModel firstLevelElements ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocPlugin >> groupCommand [ ^ groupCommand ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocPlugin >> groupMenuBlock: group for: aCollection [ group addItem: [ :item | @@ -165,7 +163,7 @@ PyramidBlocPlugin >> groupMenuBlock: group for: aCollection [ yourself ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocPlugin >> groupMenuBlockMulti [ ^ [ :group :multi | | copy | @@ -174,7 +172,7 @@ PyramidBlocPlugin >> groupMenuBlockMulti [ self groupMenuBlock: group for: copy ] ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocPlugin >> groupMenuBlockSingle [ ^ [ :group :single | | copy | @@ -183,13 +181,13 @@ PyramidBlocPlugin >> groupMenuBlockSingle [ self groupMenuBlock: group for: copy ] ] ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBlocPlugin >> initialize [ groupCommand := PyramidGroupCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocPlugin >> menuChangeOrderOn: aBuilder [ aBuilder @@ -231,14 +229,14 @@ PyramidBlocPlugin >> menuChangeOrderOn: aBuilder [ order: 20 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocPlugin >> menuGroupOn: aBuilder [ aBuilder addGroupSingleSelection: self groupMenuBlockSingle order: 20. aBuilder addGroupMultiSelection: self groupMenuBlockMulti order: 20 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocPlugin >> send: aCommand on: aCollection [ self editor ifNil: [ ^ self ]. diff --git a/src/Pyramid-Bloc/PyramidBlocTextCommand.class.st b/src/Pyramid-Bloc/PyramidBlocTextCommand.class.st index 25b03aae..b0af6eb8 100644 --- a/src/Pyramid-Bloc/PyramidBlocTextCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBlocTextCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidBlocTextCommand', - #superclass : 'PyramidCommand', - #category : 'Pyramid-Bloc-plugin-bloc-text', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-text' + #name : #PyramidBlocTextCommand, + #superclass : #PyramidCommand, + #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : 'testing' } +{ #category : #testing } PyramidBlocTextCommand class >> isAbstract [ ^ self == PyramidBlocTextCommand ] -{ #category : 'testing' } +{ #category : #testing } PyramidBlocTextCommand >> canBeUsedFor: anObject [ ^ anObject class = BlTextElement or: [ anObject class inheritsFrom: BlTextElement ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBlocTextCommand >> getAttributesOf: aBlText [ ^ (aBlText attributesFinder attributesAndIndicesSuchThat: [ :a | true ]) collect: [ :each | each key ]. diff --git a/src/Pyramid-Bloc/PyramidBlocTextPlugin.class.st b/src/Pyramid-Bloc/PyramidBlocTextPlugin.class.st index f80df7b3..385fc993 100644 --- a/src/Pyramid-Bloc/PyramidBlocTextPlugin.class.st +++ b/src/Pyramid-Bloc/PyramidBlocTextPlugin.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidBlocTextPlugin', - #superclass : 'Object', + #name : #PyramidBlocTextPlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', - #category : 'Pyramid-Bloc-plugin-bloc-text', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-text' + #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocTextPlugin class >> changeText [ | property | @@ -22,7 +20,7 @@ PyramidBlocTextPlugin class >> changeText [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocTextPlugin class >> fontSize [ | property | @@ -35,7 +33,7 @@ PyramidBlocTextPlugin class >> fontSize [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocTextPlugin class >> fontWeight [ | property | @@ -48,7 +46,7 @@ PyramidBlocTextPlugin class >> fontWeight [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocTextPlugin class >> textForeground [ | property | @@ -63,7 +61,7 @@ PyramidBlocTextPlugin class >> textForeground [ ^ property ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidBlocTextPlugin >> connectOn: aPyramidEditor [ aPyramidEditor propertiesManager addProperty: self class changeText. diff --git a/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st b/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st index de40d06b..c8d064ae 100644 --- a/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderDashArrayCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderDashArrayCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderDashArrayCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderDashArrayCommand >> getValueFor: aBlElement [ ^ aBlElement border style dashArray ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderDashArrayCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder dashArray: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st b/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st index 1e05327a..a30514b4 100644 --- a/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderDashOffsetCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidBorderDashOffsetCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderDashOffsetCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBorderDashOffsetCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject border style dashArray isNotEmpty ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderDashOffsetCommand >> getValueFor: aBlElement [ ^ aBlElement border style dashOffset ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderDashOffsetCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder dashOffset: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st b/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st index f3db7fb7..90ae60e9 100644 --- a/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderLineCapCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderLineCapCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderLineCapCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderLineCapCommand >> getValueFor: aBlElement [ ^ aBlElement border style lineCap ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderLineCapCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder lineCap: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st b/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st index 38ae1b5b..3ea1dbb1 100644 --- a/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderLineJoinCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderLineJoinCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderLineJoinCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderLineJoinCommand >> getValueFor: aBlElement [ ^ aBlElement border style lineJoin ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderLineJoinCommand >> updateBuilder: aBuilder with: anArgument [. aBuilder lineJoin: anArgument ] diff --git a/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st b/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st index bf1a0bc5..e70e6d41 100644 --- a/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderMiterLimitCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidBorderMiterLimitCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderMiterLimitCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBorderMiterLimitCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ (anObject border style lineJoin isKindOf: BlStrokeLineMiterJoin) ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderMiterLimitCommand >> getValueFor: aBlElement [ ^ aBlElement border style miterLimit ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderMiterLimitCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder miterLimit: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st b/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st index 36973c9b..e1d6b44e 100644 --- a/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderOpacityCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderOpacityCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderOpacityCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderOpacityCommand >> getValueFor: aBlElement [ ^ aBlElement border opacity ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderOpacityCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder opacity: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st index 24e0edc0..10eeb2d7 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintColorCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidBorderPaintColorCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintColorCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBorderPaintColorCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject border paint isKindOf: BlColorPaint ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintColorCommand >> getValueFor: aBlElement [ ^ aBlElement border paint color ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintColorCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint: anArgument asBlPaint diff --git a/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st index ea78b111..44fb1a6d 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderPaintCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintCommand >> getValueFor: aBlElement [ ^ aBlElement border paint ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint: anArgument value diff --git a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionCommand.class.st index 9ece0e46..8a8da3e3 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidBorderPaintLinearDirectionCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintLinearDirectionCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBorderPaintLinearDirectionCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st index 49658ba1..1b18eb86 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionEndCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderPaintLinearDirectionEndCommand', - #superclass : 'PyramidBorderPaintLinearDirectionCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintLinearDirectionEndCommand, + #superclass : #PyramidBorderPaintLinearDirectionCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintLinearDirectionEndCommand >> getValueFor: aBlElement [ ^ aBlElement border paint end ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintLinearDirectionEndCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint end: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st index aa99c6d6..4f08a8a9 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintLinearDirectionStartCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderPaintLinearDirectionStartCommand', - #superclass : 'PyramidBorderPaintLinearDirectionCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintLinearDirectionStartCommand, + #superclass : #PyramidBorderPaintLinearDirectionCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintLinearDirectionStartCommand >> getValueFor: aBlElement [ ^ aBlElement border paint start ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintLinearDirectionStartCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint start: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialCommand.class.st index 758e228d..ea296f1b 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidBorderPaintRadialCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintRadialCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBorderPaintRadialCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st index 4b965877..bdb47e7b 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerCenterCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderPaintRadialInnerCenterCommand', - #superclass : 'PyramidBorderPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintRadialInnerCenterCommand, + #superclass : #PyramidBorderPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialInnerCenterCommand >> getValueFor: aBlElement [ ^ aBlElement border paint innerCenter ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialInnerCenterCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint innerCenter: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st index e074a687..8f6a2812 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialInnerRadiusCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderPaintRadialInnerRadiusCommand', - #superclass : 'PyramidBorderPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintRadialInnerRadiusCommand, + #superclass : #PyramidBorderPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialInnerRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement border paint innerRadius ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialInnerRadiusCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint innerRadius: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st index 794e2a7a..5a32a29a 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterCenterCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderPaintRadialOuterCenterCommand', - #superclass : 'PyramidBorderPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintRadialOuterCenterCommand, + #superclass : #PyramidBorderPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialOuterCenterCommand >> getValueFor: aBlElement [ ^ aBlElement border paint outerCenter ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialOuterCenterCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint outerCenter: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st index 6bb9aa50..43c5b541 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintRadialOuterRadiusCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderPaintRadialOuterRadiusCommand', - #superclass : 'PyramidBorderPaintRadialCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintRadialOuterRadiusCommand, + #superclass : #PyramidBorderPaintRadialCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialOuterRadiusCommand >> getValueFor: aBlElement [ ^ aBlElement border paint outerRadius ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintRadialOuterRadiusCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder paint outerRadius: anArgument diff --git a/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st b/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st index edc4d474..2626a3dd 100644 --- a/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderPaintStopsCommand.class.st @@ -1,19 +1,17 @@ Class { - #name : 'PyramidBorderPaintStopsCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderPaintStopsCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'testing' } +{ #category : #testing } PyramidBorderPaintStopsCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ anObject border paint isKindOf: BlGradientPaint ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintStopsCommand >> getValueFor: aBlElement [ "We ensure that we are working with a copy of the associations." @@ -21,7 +19,7 @@ PyramidBorderPaintStopsCommand >> getValueFor: aBlElement [ asso key copy -> asso value copy ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderPaintStopsCommand >> updateBuilder: aBuilder with: anArgument [ "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 7eadf35e..b943532a 100644 --- a/src/Pyramid-Bloc/PyramidBorderWidthCommand.class.st +++ b/src/Pyramid-Bloc/PyramidBorderWidthCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidBorderWidthCommand', - #superclass : 'PyramidAbstractBorderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidBorderWidthCommand, + #superclass : #PyramidAbstractBorderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderWidthCommand >> getValueFor: aBlElement [ ^ aBlElement border width ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderWidthCommand >> updateBuilder: aBuilder with: anArgument [ aBuilder width: anArgument diff --git a/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st b/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st index 18f93b7f..f314fb83 100644 --- a/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st +++ b/src/Pyramid-Bloc/PyramidChangeOrderWithIndexCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidChangeOrderWithIndexCommand', - #superclass : 'PyramidAbstractChangeDrawOrderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-order', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-order' + #name : #PyramidChangeOrderWithIndexCommand, + #superclass : #PyramidAbstractChangeDrawOrderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChangeOrderWithIndexCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex parent | diff --git a/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st b/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st index ac275080..181b72af 100644 --- a/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st +++ b/src/Pyramid-Bloc/PyramidChangeTextCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidChangeTextCommand', - #superclass : 'PyramidBlocTextCommand', - #category : 'Pyramid-Bloc-plugin-bloc-text', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-text' + #name : #PyramidChangeTextCommand, + #superclass : #PyramidBlocTextCommand, + #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChangeTextCommand >> getValueFor: aBlTextElement [ ^ aBlTextElement text asString ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChangeTextCommand >> setValueFor: aBlTextElement with: aString [ | attributes rope | diff --git a/src/Pyramid-Bloc/PyramidChildrenCommand.class.st b/src/Pyramid-Bloc/PyramidChildrenCommand.class.st index 46130ddd..0331d157 100644 --- a/src/Pyramid-Bloc/PyramidChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidChildrenCommand.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidChildrenCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidChildrenCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'testing' } +{ #category : #testing } PyramidChildrenCommand class >> isAbstract [ ^ self == PyramidChildrenCommand ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChildrenCommand >> getValueFor: aBlElement [ ^ nil ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 6795cf64..a4209f42 100644 --- a/src/Pyramid-Bloc/PyramidClipChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidClipChildrenCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidClipChildrenCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidClipChildrenCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidClipChildrenCommand >> getValueFor: aBlElement [ ^ aBlElement clipChildren ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidClipChildrenCommand >> setValueFor: aBlElement with: anArgument [ aBlElement clipChildren: anArgument diff --git a/src/Pyramid-Bloc/PyramidContextMenuPlugin.class.st b/src/Pyramid-Bloc/PyramidContextMenuPlugin.class.st index 57955d5b..e678d2fe 100644 --- a/src/Pyramid-Bloc/PyramidContextMenuPlugin.class.st +++ b/src/Pyramid-Bloc/PyramidContextMenuPlugin.class.st @@ -1,17 +1,15 @@ Class { - #name : 'PyramidContextMenuPlugin', - #superclass : 'Object', + #name : #PyramidContextMenuPlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ 'editor' ], - #category : 'Pyramid-Bloc-plugin-context-menu', - #package : 'Pyramid-Bloc', - #tag : 'plugin-context-menu' + #category : #'Pyramid-Bloc-plugin-context-menu' } -{ #category : 'class initialization' } +{ #category : #'class initialization' } PyramidContextMenuPlugin class >> initialize [ "Remove the plugin in case of already install (reset)" @@ -21,7 +19,7 @@ PyramidContextMenuPlugin class >> initialize [ PyramidPluginManager uniqueInstance addPlugin: self ] -{ #category : 'adding' } +{ #category : #adding } PyramidContextMenuPlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow at: #selectionMenu addItem: [ :builder | @@ -29,32 +27,32 @@ PyramidContextMenuPlugin >> addPanelsOn: aPyramidSimpleWindow [ self menuBrowseAndInspectOn: builder ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidContextMenuPlugin >> connectOn: aPyramidEditor [ self editor: aPyramidEditor. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidContextMenuPlugin >> editor [ ^ editor ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidContextMenuPlugin >> editor: anObject [ editor := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidContextMenuPlugin >> getNameForSingle: aBlElement [ aBlElement id ifNil: [ ^ '@\no name\ ' , aBlElement className, ' ', aBlElement hash printString ]. ^ aBlElement id , ' ' , aBlElement className, ' ', aBlElement hash printString ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidContextMenuPlugin >> menuBrowseAndInspectOn: aBuilder [ aBuilder addGroupSingleSelection: [ :group :single | @@ -90,7 +88,7 @@ PyramidContextMenuPlugin >> menuBrowseAndInspectOn: aBuilder [ yourself ] order: 1 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidContextMenuPlugin >> menuContextOn: aBuilder [ aBuilder diff --git a/src/Pyramid-Bloc/PyramidCopyPastePlugin.class.st b/src/Pyramid-Bloc/PyramidCopyPastePlugin.class.st index 4812d536..4b69c85a 100644 --- a/src/Pyramid-Bloc/PyramidCopyPastePlugin.class.st +++ b/src/Pyramid-Bloc/PyramidCopyPastePlugin.class.st @@ -1,17 +1,15 @@ Class { - #name : 'PyramidCopyPastePlugin', - #superclass : 'Object', + #name : #PyramidCopyPastePlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ 'projectModel' ], - #category : 'Pyramid-Bloc-plugin-copy-paste', - #package : 'Pyramid-Bloc', - #tag : 'plugin-copy-paste' + #category : #'Pyramid-Bloc-plugin-copy-paste' } -{ #category : 'adding' } +{ #category : #adding } PyramidCopyPastePlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow @@ -19,19 +17,19 @@ PyramidCopyPastePlugin >> addPanelsOn: aPyramidSimpleWindow [ addItem: [ :builder | self copyAsStonMenu: builder ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidCopyPastePlugin >> connectOn: aPyramidEditor [ self projectModel: aPyramidEditor projectModel ] -{ #category : 'copying' } +{ #category : #copying } PyramidCopyPastePlugin >> copyAsStonInClipboard: aCollection [ Clipboard clipboardText: (BlSerializer serialize: aCollection) ] -{ #category : 'copying' } +{ #category : #copying } PyramidCopyPastePlugin >> copyAsStonMenu: aBuilder [ aBuilder @@ -89,7 +87,7 @@ PyramidCopyPastePlugin >> copyAsStonMenu: aBuilder [ order: 20 ] -{ #category : 'copying' } +{ #category : #copying } PyramidCopyPastePlugin >> pasteAsStonInClipboard: aBlElement [ | copiedElement | @@ -102,7 +100,7 @@ PyramidCopyPastePlugin >> pasteAsStonInClipboard: aBlElement [ self projectModel informElementsChanged ] -{ #category : 'copying' } +{ #category : #copying } PyramidCopyPastePlugin >> pasteAsStonInClipboardOnRoots [ | copiedElement | @@ -115,13 +113,13 @@ PyramidCopyPastePlugin >> pasteAsStonInClipboardOnRoots [ self projectModel informFirstLevelElementsChanged ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCopyPastePlugin >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCopyPastePlugin >> projectModel: anObject [ projectModel := anObject diff --git a/src/Pyramid-Bloc/PyramidCornerRadiiInputPresenter.class.st b/src/Pyramid-Bloc/PyramidCornerRadiiInputPresenter.class.st index 55e47e71..336be849 100644 --- a/src/Pyramid-Bloc/PyramidCornerRadiiInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidCornerRadiiInputPresenter.class.st @@ -1,22 +1,20 @@ Class { - #name : 'PyramidCornerRadiiInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidCornerRadiiInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'inputArray', 'whenValueChangedDo' ], - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidCornerRadiiInputPresenter >> applyStrings [ self inputArray strings: self strings ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidCornerRadiiInputPresenter >> cornerRadiiFrom: anArray [ anArray isCollection ifFalse: [ ^ anArray ]. @@ -38,13 +36,13 @@ PyramidCornerRadiiInputPresenter >> cornerRadiiFrom: anArray [ ^ PyramidUnknowState new ] -{ #category : 'layout' } +{ #category : #layout } PyramidCornerRadiiInputPresenter >> defaultLayout [ ^ SpBoxLayout newHorizontal add: self inputArray; yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidCornerRadiiInputPresenter >> initializePresenters [ whenValueChangedDo := [ :insets | ]. @@ -54,31 +52,31 @@ PyramidCornerRadiiInputPresenter >> initializePresenters [ (self cornerRadiiFrom: array) ] ] -{ #category : 'layout' } +{ #category : #layout } PyramidCornerRadiiInputPresenter >> inputArray [ ^ inputArray ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidCornerRadiiInputPresenter >> value [ ^ self cornerRadiiFrom: self inputArray value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidCornerRadiiInputPresenter >> value: aBlCornerRadii [ aBlCornerRadii setCornerRadiiOn: self ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidCornerRadiiInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidCornerRadiiInputPresenter >> whenValueChangedDo: aBlock [ whenValueChangedDo := aBlock diff --git a/src/Pyramid-Bloc/PyramidDrawOrderIcons.class.st b/src/Pyramid-Bloc/PyramidDrawOrderIcons.class.st index ebf8e388..f28afcd5 100644 --- a/src/Pyramid-Bloc/PyramidDrawOrderIcons.class.st +++ b/src/Pyramid-Bloc/PyramidDrawOrderIcons.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidDrawOrderIcons', - #superclass : 'Object', - #category : 'Pyramid-Bloc-plugin-bloc-order', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-order' + #name : #PyramidDrawOrderIcons, + #superclass : #Object, + #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> blocMoveBackward [ ^ [ "BlStashSerializer" @@ -54,7 +52,7 @@ PyramidDrawOrderIcons class >> blocMoveBackward [ ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> blocMoveForward [ ^ [ "BlStashSerializer" @@ -102,7 +100,7 @@ PyramidDrawOrderIcons class >> blocMoveForward [ ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> blocOnBackground [ ^ [ "BlStashSerializer" @@ -163,7 +161,7 @@ blpaintbackground2 := BlPaintBackground new. ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> blocOnForeground [ ^ [ "BlStashSerializer" @@ -222,7 +220,7 @@ blpaintbackground2 := BlPaintBackground new. ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> formMoveBackward [ ^ (BlElement new @@ -231,7 +229,7 @@ PyramidDrawOrderIcons class >> formMoveBackward [ exportAsForm ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> formMoveForward [ ^ (BlElement new @@ -240,7 +238,7 @@ PyramidDrawOrderIcons class >> formMoveForward [ exportAsForm ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> formOnBackground [ ^ (BlElement new @@ -249,7 +247,7 @@ PyramidDrawOrderIcons class >> formOnBackground [ exportAsForm ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidDrawOrderIcons class >> formOnForeground [ ^ (BlElement new diff --git a/src/Pyramid-Bloc/PyramidEditOnRunningSystemSettings.class.st b/src/Pyramid-Bloc/PyramidEditOnRunningSystemSettings.class.st index aec4be3d..eab68240 100644 --- a/src/Pyramid-Bloc/PyramidEditOnRunningSystemSettings.class.st +++ b/src/Pyramid-Bloc/PyramidEditOnRunningSystemSettings.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidEditOnRunningSystemSettings', - #superclass : 'Object', - #category : 'Pyramid-Bloc-plugin-edit-on-running', - #package : 'Pyramid-Bloc', - #tag : 'plugin-edit-on-running' + #name : #PyramidEditOnRunningSystemSettings, + #superclass : #Object, + #category : #'Pyramid-Bloc-plugin-edit-on-running' } -{ #category : 'dialog' } +{ #category : #dialog } PyramidEditOnRunningSystemSettings class >> canEditDialog: aBuilder [ ^ self theme newRowIn: self for: { @@ -15,19 +13,19 @@ PyramidEditOnRunningSystemSettings class >> canEditDialog: aBuilder [ } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidEditOnRunningSystemSettings class >> editOnRunning [ ^ PyramidPluginEditOnRunning editOnRunning ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidEditOnRunningSystemSettings class >> editOnRunning: aBoolean [ PyramidPluginEditOnRunning editOnRunning: aBoolean ] -{ #category : 'settings' } +{ #category : #settings } PyramidEditOnRunningSystemSettings class >> editOnRunningSettingOn: aBuilder [ @@ -40,12 +38,12 @@ PyramidEditOnRunningSystemSettings class >> editOnRunningSettingOn: aBuilder [ Press the required shortcut key(s) on a focused BlSpace window to edit it in Pyramid.' ] -{ #category : 'dialog' } +{ #category : #dialog } PyramidEditOnRunningSystemSettings class >> theme [ ^ Smalltalk ui theme ] -{ #category : 'see class side' } +{ #category : #'see class side' } PyramidEditOnRunningSystemSettings >> seeClassSide [ ] diff --git a/src/Pyramid-Bloc/PyramidElementIdCommand.class.st b/src/Pyramid-Bloc/PyramidElementIdCommand.class.st index cc3497cf..66f89484 100644 --- a/src/Pyramid-Bloc/PyramidElementIdCommand.class.st +++ b/src/Pyramid-Bloc/PyramidElementIdCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidElementIdCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidElementIdCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementIdCommand >> getValueFor: aBlElement [ ^ aBlElement id ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementIdCommand >> setValueFor: aBlElement with: anArgument [ aBlElement id: anArgument diff --git a/src/Pyramid-Bloc/PyramidElementIdSortFunction.class.st b/src/Pyramid-Bloc/PyramidElementIdSortFunction.class.st index d852c4f4..84f10e6d 100644 --- a/src/Pyramid-Bloc/PyramidElementIdSortFunction.class.st +++ b/src/Pyramid-Bloc/PyramidElementIdSortFunction.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidElementIdSortFunction', - #superclass : 'SortFunction', - #category : 'Pyramid-Bloc-utils', - #package : 'Pyramid-Bloc', - #tag : 'utils' + #name : #PyramidElementIdSortFunction, + #superclass : #SortFunction, + #category : #'Pyramid-Bloc-utils' } -{ #category : 'evaluating' } +{ #category : #evaluating } PyramidElementIdSortFunction >> collate: anObject1 with: anObject2 [ "visible > hidden > gone" diff --git a/src/Pyramid-Bloc/PyramidElementToAddCategory.class.st b/src/Pyramid-Bloc/PyramidElementToAddCategory.class.st index 4536c76a..89edacc6 100644 --- a/src/Pyramid-Bloc/PyramidElementToAddCategory.class.st +++ b/src/Pyramid-Bloc/PyramidElementToAddCategory.class.st @@ -1,23 +1,21 @@ Class { - #name : 'PyramidElementToAddCategory', - #superclass : 'Object', + #name : #PyramidElementToAddCategory, + #superclass : #Object, #instVars : [ 'name', 'icon', 'factories' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'comparing' } +{ #category : #comparing } PyramidElementToAddCategory >> <= aPyramidLibraryCategory [ ^ self name <= aPyramidLibraryCategory name ] -{ #category : 'converting' } +{ #category : #converting } PyramidElementToAddCategory >> asNotebookPage [ ^ SpNotebookPage @@ -26,31 +24,31 @@ PyramidElementToAddCategory >> asNotebookPage [ provider: [self makeProvider] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddCategory >> factories [ ^ factories ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddCategory >> factories: anObject [ factories := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddCategory >> icon [ ^ icon ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddCategory >> icon: anObject [ icon := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementToAddCategory >> makeProvider [ ^ @@ -67,13 +65,13 @@ PyramidElementToAddCategory >> makeProvider [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddCategory >> name [ ^ name ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddCategory >> name: anObject [ name := anObject diff --git a/src/Pyramid-Bloc/PyramidElementToAddFactory.class.st b/src/Pyramid-Bloc/PyramidElementToAddFactory.class.st index d604251d..0e34afb9 100644 --- a/src/Pyramid-Bloc/PyramidElementToAddFactory.class.st +++ b/src/Pyramid-Bloc/PyramidElementToAddFactory.class.st @@ -1,72 +1,70 @@ Class { - #name : 'PyramidElementToAddFactory', - #superclass : 'Object', + #name : #PyramidElementToAddFactory, + #superclass : #Object, #instVars : [ 'elementIcon', 'elementName', 'elementBlock' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'comparing' } +{ #category : #comparing } PyramidElementToAddFactory >> <= aPyramidLibraryCategory [ ^ self elementName <= aPyramidLibraryCategory elementName ] -{ #category : 'testing' } +{ #category : #testing } PyramidElementToAddFactory >> canMakeNewElement [ [self elementBlock value] on: Error do: [ ^ false ]. ^ true ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactory >> elementBlock [ ^ elementBlock ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactory >> elementBlock: anObject [ elementBlock := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactory >> elementIcon [ ^ elementIcon ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactory >> elementIcon: anObject [ elementIcon := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactory >> elementName [ ^ elementName ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactory >> elementName: anObject [ elementName := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementToAddFactory >> makeElement [ ^ self elementBlock value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementToAddFactory >> makeForm [ | array | diff --git a/src/Pyramid-Bloc/PyramidElementToAddFactoryEmpty.class.st b/src/Pyramid-Bloc/PyramidElementToAddFactoryEmpty.class.st index c7b87769..a85d38b2 100644 --- a/src/Pyramid-Bloc/PyramidElementToAddFactoryEmpty.class.st +++ b/src/Pyramid-Bloc/PyramidElementToAddFactoryEmpty.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidElementToAddFactoryEmpty', - #superclass : 'PyramidElementToAddFactory', - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #name : #PyramidElementToAddFactoryEmpty, + #superclass : #PyramidElementToAddFactory, + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'testing' } +{ #category : #testing } PyramidElementToAddFactoryEmpty >> canMakeNewElement [ ^ false ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementToAddFactoryEmpty >> makeForm [ ^ BlElement new asForm diff --git a/src/Pyramid-Bloc/PyramidElementToAddFactoryPresenter.class.st b/src/Pyramid-Bloc/PyramidElementToAddFactoryPresenter.class.st index 4ac37610..32c72f49 100644 --- a/src/Pyramid-Bloc/PyramidElementToAddFactoryPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidElementToAddFactoryPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidElementToAddFactoryPresenter', - #superclass : 'SpPresenter', + #name : #PyramidElementToAddFactoryPresenter, + #superclass : #SpPresenter, #instVars : [ 'categoryPresenter', 'factoryPresenter', @@ -9,43 +9,41 @@ Class { 'selectedFactory', 'whenItemChangeDo' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> categories [ ^ categories ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> categories: anObject [ categories := anObject. self categoryPresenter items: anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> categoryPresenter [ ^ categoryPresenter ] -{ #category : 'layout' } +{ #category : #layout } PyramidElementToAddFactoryPresenter >> defaultLayout [ ^ SpPanedLayout newHorizontal add: self categoryPresenter; add: self factoryPresenter ; yourself. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> factoryPresenter [ ^ factoryPresenter ] -{ #category : 'initialization - deprecated' } +{ #category : #'initialization - deprecated' } PyramidElementToAddFactoryPresenter >> initialize [ super initialize. @@ -53,7 +51,7 @@ PyramidElementToAddFactoryPresenter >> initialize [ ] -{ #category : 'initialization - deprecated' } +{ #category : #'initialization - deprecated' } PyramidElementToAddFactoryPresenter >> initializePresenter [ whenItemChangeDo := [ :e | ]. @@ -88,13 +86,13 @@ PyramidElementToAddFactoryPresenter >> initializePresenter [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> selectedCategory [ ^ selectedCategory ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> selectedCategory: anObject [ selectedCategory := anObject. @@ -102,26 +100,26 @@ PyramidElementToAddFactoryPresenter >> selectedCategory: anObject [ self factoryPresenter items: anObject factories ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> selectedFactory [ ^ selectedFactory ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> selectedFactory: anObject [ selectedFactory := anObject. self whenItemChangeDo value: anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> whenItemChangeDo [ ^ whenItemChangeDo ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddFactoryPresenter >> whenItemChangeDo: anObject [ whenItemChangeDo := anObject diff --git a/src/Pyramid-Bloc/PyramidElementToAddModel.class.st b/src/Pyramid-Bloc/PyramidElementToAddModel.class.st index 4671c5ec..80fec9f0 100644 --- a/src/Pyramid-Bloc/PyramidElementToAddModel.class.st +++ b/src/Pyramid-Bloc/PyramidElementToAddModel.class.st @@ -1,15 +1,13 @@ Class { - #name : 'PyramidElementToAddModel', - #superclass : 'Object', + #name : #PyramidElementToAddModel, + #superclass : #Object, #instVars : [ 'categories' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementToAddModel class >> defaultLibrary [ | library | @@ -18,7 +16,7 @@ PyramidElementToAddModel class >> defaultLibrary [ ^ library ] -{ #category : 'adding' } +{ #category : #adding } PyramidElementToAddModel >> addCategoryWithName: aCategoryName withIcon: aCategoryIcon withAllFactories: aCollection [ | newCategory | @@ -30,13 +28,13 @@ PyramidElementToAddModel >> addCategoryWithName: aCategoryName withIcon: aCatego categories add: newCategory ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidElementToAddModel >> allCategories [ ^ categories ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidElementToAddModel >> initialize [ categories := OrderedCollection new. diff --git a/src/Pyramid-Bloc/PyramidElementToAddPresenter.class.st b/src/Pyramid-Bloc/PyramidElementToAddPresenter.class.st index a99711ed..7800828e 100644 --- a/src/Pyramid-Bloc/PyramidElementToAddPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidElementToAddPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidElementToAddPresenter', - #superclass : 'SpPresenter', + #name : #PyramidElementToAddPresenter, + #superclass : #SpPresenter, #instVars : [ 'selector', 'preview', @@ -8,31 +8,29 @@ Class { 'libraryModel', 'currentFactory' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementToAddPresenter class >> defaultEmptyFactory [ ^ PyramidElementToAddFactoryEmpty new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> addButton [ ^ addButton ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> currentFactory [ currentFactory ifNil: [ currentFactory := self class defaultEmptyFactory ]. ^ currentFactory ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> currentFactory: anObject [ currentFactory := anObject. @@ -40,7 +38,7 @@ PyramidElementToAddPresenter >> currentFactory: anObject [ self addButton enabled: self currentFactory canMakeNewElement ] -{ #category : 'layout' } +{ #category : #layout } PyramidElementToAddPresenter >> defaultLayout [ ^ SpPanedLayout newHorizontal @@ -53,13 +51,13 @@ PyramidElementToAddPresenter >> defaultLayout [ yourself ] -{ #category : 'requirements' } +{ #category : #requirements } PyramidElementToAddPresenter >> elementToAdd [ ^ self currentFactory makeElement ] -{ #category : 'initialization - deprecated' } +{ #category : #'initialization - deprecated' } PyramidElementToAddPresenter >> initializePresenter [ addButton := SpButtonPresenter new @@ -74,33 +72,33 @@ PyramidElementToAddPresenter >> initializePresenter [ self refresh ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> libraryModel [ ^ libraryModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> libraryModel: anObject [ libraryModel := anObject. self refresh ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> preview [ ^ preview ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> refresh [ self currentFactory: nil. self selector categories: self libraryModel allCategories ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementToAddPresenter >> selector [ ^ selector diff --git a/src/Pyramid-Bloc/PyramidElementsManipulationHelper.class.st b/src/Pyramid-Bloc/PyramidElementsManipulationHelper.class.st index efba8039..30c82f83 100644 --- a/src/Pyramid-Bloc/PyramidElementsManipulationHelper.class.st +++ b/src/Pyramid-Bloc/PyramidElementsManipulationHelper.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidElementsManipulationHelper', - #superclass : 'Object', - #category : 'Pyramid-Bloc-utils', - #package : 'Pyramid-Bloc', - #tag : 'utils' + #name : #PyramidElementsManipulationHelper, + #superclass : #Object, + #category : #'Pyramid-Bloc-utils' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementsManipulationHelper class >> accumulateChildrenOf: aBlElement in: aCollection [ aCollection add: aBlElement. @@ -15,7 +13,7 @@ PyramidElementsManipulationHelper class >> accumulateChildrenOf: aBlElement in: self accumulateChildrenOf: each in: aCollection ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementsManipulationHelper class >> accumulateParentsOf: aCollectionOfBlElement in: result [ | elementToTest onCollection nextCollection shouldKeepIt | @@ -38,7 +36,7 @@ PyramidElementsManipulationHelper class >> accumulateParentsOf: aCollectionOfBlE self accumulateParentsOf: nextCollection in: result ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementsManipulationHelper class >> flattenChildrenOfCollection: aCollection [ "Consider: A1->A2-A3. @@ -58,7 +56,7 @@ returns ^ ret ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementsManipulationHelper class >> onlyParents: aCollectionOfBlElement [ "return a collection whithout any parent-child relation. Example: diff --git a/src/Pyramid-Bloc/PyramidElevationSortFunction.class.st b/src/Pyramid-Bloc/PyramidElevationSortFunction.class.st index 6eb9b059..8a02549a 100644 --- a/src/Pyramid-Bloc/PyramidElevationSortFunction.class.st +++ b/src/Pyramid-Bloc/PyramidElevationSortFunction.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidElevationSortFunction', - #superclass : 'SortFunction', - #category : 'Pyramid-Bloc-utils', - #package : 'Pyramid-Bloc', - #tag : 'utils' + #name : #PyramidElevationSortFunction, + #superclass : #SortFunction, + #category : #'Pyramid-Bloc-utils' } -{ #category : 'evaluating' } +{ #category : #evaluating } PyramidElevationSortFunction >> collate: aFirstObject with: aSecondObject [ " res = zIndex - zIndex if (res = 0) and (parent is same) and (parent not nil) then diff --git a/src/Pyramid-Bloc/PyramidExistingOverlayError.class.st b/src/Pyramid-Bloc/PyramidExistingOverlayError.class.st index 45fbfa06..2a039cc1 100644 --- a/src/Pyramid-Bloc/PyramidExistingOverlayError.class.st +++ b/src/Pyramid-Bloc/PyramidExistingOverlayError.class.st @@ -1,7 +1,5 @@ Class { - #name : 'PyramidExistingOverlayError', - #superclass : 'PyramidError', - #category : 'Pyramid-Bloc-plugin-space', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space' + #name : #PyramidExistingOverlayError, + #superclass : #PyramidError, + #category : #'Pyramid-Bloc-plugin-space' } diff --git a/src/Pyramid-Bloc/PyramidFlowLayoutOrientationPresenter.class.st b/src/Pyramid-Bloc/PyramidFlowLayoutOrientationPresenter.class.st index e7521e13..d2f245bf 100644 --- a/src/Pyramid-Bloc/PyramidFlowLayoutOrientationPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidFlowLayoutOrientationPresenter.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidFlowLayoutOrientationPresenter', - #superclass : 'PyramidAbstractLayoutOrientationPresenter', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidFlowLayoutOrientationPresenter, + #superclass : #PyramidAbstractLayoutOrientationPresenter, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFlowLayoutOrientationPresenter >> value [ ^ self state asOrientationForFlowPyramid diff --git a/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st b/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st index 58a1631f..8dbf1c83 100644 --- a/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFontSizeCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidFontSizeCommand', - #superclass : 'PyramidBlocTextCommand', - #category : 'Pyramid-Bloc-plugin-bloc-text', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-text' + #name : #PyramidFontSizeCommand, + #superclass : #PyramidBlocTextCommand, + #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFontSizeCommand >> getValueFor: aBlTextElement [ aBlTextElement text attributesFinder @@ -16,7 +14,7 @@ PyramidFontSizeCommand >> getValueFor: aBlTextElement [ ^ 10 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 8d1b4c55..a7c5ba98 100644 --- a/src/Pyramid-Bloc/PyramidFontWeightCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFontWeightCommand.class.st @@ -1,19 +1,17 @@ Class { - #name : 'PyramidFontWeightCommand', - #superclass : 'PyramidBlocTextCommand', - #category : 'Pyramid-Bloc-plugin-bloc-text', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-text' + #name : #PyramidFontWeightCommand, + #superclass : #PyramidBlocTextCommand, + #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFontWeightCommand >> getValueFor: aBlTextElement [ aBlTextElement text attributesFinder findAttributesSuchThat: [ :a | a class = BlFontWeightAttribute ] indicesDo: [ :new :old :a | ^ a weight ]. ^ LogicalFont weightRegular ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFontWeightCommand >> setValueFor: aBlTextElement with: aNumber [ aBlTextElement text attribute: diff --git a/src/Pyramid-Bloc/PyramidFrameConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidFrameConstraintsCommand.class.st index 9242d679..97c01b99 100644 --- a/src/Pyramid-Bloc/PyramidFrameConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFrameConstraintsCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidFrameConstraintsCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidFrameConstraintsCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'testing' } +{ #category : #testing } PyramidFrameConstraintsCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st index 59c0d1c6..271f6c0e 100644 --- a/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFrameHorizontalConstraintsCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidFrameHorizontalConstraintsCommand', - #superclass : 'PyramidFrameConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidFrameHorizontalConstraintsCommand, + #superclass : #PyramidFrameConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFrameHorizontalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints frame horizontal alignment ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 308a117f..99b53c7a 100644 --- a/src/Pyramid-Bloc/PyramidFrameVerticalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidFrameVerticalConstraintsCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidFrameVerticalConstraintsCommand', - #superclass : 'PyramidFrameConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidFrameVerticalConstraintsCommand, + #superclass : #PyramidFrameConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFrameVerticalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints frame vertical alignment ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 1ba27a7f..411acf89 100644 --- a/src/Pyramid-Bloc/PyramidGeometryCommand.class.st +++ b/src/Pyramid-Bloc/PyramidGeometryCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidGeometryCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-geometry', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-geometry' + #name : #PyramidGeometryCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-geometry' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryCommand >> getValueFor: aBlElement [ ^ aBlElement geometry ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryCommand >> setValueFor: aBlElement with: anArgument [ aBlElement geometry: anArgument diff --git a/src/Pyramid-Bloc/PyramidGeometryInputModel.class.st b/src/Pyramid-Bloc/PyramidGeometryInputModel.class.st index 81e8d549..954113c7 100644 --- a/src/Pyramid-Bloc/PyramidGeometryInputModel.class.st +++ b/src/Pyramid-Bloc/PyramidGeometryInputModel.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidGeometryInputModel', - #superclass : 'Object', + #name : #PyramidGeometryInputModel, + #superclass : #Object, #instVars : [ 'buttonPresenter', 'blocIcon', @@ -8,102 +8,100 @@ Class { 'help', 'input' ], - #category : 'Pyramid-Bloc-plugin-bloc-geometry', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-geometry' + #category : #'Pyramid-Bloc-plugin-bloc-geometry' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> blocIcon [ ^ blocIcon ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> blocIcon: anObject [ blocIcon := anObject ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidGeometryInputModel >> buttonPresenter [ ^ buttonPresenter ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> defaultGeometry [ ^ defaultGeometry ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> defaultGeometry: anObject [ defaultGeometry := anObject ] -{ #category : 'error handling' } +{ #category : #'error handling' } PyramidGeometryInputModel >> error [ self buttonPresenter icon: self iconError; help: 'Will do nothing'; action: [ ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> help [ ^ help ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> help: anObject [ help := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputModel >> iconColor: aColor [ ^ (self blocIcon background: aColor) exportAsForm ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputModel >> iconError [ ^self iconColor: (Color fromHexString: 'FFDB42') ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputModel >> iconNormal [ ^self iconColor: (Color fromHexString: 'a7a7a7') ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputModel >> iconSelected [ ^self iconColor: (Color fromHexString: 'AFD5FA') ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidGeometryInputModel >> initialize [ buttonPresenter := SpButtonPresenter new. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> input [ ^ input ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputModel >> input: anObject [ input := anObject ] -{ #category : 'error handling' } +{ #category : #'error handling' } PyramidGeometryInputModel >> normal [ self buttonPresenter @@ -114,7 +112,7 @@ PyramidGeometryInputModel >> normal [ self input whenValueChangedDo value: self defaultGeometry. ] ] -{ #category : 'error handling' } +{ #category : #'error handling' } PyramidGeometryInputModel >> selected [ self buttonPresenter diff --git a/src/Pyramid-Bloc/PyramidGeometryInputPresenter.class.st b/src/Pyramid-Bloc/PyramidGeometryInputPresenter.class.st index 106fe354..f09754ca 100644 --- a/src/Pyramid-Bloc/PyramidGeometryInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidGeometryInputPresenter.class.st @@ -1,17 +1,15 @@ Class { - #name : 'PyramidGeometryInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidGeometryInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'whenValueChangedDo', 'geometry', 'geometryDictionary' ], - #category : 'Pyramid-Bloc-plugin-bloc-geometry', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-geometry' + #category : #'Pyramid-Bloc-plugin-bloc-geometry' } -{ #category : 'layout' } +{ #category : #layout } PyramidGeometryInputPresenter >> defaultLayout [ | defaultLayout | @@ -25,26 +23,26 @@ PyramidGeometryInputPresenter >> defaultLayout [ ^ defaultLayout ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputPresenter >> geometry [ "Return a BlElementGeometry" ^ geometry ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputPresenter >> geometry: aBlElementGeometry [ geometry := aBlElementGeometry ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputPresenter >> geometryDictionary [ ^ geometryDictionary ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidGeometryInputPresenter >> initializeGeometryButtons [ geometryDictionary @@ -106,7 +104,7 @@ PyramidGeometryInputPresenter >> initializeGeometryButtons [ yourself) ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidGeometryInputPresenter >> initializePresenters [ whenValueChangedDo := [ :geo | ]. @@ -115,7 +113,7 @@ PyramidGeometryInputPresenter >> initializePresenters [ self value: PyramidUnknowState new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputPresenter >> setNormalAndSelect: buttonModel [ self geometryDictionary valuesDo: [ :each | each normal ]. @@ -123,19 +121,19 @@ PyramidGeometryInputPresenter >> setNormalAndSelect: buttonModel [ buttonModel selected ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidGeometryInputPresenter >> setUnknow [ self geometryDictionary valuesDo: [ :each | each error ]. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputPresenter >> value [ ^ self geometry ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputPresenter >> value: aBlGeometry [ self geometry: aBlGeometry. @@ -145,13 +143,13 @@ PyramidGeometryInputPresenter >> value: aBlGeometry [ ifAbsent: [ self setUnknow ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputPresenter >> whenValueChangedDo: anObject [ whenValueChangedDo := anObject diff --git a/src/Pyramid-Bloc/PyramidGroupCommand.class.st b/src/Pyramid-Bloc/PyramidGroupCommand.class.st index 411c617b..bfb54ab2 100644 --- a/src/Pyramid-Bloc/PyramidGroupCommand.class.st +++ b/src/Pyramid-Bloc/PyramidGroupCommand.class.st @@ -1,15 +1,13 @@ Class { - #name : 'PyramidGroupCommand', - #superclass : 'PyramidCommand', + #name : #PyramidGroupCommand, + #superclass : #PyramidCommand, #instVars : [ 'historyCommandArguments' ], - #category : 'Pyramid-Bloc-plugin-bloc-group', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-group' + #category : #'Pyramid-Bloc-plugin-bloc-group' } -{ #category : 'testing' } +{ #category : #testing } PyramidGroupCommand >> canBeUsedFor: aCollectionOfBlElements [ | parent | @@ -22,14 +20,14 @@ PyramidGroupCommand >> canBeUsedFor: aCollectionOfBlElements [ each parent = parent ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> commandInverse [ "Command used to undo the group." ^ PyramidUndoGroupCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> commandInverseArgumentsFor: aSelection and: aFirstLevelCollection [ historyCommandArguments := PyramidGroupCommandModel new. @@ -44,7 +42,7 @@ PyramidGroupCommand >> commandInverseArgumentsFor: aSelection and: aFirstLevelCo ^ self historyCommandArguments ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> commandRestauration [ "Command used to redo the group." @@ -52,14 +50,14 @@ PyramidGroupCommand >> commandRestauration [ ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> commandRestaurationArgumentsFor: aSelection and: aFirstLevelCollection [ self historyCommandArguments groupElement: aSelection first first parent. ^ self historyCommandArguments ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> createNewGroupElement: aCollectionOfBlElement [ ^ BlElement new @@ -69,19 +67,19 @@ PyramidGroupCommand >> createNewGroupElement: aCollectionOfBlElement [ yourself. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> getValueFor: aBlElement [ ^ self historyCommandArguments ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommand >> historyCommandArguments [ ^ historyCommandArguments ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> orderGroup: aCollectionToGroup [ "The group order must be the same as their parent children order." @@ -90,7 +88,7 @@ PyramidGroupCommand >> orderGroup: aCollectionToGroup [ ^ aCollectionToGroup sorted: [ :e1 :e2 | (parent childIndexOf: e1) < (parent childIndexOf: e2) ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> positionGroupElement: groupElement [ | currentTop currentLeft | @@ -108,7 +106,7 @@ PyramidGroupCommand >> positionGroupElement: groupElement [ child constraints position - (currentLeft @ currentTop) ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> saveStatesOf: aCollection with: arguments [ ^ self @@ -118,7 +116,7 @@ PyramidGroupCommand >> saveStatesOf: aCollection with: arguments [ (self commandRestaurationArgumentsFor: aCollection and: arguments) ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> saveStatesWithCommandInverseOf: aCollection with: arguments [ ^ self @@ -128,7 +126,7 @@ PyramidGroupCommand >> saveStatesWithCommandInverseOf: aCollection with: argumen (self commandInverseArgumentsFor: aCollection and: arguments) ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommand >> setValueFor: aCollectionToGroup with: aCollectionOfFirstLevelElements [ | groupInCorrectOrder parent groupElement removedElementFromFirstLevel | diff --git a/src/Pyramid-Bloc/PyramidGroupCommandModel.class.st b/src/Pyramid-Bloc/PyramidGroupCommandModel.class.st index 21cf5793..000adc7e 100644 --- a/src/Pyramid-Bloc/PyramidGroupCommandModel.class.st +++ b/src/Pyramid-Bloc/PyramidGroupCommandModel.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidGroupCommandModel', - #superclass : 'Object', + #name : #PyramidGroupCommandModel, + #superclass : #Object, #instVars : [ 'originElement', 'groupElement', @@ -9,78 +9,76 @@ Class { 'originFirstLevelElements', 'selectionInCorrectOrder' ], - #category : 'Pyramid-Bloc-plugin-bloc-group', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-group' + #category : #'Pyramid-Bloc-plugin-bloc-group' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> firstLevelElements [ ^ firstLevelElements ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> firstLevelElements: anObject [ firstLevelElements := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> groupElement [ ^ groupElement ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> groupElement: anObject [ groupElement := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> originElement [ ^ originElement ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> originElement: anObject [ originElement := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> originFirstLevelElements [ ^ originFirstLevelElements ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> originFirstLevelElements: anObject [ originFirstLevelElements := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> originalChildrenElements [ ^ originalChildrenElements ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> originalChildrenElements: anObject [ originalChildrenElements := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> selectionInCorrectOrder [ ^ selectionInCorrectOrder ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandModel >> selectionInCorrectOrder: anObject [ selectionInCorrectOrder := anObject diff --git a/src/Pyramid-Bloc/PyramidHorizontalFrameConstraintsInputPresenter.class.st b/src/Pyramid-Bloc/PyramidHorizontalFrameConstraintsInputPresenter.class.st index ce144d8f..4ad3abef 100644 --- a/src/Pyramid-Bloc/PyramidHorizontalFrameConstraintsInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidHorizontalFrameConstraintsInputPresenter.class.st @@ -1,60 +1,58 @@ Class { - #name : 'PyramidHorizontalFrameConstraintsInputPresenter', - #superclass : 'PyramidAbstractFrameConstraintsInputPresenter', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidHorizontalFrameConstraintsInputPresenter, + #superclass : #PyramidAbstractFrameConstraintsInputPresenter, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> helpCenter [ ^ 'Align the horizontal axis on the center of the shape.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> helpEnd [ ^ 'Align on the Right border.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> helpNull [ ^ 'Do not align horizontaly.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> helpStart [ ^ 'Align on the Left border.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> iconCenter [ ^ (Smalltalk ui icons iconNamed: #windowMinimize) rotateBy: #left centerAt: 8 @ 8 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> iconEnd [ ^ (Smalltalk ui icons iconNamed: #windowMenu) rotateBy: -90 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> iconNull [ ^ Smalltalk ui icons iconNamed: #windowMaximize ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> iconStart [ ^ (Smalltalk ui icons iconNamed: #windowMenu) rotateBy: 90 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenter >> value [ self buttonNull state ifTrue: [ ^ BlHorizontalAlignment null ]. diff --git a/src/Pyramid-Bloc/PyramidInsetsInputPresenter.class.st b/src/Pyramid-Bloc/PyramidInsetsInputPresenter.class.st index c7557841..8f94d482 100644 --- a/src/Pyramid-Bloc/PyramidInsetsInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidInsetsInputPresenter.class.st @@ -1,28 +1,26 @@ Class { - #name : 'PyramidInsetsInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidInsetsInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'inputArray', 'whenValueChangedDo' ], - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidInsetsInputPresenter >> applyStrings [ self inputArray strings: self strings. ] -{ #category : 'layout' } +{ #category : #layout } PyramidInsetsInputPresenter >> defaultLayout [ ^ SpBoxLayout newHorizontal add: self inputArray; yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidInsetsInputPresenter >> initializePresenters [ whenValueChangedDo := [ :insets | ]. @@ -32,13 +30,13 @@ PyramidInsetsInputPresenter >> initializePresenters [ (self insetsFrom: array) ] ] -{ #category : 'layout' } +{ #category : #layout } PyramidInsetsInputPresenter >> inputArray [ ^ inputArray ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidInsetsInputPresenter >> insetsFrom: anArray [ anArray isCollection ifFalse: [ ^ anArray ]. @@ -48,25 +46,25 @@ PyramidInsetsInputPresenter >> insetsFrom: anArray [ ^ PyramidUnknowState new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidInsetsInputPresenter >> value [ ^ self insetsFrom: self inputArray value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidInsetsInputPresenter >> value: aBlInsets [ aBlInsets setInsetsOn: self ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidInsetsInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidInsetsInputPresenter >> whenValueChangedDo: aBlock [ whenValueChangedDo := aBlock diff --git a/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st b/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st index d4e2617c..880f6ede 100644 --- a/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st +++ b/src/Pyramid-Bloc/PyramidLayoutBlocCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidLayoutBlocCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidLayoutBlocCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLayoutBlocCommand >> getValueFor: anObject [ ^ anObject layout ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 9625ea23..57cc5aab 100644 --- a/src/Pyramid-Bloc/PyramidLayoutChangeOrientationCommand.class.st +++ b/src/Pyramid-Bloc/PyramidLayoutChangeOrientationCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidLayoutChangeOrientationCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidLayoutChangeOrientationCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'testing' } +{ #category : #testing } PyramidLayoutChangeOrientationCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ { BlFlowLayout . BlLinearLayout } includes: anObject layout class ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLayoutChangeOrientationCommand >> getValueFor: anObject [ ^ anObject layout orientation ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLayoutChangeOrientationCommand >> setValueFor: anObject with: anArgument [ anObject layout orientation: anArgument diff --git a/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForFlowCommand.class.st b/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForFlowCommand.class.st index 5d1de657..64aafc1b 100644 --- a/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForFlowCommand.class.st +++ b/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForFlowCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidLayoutChangeOrientationForFlowCommand', - #superclass : 'PyramidLayoutChangeOrientationCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidLayoutChangeOrientationForFlowCommand, + #superclass : #PyramidLayoutChangeOrientationCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'testing' } +{ #category : #testing } PyramidLayoutChangeOrientationForFlowCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForLinearCommand.class.st b/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForLinearCommand.class.st index 2ddfb96b..f6380468 100644 --- a/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForLinearCommand.class.st +++ b/src/Pyramid-Bloc/PyramidLayoutChangeOrientationForLinearCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidLayoutChangeOrientationForLinearCommand', - #superclass : 'PyramidLayoutChangeOrientationCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidLayoutChangeOrientationForLinearCommand, + #superclass : #PyramidLayoutChangeOrientationCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'testing' } +{ #category : #testing } PyramidLayoutChangeOrientationForLinearCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidLibraryContainerPresenter.class.st b/src/Pyramid-Bloc/PyramidLibraryContainerPresenter.class.st index 63a0a79c..8bbb4deb 100644 --- a/src/Pyramid-Bloc/PyramidLibraryContainerPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidLibraryContainerPresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidLibraryContainerPresenter', - #superclass : 'SpPresenter', + #name : #PyramidLibraryContainerPresenter, + #superclass : #SpPresenter, #instVars : [ 'library', 'idGenerator' @@ -8,12 +8,10 @@ Class { #classVars : [ 'IdGenerator' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidLibraryContainerPresenter class >> makeIdGenerator [ ^ Generator on: [ :generator | | index | @@ -29,19 +27,19 @@ PyramidLibraryContainerPresenter class >> makeIdGenerator [ index := index + 1 ] repeat ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLibraryContainerPresenter >> buttonAction: aBlock [ library addButton action: aBlock ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLibraryContainerPresenter >> buttonLabel: aString [ library addButton label: aString ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidLibraryContainerPresenter >> defaultLayout [ ^ SpBoxLayout newVertical @@ -58,7 +56,7 @@ PyramidLibraryContainerPresenter >> defaultLayout [ yourself. ] -{ #category : 'requirements' } +{ #category : #requirements } PyramidLibraryContainerPresenter >> elementToAdd [ | array | @@ -67,33 +65,33 @@ PyramidLibraryContainerPresenter >> elementToAdd [ ^ array ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidLibraryContainerPresenter >> idGenerator [ idGenerator ifNil: [ idGenerator := self class makeIdGenerator ]. ^ idGenerator ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidLibraryContainerPresenter >> idGenerator: anObject [ idGenerator := anObject ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidLibraryContainerPresenter >> initializePresenters [ library := PyramidElementToAddPresenter new. ] -{ #category : 'requirements' } +{ #category : #requirements } PyramidLibraryContainerPresenter >> library [ ^ library ] -{ #category : 'requirements' } +{ #category : #requirements } PyramidLibraryContainerPresenter >> library: aLibrary [ library := aLibrary diff --git a/src/Pyramid-Bloc/PyramidLinearLayoutOrientationPresenter.class.st b/src/Pyramid-Bloc/PyramidLinearLayoutOrientationPresenter.class.st index f1b6704c..0482a18a 100644 --- a/src/Pyramid-Bloc/PyramidLinearLayoutOrientationPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidLinearLayoutOrientationPresenter.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidLinearLayoutOrientationPresenter', - #superclass : 'PyramidAbstractLayoutOrientationPresenter', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidLinearLayoutOrientationPresenter, + #superclass : #PyramidAbstractLayoutOrientationPresenter, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLinearLayoutOrientationPresenter >> value [ ^ self state asOrientationForLinearPyramid diff --git a/src/Pyramid-Bloc/PyramidMainExtension.class.st b/src/Pyramid-Bloc/PyramidMainExtension.class.st index 5e275173..fd71ece4 100644 --- a/src/Pyramid-Bloc/PyramidMainExtension.class.st +++ b/src/Pyramid-Bloc/PyramidMainExtension.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidMainExtension', - #superclass : 'Object', + #name : #PyramidMainExtension, + #superclass : #Object, #traits : 'TPyramidSpaceExtension + TPyramidEditorExtension + TPyramidEditorTransformationObserver', #classTraits : 'TPyramidSpaceExtension classTrait + TPyramidEditorExtension classTrait + TPyramidEditorTransformationObserver classTrait', #instVars : [ @@ -11,63 +11,61 @@ Class { 'extentView', 'extentPopover' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> borderElement [ ^ borderElement ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> containerElement [ ^ containerElement ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> defaultBorder [ ^ BlBorder paint: Color blue width: 1 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> defaultExtent [ ^ 800 @ 600 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> editor: aPyramidEditor [ aPyramidEditor window at: #topRight addItem: [ :buttonBuilder | buttonBuilder makeButtonWithIcon: self extentButton order: 10 ] ] -{ #category : 'geometry' } +{ #category : #geometry } PyramidMainExtension >> extent: aPoint [ self elementAtWidgets size: aPoint. self sizeElement size: aPoint ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> extentButton [ ^ extentButton ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMainExtension >> informTransformationChanged [ self elementAtEvents transformDo: [ :t | t translateBy: self currentTransformTranslation negated ]. ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidMainExtension >> initialize [ extentView := SpPresenter new @@ -124,7 +122,7 @@ PyramidMainExtension >> initialize [ borderElement } yourself ] -{ #category : 'displaying' } +{ #category : #displaying } PyramidMainExtension >> installOn: aBuilder [ self builder: aBuilder. @@ -136,13 +134,13 @@ PyramidMainExtension >> installOn: aBuilder [ self elementAtWidgets size: self defaultExtent ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMainExtension >> offsetTranslation [ ^ 50 @ 50 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> projectModel: aProjectModel [ aProjectModel announcer @@ -151,7 +149,7 @@ PyramidMainExtension >> projectModel: aProjectModel [ for: self ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMainExtension >> pyramidFirstLevelElementsChanged: anEvent [ self containerElement removeChildren. @@ -161,7 +159,7 @@ PyramidMainExtension >> pyramidFirstLevelElementsChanged: anEvent [ self containerElement addChild: each ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMainExtension >> sizeElement [ ^ sizeElement diff --git a/src/Pyramid-Bloc/PyramidMarginCommand.class.st b/src/Pyramid-Bloc/PyramidMarginCommand.class.st index 9b9625f2..40950338 100644 --- a/src/Pyramid-Bloc/PyramidMarginCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMarginCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidMarginCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidMarginCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMarginCommand >> getValueFor: aBlElement [ ^ aBlElement margin ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMarginCommand >> setValueFor: aBlElement with: anArgument [ aBlElement margin: anArgument diff --git a/src/Pyramid-Bloc/PyramidMenuExtension.class.st b/src/Pyramid-Bloc/PyramidMenuExtension.class.st index 7c6f8189..2a74c2c3 100644 --- a/src/Pyramid-Bloc/PyramidMenuExtension.class.st +++ b/src/Pyramid-Bloc/PyramidMenuExtension.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidMenuExtension', - #superclass : 'Object', + #name : #PyramidMenuExtension, + #superclass : #Object, #traits : 'TPyramidSpaceExtension + TPyramidEditorExtension', #classTraits : 'TPyramidSpaceExtension classTrait + TPyramidEditorExtension classTrait', #instVars : [ 'menu', 'projectModel' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMenuExtension >> backgroundColors [ ^ { @@ -21,13 +19,13 @@ PyramidMenuExtension >> backgroundColors [ Color black } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMenuExtension >> editor: aPyramidEditor [ self menu: (aPyramidEditor window services at: #selectionMenu) ] -{ #category : 'displaying' } +{ #category : #displaying } PyramidMenuExtension >> installOn: aBuilder [ self builder: aBuilder. @@ -39,31 +37,31 @@ PyramidMenuExtension >> installOn: aBuilder [ do: [ :evt | self showMenuAt: evt ]) ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMenuExtension >> menu [ ^ menu ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMenuExtension >> menu: anObject [ menu := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMenuExtension >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMenuExtension >> projectModel: aProjectModel [ projectModel := aProjectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMenuExtension >> showMenuAt: anEvent [ | currentMenu chooseColorSubMenu | diff --git a/src/Pyramid-Bloc/PyramidMouseTransformExtension.class.st b/src/Pyramid-Bloc/PyramidMouseTransformExtension.class.st index 9020ea42..12c22af5 100644 --- a/src/Pyramid-Bloc/PyramidMouseTransformExtension.class.st +++ b/src/Pyramid-Bloc/PyramidMouseTransformExtension.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidMouseTransformExtension', - #superclass : 'Object', + #name : #PyramidMouseTransformExtension, + #superclass : #Object, #traits : 'TPyramidSpaceExtension + TPyramidEditorExtension', #classTraits : 'TPyramidSpaceExtension classTrait + TPyramidEditorExtension classTrait', #instVars : [ 'isDragging', 'origin' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'initialization' } +{ #category : #initialization } PyramidMouseTransformExtension >> initialize [ isDragging:= false. origin := 0 @ 0. ] -{ #category : 'displaying' } +{ #category : #displaying } PyramidMouseTransformExtension >> installOn: aBuilder [ self builder: aBuilder. @@ -43,25 +41,25 @@ PyramidMouseTransformExtension >> installOn: aBuilder [ do: [ :evt | self isDragging: false ]) ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMouseTransformExtension >> isDragging [ ^ isDragging ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMouseTransformExtension >> isDragging: anObject [ isDragging := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMouseTransformExtension >> origin [ ^ origin ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMouseTransformExtension >> origin: anObject [ origin := anObject diff --git a/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st b/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st index 49b007e7..4fc68ba7 100644 --- a/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMoveBackwardOrderCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidMoveBackwardOrderCommand', - #superclass : 'PyramidAbstractChangeDrawOrderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-order', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-order' + #name : #PyramidMoveBackwardOrderCommand, + #superclass : #PyramidAbstractChangeDrawOrderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveBackwardOrderCommand >> commandInverse [ ^ PyramidMoveForwardOrderCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveBackwardOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex | diff --git a/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st b/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st index d367290c..35008ed9 100644 --- a/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidMoveForwardOrderCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidMoveForwardOrderCommand', - #superclass : 'PyramidAbstractChangeDrawOrderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-order', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-order' + #name : #PyramidMoveForwardOrderCommand, + #superclass : #PyramidAbstractChangeDrawOrderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveForwardOrderCommand >> commandInverse [ ^ PyramidMoveBackwardOrderCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveForwardOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex | diff --git a/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st b/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st index ea616d0e..257fd1b4 100644 --- a/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOnBackgroundOrderCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidOnBackgroundOrderCommand', - #superclass : 'PyramidAbstractChangeDrawOrderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-order', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-order' + #name : #PyramidOnBackgroundOrderCommand, + #superclass : #PyramidAbstractChangeDrawOrderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnBackgroundOrderCommand >> commandInverse [ ^ PyramidChangeOrderWithIndexCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnBackgroundOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex parent | diff --git a/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st b/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st index ccba1923..dda01bb0 100644 --- a/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOnForegroundOrderCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidOnForegroundOrderCommand', - #superclass : 'PyramidAbstractChangeDrawOrderCommand', - #category : 'Pyramid-Bloc-plugin-bloc-order', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-order' + #name : #PyramidOnForegroundOrderCommand, + #superclass : #PyramidAbstractChangeDrawOrderCommand, + #category : #'Pyramid-Bloc-plugin-bloc-order' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnForegroundOrderCommand >> commandInverse [ ^ PyramidChangeOrderWithIndexCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnForegroundOrderCommand >> setValueFor: aBlElement with: anArgument [ | currentIndex parent | diff --git a/src/Pyramid-Bloc/PyramidOpacityCommand.class.st b/src/Pyramid-Bloc/PyramidOpacityCommand.class.st index 6c2f0181..31e02fdb 100644 --- a/src/Pyramid-Bloc/PyramidOpacityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOpacityCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidOpacityCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidOpacityCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOpacityCommand >> getValueFor: aBlElement [ ^ aBlElement opacity ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOpacityCommand >> setValueFor: aBlElement with: anArgument [ aBlElement opacity: anArgument diff --git a/src/Pyramid-Bloc/PyramidOpenFromSpacePlugin.class.st b/src/Pyramid-Bloc/PyramidOpenFromSpacePlugin.class.st index aa9dc521..60b1fd5a 100644 --- a/src/Pyramid-Bloc/PyramidOpenFromSpacePlugin.class.st +++ b/src/Pyramid-Bloc/PyramidOpenFromSpacePlugin.class.st @@ -1,35 +1,33 @@ Class { - #name : 'PyramidOpenFromSpacePlugin', - #superclass : 'Object', + #name : #PyramidOpenFromSpacePlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ 'extensions' ], - #category : 'Pyramid-Bloc-plugin-edit-on-running', - #package : 'Pyramid-Bloc', - #tag : 'plugin-edit-on-running' + #category : #'Pyramid-Bloc-plugin-edit-on-running' } -{ #category : 'adding' } +{ #category : #adding } PyramidOpenFromSpacePlugin >> addExtension: anExtension [ self extensions add: anExtension ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidOpenFromSpacePlugin >> extensions [ ^ extensions ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidOpenFromSpacePlugin >> initialize [ extensions := OrderedCollection new. ] -{ #category : 'adding' } +{ #category : #adding } PyramidOpenFromSpacePlugin >> removeExetension: anExtension [ self extensions remove: anExtension diff --git a/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st b/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st index 4ec1f879..07421899 100644 --- a/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidOutskirtsCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidOutskirtsCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-visuals', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-visuals' + #name : #PyramidOutskirtsCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-visuals' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOutskirtsCommand >> getValueFor: aBlElement [ ^ aBlElement outskirts ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 7655c9b4..50eb962e 100644 --- a/src/Pyramid-Bloc/PyramidPaddingCommand.class.st +++ b/src/Pyramid-Bloc/PyramidPaddingCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidPaddingCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidPaddingCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPaddingCommand >> getValueFor: aBlElement [ ^ aBlElement padding ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPaddingCommand >> setValueFor: aBlElement with: anArgument [ aBlElement padding: anArgument diff --git a/src/Pyramid-Bloc/PyramidPluginEditOnRunning.class.st b/src/Pyramid-Bloc/PyramidPluginEditOnRunning.class.st index 0a529d09..0200d305 100644 --- a/src/Pyramid-Bloc/PyramidPluginEditOnRunning.class.st +++ b/src/Pyramid-Bloc/PyramidPluginEditOnRunning.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidPluginEditOnRunning', - #superclass : 'Object', + #name : #PyramidPluginEditOnRunning, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ @@ -13,12 +13,10 @@ Class { 'shortcutFork', 'keyCombination' ], - #category : 'Pyramid-Bloc-plugin-edit-on-running', - #package : 'Pyramid-Bloc', - #tag : 'plugin-edit-on-running' + #category : #'Pyramid-Bloc-plugin-edit-on-running' } -{ #category : 'private' } +{ #category : #private } PyramidPluginEditOnRunning class >> addShortcutInSpace: aSpace [ (self canEditSpace: aSpace) ifFalse:[ ^ self ]. @@ -28,7 +26,7 @@ PyramidPluginEditOnRunning class >> addShortcutInSpace: aSpace [ aSpace root addShortcut: self shortcut ] -{ #category : 'testing' } +{ #category : #testing } PyramidPluginEditOnRunning class >> canEditSpace: aSpace [ aSpace ifNil:[ ^ false ]. @@ -40,13 +38,13 @@ PyramidPluginEditOnRunning class >> canEditSpace: aSpace [ ^ true ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidPluginEditOnRunning class >> cleanUp: anObject [ "do nothing" ] -{ #category : 'private' } +{ #category : #private } PyramidPluginEditOnRunning class >> doShortcutAction: anEvent [ | space editor whenClosedDo | @@ -66,19 +64,19 @@ PyramidPluginEditOnRunning class >> doShortcutAction: anEvent [ named: 'Pyramid edit-on-running plugin shortcut' ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPluginEditOnRunning class >> editOnRunning [ ^ editOnRunning ifNil: [ editOnRunning := true ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPluginEditOnRunning class >> editOnRunning: aBoolean [ editOnRunning := aBoolean ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidPluginEditOnRunning class >> install [ "Do some stuff here when the plugin used class oriented behavior" @@ -86,7 +84,7 @@ PyramidPluginEditOnRunning class >> install [ ] -{ #category : 'universe management' } +{ #category : #'universe management' } PyramidPluginEditOnRunning class >> installBlUniverseListeners [ Beacon instance @@ -95,20 +93,20 @@ PyramidPluginEditOnRunning class >> installBlUniverseListeners [ to: self ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPluginEditOnRunning class >> keyCombination [ ^ keyCombination ifNil: [ keyCombination := (BlKeyCombination builder key: KeyboardKey F12) build ] ] -{ #category : 'universe management' } +{ #category : #'universe management' } PyramidPluginEditOnRunning class >> receiveBlParallelUniverseHostSpaceSignal: anEvent [ BlSpace spaceWithId: anEvent spaceId do: [ :e | self addShortcutInSpace: e ] ] -{ #category : 'private' } +{ #category : #private } PyramidPluginEditOnRunning class >> removeShortcutInSpace: aSpace [ aSpace ifNil: [ ^ self ]. @@ -117,7 +115,7 @@ PyramidPluginEditOnRunning class >> removeShortcutInSpace: aSpace [ self spaceIds remove: aSpace id. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPluginEditOnRunning class >> shortcut [ ^ shortcut ifNil: [ @@ -127,13 +125,13 @@ PyramidPluginEditOnRunning class >> shortcut [ action: [ :event | self doShortcutAction: event ] ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPluginEditOnRunning class >> spaceIds [ ^ spaceIds ifNil: [ spaceIds := Set new ] ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidPluginEditOnRunning class >> uninstall [ "Undo some stuff here when the plugin used class oriented behavior" @@ -146,7 +144,7 @@ PyramidPluginEditOnRunning class >> uninstall [ keyCombination := nil. ] -{ #category : 'universe management' } +{ #category : #'universe management' } PyramidPluginEditOnRunning class >> uninstallBlUniverseListeners [ Beacon instance unsubscribe: self diff --git a/src/Pyramid-Bloc/PyramidPluginTestMode.class.st b/src/Pyramid-Bloc/PyramidPluginTestMode.class.st index a9f89d49..7f40cff3 100644 --- a/src/Pyramid-Bloc/PyramidPluginTestMode.class.st +++ b/src/Pyramid-Bloc/PyramidPluginTestMode.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidPluginTestMode', - #superclass : 'Object', + #name : #PyramidPluginTestMode, + #superclass : #Object, #traits : 'TPyramidPlugin + TPyramidEditorExtension', #classTraits : 'TPyramidPlugin classTrait + TPyramidEditorExtension classTrait', #instVars : [ @@ -9,12 +9,10 @@ Class { 'isTestOnGoing', 'builder' ], - #category : 'Pyramid-Bloc-plugin-testmode', - #package : 'Pyramid-Bloc', - #tag : 'plugin-testmode' + #category : #'Pyramid-Bloc-plugin-testmode' } -{ #category : 'adding' } +{ #category : #adding } PyramidPluginTestMode >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow @@ -23,19 +21,19 @@ PyramidPluginTestMode >> addPanelsOn: aPyramidSimpleWindow [ builder makeButtonWithIcon: self button order: 0 ]. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPluginTestMode >> builder [ ^ builder ] -{ #category : 'actions' } +{ #category : #actions } PyramidPluginTestMode >> button [ ^ button ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidPluginTestMode >> connectOn: aPyramidEditor [ spacePlugin := aPyramidEditor plugins @@ -46,7 +44,7 @@ PyramidPluginTestMode >> connectOn: aPyramidEditor [ ] -{ #category : 'actions' } +{ #category : #actions } PyramidPluginTestMode >> initialize [ isTestOnGoing := false. @@ -57,30 +55,30 @@ PyramidPluginTestMode >> initialize [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPluginTestMode >> isTestOnGoing [ ^ isTestOnGoing ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPluginTestMode >> isTestOnGoing: aBoolean [ isTestOnGoing := aBoolean ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPluginTestMode >> startTestIcon [ ^ Smalltalk ui icons iconNamed: #smallDoIt ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPluginTestMode >> stopTestIcon [ ^ Smalltalk ui icons iconNamed: #stop ] -{ #category : 'actions' } +{ #category : #actions } PyramidPluginTestMode >> switchToTestMode [ " if test ok diff --git a/src/Pyramid-Bloc/PyramidPositionCommand.class.st b/src/Pyramid-Bloc/PyramidPositionCommand.class.st index 6391fd82..7f586f75 100644 --- a/src/Pyramid-Bloc/PyramidPositionCommand.class.st +++ b/src/Pyramid-Bloc/PyramidPositionCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidPositionCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidPositionCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionCommand >> getValueFor: aBlElement [ ^ aBlElement constraints position ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionCommand >> setValueFor: aBlElement with: anArgument [ anArgument isPoint ifFalse: [ ^ self ]. diff --git a/src/Pyramid-Bloc/PyramidPositionExtension.class.st b/src/Pyramid-Bloc/PyramidPositionExtension.class.st index 58dfa9c4..51d75b9e 100644 --- a/src/Pyramid-Bloc/PyramidPositionExtension.class.st +++ b/src/Pyramid-Bloc/PyramidPositionExtension.class.st @@ -1,23 +1,21 @@ Class { - #name : 'PyramidPositionExtension', - #superclass : 'Object', + #name : #PyramidPositionExtension, + #superclass : #Object, #traits : 'TPyramidSpaceExtension + TPyramidEditorExtension', #classTraits : 'TPyramidSpaceExtension classTrait + TPyramidEditorExtension classTrait', #instVars : [ 'display' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidPositionExtension >> display [ ^ display. ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidPositionExtension >> initialize [ display := (0 @ 0) asRopedText asElement. @@ -27,7 +25,7 @@ PyramidPositionExtension >> initialize [ padding: (BlInsets all: 3). ] -{ #category : 'displaying' } +{ #category : #displaying } PyramidPositionExtension >> installOn: aBuilder [ self builder: aBuilder. diff --git a/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st b/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st index f1380ee8..6abce729 100644 --- a/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st +++ b/src/Pyramid-Bloc/PyramidPositionOffsetCommand.class.st @@ -1,30 +1,28 @@ Class { - #name : 'PyramidPositionOffsetCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidPositionOffsetCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionOffsetCommand >> commandInverse [ ^ PyramidPositionCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionOffsetCommand >> getValueFor: aBlElement [ ^ aBlElement constraints position ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionOffsetCommand >> saveStatesOf: aCollection with: arguments [ ^ self saveStatesWithCommandInverseOf: aCollection with: arguments ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionOffsetCommand >> setValueFor: aBlElement with: anArgument [ anArgument isPoint ifFalse: [ ^ self ]. diff --git a/src/Pyramid-Bloc/PyramidProjectModel.extension.st b/src/Pyramid-Bloc/PyramidProjectModel.extension.st index 4f1e0800..b4728115 100644 --- a/src/Pyramid-Bloc/PyramidProjectModel.extension.st +++ b/src/Pyramid-Bloc/PyramidProjectModel.extension.st @@ -1,6 +1,6 @@ -Extension { #name : 'PyramidProjectModel' } +Extension { #name : #PyramidProjectModel } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } PyramidProjectModel >> allElements [ ^ PyramidElementsManipulationHelper flattenChildrenOfCollection: diff --git a/src/Pyramid-Bloc/PyramidProportionnalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidProportionnalConstraintsCommand.class.st index 84eee83a..53652e1a 100644 --- a/src/Pyramid-Bloc/PyramidProportionnalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidProportionnalConstraintsCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidProportionnalConstraintsCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidProportionnalConstraintsCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'testing' } +{ #category : #testing } PyramidProportionnalConstraintsCommand >> canBeUsedFor: anObject [ ^ (super canBeUsedFor: anObject) and: [ diff --git a/src/Pyramid-Bloc/PyramidProportionnalHorizontalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidProportionnalHorizontalConstraintsCommand.class.st index 92e68a41..c2c85d7d 100644 --- a/src/Pyramid-Bloc/PyramidProportionnalHorizontalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidProportionnalHorizontalConstraintsCommand.class.st @@ -1,19 +1,17 @@ Class { - #name : 'PyramidProportionnalHorizontalConstraintsCommand', - #superclass : 'PyramidProportionnalConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidProportionnalHorizontalConstraintsCommand, + #superclass : #PyramidProportionnalConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalHorizontalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints proportional horizontal left @ anObject constraints proportional horizontal right ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalHorizontalConstraintsCommand >> setValueFor: anObject with: anArgument [ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidProportionnalVerticalConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidProportionnalVerticalConstraintsCommand.class.st index 57cf0d5f..8d9c142e 100644 --- a/src/Pyramid-Bloc/PyramidProportionnalVerticalConstraintsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidProportionnalVerticalConstraintsCommand.class.st @@ -1,19 +1,17 @@ Class { - #name : 'PyramidProportionnalVerticalConstraintsCommand', - #superclass : 'PyramidProportionnalConstraintsCommand', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidProportionnalVerticalConstraintsCommand, + #superclass : #PyramidProportionnalConstraintsCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalVerticalConstraintsCommand >> getValueFor: anObject [ ^ anObject constraints proportional vertical top @ anObject constraints proportional vertical bottom ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalVerticalConstraintsCommand >> setValueFor: anObject with: anArgument [ anObject constraintsDo: [ :c | diff --git a/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st b/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st index ae4e9382..05c74d6e 100644 --- a/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRedoGroupCommand.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidRedoGroupCommand', - #superclass : 'PyramidCommand', - #category : 'Pyramid-Bloc-plugin-bloc-group', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-group' + #name : #PyramidRedoGroupCommand, + #superclass : #PyramidCommand, + #category : #'Pyramid-Bloc-plugin-bloc-group' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRedoGroupCommand >> commandInverse [ ^ PyramidUndoGroupCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRedoGroupCommand >> getValueFor: aBlElement [ ^ nil ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRedoGroupCommand >> positionGroupElement: groupElement [ | currentTop currentLeft | @@ -36,7 +34,7 @@ PyramidRedoGroupCommand >> positionGroupElement: groupElement [ child constraints position - (currentLeft @ currentTop) ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRedoGroupCommand >> setValueFor: aCollectionToGroup with: aGroupModel [ | anyElementInFirstLevels | diff --git a/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st b/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st index d7e5c679..2288f8f1 100644 --- a/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveChildCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidRemoveChildCommand', - #superclass : 'PyramidChildrenCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidRemoveChildCommand, + #superclass : #PyramidChildrenCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveChildCommand >> commandInverse [ ^ PyramidAddChildCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 c6fd0c5b..95ed0fed 100644 --- a/src/Pyramid-Bloc/PyramidRemoveChildrenCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveChildrenCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidRemoveChildrenCommand', - #superclass : 'PyramidChildrenCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidRemoveChildrenCommand, + #superclass : #PyramidChildrenCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveChildrenCommand >> commandInverse [ ^ PyramidAddChildrenCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveChildrenCommand >> setValueFor: aBlElement with: aChildrenToAdd [ aBlElement addChildren: aChildrenToAdd diff --git a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st index 9d3cf099..2beae596 100644 --- a/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRemoveSelectedElementsCommand.class.st @@ -1,21 +1,19 @@ Class { - #name : 'PyramidRemoveSelectedElementsCommand', - #superclass : 'PyramidAbstractBlocCommand', + #name : #PyramidRemoveSelectedElementsCommand, + #superclass : #PyramidAbstractBlocCommand, #instVars : [ 'mementoInverse' ], - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectedElementsCommand >> getValueFor: anElementOfSelection [ ^ nil ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectedElementsCommand >> mementoFor: anElement withArguments: anArgument [ (anArgument includes: anElement) ifTrue: [ @@ -31,26 +29,26 @@ PyramidRemoveSelectedElementsCommand >> mementoFor: anElement withArguments: anA yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidRemoveSelectedElementsCommand >> mementoInverse [ ^ mementoInverse ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidRemoveSelectedElementsCommand >> mementoInverse: anObject [ mementoInverse := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 : #'as yet unclassified' } PyramidRemoveSelectedElementsCommand >> saveStatesWithCommandInverseOf: aCollection with: aRoots [ | mementos finalMemento | @@ -66,7 +64,7 @@ PyramidRemoveSelectedElementsCommand >> saveStatesWithCommandInverseOf: aCollect ^ finalMemento ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } 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 891113ec..52bc71c4 100644 --- a/src/Pyramid-Bloc/PyramidRoundedRectangleCornerRadiiCommand.class.st +++ b/src/Pyramid-Bloc/PyramidRoundedRectangleCornerRadiiCommand.class.st @@ -1,25 +1,23 @@ Class { - #name : 'PyramidRoundedRectangleCornerRadiiCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc-geometry', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-geometry' + #name : #PyramidRoundedRectangleCornerRadiiCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-geometry' } -{ #category : 'testing' } +{ #category : #testing } PyramidRoundedRectangleCornerRadiiCommand >> canBeUsedFor: anObject [ ^ (anObject class = BlElement or: [ anObject class inheritsFrom: BlElement ]) and: [ anObject geometry class = BlRoundedRectangleGeometry ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRoundedRectangleCornerRadiiCommand >> getValueFor: aBlElement [ ^ aBlElement geometry cornerRadii ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRoundedRectangleCornerRadiiCommand >> setValueFor: aBlElement with: anArgument [ aBlElement geometry: (BlRoundedRectangleGeometry cornerRadii: anArgument) diff --git a/src/Pyramid-Bloc/PyramidSaveError.class.st b/src/Pyramid-Bloc/PyramidSaveError.class.st index a1f34dfc..a26a5088 100644 --- a/src/Pyramid-Bloc/PyramidSaveError.class.st +++ b/src/Pyramid-Bloc/PyramidSaveError.class.st @@ -1,7 +1,5 @@ Class { - #name : 'PyramidSaveError', - #superclass : 'PyramidError', - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #name : #PyramidSaveError, + #superclass : #PyramidError, + #category : #'Pyramid-Bloc-plugin-save' } diff --git a/src/Pyramid-Bloc/PyramidSaveModel.class.st b/src/Pyramid-Bloc/PyramidSaveModel.class.st index 0dab998d..e449914f 100644 --- a/src/Pyramid-Bloc/PyramidSaveModel.class.st +++ b/src/Pyramid-Bloc/PyramidSaveModel.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSaveModel', - #superclass : 'Object', + #name : #PyramidSaveModel, + #superclass : #Object, #instVars : [ 'savingClassName', 'savingMethodName', @@ -9,12 +9,10 @@ Class { 'isSaved', 'projectModel' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'converting' } +{ #category : #converting } PyramidSaveModel >> asTitleString [ | string | @@ -25,7 +23,7 @@ PyramidSaveModel >> asTitleString [ ^ string ] -{ #category : 'converting' } +{ #category : #converting } PyramidSaveModel >> initialize [ isSaved := false. @@ -35,77 +33,77 @@ PyramidSaveModel >> initialize [ savingMethodName := '' ] -{ #category : 'testing' } +{ #category : #testing } PyramidSaveModel >> isClassSide [ ^ classSide ] -{ #category : 'converting' } +{ #category : #converting } PyramidSaveModel >> isSaved [ ^ isSaved ] -{ #category : 'converting' } +{ #category : #converting } PyramidSaveModel >> isSaved: aBoolean [ isSaved := aBoolean ] -{ #category : 'testing' } +{ #category : #testing } PyramidSaveModel >> onClass [ classSide := true ] -{ #category : 'testing' } +{ #category : #testing } PyramidSaveModel >> onInstance [ classSide := false ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> projectModel: anObject [ projectModel := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> savingClassName [ ^ savingClassName ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> savingClassName: anObject [ savingClassName := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> savingMethodName [ ^ savingMethodName ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> savingMethodName: anObject [ savingMethodName := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> savingPackageName [ ^ savingPackageName ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModel >> savingPackageName: anObject [ savingPackageName := anObject diff --git a/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st b/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st index b871a32f..50b6bbbd 100644 --- a/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st +++ b/src/Pyramid-Bloc/PyramidSaveModelVerifier.class.st @@ -1,17 +1,15 @@ Class { - #name : 'PyramidSaveModelVerifier', - #superclass : 'Object', + #name : #PyramidSaveModelVerifier, + #superclass : #Object, #instVars : [ 'nextVerifiers', 'showBlock', 'verifyBlock' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> classIsValid [ ^ self new @@ -21,7 +19,7 @@ PyramidSaveModelVerifier class >> classIsValid [ ] -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> classPackageIsEqual [ ^ self new @@ -45,7 +43,7 @@ PyramidSaveModelVerifier class >> classPackageIsEqual [ yourself ] -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> methodIsValid [ ^ self new @@ -55,7 +53,7 @@ PyramidSaveModelVerifier class >> methodIsValid [ ] -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> modelNotNil [ ^ self new @@ -64,7 +62,7 @@ PyramidSaveModelVerifier class >> modelNotNil [ yourself ] -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> packageIsValid [ ^ self new @@ -74,7 +72,7 @@ PyramidSaveModelVerifier class >> packageIsValid [ yourself ] -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> projectModelNotNil [ ^ self new @@ -83,7 +81,7 @@ PyramidSaveModelVerifier class >> projectModelNotNil [ yourself ] -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> verifierNoError [ ^ self modelNotNil addNext: (self projectModelNotNil addNext: @@ -91,7 +89,7 @@ PyramidSaveModelVerifier class >> verifierNoError [ (self classIsValid addNext: self classPackageIsEqual)))) ] -{ #category : 'constructor' } +{ #category : #constructor } PyramidSaveModelVerifier class >> verifierNoErrorForInputsView [ ^ self modelNotNil addNext: (self projectModelNotNil addNext: @@ -101,63 +99,63 @@ PyramidSaveModelVerifier class >> verifierNoErrorForInputsView [ (self classIsValid addNext: self classPackageIsEqual))) ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSaveModelVerifier >> addNext: aVerifier [ self nextVerifiers add: aVerifier ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveModelVerifier >> allErrors: aSaveModel [ (self verifyBlock value: aSaveModel) ifFalse: [ ^ { self } ]. ^ self nextVerifiers flatCollect: [ :each | each allErrors: aSaveModel ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveModelVerifier >> initialize [ super initialize. nextVerifiers := OrderedCollection new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveModelVerifier >> nextVerifiers [ ^ nextVerifiers ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModelVerifier >> showBlock [ ^ showBlock ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModelVerifier >> showBlock: anObject [ showBlock := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveModelVerifier >> showOn: aView [ self showBlock value: aView. ] -{ #category : 'drawing' } +{ #category : #drawing } PyramidSaveModelVerifier >> verify: aModel [ (self verifyBlock value: aModel) ifFalse: [ ^ false ]. ^ self nextVerifiers allSatisfy: [ :each | each verify: aModel ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModelVerifier >> verifyBlock [ ^ verifyBlock. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveModelVerifier >> verifyBlock: anObject [ verifyBlock := anObject diff --git a/src/Pyramid-Bloc/PyramidSavePlugin.class.st b/src/Pyramid-Bloc/PyramidSavePlugin.class.st index bb91441c..8d55f178 100644 --- a/src/Pyramid-Bloc/PyramidSavePlugin.class.st +++ b/src/Pyramid-Bloc/PyramidSavePlugin.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSavePlugin', - #superclass : 'Object', + #name : #PyramidSavePlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ @@ -12,12 +12,10 @@ Class { 'saveButton', 'projectModel' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'instance creation' } +{ #category : #'instance creation' } PyramidSavePlugin class >> openOn: aCollectionOfBlElement saveModel: aSaveModel [ | editor savePlugin | @@ -32,7 +30,7 @@ PyramidSavePlugin class >> openOn: aCollectionOfBlElement saveModel: aSaveModel editor open ] -{ #category : 'adding' } +{ #category : #adding } PyramidSavePlugin >> addPanelsOn: aPyramidSimpleWindow [ self inputsController editorWindow: aPyramidSimpleWindow. @@ -47,7 +45,7 @@ PyramidSavePlugin >> addPanelsOn: aPyramidSimpleWindow [ builder makeButtonWithIcon: self inputsButton order: 2 ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidSavePlugin >> connectOn: aPyramidEditor [ self projectModel: aPyramidEditor projectModel. @@ -56,7 +54,7 @@ PyramidSavePlugin >> connectOn: aPyramidEditor [ ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSavePlugin >> initialize [ inputsController := PyramidSaveProjectConfigurationController new. @@ -84,25 +82,25 @@ PyramidSavePlugin >> initialize [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> inputsButton [ ^ inputsButton ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> inputsController [ ^ inputsController ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> inputsView [ ^ inputsView ] -{ #category : 'instance creation' } +{ #category : #'instance creation' } PyramidSavePlugin >> openOn: aSaveModel [ "self inputsView inputClass text: aSaveModel savingClassName. self inputsView inputMethod text: aSaveModel savingMethodName. @@ -118,20 +116,20 @@ PyramidSavePlugin >> openOn: aSaveModel [ ifFalse: [ self inputsView buttonInstance click ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> projectModel: aPyramidProjectModel [ projectModel := aPyramidProjectModel. self inputsController updateView ] -{ #category : 'actions' } +{ #category : #actions } PyramidSavePlugin >> saveAction [ "Action executed by a save button from UI, this method catch exceptions when needed to doesn't expose directly a debugger but an info window" @@ -160,19 +158,19 @@ PyramidSavePlugin >> saveAction [ ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> saveButton [ ^ saveButton ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> saveModel [ ^ saveModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavePlugin >> savingService [ ^ savingService diff --git a/src/Pyramid-Bloc/PyramidSaveProjectConfigurationController.class.st b/src/Pyramid-Bloc/PyramidSaveProjectConfigurationController.class.st index 86dacf30..944e1a3e 100644 --- a/src/Pyramid-Bloc/PyramidSaveProjectConfigurationController.class.st +++ b/src/Pyramid-Bloc/PyramidSaveProjectConfigurationController.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidSaveProjectConfigurationController', - #superclass : 'Object', + #name : #PyramidSaveProjectConfigurationController, + #superclass : #Object, #instVars : [ 'view', 'saveModel', 'verifier', 'editorWindow' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'tests' } +{ #category : #tests } PyramidSaveProjectConfigurationController >> browseProjectClass [ | class | @@ -33,26 +31,26 @@ PyramidSaveProjectConfigurationController >> browseProjectClass [ selector: self saveModel savingMethodName ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationController >> editorWindow [ ^ editorWindow ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationController >> editorWindow: anObject [ editorWindow := anObject ] -{ #category : 'testing' } +{ #category : #testing } PyramidSaveProjectConfigurationController >> isSaved [ self saveModel isSaved: true. self updateWindowTitle ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> projectModel: aProjectModel [ aProjectModel announcer @@ -65,7 +63,7 @@ PyramidSaveProjectConfigurationController >> projectModel: aProjectModel [ for: self. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> radioUpdatedOnClassSide: aBoolean [ aBoolean @@ -74,14 +72,14 @@ PyramidSaveProjectConfigurationController >> radioUpdatedOnClassSide: aBoolean [ self updateView ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationController >> saveModel [ saveModel ifNil: [ saveModel := PyramidSaveModel new ]. ^ saveModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationController >> saveModel: aPyramidSaveModel [ saveModel := aPyramidSaveModel. @@ -89,7 +87,7 @@ PyramidSaveProjectConfigurationController >> saveModel: aPyramidSaveModel [ self updateView ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> textUpdatedFromClass: aString [ self saveModel savingClassName: aString. @@ -97,7 +95,7 @@ PyramidSaveProjectConfigurationController >> textUpdatedFromClass: aString [ self updateView ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> textUpdatedFromMethod: aString [ self saveModel savingMethodName: aString. @@ -105,7 +103,7 @@ PyramidSaveProjectConfigurationController >> textUpdatedFromMethod: aString [ self updateView ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> textUpdatedFromPackage: aString [ self saveModel savingPackageName: aString. @@ -113,14 +111,14 @@ PyramidSaveProjectConfigurationController >> textUpdatedFromPackage: aString [ self updateView ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> updateSaveState: anEvent [ self saveModel isSaved: false. self updateWindowTitle ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> updateView [ | errors | @@ -131,7 +129,7 @@ PyramidSaveProjectConfigurationController >> updateView [ self updateWindowTitleWithErrors: errors ] -{ #category : 'testing' } +{ #category : #testing } PyramidSaveProjectConfigurationController >> updateWindowTitle [ | errors | @@ -139,7 +137,7 @@ PyramidSaveProjectConfigurationController >> updateWindowTitle [ self updateWindowTitleWithErrors: errors ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationController >> updateWindowTitleWithErrors: aCollection [ | title | @@ -150,7 +148,7 @@ PyramidSaveProjectConfigurationController >> updateWindowTitleWithErrors: aColle self editorWindow title: title ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationController >> verifier [ verifier ifNil: [ @@ -158,7 +156,7 @@ PyramidSaveProjectConfigurationController >> verifier [ ^ verifier ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationController >> view [ view ifNil: [ @@ -169,7 +167,7 @@ PyramidSaveProjectConfigurationController >> view [ ^ view ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationController >> view: anObject [ view := anObject diff --git a/src/Pyramid-Bloc/PyramidSaveProjectConfigurationView.class.st b/src/Pyramid-Bloc/PyramidSaveProjectConfigurationView.class.st index 94d1cc54..bd0f2bd4 100644 --- a/src/Pyramid-Bloc/PyramidSaveProjectConfigurationView.class.st +++ b/src/Pyramid-Bloc/PyramidSaveProjectConfigurationView.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSaveProjectConfigurationView', - #superclass : 'SpPresenter', + #name : #PyramidSaveProjectConfigurationView, + #superclass : #SpPresenter, #instVars : [ 'inputPackage', 'inputClass', @@ -16,30 +16,28 @@ Class { 'shouldTriggerEvent', 'openSettingsLink' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'layout' } +{ #category : #layout } PyramidSaveProjectConfigurationView >> buttonBrowse [ ^ buttonBrowse ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> buttonClass [ ^ buttonClass ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> buttonInstance [ ^ buttonInstance ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> controller [ controller ifNil: [ @@ -49,12 +47,12 @@ PyramidSaveProjectConfigurationView >> controller [ ^ controller ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> controller: aPySaveFormController [ controller := aPySaveFormController ] -{ #category : 'layout' } +{ #category : #layout } PyramidSaveProjectConfigurationView >> defaultLayout [ ^ SpBoxLayout newVertical @@ -98,24 +96,24 @@ PyramidSaveProjectConfigurationView >> defaultLayout [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> hideLabelClass [ self labelErrorClass label: ''. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> hideLabelMethod [ self labelErrorMethod label: '' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> hideLabelPackage [ self labelErrorPackage label: '' ] -{ #category : 'configuration' } +{ #category : #configuration } PyramidSaveProjectConfigurationView >> hideLabels [ self labelErrorClass label: ''. @@ -123,7 +121,7 @@ PyramidSaveProjectConfigurationView >> hideLabels [ self labelErrorPackage label: ''. ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSaveProjectConfigurationView >> initializePresenters [ shouldTriggerEvent := true. @@ -176,58 +174,58 @@ PyramidSaveProjectConfigurationView >> initializePresenters [ self openSettingsBrowser ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> inputClass [ ^ inputClass ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> inputMethod [ ^ inputMethod ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> inputPackage [ ^ inputPackage ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> labelErrorClass [ ^ labelErrorClass ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> labelErrorMethod [ ^ labelErrorMethod ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> labelErrorPackage [ ^ labelErrorPackage ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> model [ saveModel ifNil: [ saveModel := PyramidSaveModel new yourself ]. ^ saveModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> model: aPySaveModel [ saveModel := aPySaveModel. self updateFromModelWithoutEvents ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSaveProjectConfigurationView >> openSettingsBrowser [ | browser | @@ -237,39 +235,39 @@ PyramidSaveProjectConfigurationView >> openSettingsBrowser [ browser expandAll ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> openSettingsLink [ ^ openSettingsLink ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> saveModel [ saveModel ifNil: [ saveModel := PyramidSaveModel new yourself ]. ^ saveModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> saveModel: aPySaveModel [ saveModel := aPySaveModel. self updateFromModelWithoutEvents ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> shouldTriggerEvent [ ^ shouldTriggerEvent ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSaveProjectConfigurationView >> shouldTriggerEvent: aBoolean [ shouldTriggerEvent := aBoolean ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> showClassIsNotValidError [ self labelErrorClass @@ -277,7 +275,7 @@ PyramidSaveProjectConfigurationView >> showClassIsNotValidError [ label: 'Class name is not valid.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> showClassPackageIsNotEqualError [ self labelErrorClass @@ -285,7 +283,7 @@ PyramidSaveProjectConfigurationView >> showClassPackageIsNotEqualError [ label: 'This class already exist in another package.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> showMethodIsNotValidError [ self labelErrorMethod @@ -293,7 +291,7 @@ PyramidSaveProjectConfigurationView >> showMethodIsNotValidError [ label: 'Method name is not valid.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> showModelNilError [ self labelErrorPackage @@ -301,7 +299,7 @@ PyramidSaveProjectConfigurationView >> showModelNilError [ label: 'No model available.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> showPackageIsNotValidError [ self labelErrorPackage @@ -309,7 +307,7 @@ PyramidSaveProjectConfigurationView >> showPackageIsNotValidError [ label: 'Package name is not valid.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> showProjectModelNilError [ self labelErrorPackage @@ -317,7 +315,7 @@ PyramidSaveProjectConfigurationView >> showProjectModelNilError [ label: 'No project loaded.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSaveProjectConfigurationView >> updateFromModelWithoutEvents [ self shouldTriggerEvent: false. diff --git a/src/Pyramid-Bloc/PyramidSavingMethodBuilder.class.st b/src/Pyramid-Bloc/PyramidSavingMethodBuilder.class.st index e0c28d6b..23c868ba 100644 --- a/src/Pyramid-Bloc/PyramidSavingMethodBuilder.class.st +++ b/src/Pyramid-Bloc/PyramidSavingMethodBuilder.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSavingMethodBuilder', - #superclass : 'Object', + #name : #PyramidSavingMethodBuilder, + #superclass : #Object, #instVars : [ 'classifier', 'comment', @@ -11,12 +11,10 @@ Class { 'stash', 'ston' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'instance creation' } +{ #category : #'instance creation' } PyramidSavingMethodBuilder >> build: aSaveModel [ | result | @@ -36,55 +34,55 @@ PyramidSavingMethodBuilder >> build: aSaveModel [ ^ result ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> classifier [ ^ classifier ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> classifier: anObject [ classifier := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> comment [ ^ comment ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> comment: anObject [ comment := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> pragma [ ^ pragma ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> pragma: anObject [ pragma := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> serializeBlock [ ^ serializeBlock ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingMethodBuilder >> serializeBlock: anObject [ serializeBlock := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSavingMethodBuilder >> serializedString: aSaveModel [ | roots | diff --git a/src/Pyramid-Bloc/PyramidSavingService.class.st b/src/Pyramid-Bloc/PyramidSavingService.class.st index 5d1ab4f0..488da55c 100644 --- a/src/Pyramid-Bloc/PyramidSavingService.class.st +++ b/src/Pyramid-Bloc/PyramidSavingService.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSavingService', - #superclass : 'Object', + #name : #PyramidSavingService, + #superclass : #Object, #instVars : [ 'saveModel', 'verifier' @@ -11,12 +11,10 @@ Class { 'ston', 'currentMethodBuilderSelector' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSavingService class >> allSaveMethodBuilders [ ^ (Pragma allNamed: #pyramidSaveMethodBuilder:) collect: [ :pragma | pragma arguments first -> pragma methodSelector ] @@ -24,26 +22,26 @@ PyramidSavingService class >> allSaveMethodBuilders [ ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSavingService class >> currentMethodBuilder [ ^ self perform: self currentMethodBuilderSelector ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingService class >> currentMethodBuilderSelector [ currentMethodBuilderSelector ifNil: [ currentMethodBuilderSelector := #stash ]. ^ currentMethodBuilderSelector ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingService class >> currentMethodBuilderSelector: anObject [ currentMethodBuilderSelector := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSavingService class >> saveMethodBuilderSettingOn: aBuilder [ @@ -57,7 +55,7 @@ PyramidSavingService class >> saveMethodBuilderSettingOn: aBuilder [ 'Change the serialization format when saving a project.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSavingService class >> stash [ @@ -75,7 +73,7 @@ PyramidSavingService class >> stash [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSavingService class >> ston [ @@ -93,7 +91,7 @@ PyramidSavingService class >> ston [ yourself ] -{ #category : 'testing' } +{ #category : #testing } PyramidSavingService >> canSave [ "Verify: - savingModel is not nil @@ -104,19 +102,19 @@ PyramidSavingService >> canSave [ ^ self verifier verify: self saveModel ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSavingService >> errorCannotSave [ PyramidSaveError signal: 'Cannot save with given model. Check canSave method to more explenation.' ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingService >> methodBuilder [ ^ self class currentMethodBuilder ] -{ #category : 'testing' } +{ #category : #testing } PyramidSavingService >> save [ | class | @@ -134,19 +132,19 @@ PyramidSavingService >> save [ classified: self methodBuilder classifier ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingService >> saveModel [ ^ saveModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingService >> saveModel: anObject [ saveModel := anObject ] -{ #category : 'tests' } +{ #category : #tests } PyramidSavingService >> savingClass [ | class | @@ -159,20 +157,20 @@ PyramidSavingService >> savingClass [ package: self saveModel savingPackageName ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidSavingService >> savingMethod [ ^ self methodBuilder build: self saveModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingService >> verifier [ verifier ifNil: [ verifier := PyramidSaveModelVerifier verifierNoError ]. ^ verifier ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSavingService >> verifier: aVerifier [ verifier := aVerifier diff --git a/src/Pyramid-Bloc/PyramidSelectionMakerExtension.class.st b/src/Pyramid-Bloc/PyramidSelectionMakerExtension.class.st index 92f15bb1..83cdf240 100644 --- a/src/Pyramid-Bloc/PyramidSelectionMakerExtension.class.st +++ b/src/Pyramid-Bloc/PyramidSelectionMakerExtension.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSelectionMakerExtension', - #superclass : 'Object', + #name : #PyramidSelectionMakerExtension, + #superclass : #Object, #traits : 'TPyramidSpaceExtension + TPyramidEditorExtension + TPyramidKeyboardExtension', #classTraits : 'TPyramidSpaceExtension classTrait + TPyramidEditorExtension classTrait + TPyramidKeyboardExtension classTrait', #instVars : [ @@ -9,12 +9,10 @@ Class { 'dragOrigin', 'projectModel' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionMakerExtension >> computeAdditiveSelection: aCollection [ | newSelection | @@ -23,7 +21,7 @@ PyramidSelectionMakerExtension >> computeAdditiveSelection: aCollection [ self projectModel selection replaceAll: newSelection ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionMakerExtension >> computeExclusifSelection: aCollection [ | newSelection oldCollection | @@ -33,14 +31,14 @@ PyramidSelectionMakerExtension >> computeExclusifSelection: aCollection [ self projectModel selection replaceAll: newSelection ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionMakerExtension >> computeNormalSelection: aCollection [ self projectModel ifNil: [ ^ self ]. self projectModel setSelection: aCollection ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionMakerExtension >> computeSelection: anEvent [ | collection | @@ -57,7 +55,7 @@ PyramidSelectionMakerExtension >> computeSelection: anEvent [ self computeNormalSelection: collection ] -{ #category : 'event handling' } +{ #category : #'event handling' } PyramidSelectionMakerExtension >> dragEnd: anEvent [ self isDragging: false. @@ -65,7 +63,7 @@ PyramidSelectionMakerExtension >> dragEnd: anEvent [ self selectionGhost visibility: BlVisibility gone ] -{ #category : 'event handling' } +{ #category : #'event handling' } PyramidSelectionMakerExtension >> dragEvent: anEvent [ | xmin ymin | @@ -82,19 +80,19 @@ PyramidSelectionMakerExtension >> dragEvent: anEvent [ size: (anEvent position - self dragOrigin) abs ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionMakerExtension >> dragOrigin [ ^ dragOrigin ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionMakerExtension >> dragOrigin: anObject [ dragOrigin := anObject ] -{ #category : 'event handling' } +{ #category : #'event handling' } PyramidSelectionMakerExtension >> dragStart: anEvent [ self isDragging: true. @@ -106,7 +104,7 @@ PyramidSelectionMakerExtension >> dragStart: anEvent [ visibility: BlVisibility visible ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSelectionMakerExtension >> initialize [ isDragging := false. @@ -117,7 +115,7 @@ PyramidSelectionMakerExtension >> initialize [ yourself ] -{ #category : 'displaying' } +{ #category : #displaying } PyramidSelectionMakerExtension >> installOn: aBuilder [ self builder: aBuilder. @@ -142,25 +140,25 @@ PyramidSelectionMakerExtension >> installOn: aBuilder [ do: [ :evt | self dragEnd: evt ]) ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionMakerExtension >> isDragging [ ^ isDragging ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionMakerExtension >> isDragging: anObject [ isDragging := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionMakerExtension >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionMakerExtension >> projectModel: aProjectModel [ projectModel := aProjectModel @@ -168,7 +166,7 @@ PyramidSelectionMakerExtension >> projectModel: aProjectModel [ ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionMakerExtension >> selectAllElementsInBound: aBound [ @@ -177,7 +175,7 @@ PyramidSelectionMakerExtension >> selectAllElementsInBound: aBound [ aBound containsRect: each boundsInSpace ]. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionMakerExtension >> selectFirstElementAt: aPosition [ | selectedElements | @@ -188,7 +186,7 @@ PyramidSelectionMakerExtension >> selectFirstElementAt: aPosition [ ^ { selectedElements last } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionMakerExtension >> selectionGhost [ ^ selectionGhost diff --git a/src/Pyramid-Bloc/PyramidSelectionWidgetBorderBuilder.class.st b/src/Pyramid-Bloc/PyramidSelectionWidgetBorderBuilder.class.st index 65c7209a..2c844fb7 100644 --- a/src/Pyramid-Bloc/PyramidSelectionWidgetBorderBuilder.class.st +++ b/src/Pyramid-Bloc/PyramidSelectionWidgetBorderBuilder.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidSelectionWidgetBorderBuilder', - #superclass : 'Object', - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #name : #PyramidSelectionWidgetBorderBuilder, + #superclass : #Object, + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> borderElementWithMainColor: aMainColor andSecondaryColor: aSecondaryColor [ ^ BlElement new @@ -19,7 +17,7 @@ PyramidSelectionWidgetBorderBuilder >> borderElementWithMainColor: aMainColor an yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> bottomChild [ ^ (self borderElementWithMainColor: self mainOtherColor andSecondaryColor: self secondaryOtherColor) @@ -29,7 +27,7 @@ PyramidSelectionWidgetBorderBuilder >> bottomChild [ c frame vertical alignBottom ] ] -{ #category : 'building' } +{ #category : #building } PyramidSelectionWidgetBorderBuilder >> build [ ^ BlElement new @@ -46,19 +44,19 @@ PyramidSelectionWidgetBorderBuilder >> build [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> defaultDashArray [ ^ #( 3 7 ) ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetBorderBuilder >> defaultWidth [ ^ 2 ] -{ #category : 'user interface' } +{ #category : #'user interface' } PyramidSelectionWidgetBorderBuilder >> labelWithColor: aColor [. ^ BlTextElement new @@ -69,7 +67,7 @@ PyramidSelectionWidgetBorderBuilder >> labelWithColor: aColor [. yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> leftChild [ | leftChild | @@ -85,7 +83,7 @@ PyramidSelectionWidgetBorderBuilder >> leftChild [ ^ leftChild ] -{ #category : 'user interface' } +{ #category : #'user interface' } PyramidSelectionWidgetBorderBuilder >> leftLabelFor: aBlElement [ | label | @@ -103,25 +101,25 @@ PyramidSelectionWidgetBorderBuilder >> leftLabelFor: aBlElement [ ^ label ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> mainLeftColor [ ^ Color green ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> mainOtherColor [ ^ Color yellow ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> mainTopColor [ ^ Color red ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> rightChild [ ^ (self borderElementWithMainColor: self mainOtherColor andSecondaryColor: self secondaryOtherColor) @@ -131,25 +129,25 @@ PyramidSelectionWidgetBorderBuilder >> rightChild [ c frame horizontal alignRight ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> secondaryLeftColor [ ^ self mainLeftColor muchDarker ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> secondaryOtherColor [ ^ self mainOtherColor muchDarker ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> secondaryTopColor [ ^ self mainTopColor muchDarker ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetBorderBuilder >> topChild [ | topChild | @@ -165,7 +163,7 @@ PyramidSelectionWidgetBorderBuilder >> topChild [ ^ topChild ] -{ #category : 'user interface' } +{ #category : #'user interface' } PyramidSelectionWidgetBorderBuilder >> topLabelFor: aBlElement [ | label | diff --git a/src/Pyramid-Bloc/PyramidSelectionWidgetExtension.class.st b/src/Pyramid-Bloc/PyramidSelectionWidgetExtension.class.st index cc52dc9a..b2c83350 100644 --- a/src/Pyramid-Bloc/PyramidSelectionWidgetExtension.class.st +++ b/src/Pyramid-Bloc/PyramidSelectionWidgetExtension.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSelectionWidgetExtension', - #superclass : 'Object', + #name : #PyramidSelectionWidgetExtension, + #superclass : #Object, #traits : 'TPyramidSpaceExtension + TPyramidEditorExtension + TPyramidEditorTransformationObserver', #classTraits : 'TPyramidSpaceExtension classTrait + TPyramidEditorExtension classTrait + TPyramidEditorTransformationObserver classTrait', #instVars : [ @@ -10,18 +10,16 @@ Class { 'isDragging', 'dragOrigin' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetExtension >> alphaFactor [ ^ 0.5 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetExtension >> centerDragEnd: anEvent [ anEvent consumed: true. @@ -34,7 +32,7 @@ PyramidSelectionWidgetExtension >> centerDragEnd: anEvent [ ifFound: [ :ghost | ghost visibility: BlVisibility hidden ] ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetExtension >> centerDragEvent: anEvent [ self isDragging ifFalse: [ ^ self ]. @@ -46,7 +44,7 @@ PyramidSelectionWidgetExtension >> centerDragEvent: anEvent [ anEvent consumed: true ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetExtension >> centerDragStart: anEvent [ self isDragging: true. @@ -58,43 +56,43 @@ PyramidSelectionWidgetExtension >> centerDragStart: anEvent [ ifFound: [ :ghost | ghost visibility: BlVisibility visible ] ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> commandExecutor [ ^ commandExecutor ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> commandExecutor: anObject [ commandExecutor := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> dragOrigin [ ^ dragOrigin ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> dragOrigin: anObject [ dragOrigin := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> editor: aPyramidEditor [ self commandExecutor: aPyramidEditor propertiesManager commandExecutor ] -{ #category : 'events' } +{ #category : #events } PyramidSelectionWidgetExtension >> informTransformationChanged [ self widgetElement position: self currentTransformTranslation ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSelectionWidgetExtension >> initialize [ widgetElement := BlElement new @@ -105,7 +103,7 @@ PyramidSelectionWidgetExtension >> initialize [ isDragging := false ] -{ #category : 'displaying' } +{ #category : #displaying } PyramidSelectionWidgetExtension >> installOn: aBuilder [ self builder: aBuilder. @@ -113,19 +111,19 @@ PyramidSelectionWidgetExtension >> installOn: aBuilder [ self elementAtWidgets addChild: self widgetElement ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> isDragging [ ^ isDragging ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> isDragging: anObject [ isDragging := anObject ] -{ #category : 'selection element' } +{ #category : #'selection element' } PyramidSelectionWidgetExtension >> makeMonoSelectionFor: aBlElement [ | monoSelection eventElement dragGhostElement borderElement | @@ -165,7 +163,7 @@ PyramidSelectionWidgetExtension >> makeMonoSelectionFor: aBlElement [ ^ monoSelection ] -{ #category : 'selection' } +{ #category : #selection } PyramidSelectionWidgetExtension >> makeNewSelection [ | nb | @@ -178,18 +176,18 @@ PyramidSelectionWidgetExtension >> makeNewSelection [ ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetExtension >> offset [ ^ 10 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> projectModel: aProjectModel [ projectModel := aProjectModel. @@ -200,14 +198,14 @@ PyramidSelectionWidgetExtension >> projectModel: aProjectModel [ self makeNewSelection ] -{ #category : 'events' } +{ #category : #events } PyramidSelectionWidgetExtension >> pyramidSelectionChanged: anEvent [ self removeSelection. self makeNewSelection ] -{ #category : 'selection element' } +{ #category : #'selection element' } PyramidSelectionWidgetExtension >> removeMonoSelections: aBlElementSelectionDecoration [ "get all BlOverlayElement" @@ -220,7 +218,7 @@ PyramidSelectionWidgetExtension >> removeMonoSelections: aBlElementSelectionDeco ] -{ #category : 'selection' } +{ #category : #selection } PyramidSelectionWidgetExtension >> removeSelection [ (self widgetElement childrenCount > 0) ifFalse:[ ^ self ]. @@ -229,7 +227,7 @@ PyramidSelectionWidgetExtension >> removeSelection [ self widgetElement removeChildren. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSelectionWidgetExtension >> usePositionOffsetCommand: aPosition [ self commandExecutor @@ -238,7 +236,7 @@ PyramidSelectionWidgetExtension >> usePositionOffsetCommand: aPosition [ with: aPosition ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSelectionWidgetExtension >> widgetElement [ ^ widgetElement diff --git a/src/Pyramid-Bloc/PyramidSpaceBuilder.class.st b/src/Pyramid-Bloc/PyramidSpaceBuilder.class.st index 6613ef63..9e3ed14f 100644 --- a/src/Pyramid-Bloc/PyramidSpaceBuilder.class.st +++ b/src/Pyramid-Bloc/PyramidSpaceBuilder.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSpaceBuilder', - #superclass : 'Object', + #name : #PyramidSpaceBuilder, + #superclass : #Object, #traits : 'TPyramidEditorTransformation + TPyramidEditorSpaceIsReady', #classTraits : 'TPyramidEditorTransformation classTrait + TPyramidEditorSpaceIsReady classTrait', #instVars : [ @@ -13,12 +13,10 @@ Class { #classInstVars : [ 'defaultEditorExtensions' ], - #category : 'Pyramid-Bloc-plugin-space', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space' + #category : #'Pyramid-Bloc-plugin-space' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSpaceBuilder class >> defaultEditorBuilder [ > defaultEditorBuilder [ ^ builder ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder class >> defaultEditorExtensions [ @@ -56,20 +54,20 @@ PyramidSpaceBuilder class >> defaultEditorExtensions [ ^ defaultEditorExtensions ] -{ #category : 'adding' } +{ #category : #adding } PyramidSpaceBuilder >> addAllOverlaysNamed: aCollection [ aCollection reverseDo: [ :each | self addOverlayNamed: each ] ] -{ #category : 'adding' } +{ #category : #adding } PyramidSpaceBuilder >> addExtension: anExtension [ anExtension installOn: self. self extensions add: anExtension ] -{ #category : 'adding' } +{ #category : #adding } PyramidSpaceBuilder >> addOverlayNamed: aString [ | overlay | @@ -88,7 +86,7 @@ PyramidSpaceBuilder >> addOverlayNamed: aString [ self topMostOverlay: overlay ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSpaceBuilder >> build [ self space: BlSpace new. @@ -109,7 +107,7 @@ PyramidSpaceBuilder >> build [ ^ self space ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> editor: aPyramidEditor [ self extensions do: [ :each | each editor: aPyramidEditor ]. @@ -117,18 +115,18 @@ PyramidSpaceBuilder >> editor: aPyramidEditor [ each projectModel: aPyramidEditor projectModel ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> elementAt: aString [ ^ (self overlays at: aString) element ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> extensions [ ^ extensions ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSpaceBuilder >> initialize [ overlays := Dictionary new. @@ -136,36 +134,36 @@ PyramidSpaceBuilder >> initialize [ extensions := Set new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> keyboard [ ^ keyboard ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSpaceBuilder >> overlays [ ^ overlays ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> space [ ^ space ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> space: anObject [ space := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> topMostOverlay [ ^ topMostOverlay ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceBuilder >> topMostOverlay: anObject [ topMostOverlay := anObject diff --git a/src/Pyramid-Bloc/PyramidSpaceContainer.class.st b/src/Pyramid-Bloc/PyramidSpaceContainer.class.st index 01a39df4..3cd2a410 100644 --- a/src/Pyramid-Bloc/PyramidSpaceContainer.class.st +++ b/src/Pyramid-Bloc/PyramidSpaceContainer.class.st @@ -1,34 +1,32 @@ Class { - #name : 'PyramidSpaceContainer', - #superclass : 'Object', + #name : #PyramidSpaceContainer, + #superclass : #Object, #instVars : [ 'element' ], - #category : 'Pyramid-Bloc-plugin-space', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space' + #category : #'Pyramid-Bloc-plugin-space' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSpaceContainer >> buildOn: aBlElement [ self element parent ifNotNil: [ :p | p removeChild: self element ]. aBlElement addChild: self element ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceContainer >> element [ ^ element ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceContainer >> element: anObject [ element := anObject ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSpaceContainer >> initialize [ element := (BlElement id: (self class name asSymbol)) diff --git a/src/Pyramid-Bloc/PyramidSpaceMainOverlay.class.st b/src/Pyramid-Bloc/PyramidSpaceMainOverlay.class.st index 81b31d71..31fca502 100644 --- a/src/Pyramid-Bloc/PyramidSpaceMainOverlay.class.st +++ b/src/Pyramid-Bloc/PyramidSpaceMainOverlay.class.st @@ -1,7 +1,5 @@ Class { - #name : 'PyramidSpaceMainOverlay', - #superclass : 'PyramidSpaceContainer', - #category : 'Pyramid-Bloc-plugin-space', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space' + #name : #PyramidSpaceMainOverlay, + #superclass : #PyramidSpaceContainer, + #category : #'Pyramid-Bloc-plugin-space' } diff --git a/src/Pyramid-Bloc/PyramidSpaceOverlayDecorator.class.st b/src/Pyramid-Bloc/PyramidSpaceOverlayDecorator.class.st index a1a0fa63..f7d6e9e4 100644 --- a/src/Pyramid-Bloc/PyramidSpaceOverlayDecorator.class.st +++ b/src/Pyramid-Bloc/PyramidSpaceOverlayDecorator.class.st @@ -1,28 +1,26 @@ Class { - #name : 'PyramidSpaceOverlayDecorator', - #superclass : 'PyramidSpaceContainer', + #name : #PyramidSpaceOverlayDecorator, + #superclass : #PyramidSpaceContainer, #instVars : [ 'wrappee' ], - #category : 'Pyramid-Bloc-plugin-space', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space' + #category : #'Pyramid-Bloc-plugin-space' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSpaceOverlayDecorator >> buildOn: aBlElement [ super buildOn: aBlElement. self wrappee buildOn: self element ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceOverlayDecorator >> wrappee [ ^ wrappee ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpaceOverlayDecorator >> wrappee: anObject [ wrappee := anObject diff --git a/src/Pyramid-Bloc/PyramidSpacePlugin.class.st b/src/Pyramid-Bloc/PyramidSpacePlugin.class.st index 3bd68cf4..8a92b424 100644 --- a/src/Pyramid-Bloc/PyramidSpacePlugin.class.st +++ b/src/Pyramid-Bloc/PyramidSpacePlugin.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidSpacePlugin', - #superclass : 'Object', + #name : #PyramidSpacePlugin, + #superclass : #Object, #traits : 'TPyramidPlugin', #classTraits : 'TPyramidPlugin classTrait', #instVars : [ @@ -8,12 +8,10 @@ Class { 'morphicPresenter', 'resetSpaceButton' ], - #category : 'Pyramid-Bloc-plugin-space', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space' + #category : #'Pyramid-Bloc-plugin-space' } -{ #category : 'adding' } +{ #category : #adding } PyramidSpacePlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow @@ -24,19 +22,19 @@ PyramidSpacePlugin >> addPanelsOn: aPyramidSimpleWindow [ panelMaker makeButtonWithIcon: self resetSpaceButton order: 5 ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpacePlugin >> builder [ ^ builder ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidSpacePlugin >> connectOn: aPyramidEditor [ builder editor: aPyramidEditor. self resetSpace ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSpacePlugin >> initialize [ builder := PyramidSpaceBuilder defaultEditorBuilder. @@ -48,7 +46,7 @@ PyramidSpacePlugin >> initialize [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSpacePlugin >> makePresenterWithBlSpace: aBlSpace [ | morph host | @@ -71,12 +69,12 @@ PyramidSpacePlugin >> makePresenterWithBlSpace: aBlSpace [ self morphicPresenter whenDisplayDo: [ aBlSpace show ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpacePlugin >> morphicPresenter [ ^ morphicPresenter ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSpacePlugin >> resetSpace [ | space | @@ -85,12 +83,12 @@ PyramidSpacePlugin >> resetSpace [ space show ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSpacePlugin >> resetSpaceButton [ ^ resetSpaceButton ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSpacePlugin >> updateMorphInCaseOfFaillure: aMorph [ aMorph addMorph: diff --git a/src/Pyramid-Bloc/PyramidSwitchInputPresenter.class.st b/src/Pyramid-Bloc/PyramidSwitchInputPresenter.class.st index 9b7a87d9..f008e1a4 100644 --- a/src/Pyramid-Bloc/PyramidSwitchInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidSwitchInputPresenter.class.st @@ -3,19 +3,17 @@ i can show and edit boolean. i have a uncertain state. In uncertain state i can not be edited " Class { - #name : 'PyramidSwitchInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidSwitchInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'button', 'state', 'whenValueChangedDo' ], - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidSwitchInputPresenter class >> blocToggleOff [ ^ [ "BlStashSerializer" @@ -56,7 +54,7 @@ PyramidSwitchInputPresenter class >> blocToggleOff [ ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidSwitchInputPresenter class >> blocToggleOn [ ^ [ "BlStashSerializer" @@ -97,7 +95,7 @@ PyramidSwitchInputPresenter class >> blocToggleOn [ ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidSwitchInputPresenter class >> blocToggleUncertain [ ^ [ "BlStashSerializer" @@ -138,7 +136,7 @@ PyramidSwitchInputPresenter class >> blocToggleUncertain [ ] value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenter class >> formToggleOff [ ^ (BlElement new @@ -147,7 +145,7 @@ PyramidSwitchInputPresenter class >> formToggleOff [ exportAsForm ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenter class >> formToggleOn [ ^ (BlElement new @@ -156,7 +154,7 @@ PyramidSwitchInputPresenter class >> formToggleOn [ exportAsForm ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenter class >> formToggleUncertain [ ^ (BlElement new @@ -165,26 +163,26 @@ PyramidSwitchInputPresenter class >> formToggleUncertain [ exportAsForm ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenter class >> stringsClass [ ^ PyramidSwitchInputStrings ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenter >> applyStrings [ self button help: self strings help. self button label: self strings offLabel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenter >> button [ ^ button ] -{ #category : 'layout' } +{ #category : #layout } PyramidSwitchInputPresenter >> defaultLayout [ ^ SpBoxLayout newHorizontal @@ -192,7 +190,7 @@ PyramidSwitchInputPresenter >> defaultLayout [ yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidSwitchInputPresenter >> initializePresenters [ whenValueChangedDo := [ :bool | ]. @@ -203,38 +201,38 @@ PyramidSwitchInputPresenter >> initializePresenters [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenter >> label: aString [ self button label: aString ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenter >> state [ ^ state ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenter >> state: anObject [ state := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenter >> switchState [ self value: self state not. self whenValueChangedDo value: self value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenter >> value [ ^ self state ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenter >> value: aBoolean [ self state = aBoolean ifTrue: [ ^ self ]. @@ -253,13 +251,13 @@ PyramidSwitchInputPresenter >> value: aBoolean [ self button action: [ ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenter >> whenValueChangedDo: aBlock [ whenValueChangedDo := aBlock diff --git a/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st b/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st index 8203faf2..ac96ad6e 100644 --- a/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st +++ b/src/Pyramid-Bloc/PyramidTextForegroundCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidTextForegroundCommand', - #superclass : 'PyramidBlocTextCommand', - #category : 'Pyramid-Bloc-plugin-bloc-text', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-text' + #name : #PyramidTextForegroundCommand, + #superclass : #PyramidBlocTextCommand, + #category : #'Pyramid-Bloc-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTextForegroundCommand >> getValueFor: aBlTextElement [ aBlTextElement text attributesFinder @@ -16,7 +14,7 @@ PyramidTextForegroundCommand >> getValueFor: aBlTextElement [ ^ Color black ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTextForegroundCommand >> setValueFor: aBlTextElement with: aColor [ aBlTextElement text attribute: diff --git a/src/Pyramid-Bloc/PyramidTreeBaseColumnsBuilder.class.st b/src/Pyramid-Bloc/PyramidTreeBaseColumnsBuilder.class.st index c2e674ae..cbeb387e 100644 --- a/src/Pyramid-Bloc/PyramidTreeBaseColumnsBuilder.class.st +++ b/src/Pyramid-Bloc/PyramidTreeBaseColumnsBuilder.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidTreeBaseColumnsBuilder', - #superclass : 'PyramidAbstractColumnsBuilder', - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #name : #PyramidTreeBaseColumnsBuilder, + #superclass : #PyramidAbstractColumnsBuilder, + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreeBaseColumnsBuilder >> buildOn: aPyramidTreePlugin [ aPyramidTreePlugin addColumns: { self nameAndTypeColumn . self hashColumn . self zIndexColumn . self visibilityColumn } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreeBaseColumnsBuilder >> hashColumn [ ^ SpStringTableColumn new @@ -24,7 +22,7 @@ PyramidTreeBaseColumnsBuilder >> hashColumn [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreeBaseColumnsBuilder >> nameAndTypeColumn [ ^ SpCompositeTableColumn new @@ -47,7 +45,7 @@ PyramidTreeBaseColumnsBuilder >> nameAndTypeColumn [ yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreeBaseColumnsBuilder >> setVisibility: aBlVisibility of: aBlElement onEditor: aPyramidEditor [ aPyramidEditor propertiesManager commandExecutor @@ -56,7 +54,7 @@ PyramidTreeBaseColumnsBuilder >> setVisibility: aBlVisibility of: aBlElement onE with: aBlVisibility ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreeBaseColumnsBuilder >> visibilityColumn [ ^ SpCompositeTableColumn new @@ -82,7 +80,7 @@ PyramidTreeBaseColumnsBuilder >> visibilityColumn [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreeBaseColumnsBuilder >> zIndexColumn [ ^ SpStringTableColumn new diff --git a/src/Pyramid-Bloc/PyramidTreePlugin.class.st b/src/Pyramid-Bloc/PyramidTreePlugin.class.st index 44d6a20a..80f530b8 100644 --- a/src/Pyramid-Bloc/PyramidTreePlugin.class.st +++ b/src/Pyramid-Bloc/PyramidTreePlugin.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidTreePlugin', - #superclass : 'Object', + #name : #PyramidTreePlugin, + #superclass : #Object, #traits : 'TPyramidPlugin + TPyramidElementToAdd', #classTraits : 'TPyramidPlugin classTrait + TPyramidElementToAdd classTrait', #instVars : [ @@ -12,12 +12,10 @@ Class { #classVars : [ 'ColumnsBuildersClasses' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePlugin class >> addDefaultOnLibrary: library [ | factoryElement factoryTextElement | @@ -43,14 +41,14 @@ PyramidTreePlugin class >> addDefaultOnLibrary: library [ ^ library ] -{ #category : 'adding' } +{ #category : #adding } PyramidTreePlugin class >> addOnLibrary: aLibrary [ self addDefaultOnLibrary: aLibrary. self addPystonOnLibrary: aLibrary ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePlugin class >> addPystonOnLibrary: library [ | pragmas methods packages | @@ -79,7 +77,7 @@ PyramidTreePlugin class >> addPystonOnLibrary: library [ ^ library ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePlugin class >> columnsBuildersClasses [ ColumnsBuildersClasses ifNil: [ @@ -87,14 +85,14 @@ PyramidTreePlugin class >> columnsBuildersClasses [ ^ ColumnsBuildersClasses ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreePlugin class >> install [ "Do some stuff here when the plugin used class oriented behavior" self columnsBuildersClasses add: PyramidTreeBaseColumnsBuilder ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreePlugin >> addColumns: aCollection [ aCollection do: [ :each | self treePresenter columns add: each ]. self treePresenter updateTree @@ -102,7 +100,7 @@ PyramidTreePlugin >> addColumns: aCollection [ ] -{ #category : 'adding' } +{ #category : #adding } PyramidTreePlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow at: #tabLeft addItem: [ :builder | @@ -117,7 +115,7 @@ PyramidTreePlugin >> addPanelsOn: aPyramidSimpleWindow [ addItem: [ :builder | self menuAddAndDeleteOn: builder ] ] -{ #category : 'actions' } +{ #category : #actions } PyramidTreePlugin >> configureBuilder: aPyramidEditorBuilder [ self class columnsBuildersClasses do: [ :each | @@ -126,19 +124,19 @@ PyramidTreePlugin >> configureBuilder: aPyramidEditorBuilder [ buildOn: self ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidTreePlugin >> connectOn: aPyramidEditor [ self editor: aPyramidEditor. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePlugin >> editor [ ^ editor ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePlugin >> editor: aPyramidEditor [ editor := aPyramidEditor. @@ -147,7 +145,7 @@ PyramidTreePlugin >> editor: aPyramidEditor [ (self editor window services at: #selectionMenu) builder ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreePlugin >> initialize [ self initializeLibraryPresenters. @@ -157,7 +155,7 @@ PyramidTreePlugin >> initialize [ yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreePlugin >> initializeLibraryPresenters [ | idGenerator | @@ -193,19 +191,19 @@ PyramidTreePlugin >> initializeLibraryPresenters [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePlugin >> libraryPresenterForElement [ ^ libraryPresenterForElement ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePlugin >> libraryPresenterForRoot [ ^ libraryPresenterForRoot ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePlugin >> menuAddAndDeleteOn: aBuilder [ aBuilder @@ -255,7 +253,7 @@ PyramidTreePlugin >> menuAddAndDeleteOn: aBuilder [ order: 10 ] -{ #category : 'removing' } +{ #category : #removing } PyramidTreePlugin >> removeSelectedElements [ self editor propertiesManager commandExecutor @@ -267,7 +265,7 @@ PyramidTreePlugin >> removeSelectedElements [ self editor projectModel updateSelection ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePlugin >> treePresenter [ ^ treePresenter diff --git a/src/Pyramid-Bloc/PyramidTreePresenter.class.st b/src/Pyramid-Bloc/PyramidTreePresenter.class.st index 2cfc6d09..c673328a 100644 --- a/src/Pyramid-Bloc/PyramidTreePresenter.class.st +++ b/src/Pyramid-Bloc/PyramidTreePresenter.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidTreePresenter', - #superclass : 'SpPresenter', + #name : #PyramidTreePresenter, + #superclass : #SpPresenter, #instVars : [ 'tree', 'columns', @@ -10,12 +10,10 @@ Class { 'shouldUpdateSelection', 'buttonAddToFirstLevel' ], - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> actionAddNewElement [ (PyramidPopoverFactory @@ -24,13 +22,13 @@ PyramidTreePresenter >> actionAddNewElement [ position: SpPopoverPosition right) popup ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> actionEditorMenu [ ^ self editorMenuBuilder menuFor: self projectModel selection. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> actionSelectionChanged: aCollection [ self projectModel ifNil: [ ^ self ]. @@ -39,19 +37,19 @@ PyramidTreePresenter >> actionSelectionChanged: aCollection [ [self projectModel setSelection: aCollection selectedItems ] ensure: [ self shouldUpdateSelection: true ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> buttonAddToFirstLevel [ ^ buttonAddToFirstLevel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> columns [ ^ columns ] -{ #category : 'layout' } +{ #category : #layout } PyramidTreePresenter >> defaultLayout [ ^ SpBoxLayout newVertical @@ -61,19 +59,19 @@ PyramidTreePresenter >> defaultLayout [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> editorMenuBuilder [ ^ editorMenuBuilder ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> editorMenuBuilder: anObject [ editorMenuBuilder := anObject ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreePresenter >> initializePresenters [ shouldUpdateSelection := true. @@ -101,25 +99,25 @@ PyramidTreePresenter >> initializePresenters [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> libraryPresenterForRoot [ ^ libraryPresenterForRoot ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> libraryPresenterForRoot: anObject [ libraryPresenterForRoot := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> projectModel: anObject [ projectModel := anObject. @@ -137,27 +135,27 @@ PyramidTreePresenter >> projectModel: anObject [ for: self. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> pyramidElementsChanged: anEvent [ self updateRoots. self selectionHaveChanged ifTrue: [ self updateSelection ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> pyramidFirstLevelElementsChanged: anEvent [ self updateRoots. self updateSelection ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> pyramidSelectionChanged: anEvent [ self updateSelection ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> selectionHaveChanged [ self tree selectedItems size = self projectModel selection size ifFalse: [ @@ -169,25 +167,25 @@ PyramidTreePresenter >> selectionHaveChanged [ ^ false ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> shouldUpdateSelection [ ^ shouldUpdateSelection ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> shouldUpdateSelection: anObject [ shouldUpdateSelection := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePresenter >> tree [ ^ tree ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> updateRoots [ | roots parent shouldOrder | @@ -208,7 +206,7 @@ PyramidTreePresenter >> updateRoots [ self shouldUpdateSelection: true ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> updateSelection [ self projectModel ifNil: [ ^ self ]. @@ -221,7 +219,7 @@ PyramidTreePresenter >> updateSelection [ ensure: [ self shouldUpdateSelection: true ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTreePresenter >> updateTree [ self tree columns: { }. diff --git a/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st b/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st index 990b9f2d..8fb36fa9 100644 --- a/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st +++ b/src/Pyramid-Bloc/PyramidUndoGroupCommand.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidUndoGroupCommand', - #superclass : 'PyramidCommand', - #category : 'Pyramid-Bloc-plugin-bloc-group', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-group' + #name : #PyramidUndoGroupCommand, + #superclass : #PyramidCommand, + #category : #'Pyramid-Bloc-plugin-bloc-group' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidUndoGroupCommand >> commandInverse [ ^ PyramidRedoGroupCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidUndoGroupCommand >> getValueFor: aBlElement [ ^ nil ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidUndoGroupCommand >> positionChildrenOfGroupElement: groupElement [ | currentTop currentLeft | @@ -29,7 +27,7 @@ PyramidUndoGroupCommand >> positionChildrenOfGroupElement: groupElement [ child constraints position + (currentLeft @ currentTop) ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidUndoGroupCommand >> setValueFor: aCollectionToGroup with: aGroupModel [ "Remove children of group. Remove children of origin. diff --git a/src/Pyramid-Bloc/PyramidVerticalFrameConstraintsInputPresenter.class.st b/src/Pyramid-Bloc/PyramidVerticalFrameConstraintsInputPresenter.class.st index 8c60d0ca..3a52e137 100644 --- a/src/Pyramid-Bloc/PyramidVerticalFrameConstraintsInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidVerticalFrameConstraintsInputPresenter.class.st @@ -1,60 +1,58 @@ Class { - #name : 'PyramidVerticalFrameConstraintsInputPresenter', - #superclass : 'PyramidAbstractFrameConstraintsInputPresenter', - #category : 'Pyramid-Bloc-plugin-bloc-layout', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc-layout' + #name : #PyramidVerticalFrameConstraintsInputPresenter, + #superclass : #PyramidAbstractFrameConstraintsInputPresenter, + #category : #'Pyramid-Bloc-plugin-bloc-layout' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> helpCenter [ ^ 'Align the vertical axis on the center of the shape.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> helpEnd [ ^ 'Align on the Bottom border.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> helpNull [ ^ 'Do not align vertically.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> helpStart [ ^ 'Align on the Top border.' ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> iconCenter [ ^ Smalltalk ui icons iconNamed: #windowMinimize ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> iconEnd [ ^ Smalltalk ui icons iconNamed: #windowMenu ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> iconNull [ ^ Smalltalk ui icons iconNamed: #windowMaximize ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> iconStart [ ^ (Smalltalk ui icons iconNamed: #windowMenu) rotateBy: 180 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenter >> value [ self buttonNull state ifTrue: [ ^ BlVerticalAlignment null ]. diff --git a/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st b/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st index 41fabadd..bb53e301 100644 --- a/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st +++ b/src/Pyramid-Bloc/PyramidVisibilityCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidVisibilityCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidVisibilityCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityCommand >> getValueFor: aBlElement [ ^ aBlElement visibility ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityCommand >> setValueFor: aBlElement with: anArgument [ aBlElement visibility: anArgument diff --git a/src/Pyramid-Bloc/PyramidVisibilityInputPresenter.class.st b/src/Pyramid-Bloc/PyramidVisibilityInputPresenter.class.st index ae4dbd6b..14a2a46b 100644 --- a/src/Pyramid-Bloc/PyramidVisibilityInputPresenter.class.st +++ b/src/Pyramid-Bloc/PyramidVisibilityInputPresenter.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidVisibilityInputPresenter', - #superclass : 'PyramidInputPresenter', + #name : #PyramidVisibilityInputPresenter, + #superclass : #PyramidInputPresenter, #instVars : [ 'buttonVisible', 'whenValueChangedDo', 'value', 'buttonNotVisible' ], - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidVisibilityInputPresenter class >> blocGone [ ^ [ "BlStashSerializer" @@ -45,7 +43,7 @@ PyramidVisibilityInputPresenter class >> blocGone [ ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidVisibilityInputPresenter class >> blocHidden [ ^ [ "BlStashSerializer" @@ -91,7 +89,7 @@ PyramidVisibilityInputPresenter class >> blocHidden [ ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidVisibilityInputPresenter class >> blocVisibilityUnknow [ ^ [ "BlStashSerializer" @@ -132,7 +130,7 @@ blpaintbackground1 := BlPaintBackground new. ] value ] -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidVisibilityInputPresenter class >> blocVisible [ ^ [ "BlStashSerializer" @@ -178,7 +176,7 @@ PyramidVisibilityInputPresenter class >> blocVisible [ ] value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityInputPresenter class >> formGone [ ^ (BlElement new @@ -187,7 +185,7 @@ PyramidVisibilityInputPresenter class >> formGone [ exportAsForm ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityInputPresenter class >> formHidden [ ^ (BlElement new @@ -196,7 +194,7 @@ PyramidVisibilityInputPresenter class >> formHidden [ exportAsForm ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityInputPresenter class >> formVisibilityUnknow [ ^ (BlElement new @@ -205,7 +203,7 @@ PyramidVisibilityInputPresenter class >> formVisibilityUnknow [ exportAsForm ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityInputPresenter class >> formVisible [ ^ (BlElement new @@ -213,19 +211,19 @@ PyramidVisibilityInputPresenter class >> formVisible [ addChildren: self blocVisible materializeAsBlElement) exportAsForm ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityInputPresenter >> buttonNotVisible [ ^ buttonNotVisible ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityInputPresenter >> buttonVisible [ ^ buttonVisible ] -{ #category : 'layout' } +{ #category : #layout } PyramidVisibilityInputPresenter >> defaultLayout [ ^ SpBoxLayout newHorizontal @@ -235,7 +233,7 @@ PyramidVisibilityInputPresenter >> defaultLayout [ yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidVisibilityInputPresenter >> initializePresenters [ whenValueChangedDo := [ :visibility | ]. @@ -254,7 +252,7 @@ PyramidVisibilityInputPresenter >> initializePresenters [ yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityInputPresenter >> setVisibilityEmptyValue [ self buttonNotVisible @@ -268,7 +266,7 @@ PyramidVisibilityInputPresenter >> setVisibilityEmptyValue [ icon: self value asIcon ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidVisibilityInputPresenter >> setVisibilityGone [ self buttonNotVisible @@ -284,7 +282,7 @@ PyramidVisibilityInputPresenter >> setVisibilityGone [ icon: self value asIcon ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidVisibilityInputPresenter >> setVisibilityHidden [ self buttonNotVisible @@ -300,7 +298,7 @@ PyramidVisibilityInputPresenter >> setVisibilityHidden [ icon: self value asIcon ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityInputPresenter >> setVisibilityMixedValues [ self buttonNotVisible @@ -314,7 +312,7 @@ PyramidVisibilityInputPresenter >> setVisibilityMixedValues [ icon: self value asIcon ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidVisibilityInputPresenter >> setVisibilityVisible [ self buttonNotVisible @@ -331,26 +329,26 @@ PyramidVisibilityInputPresenter >> setVisibilityVisible [ icon: self value asIcon ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityInputPresenter >> value [ ^ value ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityInputPresenter >> value: aBlVisibility [ value := aBlVisibility. aBlVisibility setVisibilityOn: self ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityInputPresenter >> whenValueChangedDo [ ^ whenValueChangedDo ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityInputPresenter >> whenValueChangedDo: anObject [ whenValueChangedDo := anObject diff --git a/src/Pyramid-Bloc/PyramidVisibilitySortFunction.class.st b/src/Pyramid-Bloc/PyramidVisibilitySortFunction.class.st index f11e1480..c97a2020 100644 --- a/src/Pyramid-Bloc/PyramidVisibilitySortFunction.class.st +++ b/src/Pyramid-Bloc/PyramidVisibilitySortFunction.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidVisibilitySortFunction', - #superclass : 'SortFunction', - #category : 'Pyramid-Bloc-utils', - #package : 'Pyramid-Bloc', - #tag : 'utils' + #name : #PyramidVisibilitySortFunction, + #superclass : #SortFunction, + #category : #'Pyramid-Bloc-utils' } -{ #category : 'evaluating' } +{ #category : #evaluating } PyramidVisibilitySortFunction >> collate: aFirstObject with: aSecondObject [ "visible > hidden > gone" diff --git a/src/Pyramid-Bloc/PyramidVisualPystonForCly.class.st b/src/Pyramid-Bloc/PyramidVisualPystonForCly.class.st index 90479af2..e8d9e815 100644 --- a/src/Pyramid-Bloc/PyramidVisualPystonForCly.class.st +++ b/src/Pyramid-Bloc/PyramidVisualPystonForCly.class.st @@ -1,16 +1,14 @@ Class { - #name : 'PyramidVisualPystonForCly', - #superclass : 'ClyBrowserToolMorph', + #name : #PyramidVisualPystonForCly, + #superclass : #ClyBrowserToolMorph, #instVars : [ 'method', 'imageMorph' ], - #category : 'Pyramid-Bloc-plugin-save', - #package : 'Pyramid-Bloc', - #tag : 'plugin-save' + #category : #'Pyramid-Bloc-plugin-save' } -{ #category : 'activation' } +{ #category : #activation } PyramidVisualPystonForCly class >> browserTabActivation [ "This declaration specifies that in any browser when methods are selected, a diff tool will be available in a tab." @@ -18,26 +16,26 @@ PyramidVisualPystonForCly class >> browserTabActivation [ ^ClyTabActivationStrategyAnnotation for: ClyMethod asCalypsoItemContext ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisualPystonForCly class >> shouldBeActivatedInContext: aBrowserContext [ ^ aBrowserContext selectedMethods anySatisfy: [ :method | method pragmas anySatisfy: [ :pragma | pragma selector = #pySTON or: [ pragma selector = #pyStash ] ] ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisualPystonForCly class >> tabOrder [ ^ 100 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisualPystonForCly >> activationPriority [ ^ self tabOrder ] -{ #category : 'converting' } +{ #category : #converting } PyramidVisualPystonForCly >> asSaveModel [ | class model | @@ -57,7 +55,7 @@ PyramidVisualPystonForCly >> asSaveModel [ yourself ] -{ #category : 'controlling' } +{ #category : #controlling } PyramidVisualPystonForCly >> attachToSystem [ browser system @@ -67,19 +65,19 @@ PyramidVisualPystonForCly >> attachToSystem [ to: self ] -{ #category : 'testing' } +{ #category : #testing } PyramidVisualPystonForCly >> belongsToCurrentBrowserContext [ ^ browser isMethodSelected: self method ] -{ #category : 'testing' } +{ #category : #testing } PyramidVisualPystonForCly >> belongsToRemovedBrowserContext [ ^ self method isInstalled ] -{ #category : 'building' } +{ #category : #building } PyramidVisualPystonForCly >> build [ | buttonEditor buttonOpen buttonCopy blElement | @@ -100,7 +98,7 @@ PyramidVisualPystonForCly >> build [ self addMorph: buttonCopy ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisualPystonForCly >> buttonCopy [ ^ self @@ -109,7 +107,7 @@ PyramidVisualPystonForCly >> buttonCopy [ action: [ self copyElement ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisualPystonForCly >> buttonEditor [ ^ self @@ -118,7 +116,7 @@ PyramidVisualPystonForCly >> buttonEditor [ action: [ self openEditor ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisualPystonForCly >> buttonLabel: aLabel help: aString action: aBlock [ | button | @@ -134,7 +132,7 @@ PyramidVisualPystonForCly >> buttonLabel: aLabel help: aString action: aBlock [ ^ button ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisualPystonForCly >> buttonOpen [ ^ self @@ -143,7 +141,7 @@ PyramidVisualPystonForCly >> buttonOpen [ action: [ self openInNewSpace ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisualPystonForCly >> copyElement [ | element | @@ -151,45 +149,45 @@ PyramidVisualPystonForCly >> copyElement [ (Clipboard clipboardText: (BlSerializer serialize: element with: BlStashSerializer)) ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidVisualPystonForCly >> defaultIconName [ ^ #smallPaint ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidVisualPystonForCly >> defaultTitle [ ^ 'Pyramid preview' ] -{ #category : 'controlling' } +{ #category : #controlling } PyramidVisualPystonForCly >> detachFromSystem [ browser system unsubscribe: self ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisualPystonForCly >> getStonFromMethod [ ^ (method valueWithReceiver: self arguments: { }) ] -{ #category : 'testing' } +{ #category : #testing } PyramidVisualPystonForCly >> isSimilarTo: anotherBrowserTool [ (super isSimilarTo: anotherBrowserTool) ifFalse: [ ^ false ]. ^ self method = anotherBrowserTool method ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisualPystonForCly >> method [ ^ method ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisualPystonForCly >> openEditor [ | class elements | @@ -206,7 +204,7 @@ PyramidVisualPystonForCly >> openEditor [ PyramidSavePlugin openOn: elements saveModel: self asSaveModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisualPystonForCly >> openInNewSpace [ | class elements space | @@ -226,13 +224,13 @@ PyramidVisualPystonForCly >> openInNewSpace [ space root addChildren: elements allButFirst ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidVisualPystonForCly >> setUpModelFromContext [ method := context firstSelectedMethod ] -{ #category : 'updating' } +{ #category : #updating } PyramidVisualPystonForCly >> update [ | blElement | diff --git a/src/Pyramid-Bloc/PyramidWeightConstraintsCommand.class.st b/src/Pyramid-Bloc/PyramidWeightConstraintsCommand.class.st new file mode 100644 index 00000000..19f60089 --- /dev/null +++ b/src/Pyramid-Bloc/PyramidWeightConstraintsCommand.class.st @@ -0,0 +1,26 @@ +Class { + #name : #PyramidWeightConstraintsCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc-layout' +} + +{ #category : #testing } +PyramidWeightConstraintsCommand >> canBeUsedFor: anObject [ + + ^ (super canBeUsedFor: anObject) and: [ + anObject hasParent and: [ + { BlFlowLayout . BlLinearLayout } includes: anObject parent layout class ] ] +] + +{ #category : #'as yet unclassified' } +PyramidWeightConstraintsCommand >> getValueFor: anObject [ + + ^ anObject constraints linear weight +] + +{ #category : #'as yet unclassified' } +PyramidWeightConstraintsCommand >> setValueFor: anObject with: anArgument [ + + anObject constraints linear weight: anArgument. + anObject parent forceLayout +] diff --git a/src/Pyramid-Bloc/PyramidWheelTransformExtension.class.st b/src/Pyramid-Bloc/PyramidWheelTransformExtension.class.st index 541febf5..71689fe5 100644 --- a/src/Pyramid-Bloc/PyramidWheelTransformExtension.class.st +++ b/src/Pyramid-Bloc/PyramidWheelTransformExtension.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidWheelTransformExtension', - #superclass : 'Object', + #name : #PyramidWheelTransformExtension, + #superclass : #Object, #traits : 'TPyramidSpaceExtension + TPyramidEditorExtension + TPyramidKeyboardExtension', #classTraits : 'TPyramidSpaceExtension classTrait + TPyramidEditorExtension classTrait + TPyramidKeyboardExtension classTrait', - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'displaying' } +{ #category : #displaying } PyramidWheelTransformExtension >> installOn: aBuilder [ self builder: aBuilder. @@ -28,7 +26,7 @@ PyramidWheelTransformExtension >> installOn: aBuilder [ self builder signalTransformationChanged ] ]) ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidWheelTransformExtension >> wheelSpeed [ ^ 10 diff --git a/src/Pyramid-Bloc/PyramidZIndexCommand.class.st b/src/Pyramid-Bloc/PyramidZIndexCommand.class.st index 3390e052..3e09f726 100644 --- a/src/Pyramid-Bloc/PyramidZIndexCommand.class.st +++ b/src/Pyramid-Bloc/PyramidZIndexCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidZIndexCommand', - #superclass : 'PyramidAbstractBlocCommand', - #category : 'Pyramid-Bloc-plugin-bloc', - #package : 'Pyramid-Bloc', - #tag : 'plugin-bloc' + #name : #PyramidZIndexCommand, + #superclass : #PyramidAbstractBlocCommand, + #category : #'Pyramid-Bloc-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidZIndexCommand >> getValueFor: aBlElement [ ^ aBlElement elevation elevation ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidZIndexCommand >> setValueFor: aBlElement with: anArgument [ aBlElement zIndex: anArgument diff --git a/src/Pyramid-Bloc/TPyramidEditorExtension.trait.st b/src/Pyramid-Bloc/TPyramidEditorExtension.trait.st index 8beb764d..231adbff 100644 --- a/src/Pyramid-Bloc/TPyramidEditorExtension.trait.st +++ b/src/Pyramid-Bloc/TPyramidEditorExtension.trait.st @@ -1,11 +1,9 @@ Trait { - #name : 'TPyramidEditorExtension', - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #name : #TPyramidEditorExtension, + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'displaying' } +{ #category : #displaying } TPyramidEditorExtension >> currentTransformTranslation [ | matrix | @@ -13,37 +11,37 @@ TPyramidEditorExtension >> currentTransformTranslation [ ^ matrix x @ matrix y ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorExtension >> elementAtDisplays [ ^ (self builder elementAt: #displays) ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorExtension >> elementAtDisplaysAddons [ ^ self elementAtDisplays childWithId: #displaysAddons ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorExtension >> elementAtEvents [ ^ self builder elementAt: #events ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorExtension >> elementAtMain [ ^ self builder elementAt: #main ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorExtension >> elementAtTransforms [ ^ (self builder elementAt: #transforms) ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorExtension >> elementAtWidgets [ ^ self builder elementAt: #widgets diff --git a/src/Pyramid-Bloc/TPyramidEditorSpaceIsReady.trait.st b/src/Pyramid-Bloc/TPyramidEditorSpaceIsReady.trait.st index 2b6584fd..f773eebc 100644 --- a/src/Pyramid-Bloc/TPyramidEditorSpaceIsReady.trait.st +++ b/src/Pyramid-Bloc/TPyramidEditorSpaceIsReady.trait.st @@ -1,32 +1,30 @@ Trait { - #name : 'TPyramidEditorSpaceIsReady', + #name : #TPyramidEditorSpaceIsReady, #instVars : [ 'spaceIsReadyObservers' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'adding' } +{ #category : #adding } TPyramidEditorSpaceIsReady >> addSpaceIsReadyObserver: anObject [ self spaceIsReadyObservers add: anObject ] -{ #category : 'adding' } +{ #category : #adding } TPyramidEditorSpaceIsReady >> removeSpaceIsReadyObserver: anObject [ self spaceIsReadyObservers remove: anObject ] -{ #category : 'signalling' } +{ #category : #signalling } TPyramidEditorSpaceIsReady >> signalSpaceIsReady [ self spaceIsReadyObservers do: [ :each | each informSpaceIsReady ] ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidEditorSpaceIsReady >> spaceIsReadyObservers [ spaceIsReadyObservers ifNil: [ spaceIsReadyObservers := Set new ]. diff --git a/src/Pyramid-Bloc/TPyramidEditorSpaceIsReadyObserver.trait.st b/src/Pyramid-Bloc/TPyramidEditorSpaceIsReadyObserver.trait.st index c9721f4b..657aed6b 100644 --- a/src/Pyramid-Bloc/TPyramidEditorSpaceIsReadyObserver.trait.st +++ b/src/Pyramid-Bloc/TPyramidEditorSpaceIsReadyObserver.trait.st @@ -1,10 +1,8 @@ Trait { - #name : 'TPyramidEditorSpaceIsReadyObserver', - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #name : #TPyramidEditorSpaceIsReadyObserver, + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorSpaceIsReadyObserver >> informSpaceIsReady [ ] diff --git a/src/Pyramid-Bloc/TPyramidEditorTransformation.trait.st b/src/Pyramid-Bloc/TPyramidEditorTransformation.trait.st index 41f1668d..e5dc2a71 100644 --- a/src/Pyramid-Bloc/TPyramidEditorTransformation.trait.st +++ b/src/Pyramid-Bloc/TPyramidEditorTransformation.trait.st @@ -1,33 +1,31 @@ Trait { - #name : 'TPyramidEditorTransformation', + #name : #TPyramidEditorTransformation, #instVars : [ 'transformationObservers' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'adding' } +{ #category : #adding } TPyramidEditorTransformation >> addTransformationObserver: anObject [ self transformationObservers add: anObject ] -{ #category : 'adding' } +{ #category : #adding } TPyramidEditorTransformation >> removeTransformationObserver: anObject [ self transformationObservers remove: anObject ] -{ #category : 'signalling' } +{ #category : #signalling } TPyramidEditorTransformation >> signalTransformationChanged [ self transformationObservers do: [ :each | each informTransformationChanged ] ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidEditorTransformation >> transformationObservers [ transformationObservers ifNil: [ transformationObservers := Set new ]. diff --git a/src/Pyramid-Bloc/TPyramidEditorTransformationObserver.trait.st b/src/Pyramid-Bloc/TPyramidEditorTransformationObserver.trait.st index 68105e3d..8b707212 100644 --- a/src/Pyramid-Bloc/TPyramidEditorTransformationObserver.trait.st +++ b/src/Pyramid-Bloc/TPyramidEditorTransformationObserver.trait.st @@ -1,10 +1,8 @@ Trait { - #name : 'TPyramidEditorTransformationObserver', - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #name : #TPyramidEditorTransformationObserver, + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidEditorTransformationObserver >> informTransformationChanged [ ] diff --git a/src/Pyramid-Bloc/TPyramidElementToAdd.trait.st b/src/Pyramid-Bloc/TPyramidElementToAdd.trait.st index 90761470..5c1c6ea3 100644 --- a/src/Pyramid-Bloc/TPyramidElementToAdd.trait.st +++ b/src/Pyramid-Bloc/TPyramidElementToAdd.trait.st @@ -1,11 +1,9 @@ Trait { - #name : 'TPyramidElementToAdd', - #category : 'Pyramid-Bloc-plugin-tree-library', - #package : 'Pyramid-Bloc', - #tag : 'plugin-tree-library' + #name : #TPyramidElementToAdd, + #category : #'Pyramid-Bloc-plugin-tree-library' } -{ #category : 'adding' } +{ #category : #adding } TPyramidElementToAdd classSide >> addOnLibrary: aLibrary [ self shouldBeImplemented diff --git a/src/Pyramid-Bloc/TPyramidKeyboardExtension.trait.st b/src/Pyramid-Bloc/TPyramidKeyboardExtension.trait.st index 3be95b90..b772fc30 100644 --- a/src/Pyramid-Bloc/TPyramidKeyboardExtension.trait.st +++ b/src/Pyramid-Bloc/TPyramidKeyboardExtension.trait.st @@ -1,30 +1,28 @@ Trait { - #name : 'TPyramidKeyboardExtension', - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #name : #TPyramidKeyboardExtension, + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'testing' } +{ #category : #testing } TPyramidKeyboardExtension >> isAnyKeyPressed [ ^ self builder keyboard isNotEmpty ] -{ #category : 'testing' } +{ #category : #testing } TPyramidKeyboardExtension >> isNoKeyPressed [ ^ self isAnyKeyPressed not ] -{ #category : 'testing' } +{ #category : #testing } TPyramidKeyboardExtension >> isOnlyCtrlKeyPressed [ ^ self builder keyboard isNotEmpty and: [ self builder keyboard allSatisfy: [ :key | key = key class controlLeft or: [ key = key class controlRight ] ] ] ] -{ #category : 'testing' } +{ #category : #testing } TPyramidKeyboardExtension >> isOnlyShiftKeyPressed [ ^ self builder keyboard isNotEmpty and: [ self builder keyboard allSatisfy: [ :key | key isShift ]] diff --git a/src/Pyramid-Bloc/TPyramidOpenFromSpacePluginExtension.trait.st b/src/Pyramid-Bloc/TPyramidOpenFromSpacePluginExtension.trait.st index 72b9cf90..a69ff7f0 100644 --- a/src/Pyramid-Bloc/TPyramidOpenFromSpacePluginExtension.trait.st +++ b/src/Pyramid-Bloc/TPyramidOpenFromSpacePluginExtension.trait.st @@ -1,18 +1,16 @@ Trait { - #name : 'TPyramidOpenFromSpacePluginExtension', - #category : 'Pyramid-Bloc-plugin-edit-on-running', - #package : 'Pyramid-Bloc', - #tag : 'plugin-edit-on-running' + #name : #TPyramidOpenFromSpacePluginExtension, + #category : #'Pyramid-Bloc-plugin-edit-on-running' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidOpenFromSpacePluginExtension >> configureCloseOnSpace: aSpace [ "Do something with the space when you close the editor" ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidOpenFromSpacePluginExtension >> configureOpenFromSpace: aSpace [ "Do something with the space when you open the editor" diff --git a/src/Pyramid-Bloc/TPyramidSpaceExtension.trait.st b/src/Pyramid-Bloc/TPyramidSpaceExtension.trait.st index 34606a90..6cae47fc 100644 --- a/src/Pyramid-Bloc/TPyramidSpaceExtension.trait.st +++ b/src/Pyramid-Bloc/TPyramidSpaceExtension.trait.st @@ -1,36 +1,34 @@ Trait { - #name : 'TPyramidSpaceExtension', + #name : #TPyramidSpaceExtension, #instVars : [ 'builder' ], - #category : 'Pyramid-Bloc-plugin-space-extensions', - #package : 'Pyramid-Bloc', - #tag : 'plugin-space-extensions' + #category : #'Pyramid-Bloc-plugin-space-extensions' } -{ #category : 'accessing' } +{ #category : #accessing } TPyramidSpaceExtension >> builder [ ^ builder ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidSpaceExtension >> builder: anObject [ builder:= anObject. ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidSpaceExtension >> editor: aPyramidEditor [ ] -{ #category : 'displaying' } +{ #category : #displaying } TPyramidSpaceExtension >> installOn: aBuilder [ self builder: aBuilder. ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidSpaceExtension >> projectModel: aProjectModel [ ] diff --git a/src/Pyramid-Bloc/True.extension.st b/src/Pyramid-Bloc/True.extension.st index 1f1a8a98..de1a7a0a 100644 --- a/src/Pyramid-Bloc/True.extension.st +++ b/src/Pyramid-Bloc/True.extension.st @@ -1,12 +1,12 @@ -Extension { #name : 'True' } +Extension { #name : #True } -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } True >> asOrientationForFlowPyramid [ ^ BlLayoutOrientation vertical ] -{ #category : '*Pyramid-Bloc' } +{ #category : #'*Pyramid-Bloc' } True >> asOrientationForLinearPyramid [ ^ BlLinearLayoutVerticalOrientation new ] diff --git a/src/Pyramid-Bloc/package.st b/src/Pyramid-Bloc/package.st index 5dda2bbe..417dc440 100644 --- a/src/Pyramid-Bloc/package.st +++ b/src/Pyramid-Bloc/package.st @@ -1 +1 @@ -Package { #name : 'Pyramid-Bloc' } +Package { #name : #'Pyramid-Bloc' } diff --git a/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st b/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st index db43416f..ad54c577 100644 --- a/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidAddChildCommandTest.class.st @@ -1,32 +1,30 @@ Class { - #name : 'PyramidAddChildCommandTest', - #superclass : 'TestCase', + #name : #PyramidAddChildCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidAddChildCommandTest >> command [ ^ PyramidAddChildCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidAddChildCommandTest >> targetsCanBeUsedFor [ ^ { BlElement new . BlElement new addChild: BlElement new; yourself } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidAddChildCommandTest >> targetsWithoutValuesAndValues [ ^ self targetsCanBeUsedFor collect: [ :each | each -> (BlElement new background: Color random; yourself) ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidAddChildCommandTest >> testGetValueFor [ "ignore get return nothing" @@ -34,7 +32,7 @@ PyramidAddChildCommandTest >> testGetValueFor [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidAddChildCommandTest >> testHistory [ "Do once. undo @@ -97,7 +95,7 @@ PyramidAddChildCommandTest >> testHistory [ self assert: (target children includes: argument) ] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidAddChildCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st b/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st index b41cbae9..f1e52d3b 100644 --- a/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidAddMockCommandTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidAddMockCommandTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidAddMockCommandTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'tests' } +{ #category : #tests } PyramidAddMockCommandTest >> testGetValueFor [ | mock | @@ -17,7 +15,7 @@ PyramidAddMockCommandTest >> testGetValueFor [ self assert: (PyramidIncreaseMockCommand new getValueFor: mock) equals: nil. ] -{ #category : 'tests' } +{ #category : #tests } PyramidAddMockCommandTest >> testSetValueForWith [ | mock | diff --git a/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st index 439f223b..f5308c6b 100644 --- a/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundImageCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundImageCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundImageCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundImageCommandTest >> command [ ^ PyramidBackgroundImageCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundImageCommandTest >> targetContainers [ ^ { @@ -36,7 +34,7 @@ PyramidBackgroundImageCommandTest >> targetContainers [ prop: (Smalltalk ui icons iconNamed: #pharoBig)) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundImageCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st index 71edac83..6f01df3d 100644 --- a/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundOpacityCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundOpacityCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundOpacityCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundOpacityCommandTest >> command [ ^ PyramidBackgroundOpacityCommand new ] -{ #category : 'testing' } +{ #category : #testing } PyramidBackgroundOpacityCommandTest >> isBlBackgroundEqualityFix [ | e b1 b2 | @@ -28,7 +26,7 @@ PyramidBackgroundOpacityCommandTest >> isBlBackgroundEqualityFix [ ^ e background == b2 ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundOpacityCommandTest >> targetContainers [ ^ { @@ -53,7 +51,7 @@ PyramidBackgroundOpacityCommandTest >> targetContainers [ prop: 0.3) } ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundOpacityCommandTest >> testHistory [ "Do once. undo @@ -100,7 +98,7 @@ PyramidBackgroundOpacityCommandTest >> testHistory [ self assert: (self command getValueFor: target) equals: argument ] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundOpacityCommandTest >> testSetValueForWith [ self isBlBackgroundEqualityFix ifFalse: [ ^ self skip. ]. diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st index 3205832a..ea72a86d 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintColorCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintColorCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintColorCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintColorCommandTest >> command [ ^ PyramidBackgroundPaintColorCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintColorCommandTest >> targetContainers [ ^ { @@ -37,7 +35,7 @@ PyramidBackgroundPaintColorCommandTest >> targetContainers [ } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintColorCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st index b1b4f922..949a9ab7 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintCommandTest >> command [ ^ PyramidBackgroundPaintCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintCommandTest >> targetContainers [ ^ {(PyramidCommandTestContainer @@ -59,14 +57,14 @@ PyramidBackgroundPaintCommandTest >> targetContainers [ yourself)) } ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundPaintCommandTest >> testGetValueFor [ self targetsWithValuesAndValues do: [ :each | self assert: (self command getValueFor: each key) class equals: each value value class ]. ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundPaintCommandTest >> testHistory [ "Do once. undo @@ -111,7 +109,7 @@ PyramidBackgroundPaintCommandTest >> testHistory [ self assert: (self command getValueFor: target) class equals: argument value class ] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundPaintCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st index ef3ea857..116912ab 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintLinearEndCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintLinearEndCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintLinearEndCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintLinearEndCommandTest >> command [ ^ PyramidBackgroundPaintLinearEndCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintLinearEndCommandTest >> targetContainers [ ^ { @@ -60,7 +58,7 @@ PyramidBackgroundPaintLinearEndCommandTest >> targetContainers [ prop: 0 @ 0) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintLinearEndCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st index 61423623..31caf284 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintLinearStartCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintLinearStartCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintLinearStartCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintLinearStartCommandTest >> command [ ^ PyramidBackgroundPaintLinearStartCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintLinearStartCommandTest >> targetContainers [ ^ { @@ -60,7 +58,7 @@ PyramidBackgroundPaintLinearStartCommandTest >> targetContainers [ prop: 0 @ 10) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintLinearStartCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st index 0d123ea2..aac47749 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerCenterCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintRadialInnerCenterCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintRadialInnerCenterCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintRadialInnerCenterCommandTest >> command [ ^ PyramidBackgroundPaintRadialInnerCenterCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialInnerCenterCommandTest >> targetContainers [ ^ { @@ -68,7 +66,7 @@ PyramidBackgroundPaintRadialInnerCenterCommandTest >> targetContainers [ prop: 500 asPoint) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialInnerCenterCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st index 40638569..b9bfbd44 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialInnerRadiusCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintRadialInnerRadiusCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintRadialInnerRadiusCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintRadialInnerRadiusCommandTest >> command [ ^ PyramidBackgroundPaintRadialInnerRadiusCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialInnerRadiusCommandTest >> targetContainers [ ^ { @@ -68,7 +66,7 @@ PyramidBackgroundPaintRadialInnerRadiusCommandTest >> targetContainers [ prop: 600) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialInnerRadiusCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st index fcecfba9..ba329f0d 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterCenterCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintRadialOuterCenterCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintRadialOuterCenterCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintRadialOuterCenterCommandTest >> command [ ^ PyramidBackgroundPaintRadialOuterCenterCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialOuterCenterCommandTest >> targetContainers [ ^ { @@ -68,7 +66,7 @@ PyramidBackgroundPaintRadialOuterCenterCommandTest >> targetContainers [ prop: 500 asPoint) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialOuterCenterCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st index 4862a4f2..742ef40e 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintRadialOuterRadiusCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintRadialOuterRadiusCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintRadialOuterRadiusCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintRadialOuterRadiusCommandTest >> command [ ^ PyramidBackgroundPaintRadialOuterRadiusCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialOuterRadiusCommandTest >> targetContainers [ ^ { @@ -60,7 +58,7 @@ PyramidBackgroundPaintRadialOuterRadiusCommandTest >> targetContainers [ prop: 600) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintRadialOuterRadiusCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st index 155de428..284afe89 100644 --- a/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundPaintStopsCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundPaintStopsCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundPaintStopsCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundPaintStopsCommandTest >> command [ ^ PyramidBackgroundPaintStopsCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintStopsCommandTest >> targetContainers [ ^ { @@ -89,7 +87,7 @@ PyramidBackgroundPaintStopsCommandTest >> targetContainers [ } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundPaintStopsCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st index 982d1b9f..576642a9 100644 --- a/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundStopsInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidBackgroundStopsInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundStopsInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenterTest >> dummyValues [ ^ { { @@ -24,25 +22,25 @@ PyramidBackgroundStopsInputPresenterTest >> dummyValues [ (1 -> Color red) } } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundStopsInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundStopsInputPresenterTest >> makeNewInput [ ^ PyramidBackgroundStopsInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundStopsInputPresenterTest >> triggerValueChangedOf: anInput [ anInput whenValueChangedDo value: anInput value diff --git a/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st b/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st index 46c10617..b3c75e7b 100644 --- a/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBackgroundTypeCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBackgroundTypeCommandTest', - #superclass : 'TestCase', + #name : #PyramidBackgroundTypeCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBackgroundTypeCommandTest >> command [ ^ PyramidBackgroundTypeCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBackgroundTypeCommandTest >> targetContainers [ ^ { @@ -54,7 +52,7 @@ PyramidBackgroundTypeCommandTest >> targetContainers [ prop: [(BlBackground paint: Color red asBlPaint)]) } ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundTypeCommandTest >> testGetValueFor [ self targetsWithValuesAndValues do: [ :each | @@ -63,7 +61,7 @@ PyramidBackgroundTypeCommandTest >> testGetValueFor [ equals: each value value class ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundTypeCommandTest >> testHistory [ "Do once. undo @@ -108,7 +106,7 @@ PyramidBackgroundTypeCommandTest >> testHistory [ self assert: (self command getValueFor: target) class equals: argument value class] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBackgroundTypeCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st index f465a436..2b2e2fed 100644 --- a/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicConstraintsInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidBasicConstraintsInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidBasicConstraintsInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicConstraintsInputPresenterTest >> dummyValues [ ^ { @@ -18,13 +16,13 @@ PyramidBasicConstraintsInputPresenterTest >> dummyValues [ BlLayoutCommonConstraintsAxis new exact: 200. } ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicConstraintsInputPresenterTest >> makeNewInput [ ^ PyramidBasicConstraintsInputPresenter new ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicConstraintsInputPresenterTest >> testValue [ | input hasTrigger | @@ -36,7 +34,7 @@ PyramidBasicConstraintsInputPresenterTest >> testValue [ self assert: (self equalityTestFor: each asPyramidConstraintsArgument and: input value) ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicConstraintsInputPresenterTest >> triggerValueChangedOf: anInput [ anInput buttonExact click diff --git a/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st index ccc07fa0..ddb32c3c 100644 --- a/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicExactHorizontalConstraintsBlocCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBasicExactHorizontalConstraintsBlocCommandTest', - #superclass : 'TestCase', + #name : #PyramidBasicExactHorizontalConstraintsBlocCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicExactHorizontalConstraintsBlocCommandTest >> command [ ^ PyramidBasicExactHorizontalConstraintsBlocCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactHorizontalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 p2 a2 b2 | @@ -44,7 +42,7 @@ PyramidBasicExactHorizontalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: b2 prop: 600) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactHorizontalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st index cb6eab39..a1165f8e 100644 --- a/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicExactVerticalConstraintsBlocCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBasicExactVerticalConstraintsBlocCommandTest', - #superclass : 'TestCase', + #name : #PyramidBasicExactVerticalConstraintsBlocCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicExactVerticalConstraintsBlocCommandTest >> command [ ^ PyramidBasicExactVerticalConstraintsBlocCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactVerticalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 p2 a2 b2 | @@ -46,7 +44,7 @@ PyramidBasicExactVerticalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: b2 prop: 100) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicExactVerticalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st index d7fb9337..0c34c59c 100644 --- a/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicHorizontalConstraintsBlocCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBasicHorizontalConstraintsBlocCommandTest', - #superclass : 'TestCase', + #name : #PyramidBasicHorizontalConstraintsBlocCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicHorizontalConstraintsBlocCommandTest >> command [ ^ PyramidBasicHorizontalConstraintsBlocCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicHorizontalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 c1 d1 p2 a2 b2 c2 d2 | @@ -58,7 +56,7 @@ PyramidBasicHorizontalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: d2 prop: #matchParent) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicHorizontalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" @@ -71,14 +69,14 @@ PyramidBasicHorizontalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ } ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicHorizontalConstraintsBlocCommandTest >> testGetValueFor [ self targetsWithValuesAndValues do: [ :each | self assert: (self command getValueFor: each key) asPyramidConstraintsArgument equals: each value ]. ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicHorizontalConstraintsBlocCommandTest >> testHistory [ "Do once. undo @@ -135,7 +133,7 @@ PyramidBasicHorizontalConstraintsBlocCommandTest >> testHistory [ equals: argument ] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicHorizontalConstraintsBlocCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st index c71526e8..6bd1493e 100644 --- a/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBasicVerticalConstraintsBlocCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBasicVerticalConstraintsBlocCommandTest', - #superclass : 'TestCase', + #name : #PyramidBasicVerticalConstraintsBlocCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBasicVerticalConstraintsBlocCommandTest >> command [ ^ PyramidBasicVerticalConstraintsBlocCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicVerticalConstraintsBlocCommandTest >> targetContainers [ | p1 a1 b1 c1 d1 p2 a2 b2 c2 d2 | @@ -58,7 +56,7 @@ PyramidBasicVerticalConstraintsBlocCommandTest >> targetContainers [ (PyramidCommandTestContainer no: a2 with: d2 prop: #matchParent) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBasicVerticalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ "override if needed" @@ -71,14 +69,14 @@ PyramidBasicVerticalConstraintsBlocCommandTest >> targetsCannotBeUsedFor [ } ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicVerticalConstraintsBlocCommandTest >> testGetValueFor [ self targetsWithValuesAndValues do: [ :each | self assert: (self command getValueFor: each key) asPyramidConstraintsArgument equals: each value ]. ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicVerticalConstraintsBlocCommandTest >> testHistory [ "Do once. undo @@ -135,7 +133,7 @@ PyramidBasicVerticalConstraintsBlocCommandTest >> testHistory [ equals: argument ] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBasicVerticalConstraintsBlocCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st index cc4cc122..618ef42f 100644 --- a/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderDashArrayCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBorderDashArrayCommandTest', - #superclass : 'TestCase', + #name : #PyramidBorderDashArrayCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBorderDashArrayCommandTest >> command [ ^ PyramidBorderDashArrayCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderDashArrayCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st index 249cb1ce..a7d65f33 100644 --- a/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderDashOffsetCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBorderDashOffsetCommandTest', - #superclass : 'TestCase', + #name : #PyramidBorderDashOffsetCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBorderDashOffsetCommandTest >> command [ ^ PyramidBorderDashOffsetCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderDashOffsetCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st index 9e2019c3..dce90ad7 100644 --- a/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderLineCapCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBorderLineCapCommandTest', - #superclass : 'TestCase', + #name : #PyramidBorderLineCapCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBorderLineCapCommandTest >> command [ ^ PyramidBorderLineCapCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderLineCapCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st index ff52a611..fef84f1f 100644 --- a/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderLineJoinCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBorderLineJoinCommandTest', - #superclass : 'TestCase', + #name : #PyramidBorderLineJoinCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBorderLineJoinCommandTest >> command [ ^ PyramidBorderLineJoinCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderLineJoinCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st index 9e8ee801..f4ddb511 100644 --- a/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderMiterLimitCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBorderMiterLimitCommandTest', - #superclass : 'TestCase', + #name : #PyramidBorderMiterLimitCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBorderMiterLimitCommandTest >> command [ ^ PyramidBorderMiterLimitCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderMiterLimitCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st index 2e43905d..77ba3328 100644 --- a/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderOpacityCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBorderOpacityCommandTest', - #superclass : 'TestCase', + #name : #PyramidBorderOpacityCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBorderOpacityCommandTest >> command [ ^ PyramidBorderOpacityCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderOpacityCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st b/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st index 3092dfe8..cc091120 100644 --- a/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidBorderTypeCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidBorderTypeCommandTest', - #superclass : 'TestCase', + #name : #PyramidBorderTypeCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidBorderTypeCommandTest >> command [ ^ PyramidBorderPaintCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidBorderTypeCommandTest >> targetContainers [ ^ { @@ -51,7 +49,7 @@ PyramidBorderTypeCommandTest >> targetContainers [ yourself)) } ] -{ #category : 'tests' } +{ #category : #tests } PyramidBorderTypeCommandTest >> testGetValueFor [ self targetsWithValuesAndValues do: [ :each | @@ -60,7 +58,7 @@ PyramidBorderTypeCommandTest >> testGetValueFor [ equals: each value value class ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBorderTypeCommandTest >> testHistory [ "Do once. undo @@ -105,7 +103,7 @@ PyramidBorderTypeCommandTest >> testHistory [ self assert: (self command getValueFor: target) class equals: argument value class] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidBorderTypeCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st b/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st index a15a7bb6..3f304800 100644 --- a/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidChangeOrderWithIndexCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidChangeOrderWithIndexCommandTest', - #superclass : 'TestCase', + #name : #PyramidChangeOrderWithIndexCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-order', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-order' + #category : #'Pyramid-Tests-cases-plugin-bloc-order' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidChangeOrderWithIndexCommandTest >> command [ ^ PyramidChangeOrderWithIndexCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChangeOrderWithIndexCommandTest >> makeElementWithChildren [ | parent c1 c2 c3 | @@ -37,7 +35,7 @@ PyramidChangeOrderWithIndexCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChangeOrderWithIndexCommandTest >> targetContainers [ | test1 test2 test3 test4 test5 test6 | @@ -75,7 +73,7 @@ PyramidChangeOrderWithIndexCommandTest >> targetContainers [ prop: 1) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChangeOrderWithIndexCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | @@ -83,14 +81,14 @@ PyramidChangeOrderWithIndexCommandTest >> targetsCanBeUsedFor [ each targetNoProp } ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidChangeOrderWithIndexCommandTest >> targetsWithValuesAndValues [ ^ self targetContainers collect: [ :each | each targetNoProp -> each targetWithProp ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidChangeOrderWithIndexCommandTest >> testGetValueFor [ self targetsWithValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st b/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st index 9a1c1c7d..18dd1eb5 100644 --- a/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidChangeTextCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidChangeTextCommandTest', - #superclass : 'TestCase', + #name : #PyramidChangeTextCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-text', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-text' + #category : #'Pyramid-Tests-cases-plugin-bloc-text' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidChangeTextCommandTest >> command [ ^ PyramidChangeTextCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidChangeTextCommandTest >> targetContainers [ ^ { @@ -40,7 +38,7 @@ PyramidChangeTextCommandTest >> targetContainers [ prop: 'test3') } ] -{ #category : 'tests' } +{ #category : #tests } PyramidChangeTextCommandTest >> testSetValueForWith [ | attributes | diff --git a/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st b/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st index 60e03e9f..07f02a09 100644 --- a/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidClipChildrenCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidClipChildrenCommandTest', - #superclass : 'TestCase', + #name : #PyramidClipChildrenCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidClipChildrenCommandTest >> command [ ^ PyramidClipChildrenCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidClipChildrenCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st b/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st index 89f56702..207bcdd4 100644 --- a/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st +++ b/src/Pyramid-Tests/PyramidCollectionWithCallbacksTest.class.st @@ -1,22 +1,20 @@ Class { - #name : 'PyramidCollectionWithCallbacksTest', - #superclass : 'TestCase', + #name : #PyramidCollectionWithCallbacksTest, + #superclass : #TestCase, #instVars : [ 'valueToCheck', 'collection' ], - #category : 'Pyramid-Tests-cases-models', - #package : 'Pyramid-Tests', - #tag : 'cases-models' + #category : #'Pyramid-Tests-cases-models' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidCollectionWithCallbacksTest >> collection [ ^ collection ] -{ #category : 'running' } +{ #category : #running } PyramidCollectionWithCallbacksTest >> setUp [ super setUp. @@ -25,7 +23,7 @@ PyramidCollectionWithCallbacksTest >> setUp [ collection subscribe: self withCallback: [ valueToCheck := valueToCheck + 1 ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidCollectionWithCallbacksTest >> testAdd [ self assert: self valueToCheck equals: 0. @@ -40,7 +38,7 @@ PyramidCollectionWithCallbacksTest >> testAdd [ self assert: (self collection includes: #c) ] -{ #category : 'tests' } +{ #category : #tests } PyramidCollectionWithCallbacksTest >> testAddAll [ self assert: self valueToCheck equals: 0. @@ -53,7 +51,7 @@ PyramidCollectionWithCallbacksTest >> testAddAll [ self assert: (self collection includes: #c) ] -{ #category : 'tests' } +{ #category : #tests } PyramidCollectionWithCallbacksTest >> testRemove [ self assert: self valueToCheck equals: 0. @@ -69,7 +67,7 @@ PyramidCollectionWithCallbacksTest >> testRemove [ self assert: (self collection includes: #c) ] -{ #category : 'tests' } +{ #category : #tests } PyramidCollectionWithCallbacksTest >> testRemoveAll [ self assert: self valueToCheck equals: 0. @@ -94,7 +92,7 @@ PyramidCollectionWithCallbacksTest >> testRemoveAll [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidCollectionWithCallbacksTest >> testRemoveIfAbsent [ | secondValueToCheck | @@ -119,7 +117,7 @@ PyramidCollectionWithCallbacksTest >> testRemoveIfAbsent [ self assert: (self collection includes: #c) ] -{ #category : 'tests' } +{ #category : #tests } PyramidCollectionWithCallbacksTest >> testReplaceAll [ self assert: self valueToCheck equals: 0. @@ -135,7 +133,7 @@ PyramidCollectionWithCallbacksTest >> testReplaceAll [ self assert: self valueToCheck equals: 2. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCollectionWithCallbacksTest >> valueToCheck [ ^ valueToCheck ] diff --git a/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st index e5bb35dd..2f26fe58 100644 --- a/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidColorInputMultiLinesPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidColorInputMultiLinesPresenterTest', - #superclass : 'TestCase', + #name : #PyramidColorInputMultiLinesPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputMultiLinesPresenterTest >> dummyValues [ ^ { @@ -18,25 +16,25 @@ PyramidColorInputMultiLinesPresenterTest >> dummyValues [ Color red translucent } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputMultiLinesPresenterTest >> expectedEmptyValue [ ^ Color black alpha: 0 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputMultiLinesPresenterTest >> expectedMixedValues [ ^ Color black alpha: 0 ] -{ #category : 'tests' } +{ #category : #tests } PyramidColorInputMultiLinesPresenterTest >> makeNewInput [ ^ PyramidColorInputMultiLinesPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidColorInputMultiLinesPresenterTest >> triggerValueChangedOf: anInput [ anInput hexaInput hexInput textInput contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st index 87c5444b..6f5c1cfc 100644 --- a/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidColorInputPresenterTest.class.st @@ -1,38 +1,36 @@ Class { - #name : 'PyramidColorInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidColorInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputPresenterTest >> dummyValues [ ^ { Color red . Color transparent . Color blue alpha: 0.5 . Color pink } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputPresenterTest >> expectedEmptyValue [ ^ PyramidColorInputPresenter new defaultColor ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputPresenterTest >> expectedMixedValues [ ^ PyramidColorInputPresenter new defaultColor ] -{ #category : 'tests' } +{ #category : #tests } PyramidColorInputPresenterTest >> makeNewInput [ ^ PyramidColorInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidColorInputPresenterTest >> triggerValueChangedOf: anInput [ anInput svMorph selectedColor: anInput value diff --git a/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st index aabab103..6c1bd946 100644 --- a/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidColorInputSingleLinePresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidColorInputSingleLinePresenterTest', - #superclass : 'TestCase', + #name : #PyramidColorInputSingleLinePresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputSingleLinePresenterTest >> dummyValues [ ^ { @@ -18,25 +16,25 @@ PyramidColorInputSingleLinePresenterTest >> dummyValues [ Color red translucent } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputSingleLinePresenterTest >> expectedEmptyValue [ ^ Color black alpha: 0 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputSingleLinePresenterTest >> expectedMixedValues [ ^ Color black alpha: 0 ] -{ #category : 'tests' } +{ #category : #tests } PyramidColorInputSingleLinePresenterTest >> makeNewInput [ ^ PyramidColorInputSingleLinePresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidColorInputSingleLinePresenterTest >> triggerValueChangedOf: anInput [ anInput hexInput textInput contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st b/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st index 7ac9a3f2..c8cfa5c3 100644 --- a/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidColorInputSingleLineWithPickupButtonPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidColorInputSingleLineWithPickupButtonPresenterTest', - #superclass : 'TestCase', + #name : #PyramidColorInputSingleLineWithPickupButtonPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputSingleLineWithPickupButtonPresenterTest >> dummyValues [ ^ { @@ -18,25 +16,25 @@ PyramidColorInputSingleLineWithPickupButtonPresenterTest >> dummyValues [ Color red translucent } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputSingleLineWithPickupButtonPresenterTest >> expectedEmptyValue [ ^ Color black alpha: 0 ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidColorInputSingleLineWithPickupButtonPresenterTest >> expectedMixedValues [ ^ Color black alpha: 0 ] -{ #category : 'tests' } +{ #category : #tests } PyramidColorInputSingleLineWithPickupButtonPresenterTest >> makeNewInput [ ^ PyramidColorInputSingleLineWithPickupButtonPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidColorInputSingleLineWithPickupButtonPresenterTest >> triggerValueChangedOf: anInput [ anInput singleLineInput hexInput textInput contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidCommandTest.class.st b/src/Pyramid-Tests/PyramidCommandTest.class.st index f3cd55d8..8403402a 100644 --- a/src/Pyramid-Tests/PyramidCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidCommandTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidCommandTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidCommandTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testClusterOf [ self testClusterOf0Element. @@ -16,7 +14,7 @@ PyramidCommandTest >> testClusterOf [ self testClusterOfNElementsWithGroupedValue ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testClusterOf0Element [ | mocks cluster | @@ -33,7 +31,7 @@ PyramidCommandTest >> testClusterOf0Element [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testClusterOf1Element [ | mocks cluster | @@ -57,7 +55,7 @@ PyramidCommandTest >> testClusterOf1Element [ (cluster individualAssociations first value includes: mocks first). ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testClusterOfNElementsWithDifferentsValues [ | mocks cluster | @@ -94,7 +92,7 @@ PyramidCommandTest >> testClusterOfNElementsWithDifferentsValues [ each value first = mock and: [ each key = mock count ] ]) ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testClusterOfNElementsWithGroupedValue [ | mocks cluster association | @@ -129,7 +127,7 @@ PyramidCommandTest >> testClusterOfNElementsWithGroupedValue [ each value first = mock and: [ each key = #group ] ]) ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testClusterOfNElementsWithSameValue [ @@ -172,7 +170,7 @@ PyramidCommandTest >> testClusterOfNElementsWithSameValue [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testSaveStatesOfWith [ | mocks mementos | @@ -249,7 +247,7 @@ PyramidCommandTest >> testSaveStatesOfWith [ self assert: mementos mementos second arguments equals: nil ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testSaveStatesWithCommandInverseOfWith [ | mocks mementos | @@ -332,7 +330,7 @@ PyramidCommandTest >> testSaveStatesWithCommandInverseOfWith [ self assert: mementos mementos second arguments equals: nil ] -{ #category : 'tests' } +{ #category : #tests } PyramidCommandTest >> testUseOnWith [ | mocks | diff --git a/src/Pyramid-Tests/PyramidCommandTestContainer.class.st b/src/Pyramid-Tests/PyramidCommandTestContainer.class.st index b814ad4a..a9f8912a 100644 --- a/src/Pyramid-Tests/PyramidCommandTestContainer.class.st +++ b/src/Pyramid-Tests/PyramidCommandTestContainer.class.st @@ -1,53 +1,51 @@ Class { - #name : 'PyramidCommandTestContainer', - #superclass : 'Object', + #name : #PyramidCommandTestContainer, + #superclass : #Object, #instVars : [ 'targetNoProp', 'targetWithProp', 'prop' ], - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidCommandTestContainer class >> no: aTargetNoProp with: aTargetWithProp prop: aProp [ ^ self new targetNoProp: aTargetNoProp; targetWithProp: aTargetWithProp; prop: aProp; yourself ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCommandTestContainer >> prop [ ^ prop ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCommandTestContainer >> prop: anObject [ prop := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCommandTestContainer >> targetNoProp [ ^ targetNoProp ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCommandTestContainer >> targetNoProp: anObject [ targetNoProp := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCommandTestContainer >> targetWithProp [ ^ targetWithProp ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCommandTestContainer >> targetWithProp: anObject [ targetWithProp := anObject diff --git a/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st b/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st index 77b7b5ca..f099b03f 100644 --- a/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st +++ b/src/Pyramid-Tests/PyramidContextMenuPluginTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidContextMenuPluginTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-context-menu', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-context-menu' + #name : #PyramidContextMenuPluginTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-context-menu' } -{ #category : 'tests' } +{ #category : #tests } PyramidContextMenuPluginTest >> testMenuBrowseAndInspectOn [ | builder menu | @@ -29,7 +27,7 @@ PyramidContextMenuPluginTest >> testMenuBrowseAndInspectOn [ self assert: menu menuGroups first menuItems size equals: 2. ] -{ #category : 'tests' } +{ #category : #tests } PyramidContextMenuPluginTest >> testMenuContextOn [ | builder menu | diff --git a/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st b/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st index 45c49c48..f4f63696 100644 --- a/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st +++ b/src/Pyramid-Tests/PyramidCopyPastePluginTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidCopyPastePluginTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-copy', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-copy' + #name : #PyramidCopyPastePluginTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-copy' } -{ #category : 'tests' } +{ #category : #tests } PyramidCopyPastePluginTest >> testCopyAsStonMenu [ | menuBuilder menu materialize | diff --git a/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st index c3295b2b..cf93277f 100644 --- a/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidCornerRadiiInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidCornerRadiiInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidCornerRadiiInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-geometry', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-geometry' + #category : #'Pyramid-Tests-cases-plugin-bloc-geometry' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidCornerRadiiInputPresenterTest >> dummyValues [ ^ { @@ -21,25 +19,25 @@ PyramidCornerRadiiInputPresenterTest >> dummyValues [ bottomRight: 4; yourself) } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCornerRadiiInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidCornerRadiiInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidCornerRadiiInputPresenterTest >> makeNewInput [ ^ PyramidCornerRadiiInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidCornerRadiiInputPresenterTest >> triggerValueChangedOf: anInput [ anInput inputArray inputArray contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st b/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st index 11e26491..6e1c22c6 100644 --- a/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st +++ b/src/Pyramid-Tests/PyramidDecreaseMockCommand.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidDecreaseMockCommand', - #superclass : 'PyramidMockCommand', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidDecreaseMockCommand, + #superclass : #PyramidMockCommand, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidDecreaseMockCommand >> commandInverse [ ^ PyramidIncreaseMockCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidDecreaseMockCommand >> getValueFor: anObject [ ^ nil ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidDecreaseMockCommand >> setValueFor: anObject with: anArgument [ anObject count: anObject count - 1 diff --git a/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st b/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st index e5d43651..11469e58 100644 --- a/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st +++ b/src/Pyramid-Tests/PyramidDynamicLayoutStrategyTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidDynamicLayoutStrategyTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-dynamic-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-dynamic-layout' + #name : #PyramidDynamicLayoutStrategyTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-dynamic-layout' } -{ #category : 'tests' } +{ #category : #tests } PyramidDynamicLayoutStrategyTest >> testLayoutFor [ self @@ -23,7 +21,7 @@ PyramidDynamicLayoutStrategyTest >> testLayoutFor [ withExpectedNoteBooks: 1 ] -{ #category : 'tests' } +{ #category : #tests } PyramidDynamicLayoutStrategyTest >> testLayoutForStrategy: aLayoutStrategy withExpectedNoteBooks: aNumber [ | presenters | diff --git a/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st b/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st index 7f11f329..76a3d469 100644 --- a/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st +++ b/src/Pyramid-Tests/PyramidEditorBuilderTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidEditorBuilderTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-core', - #package : 'Pyramid-Tests', - #tag : 'cases-core' + #name : #PyramidEditorBuilderTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-core' } -{ #category : 'tests' } +{ #category : #tests } PyramidEditorBuilderTest >> testBuild1 [ | editor plugin1 plugin2 | @@ -25,7 +23,7 @@ PyramidEditorBuilderTest >> testBuild1 [ self assert: plugin2 isInstalled ] -{ #category : 'tests' } +{ #category : #tests } PyramidEditorBuilderTest >> testBuild2 [ | editor plugin1 plugin2 | diff --git a/src/Pyramid-Tests/PyramidEditorTest.class.st b/src/Pyramid-Tests/PyramidEditorTest.class.st index 0cb98d01..baab7d2e 100644 --- a/src/Pyramid-Tests/PyramidEditorTest.class.st +++ b/src/Pyramid-Tests/PyramidEditorTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidEditorTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-core', - #package : 'Pyramid-Tests', - #tag : 'cases-core' + #name : #PyramidEditorTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-core' } -{ #category : 'tests' } +{ #category : #tests } PyramidEditorTest >> openFromBlSpace [ | editor space element | @@ -32,7 +30,7 @@ PyramidEditorTest >> openFromBlSpace [ self assert: (space root children includes: element) ] -{ #category : 'tests' } +{ #category : #tests } PyramidEditorTest >> openNewEditor [ | editor spec | @@ -52,7 +50,7 @@ PyramidEditorTest >> openNewEditor [ self deny: spec window isInWorld ] -{ #category : 'running' } +{ #category : #running } PyramidEditorTest >> setUp [ super setUp. @@ -60,7 +58,7 @@ PyramidEditorTest >> setUp [ PyramidPluginManager imagePluginClasses do: [ :each | each initialize ]. ] -{ #category : 'tests' } +{ #category : #tests } PyramidEditorTest >> testOpenFromBlSpace [ Smalltalk isInteractiveGraphic ifFalse: [ ^ self skip ]. @@ -68,7 +66,7 @@ PyramidEditorTest >> testOpenFromBlSpace [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidEditorTest >> testOpenFromBlSpaceWithSpacePluginUninstalled [ PyramidPluginManager uniqueInstance removePlugin: PyramidSpacePlugin. @@ -76,7 +74,7 @@ PyramidEditorTest >> testOpenFromBlSpaceWithSpacePluginUninstalled [ PyramidPluginManager uniqueInstance addPlugin: PyramidSpacePlugin ] -{ #category : 'tests' } +{ #category : #tests } PyramidEditorTest >> testOpenNewEditor [ "This test does not work on a headless vm. The current CI use a headless vm." @@ -84,7 +82,7 @@ PyramidEditorTest >> testOpenNewEditor [ self openNewEditor. ] -{ #category : 'tests' } +{ #category : #tests } PyramidEditorTest >> testOpenNewEditorWithSpacePluginUninstalled [ PyramidPluginManager uniqueInstance removePlugin: PyramidSpacePlugin. diff --git a/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st b/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st index bb375055..b235dc3b 100644 --- a/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidElementIdCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidElementIdCommandTest', - #superclass : 'TestCase', + #name : #PyramidElementIdCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidElementIdCommandTest >> command [ ^ PyramidElementIdCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementIdCommandTest >> targetContainers [ diff --git a/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st b/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st index 94aa9b70..46f21802 100644 --- a/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st +++ b/src/Pyramid-Tests/PyramidElementIdSortFunctionTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidElementIdSortFunctionTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-bloc-utils', - #package : 'Pyramid-Tests', - #tag : 'cases-bloc-utils' + #name : #PyramidElementIdSortFunctionTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-bloc-utils' } -{ #category : 'tests' } +{ #category : #tests } PyramidElementIdSortFunctionTest >> testSorting [ | data sorted parent e1 e2 e3 e4 e5 | diff --git a/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st b/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st index 4e304977..691ca691 100644 --- a/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st +++ b/src/Pyramid-Tests/PyramidElementsManipulationHelperTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidElementsManipulationHelperTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-bloc-utils', - #package : 'Pyramid-Tests', - #tag : 'cases-bloc-utils' + #name : #PyramidElementsManipulationHelperTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-bloc-utils' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementsManipulationHelperTest >> arrayOf3Elements [ | e1 e2 e3| @@ -19,7 +17,7 @@ PyramidElementsManipulationHelperTest >> arrayOf3Elements [ ^ { e1 . e2 . e3 } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidElementsManipulationHelperTest >> arrayOfElements [ " @@ -40,7 +38,7 @@ D1 -> D2 -> D3. ] -{ #category : 'tests' } +{ #category : #tests } PyramidElementsManipulationHelperTest >> testFlattenChildrenOfCollection [ | arrayOfElements test result | @@ -59,7 +57,7 @@ PyramidElementsManipulationHelperTest >> testFlattenChildrenOfCollection [ (arrayOfElements at: 2) first firstChild firstChild }) ] -{ #category : 'tests' } +{ #category : #tests } PyramidElementsManipulationHelperTest >> testOnlyParents [ "selection := {A1 . B1 . B2 . C1 . C3}. PyramidElementsManipulationHelper onlyParents: selection diff --git a/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st b/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st index 0b682c8f..9ad0b773 100644 --- a/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st +++ b/src/Pyramid-Tests/PyramidElevationSortFunctionTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidElevationSortFunctionTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-bloc-utils', - #package : 'Pyramid-Tests', - #tag : 'cases-bloc-utils' + #name : #PyramidElevationSortFunctionTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-bloc-utils' } -{ #category : 'tests' } +{ #category : #tests } PyramidElevationSortFunctionTest >> testSorting [ | data sorted parent e1 e2 e3 e4 e5 | diff --git a/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st b/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st index 2f8b11c9..c23baa5c 100644 --- a/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st +++ b/src/Pyramid-Tests/PyramidExternalRessourceDummyForTest.class.st @@ -1,34 +1,32 @@ Class { - #name : 'PyramidExternalRessourceDummyForTest', - #superclass : 'Object', + #name : #PyramidExternalRessourceDummyForTest, + #superclass : #Object, #instVars : [ 'dummyValue' ], - #category : 'Pyramid-Tests-cases-external-ressources', - #package : 'Pyramid-Tests', - #tag : 'cases-external-ressources' + #category : #'Pyramid-Tests-cases-external-ressources' } -{ #category : 'tests - other' } +{ #category : #'tests - other' } PyramidExternalRessourceDummyForTest class >> startAt3 [ ^ self new dummyValuePlus dummyValuePlus dummyValuePlus ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidExternalRessourceDummyForTest >> dummyValue [ ^ dummyValue ] -{ #category : 'increment' } +{ #category : #increment } PyramidExternalRessourceDummyForTest >> dummyValuePlus [ dummyValue := dummyValue + 1 ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidExternalRessourceDummyForTest >> initialize [ dummyValue := 0 diff --git a/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st b/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st index 630e089e..53319120 100644 --- a/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st +++ b/src/Pyramid-Tests/PyramidExternalRessourceProxyTest.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidExternalRessourceProxyTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-external-ressources', - #package : 'Pyramid-Tests', - #tag : 'cases-external-ressources' + #name : #PyramidExternalRessourceProxyTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-external-ressources' } -{ #category : 'tests - other' } +{ #category : #'tests - other' } PyramidExternalRessourceProxyTest class >> dummyExample [ ^ PyramidExternalRessourceDummyForTest new ] -{ #category : 'tests - other' } +{ #category : #'tests - other' } PyramidExternalRessourceProxyTest class >> stonAsObject [ ^ STON fromString: 'PyramidExternalRessourceDummyForTest{#dummyValue:0}' ] -{ #category : 'tests - other' } +{ #category : #'tests - other' } PyramidExternalRessourceProxyTest class >> stonOnStonAsObject [ ^ STON fromString: '[ @@ -39,7 +37,7 @@ PyramidExternalRessourceProxyTest class >> stonOnStonAsObject [ ]' ] -{ #category : 'tests' } +{ #category : #tests } PyramidExternalRessourceProxyTest >> testFromSource [ | externalRessourceProxy | @@ -55,7 +53,7 @@ PyramidExternalRessourceProxyTest >> testFromSource [ self assert: externalRessourceProxy dummyValue equals: 3 ] -{ #category : 'tests' } +{ #category : #tests } PyramidExternalRessourceProxyTest >> testStonOnSton [ | dummys newDummys | diff --git a/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st b/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st index a6c578f6..5007962a 100644 --- a/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st +++ b/src/Pyramid-Tests/PyramidExternalRessourceSourceTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidExternalRessourceSourceTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-external-ressources', - #package : 'Pyramid-Tests', - #tag : 'cases-external-ressources' + #name : #PyramidExternalRessourceSourceTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-external-ressources' } -{ #category : 'tests' } +{ #category : #tests } PyramidExternalRessourceSourceTest >> testFormFromFileNamed [ | form hash path ressource newRessource | @@ -30,7 +28,7 @@ PyramidExternalRessourceSourceTest >> testFormFromFileNamed [ self assert: path asFileReference exists not ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidExternalRessourceSourceTest >> testGetRessource [ | externalRessource object | @@ -41,7 +39,7 @@ PyramidExternalRessourceSourceTest >> testGetRessource [ self assert: object dummyValue equals: 3. ] -{ #category : 'tests' } +{ #category : #tests } PyramidExternalRessourceSourceTest >> testSerialize [ | array arrayColors | @@ -62,7 +60,7 @@ PyramidExternalRessourceSourceTest >> testSerialize [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidExternalRessourceSourceTest >> testTargetSelector [ | color newColor | @@ -73,7 +71,7 @@ PyramidExternalRessourceSourceTest >> testTargetSelector [ self assert: newColor getRessource equals: Color red ] -{ #category : 'tests' } +{ #category : #tests } PyramidExternalRessourceSourceTest >> testTargetSelectorArguments [ | color newColor | diff --git a/src/Pyramid-Tests/PyramidFakeExtension.class.st b/src/Pyramid-Tests/PyramidFakeExtension.class.st index 737765e0..72a83283 100644 --- a/src/Pyramid-Tests/PyramidFakeExtension.class.st +++ b/src/Pyramid-Tests/PyramidFakeExtension.class.st @@ -1,29 +1,27 @@ Class { - #name : 'PyramidFakeExtension', - #superclass : 'Object', + #name : #PyramidFakeExtension, + #superclass : #Object, #instVars : [ 'isInstalled', 'editor', 'projectModel' ], - #category : 'Pyramid-Tests-cases-plugin-space', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-space' + #category : #'Pyramid-Tests-cases-plugin-space' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakeExtension >> editor [ ^ editor ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakeExtension >> editor: anObject [ editor := true. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakeExtension >> initialize [ isInstalled := false. @@ -31,25 +29,25 @@ PyramidFakeExtension >> initialize [ editor := false. ] -{ #category : 'displaying' } +{ #category : #displaying } PyramidFakeExtension >> installOn: anObject [ isInstalled := true ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakeExtension >> isInstalled [ ^ isInstalled ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakeExtension >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakeExtension >> projectModel: anObject [ projectModel := true diff --git a/src/Pyramid-Tests/PyramidFakePlugin.class.st b/src/Pyramid-Tests/PyramidFakePlugin.class.st index f5e5aa6b..34d9e9fe 100644 --- a/src/Pyramid-Tests/PyramidFakePlugin.class.st +++ b/src/Pyramid-Tests/PyramidFakePlugin.class.st @@ -1,47 +1,45 @@ Class { - #name : 'PyramidFakePlugin', - #superclass : 'Object', + #name : #PyramidFakePlugin, + #superclass : #Object, #instVars : [ 'addPanelsOn', 'configureBuilder', 'connectOn' ], - #category : 'Pyramid-Tests-cases-core', - #package : 'Pyramid-Tests', - #tag : 'cases-core' + #category : #'Pyramid-Tests-cases-core' } -{ #category : 'asserting' } +{ #category : #asserting } PyramidFakePlugin class >> shouldInstall [ ^ true ] -{ #category : 'adding' } +{ #category : #adding } PyramidFakePlugin >> addPanelsOn: aPyramidSimpleWindow [ addPanelsOn := true ] -{ #category : 'actions' } +{ #category : #actions } PyramidFakePlugin >> configureBuilder: aPyramidEditorBuilder [ configureBuilder:=true ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakePlugin >> connectOn: aPyramidEditor [ connectOn:=true ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidFakePlugin >> initialize [ addPanelsOn := false. configureBuilder := false. connectOn := false ] -{ #category : 'testing' } +{ #category : #testing } PyramidFakePlugin >> isInstalled [ diff --git a/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st b/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st index 9132696a..7f726cff 100644 --- a/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st +++ b/src/Pyramid-Tests/PyramidFakePluginThatShouldNotBeInstalled.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidFakePluginThatShouldNotBeInstalled', - #superclass : 'PyramidFakePlugin', - #category : 'Pyramid-Tests-cases-core', - #package : 'Pyramid-Tests', - #tag : 'cases-core' + #name : #PyramidFakePluginThatShouldNotBeInstalled, + #superclass : #PyramidFakePlugin, + #category : #'Pyramid-Tests-cases-core' } -{ #category : 'asserting' } +{ #category : #asserting } PyramidFakePluginThatShouldNotBeInstalled class >> shouldInstall [ ^ false diff --git a/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st b/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st index f6436370..13d1a2f2 100644 --- a/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st +++ b/src/Pyramid-Tests/PyramidFakePropertyForTestStrategy.class.st @@ -1,38 +1,36 @@ Class { - #name : 'PyramidFakePropertyForTestStrategy', - #superclass : 'PyramidPresenterPropertiesStrategy', + #name : #PyramidFakePropertyForTestStrategy, + #superclass : #PyramidPresenterPropertiesStrategy, #instVars : [ 'properties' ], - #category : 'Pyramid-Tests-cases-property', - #package : 'Pyramid-Tests', - #tag : 'cases-property' + #category : #'Pyramid-Tests-cases-property' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFakePropertyForTestStrategy >> buildPresenterFromCollection: aCollection andManager: aManager [ self properties: aManager properties ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidFakePropertyForTestStrategy >> initialize [ properties := OrderedCollection new. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakePropertyForTestStrategy >> properties [ ^ properties ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakePropertyForTestStrategy >> properties: anObject [ properties := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFakePropertyForTestStrategy >> size [ ^ self properties size diff --git a/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st b/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st index 0f872fde..a112b867 100644 --- a/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidFlowLayoutOrientationPresenterTest.class.st @@ -1,38 +1,36 @@ Class { - #name : 'PyramidFlowLayoutOrientationPresenterTest', - #superclass : 'TestCase', + #name : #PyramidFlowLayoutOrientationPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidFlowLayoutOrientationPresenterTest >> dummyValues [ ^ { BlLayoutOrientation vertical. BlLayoutOrientation horizontal. BlLayoutOrientation horizontal. BlLayoutOrientation vertical. BlLayoutOrientation horizontal } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFlowLayoutOrientationPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFlowLayoutOrientationPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidFlowLayoutOrientationPresenterTest >> makeNewInput [ ^ PyramidFlowLayoutOrientationPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFlowLayoutOrientationPresenterTest >> triggerValueChangedOf: anInput [ anInput button click diff --git a/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st b/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st index 3c407610..effab2f4 100644 --- a/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidFontSizeCommandTest.class.st @@ -1,26 +1,24 @@ Class { - #name : 'PyramidFontSizeCommandTest', - #superclass : 'TestCase', + #name : #PyramidFontSizeCommandTest, + #superclass : #TestCase, #traits : 'TPyramidFontAttributeCommandTest', #classTraits : 'TPyramidFontAttributeCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-text', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-text' + #category : #'Pyramid-Tests-cases-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFontSizeCommandTest >> attributeClass [ ^ BlFontSizeAttribute ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFontSizeCommandTest >> command [ ^ PyramidFontSizeCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFontSizeCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st b/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st index d3c2a069..ca2f6b2e 100644 --- a/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidFontWeightCommandTest.class.st @@ -1,26 +1,24 @@ Class { - #name : 'PyramidFontWeightCommandTest', - #superclass : 'TestCase', + #name : #PyramidFontWeightCommandTest, + #superclass : #TestCase, #traits : 'TPyramidFontAttributeCommandTest', #classTraits : 'TPyramidFontAttributeCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-text', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-text' + #category : #'Pyramid-Tests-cases-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFontWeightCommandTest >> attributeClass [ ^ BlFontWeightAttribute ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidFontWeightCommandTest >> command [ ^ PyramidFontWeightCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidFontWeightCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st b/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st index e5560919..070c4ad8 100644 --- a/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidGeometryCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidGeometryCommandTest', - #superclass : 'TestCase', + #name : #PyramidGeometryCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-geometry', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-geometry' + #category : #'Pyramid-Tests-cases-plugin-bloc-geometry' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryCommandTest >> command [ ^ PyramidGeometryCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st index 13136f2b..c2052534 100644 --- a/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidGeometryInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidGeometryInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidGeometryInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-geometry', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-geometry' + #category : #'Pyramid-Tests-cases-plugin-bloc-geometry' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidGeometryInputPresenterTest >> dummyValues [ ^ { @@ -21,13 +19,13 @@ PyramidGeometryInputPresenterTest >> dummyValues [ (0 @ 100) }) } ] -{ #category : 'tests' } +{ #category : #tests } PyramidGeometryInputPresenterTest >> makeNewInput [ ^ PyramidGeometryInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGeometryInputPresenterTest >> triggerValueChangedOf: anInput [ anInput whenValueChangedDo value: anInput value diff --git a/src/Pyramid-Tests/PyramidGroupCommandTest.class.st b/src/Pyramid-Tests/PyramidGroupCommandTest.class.st index 9f7f34b4..8ba4c0db 100644 --- a/src/Pyramid-Tests/PyramidGroupCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidGroupCommandTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidGroupCommandTest', - #superclass : 'TestCase', + #name : #PyramidGroupCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-group', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-group' + #category : #'Pyramid-Tests-cases-plugin-bloc-group' } -{ #category : 'tests' } +{ #category : #tests } PyramidGroupCommandTest >> assertBeforeSetValuefor: selection parent: originalParent firstLevel: firstLevelElements elements: aCollection [ "children have the same parent (originalParent)." @@ -47,7 +45,7 @@ PyramidGroupCommandTest >> assertBeforeSetValuefor: selection parent: originalPa equals: 30 asPoint ] -{ #category : 'tests' } +{ #category : #tests } PyramidGroupCommandTest >> assertSetValuefor: selection parent: originalParent firstLevel: firstLevelElements elements: aCollection [ | group | @@ -88,13 +86,13 @@ PyramidGroupCommandTest >> assertSetValuefor: selection parent: originalParent f equals: 20 asPoint ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidGroupCommandTest >> command [ ^ PyramidGroupCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidGroupCommandTest >> makeParentTestCase [ | parent e1 e2 e3 e4 | @@ -125,7 +123,7 @@ PyramidGroupCommandTest >> makeParentTestCase [ ^ parent ] -{ #category : 'tests' } +{ #category : #tests } PyramidGroupCommandTest >> testCanBeUsedFor [ | originalParent selection e1 e2 e3 | @@ -142,7 +140,7 @@ PyramidGroupCommandTest >> testCanBeUsedFor [ self deny: (self command canBeUsedFor: each) ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidGroupCommandTest >> testGetValueFor [ | originalParent selection e1 e2 e3 | @@ -158,7 +156,7 @@ PyramidGroupCommandTest >> testGetValueFor [ self assert: (self command getValueFor: selection) equals: nil ] -{ #category : 'tests' } +{ #category : #tests } PyramidGroupCommandTest >> testHistory [ "Do once. undo @@ -246,7 +244,7 @@ PyramidGroupCommandTest >> testHistory [ e3 } ] -{ #category : 'tests' } +{ #category : #tests } PyramidGroupCommandTest >> testSetValueForWith [ | originalParent selection firstLevelElements e1 e2 e3 | diff --git a/src/Pyramid-Tests/PyramidHistoryTest.class.st b/src/Pyramid-Tests/PyramidHistoryTest.class.st index a490eda1..9018bea2 100644 --- a/src/Pyramid-Tests/PyramidHistoryTest.class.st +++ b/src/Pyramid-Tests/PyramidHistoryTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidHistoryTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-history', - #package : 'Pyramid-Tests', - #tag : 'cases-history' + #name : #PyramidHistoryTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-history' } -{ #category : 'tests' } +{ #category : #tests } PyramidHistoryTest >> testCanRedo [ | commandExec dummyCommand dummyTarget dummyArguments | @@ -29,7 +27,7 @@ PyramidHistoryTest >> testCanRedo [ self deny: commandExec history canRedo ] -{ #category : 'tests' } +{ #category : #tests } PyramidHistoryTest >> testCanUndo [ | commandExec dummyCommand dummyTarget dummyArguments | @@ -50,7 +48,7 @@ PyramidHistoryTest >> testCanUndo [ self deny: commandExec history canUndo ] -{ #category : 'tests' } +{ #category : #tests } PyramidHistoryTest >> testCollectionHistory [ " @@ -109,7 +107,7 @@ PyramidHistoryTest >> testCollectionHistory [ 1 to: 200 do: [ :i | self assert: (collection includes: i) ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidHistoryTest >> testRedo [ | commandExec dummyTarget | @@ -170,7 +168,7 @@ PyramidHistoryTest >> testRedo [ self assert: dummyTarget first count equals: 11 ] -{ #category : 'tests' } +{ #category : #tests } PyramidHistoryTest >> testUndo [ | commandExec dummyCommand dummyTarget dummyArguments | diff --git a/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st index 1478700f..e50b71f6 100644 --- a/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidHorizontalFrameConstraintsInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidHorizontalFrameConstraintsInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidHorizontalFrameConstraintsInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidHorizontalFrameConstraintsInputPresenterTest >> dummyValues [ ^ { @@ -21,25 +19,25 @@ PyramidHorizontalFrameConstraintsInputPresenterTest >> dummyValues [ BlFrameLayoutConstraintsHorizontal new alignRightAt: 0.5; alignment } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidHorizontalFrameConstraintsInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidHorizontalFrameConstraintsInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidHorizontalFrameConstraintsInputPresenterTest >> makeNewInput [ ^ PyramidHorizontalFrameConstraintsInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidHorizontalFrameConstraintsInputPresenterTest >> triggerValueChangedOf: anInput [ anInput inputRelative inputNumber contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st b/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st index c1c3e23d..cd869468 100644 --- a/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st +++ b/src/Pyramid-Tests/PyramidIncreaseMockCommand.class.st @@ -1,24 +1,22 @@ Class { - #name : 'PyramidIncreaseMockCommand', - #superclass : 'PyramidMockCommand', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidIncreaseMockCommand, + #superclass : #PyramidMockCommand, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidIncreaseMockCommand >> commandInverse [ ^ PyramidDecreaseMockCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidIncreaseMockCommand >> getValueFor: anObject [ ^ nil ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidIncreaseMockCommand >> setValueFor: anObject with: anArgument [ anObject count: anObject count + 1 diff --git a/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st index 2fee38e5..54a093d6 100644 --- a/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidInsetsInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidInsetsInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidInsetsInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidInsetsInputPresenterTest >> dummyValues [ ^ { @@ -17,25 +15,25 @@ PyramidInsetsInputPresenterTest >> dummyValues [ BlInsets top: 1 left: 2 bottom: 3 right: 4} ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidInsetsInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidInsetsInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidInsetsInputPresenterTest >> makeNewInput [ ^ PyramidInsetsInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidInsetsInputPresenterTest >> triggerValueChangedOf: anInput [ anInput inputArray inputArray contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st b/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st index 5830b144..9482a8d8 100644 --- a/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidLayoutBlocCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidLayoutBlocCommandTest', - #superclass : 'TestCase', + #name : #PyramidLayoutBlocCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidLayoutBlocCommandTest >> command [ ^ PyramidLayoutBlocCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLayoutBlocCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st b/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st index 945506e7..b0e2e9e5 100644 --- a/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidLayoutChangeOrientationCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidLayoutChangeOrientationCommandTest', - #superclass : 'TestCase', + #name : #PyramidLayoutChangeOrientationCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidLayoutChangeOrientationCommandTest >> command [ ^ PyramidLayoutChangeOrientationCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLayoutChangeOrientationCommandTest >> targetContainers [ ^ { (PyramidCommandTestContainer @@ -51,7 +49,7 @@ PyramidLayoutChangeOrientationCommandTest >> targetContainers [ prop: BlLayoutOrientation horizontal) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLayoutChangeOrientationCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st b/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st index bf8be69c..217e2196 100644 --- a/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidLibraryPresenterTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidLibraryPresenterTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-tree-library', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-tree-library' + #name : #PyramidLibraryPresenterTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-tree-library' } -{ #category : 'tests' } +{ #category : #tests } PyramidLibraryPresenterTest >> testIdGenerator [ "We generate a bunch of id and we verify that none are the same" diff --git a/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st b/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st index 0f5c6ce0..65542524 100644 --- a/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidLinearLayoutOrientationPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidLinearLayoutOrientationPresenterTest', - #superclass : 'TestCase', + #name : #PyramidLinearLayoutOrientationPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidLinearLayoutOrientationPresenterTest >> dummyValues [ ^ { @@ -19,25 +17,25 @@ PyramidLinearLayoutOrientationPresenterTest >> dummyValues [ BlLinearLayoutHorizontalOrientation new } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidLinearLayoutOrientationPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidLinearLayoutOrientationPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidLinearLayoutOrientationPresenterTest >> makeNewInput [ ^ PyramidLinearLayoutOrientationPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidLinearLayoutOrientationPresenterTest >> triggerValueChangedOf: anInput [ anInput button click diff --git a/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st index fc551576..65ddba88 100644 --- a/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidMagicButtonsInputPresenterTest.class.st @@ -1,32 +1,30 @@ Class { - #name : 'PyramidMagicButtonsInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidMagicButtonsInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidMagicButtonsInputPresenterTest >> dummyValues [ ^ { #ok . #cancel } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMagicButtonsInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMagicButtonsInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidMagicButtonsInputPresenterTest >> makeNewInput [ ^ PyramidMagicButtonsInputPresenter new @@ -51,13 +49,13 @@ PyramidMagicButtonsInputPresenterTest >> makeNewInput [ yourself ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMagicButtonsInputPresenterTest >> makeNewInputWithModel [ ^ self makeNewInput ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMagicButtonsInputPresenterTest >> triggerValueChangedOf: anInput [ anInput whenValueChangedDo value: anInput value diff --git a/src/Pyramid-Tests/PyramidMarginCommandTest.class.st b/src/Pyramid-Tests/PyramidMarginCommandTest.class.st index ccdc343d..1ff7ea4b 100644 --- a/src/Pyramid-Tests/PyramidMarginCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidMarginCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidMarginCommandTest', - #superclass : 'TestCase', + #name : #PyramidMarginCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidMarginCommandTest >> command [ ^ PyramidMarginCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMarginCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidMockCommand.class.st b/src/Pyramid-Tests/PyramidMockCommand.class.st index cd851a46..752d6f2b 100644 --- a/src/Pyramid-Tests/PyramidMockCommand.class.st +++ b/src/Pyramid-Tests/PyramidMockCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidMockCommand', - #superclass : 'PyramidCommand', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidMockCommand, + #superclass : #PyramidCommand, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'testing' } +{ #category : #testing } PyramidMockCommand class >> isAbstract [ ^ self == PyramidMockCommand ] -{ #category : 'testing' } +{ #category : #testing } PyramidMockCommand >> canBeUsedFor: anObject [ ^ anObject class = PyramidMockObjectForTest diff --git a/src/Pyramid-Tests/PyramidMockObjectForTest.class.st b/src/Pyramid-Tests/PyramidMockObjectForTest.class.st index b13ca3f2..a9bceb18 100644 --- a/src/Pyramid-Tests/PyramidMockObjectForTest.class.st +++ b/src/Pyramid-Tests/PyramidMockObjectForTest.class.st @@ -1,27 +1,25 @@ Class { - #name : 'PyramidMockObjectForTest', - #superclass : 'Object', + #name : #PyramidMockObjectForTest, + #superclass : #Object, #instVars : [ 'count' ], - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidMockObjectForTest >> count [ ^ count ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMockObjectForTest >> count: anObject [ count := anObject ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidMockObjectForTest >> initialize [ count := 0. diff --git a/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st index 89cd9d66..beae1f5e 100644 --- a/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidMoveBackwardOrderCommandTest.class.st @@ -1,26 +1,24 @@ Class { - #name : 'PyramidMoveBackwardOrderCommandTest', - #superclass : 'TestCase', + #name : #PyramidMoveBackwardOrderCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-order', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-order' + #category : #'Pyramid-Tests-cases-plugin-bloc-order' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveBackwardOrderCommandTest >> argumentsForHistory [ ^ { 3. 2. 1 } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMoveBackwardOrderCommandTest >> command [ ^ PyramidMoveBackwardOrderCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveBackwardOrderCommandTest >> makeElementWithChildren [ | parent c1 c2 c3 | @@ -32,7 +30,7 @@ PyramidMoveBackwardOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveBackwardOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -55,7 +53,7 @@ PyramidMoveBackwardOrderCommandTest >> targetContainers [ prop: 3) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveBackwardOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | @@ -63,28 +61,28 @@ PyramidMoveBackwardOrderCommandTest >> targetsCanBeUsedFor [ each targetNoProp } ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveBackwardOrderCommandTest >> targetsCannotBeUsedFor [ "override if needed" ^ { nil. false. 0. $a . BlElement new } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMoveBackwardOrderCommandTest >> targetsWithValuesAndValues [ ^ self targetContainers collect: [ :each | each targetNoProp -> each prop ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMoveBackwardOrderCommandTest >> targetsWithoutValuesAndValues [ ^ self targetContainers collect: [ :each | each targetNoProp -> each targetWithProp ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidMoveBackwardOrderCommandTest >> testHistory [ "Do once. undo diff --git a/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st index e90c5d6f..876ebefa 100644 --- a/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidMoveForwardOrderCommandTest.class.st @@ -1,26 +1,24 @@ Class { - #name : 'PyramidMoveForwardOrderCommandTest', - #superclass : 'TestCase', + #name : #PyramidMoveForwardOrderCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-order', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-order' + #category : #'Pyramid-Tests-cases-plugin-bloc-order' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveForwardOrderCommandTest >> argumentsForHistory [ ^ { 1 . 2 . 3 } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMoveForwardOrderCommandTest >> command [ ^ PyramidMoveForwardOrderCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveForwardOrderCommandTest >> makeElementWithChildren [ | parent c1 c2 c3 | @@ -32,7 +30,7 @@ PyramidMoveForwardOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveForwardOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -55,7 +53,7 @@ PyramidMoveForwardOrderCommandTest >> targetContainers [ prop: 3) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveForwardOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | @@ -63,28 +61,28 @@ PyramidMoveForwardOrderCommandTest >> targetsCanBeUsedFor [ each targetNoProp } ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidMoveForwardOrderCommandTest >> targetsCannotBeUsedFor [ "override if needed" ^ { nil. false. 0. $a . BlElement new } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMoveForwardOrderCommandTest >> targetsWithValuesAndValues [ ^ self targetContainers collect: [ :each | each targetNoProp -> each prop ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidMoveForwardOrderCommandTest >> targetsWithoutValuesAndValues [ ^ self targetContainers collect: [ :each | each targetNoProp -> each targetWithProp ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidMoveForwardOrderCommandTest >> testHistory [ "Do once. undo diff --git a/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st index 47e5328c..cb1df03e 100644 --- a/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidNumberArrayInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidNumberArrayInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidNumberArrayInputPresenterTest >> dummyValues [ ^ { @@ -20,25 +18,25 @@ PyramidNumberArrayInputPresenterTest >> dummyValues [ #(5 5 5 5 5) -> PyramidUnknowState new. } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidNumberArrayInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidNumberArrayInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidNumberArrayInputPresenterTest >> makeNewInput [ ^ PyramidNumberArrayInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidNumberArrayInputPresenterTest >> triggerValueChangedOf: anInput [ anInput inputArray contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st index 37b041cd..85744a89 100644 --- a/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidNumberInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidNumberInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidNumberInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidNumberInputPresenterTest >> dummyValues [ ^ { @@ -21,25 +19,25 @@ PyramidNumberInputPresenterTest >> dummyValues [ ('123456' -> PyramidUnknowState new) } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidNumberInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidNumberInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidNumberInputPresenterTest >> makeNewInput [ ^ PyramidNumberInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidNumberInputPresenterTest >> triggerValueChangedOf: anInput [ anInput inputNumber contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st index 70a83ece..0e57fc9e 100644 --- a/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidOnBackgroundOrderCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidOnBackgroundOrderCommandTest', - #superclass : 'TestCase', + #name : #PyramidOnBackgroundOrderCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-order', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-order' + #category : #'Pyramid-Tests-cases-plugin-bloc-order' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidOnBackgroundOrderCommandTest >> command [ ^ PyramidOnBackgroundOrderCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnBackgroundOrderCommandTest >> makeElementWithChildren [ | parent c1 c2 c3 | @@ -37,7 +35,7 @@ PyramidOnBackgroundOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnBackgroundOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -60,7 +58,7 @@ PyramidOnBackgroundOrderCommandTest >> targetContainers [ prop: 1) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnBackgroundOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | @@ -68,7 +66,7 @@ PyramidOnBackgroundOrderCommandTest >> targetsCanBeUsedFor [ each targetNoProp } ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidOnBackgroundOrderCommandTest >> targetsWithValuesAndValues [ ^ self targetContainers collect: [ :each | diff --git a/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st b/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st index 50f80d7a..dfd10ec8 100644 --- a/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidOnForegroundOrderCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidOnForegroundOrderCommandTest', - #superclass : 'TestCase', + #name : #PyramidOnForegroundOrderCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-order', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-order' + #category : #'Pyramid-Tests-cases-plugin-bloc-order' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidOnForegroundOrderCommandTest >> command [ ^ PyramidOnForegroundOrderCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnForegroundOrderCommandTest >> makeElementWithChildren [ | parent c1 c2 c3 | @@ -37,7 +35,7 @@ PyramidOnForegroundOrderCommandTest >> makeElementWithChildren [ ^ parent ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnForegroundOrderCommandTest >> targetContainers [ | test1 test2 test3 | @@ -60,7 +58,7 @@ PyramidOnForegroundOrderCommandTest >> targetContainers [ prop: 3) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOnForegroundOrderCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | @@ -68,7 +66,7 @@ PyramidOnForegroundOrderCommandTest >> targetsCanBeUsedFor [ each targetNoProp } ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidOnForegroundOrderCommandTest >> targetsWithValuesAndValues [ ^ self targetContainers collect: [ :each | diff --git a/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st b/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st index c1bc7d48..15abba92 100644 --- a/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidOpacityCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidOpacityCommandTest', - #superclass : 'TestCase', + #name : #PyramidOpacityCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-visuals', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-visuals' + #category : #'Pyramid-Tests-cases-plugin-bloc-visuals' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidOpacityCommandTest >> command [ ^ PyramidOpacityCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidOpacityCommandTest >> targetContainers [ | e1 e2 | diff --git a/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st b/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st index 7dfd8aaf..842a6e73 100644 --- a/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidPaddingCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidPaddingCommandTest', - #superclass : 'TestCase', + #name : #PyramidPaddingCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidPaddingCommandTest >> command [ ^ PyramidPaddingCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPaddingCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st b/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st index 86ef4897..5308dc28 100644 --- a/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st +++ b/src/Pyramid-Tests/PyramidPluginEditOnRunningTest.class.st @@ -2,17 +2,15 @@ A PyramidPluginEditOnRunningTest is a test class for testing the behavior of PyramidPluginEditOnRunning " Class { - #name : 'PyramidPluginEditOnRunningTest', - #superclass : 'TestCase', + #name : #PyramidPluginEditOnRunningTest, + #superclass : #TestCase, #instVars : [ 'setting' ], - #category : 'Pyramid-Tests-cases-plugin-edit-on-running', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-edit-on-running' + #category : #'Pyramid-Tests-cases-plugin-edit-on-running' } -{ #category : 'utils' } +{ #category : #utils } PyramidPluginEditOnRunningTest >> closeSpace: aSpace [ aSpace when: BlSpaceShownEvent doOnce: [ :event | @@ -20,7 +18,7 @@ PyramidPluginEditOnRunningTest >> closeSpace: aSpace [ aSpace close ]. ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> setUp [ super setUp. @@ -35,14 +33,14 @@ PyramidPluginEditOnRunningTest >> setUp [ PyramidSpacePlugin initialize. ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> tearDown [ PyramidPluginEditOnRunning editOnRunning: setting. super tearDown. ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> testBlSpaceShortcutAddAndRemove [ | space | @@ -59,7 +57,7 @@ PyramidPluginEditOnRunningTest >> testBlSpaceShortcutAddAndRemove [ self closeSpace: space. ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> testCannotEditTheEditor [ | space editor | @@ -74,7 +72,7 @@ PyramidPluginEditOnRunningTest >> testCannotEditTheEditor [ self deny: (space root shortcuts includes: (PyramidPluginEditOnRunning shortcut)). ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> testEditOnRunning [ PyramidPluginEditOnRunning editOnRunning: true. @@ -84,28 +82,28 @@ PyramidPluginEditOnRunningTest >> testEditOnRunning [ self deny: PyramidPluginEditOnRunning editOnRunning. ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> testInitializePlugin [ "Test if the plugin is installed because this is a core plugin that need to be installed" self assert: (PyramidPluginManager uniqueInstance isPluginInstalled: PyramidPluginEditOnRunning) ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> testKeyCombination [ self assert: (PyramidPluginEditOnRunning keyCombination isKindOf: BlKeyCombination) ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> testShortcut [ self assert: (PyramidPluginEditOnRunning shortcut isKindOf: BlShortcutWithAction). ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginEditOnRunningTest >> testSpaceIds [ self assert: PyramidPluginEditOnRunning spaceIds isEmpty. diff --git a/src/Pyramid-Tests/PyramidPluginManagerTest.class.st b/src/Pyramid-Tests/PyramidPluginManagerTest.class.st index bd08bdd3..e3e98a55 100644 --- a/src/Pyramid-Tests/PyramidPluginManagerTest.class.st +++ b/src/Pyramid-Tests/PyramidPluginManagerTest.class.st @@ -2,14 +2,12 @@ A PyramidPluginManagerTest is a test class for testing the behavior of PyramidPluginManager " Class { - #name : 'PyramidPluginManagerTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-core', - #package : 'Pyramid-Tests', - #tag : 'cases-core' + #name : #PyramidPluginManagerTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-core' } -{ #category : 'tests' } +{ #category : #tests } PyramidPluginManagerTest >> testIsPluginInstalled [ "Test incorrect values" @@ -32,7 +30,7 @@ PyramidPluginManagerTest >> testIsPluginInstalled [ (PyramidPluginManager uniqueInstance isPluginInstalled: c) ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidPluginManagerTest >> testUniqueInstance [ self assert: PyramidPluginManager uniqueInstance class equals: PyramidPluginManager. diff --git a/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st b/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st index 8deceb1d..de346e56 100644 --- a/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st +++ b/src/Pyramid-Tests/PyramidPluginTestModeTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidPluginTestModeTest', - #superclass : 'TestCase', + #name : #PyramidPluginTestModeTest, + #superclass : #TestCase, #instVars : [ 'plugin', 'spacePlugin', 'editor' ], - #category : 'Pyramid-Tests-cases-plugin-testmode', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-testmode' + #category : #'Pyramid-Tests-cases-plugin-testmode' } diff --git a/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st index b0bd7b7c..9e0170ed 100644 --- a/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidPointInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidPointInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidPointInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidPointInputPresenterTest >> dummyValues [ ^ { @@ -20,25 +18,25 @@ PyramidPointInputPresenterTest >> dummyValues [ } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPointInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPointInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidPointInputPresenterTest >> makeNewInput [ ^ PyramidPointInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPointInputPresenterTest >> triggerValueChangedOf: anInput [ anInput inputX inputNumber contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidPositionCommandTest.class.st b/src/Pyramid-Tests/PyramidPositionCommandTest.class.st index 588383d0..596e92eb 100644 --- a/src/Pyramid-Tests/PyramidPositionCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidPositionCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidPositionCommandTest', - #superclass : 'TestCase', + #name : #PyramidPositionCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidPositionCommandTest >> command [ ^ PyramidPositionCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st b/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st index bc0f18c2..34285057 100644 --- a/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidPositionOffsetCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidPositionOffsetCommandTest', - #superclass : 'TestCase', + #name : #PyramidPositionOffsetCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidPositionOffsetCommandTest >> command [ ^ PyramidPositionOffsetCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidPositionOffsetCommandTest >> targetContainers [ ^ { @@ -34,14 +32,14 @@ PyramidPositionOffsetCommandTest >> targetContainers [ prop: 50 @ 50) } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidPositionOffsetCommandTest >> targetsWithValuesAndValues [ ^ self targetContainers collect: [ :each | each targetWithProp -> each targetWithProp constraints position ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidPositionOffsetCommandTest >> testHistory [ "Do once. undo @@ -95,7 +93,7 @@ PyramidPositionOffsetCommandTest >> testHistory [ self assert: (self command getValueFor: target) equals: initialValue ] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidPositionOffsetCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st b/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st index c66b29f2..5b4f43d4 100644 --- a/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st +++ b/src/Pyramid-Tests/PyramidProjectModelObserverForTest.class.st @@ -1,17 +1,15 @@ Class { - #name : 'PyramidProjectModelObserverForTest', - #superclass : 'Object', + #name : #PyramidProjectModelObserverForTest, + #superclass : #Object, #instVars : [ 'pyramidElementsChangedAction', 'pyramidFirstLevelElementsChangedAction', 'pyramidSelectionChangedAction' ], - #category : 'Pyramid-Tests-cases-models', - #package : 'Pyramid-Tests', - #tag : 'cases-models' + #category : #'Pyramid-Tests-cases-models' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> initialize [ self pyramidElementsChangedAction: [ :evt | ]. @@ -19,7 +17,7 @@ PyramidProjectModelObserverForTest >> initialize [ self pyramidSelectionChangedAction: [ :evt | ] ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> projectModel: aProjectModel [ aProjectModel announcer @@ -36,73 +34,73 @@ PyramidProjectModelObserverForTest >> projectModel: aProjectModel [ to: self ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProjectModelObserverForTest >> pyramidElementsChanged [ self pyramidElementsChangedAction value. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidElementsChanged: anEvent [ self pyramidElementsChangedAction value: anEvent ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidElementsChangedAction [ ^ pyramidElementsChangedAction ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidElementsChangedAction: anObject [ pyramidElementsChangedAction := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProjectModelObserverForTest >> pyramidFirstLevelElementsChanged [ self pyramidFirstLevelElementsChangedAction value ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidFirstLevelElementsChanged: anEvent [ self pyramidFirstLevelElementsChangedAction value: anEvent ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidFirstLevelElementsChangedAction [ ^ pyramidFirstLevelElementsChangedAction ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidFirstLevelElementsChangedAction: anObject [ pyramidFirstLevelElementsChangedAction := anObject ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProjectModelObserverForTest >> pyramidSelectionChanged [ self pyramidSelectionChangedAction value ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidSelectionChanged: anEvent [ self pyramidSelectionChangedAction value: anEvent ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidSelectionChangedAction [ ^ pyramidSelectionChangedAction ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelObserverForTest >> pyramidSelectionChangedAction: anObject [ pyramidSelectionChangedAction := anObject diff --git a/src/Pyramid-Tests/PyramidProjectModelTest.class.st b/src/Pyramid-Tests/PyramidProjectModelTest.class.st index 75457f83..d8625721 100644 --- a/src/Pyramid-Tests/PyramidProjectModelTest.class.st +++ b/src/Pyramid-Tests/PyramidProjectModelTest.class.st @@ -1,6 +1,6 @@ Class { - #name : 'PyramidProjectModelTest', - #superclass : 'TestCase', + #name : #PyramidProjectModelTest, + #superclass : #TestCase, #instVars : [ 'projectModel', 'observer', @@ -8,12 +8,10 @@ Class { 'pyramidFirstLevelElementsChanged', 'pyramidSelectionChanged' ], - #category : 'Pyramid-Tests-cases-models', - #package : 'Pyramid-Tests', - #tag : 'cases-models' + #category : #'Pyramid-Tests-cases-models' } -{ #category : 'running' } +{ #category : #running } PyramidProjectModelTest >> assertEventProperties: anEvent [ self @@ -22,55 +20,55 @@ PyramidProjectModelTest >> assertEventProperties: anEvent [ self assert: anEvent selection equals: projectModel selection. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> observer [ ^ observer ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> projectModel [ ^ projectModel ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> pyramidElementsChanged [ ^ pyramidElementsChanged ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> pyramidElementsChanged: anObject [ pyramidElementsChanged := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> pyramidFirstLevelElementsChanged [ ^ pyramidFirstLevelElementsChanged ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> pyramidFirstLevelElementsChanged: anObject [ pyramidFirstLevelElementsChanged := anObject ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> pyramidSelectionChanged [ ^ pyramidSelectionChanged ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidProjectModelTest >> pyramidSelectionChanged: anObject [ pyramidSelectionChanged := anObject ] -{ #category : 'running' } +{ #category : #running } PyramidProjectModelTest >> setUp [ | editor | @@ -107,7 +105,7 @@ PyramidProjectModelTest >> setUp [ pyramidSelectionChanged := true ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidProjectModelTest >> testElementsChanged [ self projectModel informElementsChanged. @@ -117,7 +115,7 @@ PyramidProjectModelTest >> testElementsChanged [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidProjectModelTest >> testFirstLevelElementsChanged1 [ self projectModel firstLevelElements addAll: { @@ -128,7 +126,7 @@ PyramidProjectModelTest >> testFirstLevelElementsChanged1 [ self deny: self pyramidSelectionChanged ] -{ #category : 'tests' } +{ #category : #tests } PyramidProjectModelTest >> testFirstLevelElementsChanged2 [ self projectModel firstLevelElements add: BlElement new. @@ -137,7 +135,7 @@ PyramidProjectModelTest >> testFirstLevelElementsChanged2 [ self deny: self pyramidSelectionChanged ] -{ #category : 'tests' } +{ #category : #tests } PyramidProjectModelTest >> testFirstLevelElementsChanged3 [ self projectModel selection add: BlElement new. @@ -146,7 +144,7 @@ PyramidProjectModelTest >> testFirstLevelElementsChanged3 [ self assert: self pyramidSelectionChanged ] -{ #category : 'tests' } +{ #category : #tests } PyramidProjectModelTest >> testSelectionChanged1 [ self projectModel selection add: BlElement new. @@ -155,7 +153,7 @@ PyramidProjectModelTest >> testSelectionChanged1 [ self assert: self pyramidSelectionChanged ] -{ #category : 'tests' } +{ #category : #tests } PyramidProjectModelTest >> testSelectionChanged2 [ self projectModel selection addAll: { @@ -166,7 +164,7 @@ PyramidProjectModelTest >> testSelectionChanged2 [ self assert: self pyramidSelectionChanged ] -{ #category : 'tests' } +{ #category : #tests } PyramidProjectModelTest >> testSelectionChanged3 [ self projectModel firstLevelElements add: BlElement new. diff --git a/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st b/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st index db67c0d2..8a704bc4 100644 --- a/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st +++ b/src/Pyramid-Tests/PyramidPropertiesManagerTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidPropertiesManagerTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-property', - #package : 'Pyramid-Tests', - #tag : 'cases-property' + #name : #PyramidPropertiesManagerTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-property' } -{ #category : 'tests' } +{ #category : #tests } PyramidPropertiesManagerTest >> testAddAllProperties [ | manager prop1 prop2 prop3 | @@ -36,7 +34,7 @@ PyramidPropertiesManagerTest >> testAddAllProperties [ self assert: manager commandExecutor equals: prop3 commandExecutor. ] -{ #category : 'tests' } +{ #category : #tests } PyramidPropertiesManagerTest >> testAddProperty [ | manager prop1 prop2 prop3 | @@ -69,7 +67,7 @@ PyramidPropertiesManagerTest >> testAddProperty [ self assert: manager commandExecutor equals: prop3 commandExecutor ] -{ #category : 'tests' } +{ #category : #tests } PyramidPropertiesManagerTest >> testBuildPresenterFromCollection [ | manager fakeStrategy prop1 prop2 prop3 targets | @@ -99,7 +97,7 @@ PyramidMockObjectForTest new count: 4; yourself }. self assert: (fakeStrategy properties includes: prop3). ] -{ #category : 'tests' } +{ #category : #tests } PyramidPropertiesManagerTest >> testCommandExecutor [ | manager prop1 prop2 prop3 fake1 fake2 | @@ -135,7 +133,7 @@ PyramidPropertiesManagerTest >> testCommandExecutor [ self assert: prop3 commandExecutor equals: fake2 ] -{ #category : 'tests' } +{ #category : #tests } PyramidPropertiesManagerTest >> testRemoveAllProperties [ | manager prop1 prop2 prop3 | @@ -175,7 +173,7 @@ PyramidPropertiesManagerTest >> testRemoveAllProperties [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidPropertiesManagerTest >> testRemoveProperty [ | manager prop1 prop2 prop3 hasFailed | diff --git a/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st index 7666b28f..b7145a1b 100644 --- a/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidProportionnalHorizontalConstraintsCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidProportionnalHorizontalConstraintsCommandTest', - #superclass : 'TestCase', + #name : #PyramidProportionnalHorizontalConstraintsCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidProportionnalHorizontalConstraintsCommandTest >> command [ ^ PyramidProportionnalHorizontalConstraintsCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalHorizontalConstraintsCommandTest >> targetContainers [ | parent e1 e2 | @@ -33,7 +31,7 @@ PyramidProportionnalHorizontalConstraintsCommandTest >> targetContainers [ prop: 0.2 @ 0.4)} ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalHorizontalConstraintsCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st index 3d5c1c8f..e375e6c2 100644 --- a/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidProportionnalVerticalConstraintsCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidProportionnalVerticalConstraintsCommandTest', - #superclass : 'TestCase', + #name : #PyramidProportionnalVerticalConstraintsCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-layout', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-layout' + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidProportionnalVerticalConstraintsCommandTest >> command [ ^ PyramidProportionnalVerticalConstraintsCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalVerticalConstraintsCommandTest >> targetContainers [ | parent e1 e2 | @@ -37,7 +35,7 @@ PyramidProportionnalVerticalConstraintsCommandTest >> targetContainers [ ^ { (PyramidCommandTestContainer no: e1 with: e2 prop: 0.3 @ 0.6) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidProportionnalVerticalConstraintsCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st index 17bee3ba..30f24257 100644 --- a/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidRemoveChildCommandTest.class.st @@ -1,26 +1,24 @@ Class { - #name : 'PyramidRemoveChildCommandTest', - #superclass : 'TestCase', + #name : #PyramidRemoveChildCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidRemoveChildCommandTest >> command [ ^ PyramidRemoveChildCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveChildCommandTest >> targetsCanBeUsedFor [ ^ { BlElement new . BlElement new addChild: BlElement new; yourself } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidRemoveChildCommandTest >> targetsWithoutValuesAndValues [ ^ self targetsCanBeUsedFor collect: [ :each | | e1 | @@ -31,7 +29,7 @@ PyramidRemoveChildCommandTest >> targetsWithoutValuesAndValues [ each -> e1 ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveChildCommandTest >> testGetValueFor [ "ignore get return nothing" @@ -39,7 +37,7 @@ PyramidRemoveChildCommandTest >> testGetValueFor [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveChildCommandTest >> testHistory [ "Do once. undo @@ -112,7 +110,7 @@ PyramidRemoveChildCommandTest >> testHistory [ self deny: (target children includes: argument) ] ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveChildCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st index f480e5f9..8853340f 100644 --- a/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidRemoveMockCommandTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidRemoveMockCommandTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidRemoveMockCommandTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveMockCommandTest >> testGetValueFor [ | mock | @@ -17,7 +15,7 @@ PyramidRemoveMockCommandTest >> testGetValueFor [ self assert: (PyramidDecreaseMockCommand new getValueFor: mock) equals: nil. ] -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveMockCommandTest >> testSetValueForWith [ | mock | diff --git a/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st b/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st index 18f51d1d..18aa0bb1 100644 --- a/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidRemoveSelectionCommandTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidRemoveSelectionCommandTest', - #superclass : 'TestCase', + #name : #PyramidRemoveSelectionCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectionCommandTest >> arrayNoRoots [ | items parents elements selection roots | @@ -26,7 +24,7 @@ PyramidRemoveSelectionCommandTest >> arrayNoRoots [ parents } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectionCommandTest >> arrayWithParents [ | items parents elements selection roots | @@ -48,7 +46,7 @@ PyramidRemoveSelectionCommandTest >> arrayWithParents [ parents } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectionCommandTest >> arrayWithRoots [ | items parents elements selection roots | @@ -69,19 +67,19 @@ PyramidRemoveSelectionCommandTest >> arrayWithRoots [ parents } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectionCommandTest >> arraysToTest [ ^ { self arrayNoRoots . self arrayWithParents . self arrayWithRoots } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidRemoveSelectionCommandTest >> command [ ^ PyramidRemoveSelectedElementsCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectionCommandTest >> parentsAndElements [ | p1 p2 p3 e1 e2 e3 e4 e5 e6 parents elements | @@ -118,7 +116,7 @@ PyramidRemoveSelectionCommandTest >> parentsAndElements [ ^ parents -> elements ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRemoveSelectionCommandTest >> targetsCanBeUsedFor [ ^ { @@ -128,14 +126,14 @@ PyramidRemoveSelectionCommandTest >> targetsCanBeUsedFor [ yourself) } ] -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveSelectionCommandTest >> testGetValueFor [ self targetsCanBeUsedFor do: [ :each | self assert: (self command getValueFor: each ) equals: nil ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveSelectionCommandTest >> testHistory [ "Do once. undo @@ -197,7 +195,7 @@ PyramidRemoveSelectionCommandTest >> testHistory [ self deny: (roots includesAny: targets) ] -{ #category : 'tests' } +{ #category : #tests } PyramidRemoveSelectionCommandTest >> testSetValueForWith [ |selection roots parents| diff --git a/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st b/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st index 90b62870..68db7048 100644 --- a/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidRoundedRectangleCornerRadiiCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidRoundedRectangleCornerRadiiCommandTest', - #superclass : 'TestCase', + #name : #PyramidRoundedRectangleCornerRadiiCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-geometry', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-geometry' + #category : #'Pyramid-Tests-cases-plugin-bloc-geometry' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidRoundedRectangleCornerRadiiCommandTest >> command [ ^ PyramidRoundedRectangleCornerRadiiCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRoundedRectangleCornerRadiiCommandTest >> targetContainers [ ^ { @@ -32,7 +30,7 @@ PyramidRoundedRectangleCornerRadiiCommandTest >> targetContainers [ prop: (BlCornerRadii radius: 20)) } ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidRoundedRectangleCornerRadiiCommandTest >> targetsCannotBeUsedFor [ "override if needed" diff --git a/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st b/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st index 03246bb7..7be7dfbf 100644 --- a/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st +++ b/src/Pyramid-Tests/PyramidSaveModelVerifierTest.class.st @@ -2,14 +2,12 @@ A PyramidSaveModelVerifierTest is a test class for testing the behavior of PyramidSaveModelVerifier " Class { - #name : 'PyramidSaveModelVerifierTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-save', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-save' + #name : #PyramidSaveModelVerifierTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-save' } -{ #category : 'test' } +{ #category : #test } PyramidSaveModelVerifierTest >> testInitialize [ | verifier | @@ -17,7 +15,7 @@ PyramidSaveModelVerifierTest >> testInitialize [ self assert: verifier nextVerifiers isCollection. ] -{ #category : 'test' } +{ #category : #test } PyramidSaveModelVerifierTest >> testModelNilError [ "Test an error" @@ -27,7 +25,7 @@ PyramidSaveModelVerifierTest >> testModelNilError [ verifier showOn: PyramidSaveProjectConfigurationView new. ] -{ #category : 'test' } +{ #category : #test } PyramidSaveModelVerifierTest >> testVerify [ | verifier model result | @@ -41,7 +39,7 @@ PyramidSaveModelVerifierTest >> testVerify [ self assert: result. ] -{ #category : 'test' } +{ #category : #test } PyramidSaveModelVerifierTest >> testVerifyBlock [ | verifier | diff --git a/src/Pyramid-Tests/PyramidSavingServiceTest.class.st b/src/Pyramid-Tests/PyramidSavingServiceTest.class.st index 9ed77f04..807183b2 100644 --- a/src/Pyramid-Tests/PyramidSavingServiceTest.class.st +++ b/src/Pyramid-Tests/PyramidSavingServiceTest.class.st @@ -1,29 +1,27 @@ Class { - #name : 'PyramidSavingServiceTest', - #superclass : 'TestCase', + #name : #PyramidSavingServiceTest, + #superclass : #TestCase, #instVars : [ 'methodBuilder', 'savingService', 'savingClass' ], - #category : 'Pyramid-Tests-cases-plugin-save', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-save' + #category : #'Pyramid-Tests-cases-plugin-save' } -{ #category : 'running' } +{ #category : #running } PyramidSavingServiceTest >> savingClass [ ^ savingClass ] -{ #category : 'running' } +{ #category : #running } PyramidSavingServiceTest >> savingService [ ^ savingService ] -{ #category : 'running' } +{ #category : #running } PyramidSavingServiceTest >> setUp [ super setUp. @@ -43,7 +41,7 @@ PyramidSavingServiceTest >> setUp [ package: self class category ] ] -{ #category : 'running' } +{ #category : #running } PyramidSavingServiceTest >> tearDown [ savingClass ifNotNil: [ savingClass removeFromSystem ]. @@ -51,7 +49,7 @@ PyramidSavingServiceTest >> tearDown [ super tearDown ] -{ #category : 'tests' } +{ #category : #tests } PyramidSavingServiceTest >> testCanSave [ "Test: @@ -126,7 +124,7 @@ PyramidSavingServiceTest >> testCanSave [ self deny: self savingService canSave ] -{ #category : 'tests' } +{ #category : #tests } PyramidSavingServiceTest >> testErrorCannotSave [ "Test: @@ -137,7 +135,7 @@ PyramidSavingServiceTest >> testErrorCannotSave [ self should: [ self savingService save ] raise: PyramidSaveError ] -{ #category : 'tests' } +{ #category : #tests } PyramidSavingServiceTest >> testSave [ "Test: @@ -190,7 +188,7 @@ PyramidSavingServiceTest >> testSave [ (self savingClass instanceSide canUnderstand: #packageWithTag) ] -{ #category : 'tests' } +{ #category : #tests } PyramidSavingServiceTest >> testSavingClass [ "Test: @@ -220,7 +218,7 @@ PyramidSavingServiceTest >> testSavingClass [ ifAbsent: [ self fail: 'The class do not exist' ] ] -{ #category : 'tests' } +{ #category : #tests } PyramidSavingServiceTest >> testSavingMethod [ "Test: diff --git a/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st b/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st index 57e86611..abf1e620 100644 --- a/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st +++ b/src/Pyramid-Tests/PyramidSimpleMockCommand.class.st @@ -1,18 +1,16 @@ Class { - #name : 'PyramidSimpleMockCommand', - #superclass : 'PyramidMockCommand', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidSimpleMockCommand, + #superclass : #PyramidMockCommand, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSimpleMockCommand >> getValueFor: anObject [ ^ anObject count. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSimpleMockCommand >> setValueFor: anObject with: anArgument [ anObject count: anArgument diff --git a/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st b/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st index 4a7092b6..ef6f433c 100644 --- a/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidSimpleMockCommandTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidSimpleMockCommandTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidSimpleMockCommandTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSimpleMockCommandTest >> testGetValueFor [ | mock | @@ -17,7 +15,7 @@ PyramidSimpleMockCommandTest >> testGetValueFor [ self assert: (PyramidSimpleMockCommand new getValueFor: mock) equals: 5. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSimpleMockCommandTest >> testSetValueForWith [ | mock | diff --git a/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st b/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st index a25d34ef..84fcebb0 100644 --- a/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st +++ b/src/Pyramid-Tests/PyramidSimpleMockGroupedCommand.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidSimpleMockGroupedCommand', - #superclass : 'PyramidSimpleMockCommand', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #PyramidSimpleMockGroupedCommand, + #superclass : #PyramidSimpleMockCommand, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSimpleMockGroupedCommand >> getGroupedValueFor: anObject [ ^ #group diff --git a/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st b/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st index 39ff64d9..5c79f0fb 100644 --- a/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st +++ b/src/Pyramid-Tests/PyramidSpCodeObjectInteractionModelTest.class.st @@ -1,34 +1,32 @@ Class { - #name : 'PyramidSpCodeObjectInteractionModelTest', - #superclass : 'TestCase', + #name : #PyramidSpCodeObjectInteractionModelTest, + #superclass : #TestCase, #instVars : [ 'projectModel', 'interactionModel', 'firstLevelElements' ], - #category : 'Pyramid-Tests-cases-plugin-playground', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-playground' + #category : #'Pyramid-Tests-cases-plugin-playground' } -{ #category : 'running' } +{ #category : #running } PyramidSpCodeObjectInteractionModelTest >> firstLevelElements [ ^ firstLevelElements ] -{ #category : 'running' } +{ #category : #running } PyramidSpCodeObjectInteractionModelTest >> interactionModel [ ^ interactionModel ] -{ #category : 'running' } +{ #category : #running } PyramidSpCodeObjectInteractionModelTest >> projectModel [ ^ projectModel ] -{ #category : 'running' } +{ #category : #running } PyramidSpCodeObjectInteractionModelTest >> setUp [ super setUp. @@ -42,7 +40,7 @@ PyramidSpCodeObjectInteractionModelTest >> setUp [ yourself ] -{ #category : 'tests' } +{ #category : #tests } PyramidSpCodeObjectInteractionModelTest >> testDoItReceiver [ | obj1 obj2 | @@ -66,7 +64,7 @@ PyramidSpCodeObjectInteractionModelTest >> testDoItReceiver [ self assert: (interactionModel doItReceiver includes: obj2) ] -{ #category : 'tests' } +{ #category : #tests } PyramidSpCodeObjectInteractionModelTest >> testDoItReceiverString [ self projectModel setSelection: #( ). diff --git a/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st b/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st index 208b1d8c..7d0700dd 100644 --- a/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st +++ b/src/Pyramid-Tests/PyramidSpaceBuilderTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidSpaceBuilderTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-space', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-space' + #name : #PyramidSpaceBuilderTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-space' } -{ #category : 'tests' } +{ #category : #tests } PyramidSpaceBuilderTest >> testAddAllOverlaysNamed [ | collectionOfName builder element e1 e2 e3| @@ -67,7 +65,7 @@ PyramidSpaceBuilderTest >> testAddAllOverlaysNamed [ ] -{ #category : 'tests' } +{ #category : #tests } PyramidSpaceBuilderTest >> testAddExtension [ | builder extension | @@ -82,7 +80,7 @@ PyramidSpaceBuilderTest >> testAddExtension [ self assert: (builder extensions includes: extension). ] -{ #category : 'tests' } +{ #category : #tests } PyramidSpaceBuilderTest >> testAddOverlayNamed [ | builder overlay1 overlay2 anError | @@ -112,7 +110,7 @@ PyramidSpaceBuilderTest >> testAddOverlayNamed [ self assert: (anError isKindOf: PyramidExistingOverlayError ). ] -{ #category : 'tests' } +{ #category : #tests } PyramidSpaceBuilderTest >> testEditor [ | builder extension | diff --git a/src/Pyramid-Tests/PyramidSpacePluginTest.class.st b/src/Pyramid-Tests/PyramidSpacePluginTest.class.st index cbae8922..45aac1df 100644 --- a/src/Pyramid-Tests/PyramidSpacePluginTest.class.st +++ b/src/Pyramid-Tests/PyramidSpacePluginTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidSpacePluginTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-space', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-space' + #name : #PyramidSpacePluginTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-space' } -{ #category : 'tests' } +{ #category : #tests } PyramidSpacePluginTest >> testResetSpace [ | plugin space | diff --git a/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st index 1812eb9d..4a26981c 100644 --- a/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidSwitchInputPresenterTest.class.st @@ -1,38 +1,36 @@ Class { - #name : 'PyramidSwitchInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidSwitchInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenterTest >> dummyValues [ ^ { true . false . false . true . true } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidSwitchInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidSwitchInputPresenterTest >> makeNewInput [ ^ PyramidSwitchInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidSwitchInputPresenterTest >> triggerValueChangedOf: anInput [ anInput button click diff --git a/src/Pyramid-Tests/PyramidTestWindow.class.st b/src/Pyramid-Tests/PyramidTestWindow.class.st index 8ea9d023..29462407 100644 --- a/src/Pyramid-Tests/PyramidTestWindow.class.st +++ b/src/Pyramid-Tests/PyramidTestWindow.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidTestWindow', - #superclass : 'PyramidWindow', - #category : 'Pyramid-Tests-cases-views', - #package : 'Pyramid-Tests', - #tag : 'cases-views' + #name : #PyramidTestWindow, + #superclass : #PyramidWindow, + #category : #'Pyramid-Tests-cases-views' } -{ #category : 'initialization' } +{ #category : #initialization } PyramidTestWindow >> initialize [ PyramidPanelModel toolbarHorizontal installOn: self at: #top. @@ -14,7 +12,7 @@ PyramidTestWindow >> initialize [ PyramidPanelModel toolbarHorizontal installOn: self at: #bottom ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTestWindow >> layout [ | mainLayout | diff --git a/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st b/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st index 147cccdd..36b77372 100644 --- a/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidTextForegroundCommandTest.class.st @@ -1,26 +1,24 @@ Class { - #name : 'PyramidTextForegroundCommandTest', - #superclass : 'TestCase', + #name : #PyramidTextForegroundCommandTest, + #superclass : #TestCase, #traits : 'TPyramidFontAttributeCommandTest', #classTraits : 'TPyramidFontAttributeCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-text', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-text' + #category : #'Pyramid-Tests-cases-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTextForegroundCommandTest >> attributeClass [ ^ BlTextForegroundAttribute ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTextForegroundCommandTest >> command [ ^ PyramidTextForegroundCommand new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTextForegroundCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st index da5967e3..6ca9d02b 100644 --- a/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidTextInputPresenterTest.class.st @@ -1,38 +1,36 @@ Class { - #name : 'PyramidTextInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidTextInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidTextInputPresenterTest >> dummyValues [ ^ { 'hello' . 'hello world' . '123' . '' } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTextInputPresenterTest >> expectedEmptyValue [ ^ PyramidEmptyValue new asString ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTextInputPresenterTest >> expectedMixedValues [ ^ PyramidMixedValues new asString ] -{ #category : 'tests' } +{ #category : #tests } PyramidTextInputPresenterTest >> makeNewInput [ ^ PyramidTextInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidTextInputPresenterTest >> triggerValueChangedOf: anInput [ anInput textInput contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidTreePluginTest.class.st b/src/Pyramid-Tests/PyramidTreePluginTest.class.st index 0a921d97..e3cae686 100644 --- a/src/Pyramid-Tests/PyramidTreePluginTest.class.st +++ b/src/Pyramid-Tests/PyramidTreePluginTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidTreePluginTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-plugin-tree-library', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-tree-library' + #name : #PyramidTreePluginTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-plugin-tree-library' } -{ #category : 'tests' } +{ #category : #tests } PyramidTreePluginTest >> testAddColumns [ | plugin | @@ -22,7 +20,7 @@ PyramidTreePluginTest >> testAddColumns [ self assert: plugin treePresenter columns size equals: 3. ] -{ #category : 'tests' } +{ #category : #tests } PyramidTreePluginTest >> testRemoveSelectedElements [ | plugin editor e1 e2 e3 | diff --git a/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st index 9b2760be..54377d79 100644 --- a/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidVerticalFrameConstraintsInputPresenterTest.class.st @@ -1,14 +1,12 @@ Class { - #name : 'PyramidVerticalFrameConstraintsInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidVerticalFrameConstraintsInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidVerticalFrameConstraintsInputPresenterTest >> dummyValues [ ^ { @@ -35,25 +33,25 @@ PyramidVerticalFrameConstraintsInputPresenterTest >> dummyValues [ alignment) } ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVerticalFrameConstraintsInputPresenterTest >> expectedEmptyValue [ ^ PyramidUnknowState new ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidVerticalFrameConstraintsInputPresenterTest >> expectedMixedValues [ ^ PyramidUnknowState new ] -{ #category : 'tests' } +{ #category : #tests } PyramidVerticalFrameConstraintsInputPresenterTest >> makeNewInput [ ^ PyramidVerticalFrameConstraintsInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVerticalFrameConstraintsInputPresenterTest >> triggerValueChangedOf: anInput [ anInput inputRelative inputNumber contextKeyBindings keymaps do: [ :bind | diff --git a/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st b/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st index 9f86061b..abca3c83 100644 --- a/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidVisibilityCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidVisibilityCommandTest', - #superclass : 'TestCase', + #name : #PyramidVisibilityCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityCommandTest >> command [ ^ PyramidVisibilityCommand new. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st b/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st index 7817029e..332e72f0 100644 --- a/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st +++ b/src/Pyramid-Tests/PyramidVisibilityInputPresenterTest.class.st @@ -1,26 +1,24 @@ Class { - #name : 'PyramidVisibilityInputPresenterTest', - #superclass : 'TestCase', + #name : #PyramidVisibilityInputPresenterTest, + #superclass : #TestCase, #traits : 'TPyramidInputPresenterTest', #classTraits : 'TPyramidInputPresenterTest classTrait', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidVisibilityInputPresenterTest >> dummyValues [ ^ { BlVisibility gone . BlVisibility hidden . BlVisibility visible } ] -{ #category : 'tests' } +{ #category : #tests } PyramidVisibilityInputPresenterTest >> makeNewInput [ ^ PyramidVisibilityInputPresenter new ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidVisibilityInputPresenterTest >> triggerValueChangedOf: anInput [ anInput buttonNotVisible click diff --git a/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st b/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st index ac335f34..ec815c10 100644 --- a/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st +++ b/src/Pyramid-Tests/PyramidVisibilitySortFunctionTest.class.st @@ -1,12 +1,10 @@ Class { - #name : 'PyramidVisibilitySortFunctionTest', - #superclass : 'TestCase', - #category : 'Pyramid-Tests-cases-bloc-utils', - #package : 'Pyramid-Tests', - #tag : 'cases-bloc-utils' + #name : #PyramidVisibilitySortFunctionTest, + #superclass : #TestCase, + #category : #'Pyramid-Tests-cases-bloc-utils' } -{ #category : 'tests' } +{ #category : #tests } PyramidVisibilitySortFunctionTest >> testSorting [ | data sorted parent e1 e2 e3 e4 e5 | diff --git a/src/Pyramid-Tests/PyramidWeightConstraintsCommandTest.class.st b/src/Pyramid-Tests/PyramidWeightConstraintsCommandTest.class.st new file mode 100644 index 00000000..3af4cf20 --- /dev/null +++ b/src/Pyramid-Tests/PyramidWeightConstraintsCommandTest.class.st @@ -0,0 +1,52 @@ +Class { + #name : #PyramidWeightConstraintsCommandTest, + #superclass : #TestCase, + #traits : 'TPyramidCommandTest', + #classTraits : 'TPyramidCommandTest classTrait', + #category : #'Pyramid-Tests-cases-plugin-bloc-layout' +} + +{ #category : #accessing } +PyramidWeightConstraintsCommandTest >> command [ + + ^ PyramidWeightConstraintsCommand new +] + +{ #category : #'as yet unclassified' } +PyramidWeightConstraintsCommandTest >> targetContainers [ + + | parentLinear e1Linear e2Linear parentFlow e1Flow e2Flow | + parentLinear := BlElement new + layout: BlLinearLayout new; + yourself. + e1Linear := BlElement new. + e2Linear := BlElement new constraintsDo: [ :c | + c linear weight: 0.5 ]. + + parentLinear addChildren: { + e1Linear. + e2Linear }. + + parentFlow := BlElement new + layout: BlLinearLayout new; + yourself. + e1Flow := BlElement new. + e2Flow := BlElement new constraintsDo: [ :c | + c linear weight: 0.5 ]. + + parentFlow addChildren: { + e1Flow. + e2Flow }. + + ^ { (PyramidCommandTestContainer no: e1Linear with: e2Linear prop: 0.5) . (PyramidCommandTestContainer no: e1Flow with: e2Flow prop: 0.5) } +] + +{ #category : #'as yet unclassified' } +PyramidWeightConstraintsCommandTest >> targetsCannotBeUsedFor [ + "override if needed" + | parent child | + parent := BlElement new layout: BlFrameLayout new. + child := BlElement new. + parent addChild: child. + ^ { nil . false . 0 . $a . BlElement new . child } +] diff --git a/src/Pyramid-Tests/PyramidWindowTest.class.st b/src/Pyramid-Tests/PyramidWindowTest.class.st index 843ed40b..2ad1b041 100644 --- a/src/Pyramid-Tests/PyramidWindowTest.class.st +++ b/src/Pyramid-Tests/PyramidWindowTest.class.st @@ -1,15 +1,13 @@ Class { - #name : 'PyramidWindowTest', - #superclass : 'TestCase', + #name : #PyramidWindowTest, + #superclass : #TestCase, #instVars : [ 'window' ], - #category : 'Pyramid-Tests-cases-views', - #package : 'Pyramid-Tests', - #tag : 'cases-views' + #category : #'Pyramid-Tests-cases-views' } -{ #category : 'running' } +{ #category : #running } PyramidWindowTest >> setUp [ super setUp. @@ -17,7 +15,7 @@ PyramidWindowTest >> setUp [ window := PyramidTestWindow new. ] -{ #category : 'tests' } +{ #category : #tests } PyramidWindowTest >> testServices [ | t1 t2 t3 t4 presenter buttons | @@ -55,7 +53,7 @@ PyramidWindowTest >> testServices [ self assert:( buttons at: 4) equals: t4. ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidWindowTest >> window [ ^ window ] diff --git a/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st b/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st index 63ae9fda..ccb5fe23 100644 --- a/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st +++ b/src/Pyramid-Tests/PyramidZIndexCommandTest.class.st @@ -1,20 +1,18 @@ Class { - #name : 'PyramidZIndexCommandTest', - #superclass : 'TestCase', + #name : #PyramidZIndexCommandTest, + #superclass : #TestCase, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc' + #category : #'Pyramid-Tests-cases-plugin-bloc' } -{ #category : 'accessing' } +{ #category : #accessing } PyramidZIndexCommandTest >> command [ ^ PyramidZIndexCommand new. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } PyramidZIndexCommandTest >> targetContainers [ ^ { diff --git a/src/Pyramid-Tests/TPyramidCommandTest.trait.st b/src/Pyramid-Tests/TPyramidCommandTest.trait.st index 40716add..fb408590 100644 --- a/src/Pyramid-Tests/TPyramidCommandTest.trait.st +++ b/src/Pyramid-Tests/TPyramidCommandTest.trait.st @@ -1,55 +1,53 @@ Trait { - #name : 'TPyramidCommandTest', - #category : 'Pyramid-Tests-cases-command', - #package : 'Pyramid-Tests', - #tag : 'cases-command' + #name : #TPyramidCommandTest, + #category : #'Pyramid-Tests-cases-command' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidCommandTest >> argumentsForHistory [ ^ self targetContainers collect: [ :each | each prop ] ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidCommandTest >> command [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidCommandTest >> targetContainers [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidCommandTest >> targetsCanBeUsedFor [ ^ self targetContainers flatCollect: [ :each | { each targetNoProp . each targetWithProp } ]. ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidCommandTest >> targetsCannotBeUsedFor [ "override if needed" ^ { nil . false . 0 . $a } ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidCommandTest >> targetsWithValuesAndValues [ ^ self targetContainers collect: [ :each | each targetWithProp -> each prop ] ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidCommandTest >> targetsWithoutValuesAndValues [ ^ self targetContainers collect: [ :each | each targetNoProp -> each prop ] ] -{ #category : 'tests' } +{ #category : #tests } TPyramidCommandTest >> testCanBeUsedFor [ self targetsCanBeUsedFor do: [ :each | @@ -58,14 +56,14 @@ TPyramidCommandTest >> testCanBeUsedFor [ self deny: (self command canBeUsedFor: each) ]. ] -{ #category : 'tests' } +{ #category : #tests } TPyramidCommandTest >> testGetValueFor [ self targetsWithValuesAndValues do: [ :each | self assert: (self command getValueFor: each key) equals: each value ]. ] -{ #category : 'tests' } +{ #category : #tests } TPyramidCommandTest >> testHistory [ "Do once. undo @@ -112,7 +110,7 @@ TPyramidCommandTest >> testHistory [ self assert: (self command getValueFor: target) equals: argument ] ] ] -{ #category : 'tests' } +{ #category : #tests } TPyramidCommandTest >> testSetValueForWith [ self targetsWithoutValuesAndValues do: [ :each | diff --git a/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st b/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st index 15523e27..0c0f1863 100644 --- a/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st +++ b/src/Pyramid-Tests/TPyramidFontAttributeCommandTest.trait.st @@ -1,19 +1,17 @@ Trait { - #name : 'TPyramidFontAttributeCommandTest', + #name : #TPyramidFontAttributeCommandTest, #traits : 'TPyramidCommandTest', #classTraits : 'TPyramidCommandTest classTrait', - #category : 'Pyramid-Tests-cases-plugin-bloc-text', - #package : 'Pyramid-Tests', - #tag : 'cases-plugin-bloc-text' + #category : #'Pyramid-Tests-cases-plugin-bloc-text' } -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidFontAttributeCommandTest >> attributeClass [ ^ self shouldBeImplemented ] -{ #category : 'tests' } +{ #category : #tests } TPyramidFontAttributeCommandTest >> testSetValueForWith [ | attributes | diff --git a/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st b/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st index 0a65b2d5..9373bc0b 100644 --- a/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st +++ b/src/Pyramid-Tests/TPyramidInputPresenterTest.trait.st @@ -1,17 +1,15 @@ Trait { - #name : 'TPyramidInputPresenterTest', - #category : 'Pyramid-Tests-cases-specs-custom', - #package : 'Pyramid-Tests', - #tag : 'cases-specs-custom' + #name : #TPyramidInputPresenterTest, + #category : #'Pyramid-Tests-cases-specs-custom' } -{ #category : 'accessing' } +{ #category : #accessing } TPyramidInputPresenterTest >> dummyValues [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidInputPresenterTest >> equalityTestFor: object1 and: object2 [ object1 isAssociation ifTrue: [ ^ object1 value = object2 ]. @@ -19,25 +17,25 @@ TPyramidInputPresenterTest >> equalityTestFor: object1 and: object2 [ ^ object1 = object2 ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidInputPresenterTest >> expectedEmptyValue [ ^ PyramidEmptyValue new ] -{ #category : 'accessing' } +{ #category : #accessing } TPyramidInputPresenterTest >> expectedMixedValues [ ^ PyramidMixedValues new ] -{ #category : 'tests' } +{ #category : #tests } TPyramidInputPresenterTest >> makeNewInput [ ^ self shouldBeImplemented ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidInputPresenterTest >> makeNewInputWithModel [ | input | @@ -46,14 +44,14 @@ TPyramidInputPresenterTest >> makeNewInputWithModel [ ^ input ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidInputPresenterTest >> putValue: object onInput: input [ object isAssociation ifTrue: [ input value: object key. ^ self ]. input value: object ] -{ #category : 'tests' } +{ #category : #tests } TPyramidInputPresenterTest >> testEmptyValue [ | input hasTrigger | @@ -65,7 +63,7 @@ TPyramidInputPresenterTest >> testEmptyValue [ self assert: input value equals: self expectedEmptyValue ] -{ #category : 'tests' } +{ #category : #tests } TPyramidInputPresenterTest >> testMixedValues [ | input hasTrigger | @@ -77,7 +75,7 @@ TPyramidInputPresenterTest >> testMixedValues [ self assert: input value equals: self expectedMixedValues ] -{ #category : 'tests' } +{ #category : #tests } TPyramidInputPresenterTest >> testTrigger [ | input count current | @@ -94,7 +92,7 @@ TPyramidInputPresenterTest >> testTrigger [ self assert: self dummyValues size equals: count ] -{ #category : 'tests' } +{ #category : #tests } TPyramidInputPresenterTest >> testValue [ | input hasTrigger | @@ -106,7 +104,7 @@ TPyramidInputPresenterTest >> testValue [ self assert: (self equalityTestFor: each and: input value) ] ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } TPyramidInputPresenterTest >> triggerValueChangedOf: anInput [ self shouldBeImplemented diff --git a/src/Pyramid-Tests/package.st b/src/Pyramid-Tests/package.st index 4a98686a..667e02af 100644 --- a/src/Pyramid-Tests/package.st +++ b/src/Pyramid-Tests/package.st @@ -1 +1 @@ -Package { #name : 'Pyramid-Tests' } +Package { #name : #'Pyramid-Tests' }