From 4c7721b77b57e068643b76dfda262613129d0b02 Mon Sep 17 00:00:00 2001 From: Yann Le Goff Date: Tue, 23 Jul 2024 09:39:39 +0200 Subject: [PATCH] add new element with pyStash --- src/Pyramid-Bloc/BlBackground.extension.st | 8 +- src/Pyramid-Bloc/BlBasicLayout.extension.st | 4 +- .../BlBottomAlignment.extension.st | 4 +- src/Pyramid-Bloc/BlColorPaint.extension.st | 6 +- .../BlCompositeBackground.extension.st | 6 +- src/Pyramid-Bloc/BlCornerRadii.extension.st | 4 +- src/Pyramid-Bloc/BlElement.extension.st | 6 +- src/Pyramid-Bloc/BlFlowLayout.extension.st | 4 +- src/Pyramid-Bloc/BlFrameLayout.extension.st | 4 +- src/Pyramid-Bloc/BlGradientPaint.extension.st | 8 +- .../BlHorizontalCenterAlignment.extension.st | 4 +- ...izontalCoordinateEndAlignment.extension.st | 4 +- ...zontalCoordinateLeftAlignment.extension.st | 4 +- ...ontalCoordinateRightAlignment.extension.st | 4 +- ...ontalCoordinateStartAlignment.extension.st | 4 +- .../BlHorizontalEndAlignment.extension.st | 4 +- .../BlHorizontalStartAlignment.extension.st | 4 +- .../BlImageBackground.extension.st | 8 +- src/Pyramid-Bloc/BlInsets.extension.st | 4 +- src/Pyramid-Bloc/BlLayout.extension.st | 4 +- ...BlLayoutCommonConstraintsAxis.extension.st | 6 +- .../BlLayoutExactResizer.extension.st | 6 +- .../BlLayoutFitContentResizer.extension.st | 6 +- .../BlLayoutHorizontal.extension.st | 6 +- .../BlLayoutMatchParentResizer.extension.st | 6 +- .../BlLayoutVertical.extension.st | 6 +- .../BlLinearGradientPaint.extension.st | 4 +- src/Pyramid-Bloc/BlLinearLayout.extension.st | 4 +- ...arLayoutHorizontalOrientation.extension.st | 6 +- ...nearLayoutVerticalOrientation.extension.st | 6 +- .../BlNullHorizontalAlignment.extension.st | 4 +- .../BlNullVerticalAlignment.extension.st | 4 +- src/Pyramid-Bloc/BlPaint.extension.st | 6 +- .../BlPaintBackground.extension.st | 8 +- .../BlProportionalLayout.extension.st | 4 +- .../BlRadialGradientPaint.extension.st | 4 +- src/Pyramid-Bloc/BlSpace.extension.st | 4 +- src/Pyramid-Bloc/BlTextElement.extension.st | 4 +- src/Pyramid-Bloc/BlTopAlignment.extension.st | 4 +- .../BlTransparentBackground.extension.st | 8 +- .../BlVerticalCenterAlignment.extension.st | 4 +- ...icalCoordinateBottomAlignment.extension.st | 4 +- ...erticalCoordinateTopAlignment.extension.st | 4 +- src/Pyramid-Bloc/BlVisibility.extension.st | 10 +- .../BlVisibilityGone.extension.st | 14 +-- .../BlVisibilityHidden.extension.st | 14 +-- .../BlVisibilityVisible.extension.st | 14 +-- src/Pyramid-Bloc/False.extension.st | 6 +- .../PyramidAbstractBlocCommand.class.st | 12 +-- .../PyramidAbstractBorderCommand.class.st | 14 ++- ...midAbstractChangeDrawOrderCommand.class.st | 14 ++- .../PyramidAbstractColumnsBuilder.class.st | 16 ++-- ...actFrameConstraintsInputPresenter.class.st | 74 +++++++------- ...bstractLayoutOrientationPresenter.class.st | 14 ++- .../PyramidAddChildCommand.class.st | 12 +-- .../PyramidAddChildrenCommand.class.st | 12 +-- .../PyramidBackgroundBlocPlugin.class.st | 80 ++++++++-------- .../PyramidBackgroundImageCommand.class.st | 14 ++- ...amidBackgroundImageInputPresenter.class.st | 32 +++---- ...amidBackgroundImageModalPresenter.class.st | 96 +++++++++---------- .../PyramidBackgroundOpacityCommand.class.st | 12 +-- ...yramidBackgroundPaintColorCommand.class.st | 14 ++- .../PyramidBackgroundPaintCommand.class.st | 16 ++-- ...groundPaintLinearDirectionCommand.class.st | 10 +- ...idBackgroundPaintLinearEndCommand.class.st | 12 +-- ...BackgroundPaintLinearStartCommand.class.st | 12 +-- ...ramidBackgroundPaintRadialCommand.class.st | 10 +- ...oundPaintRadialInnerCenterCommand.class.st | 12 +-- ...oundPaintRadialInnerRadiusCommand.class.st | 12 +-- ...oundPaintRadialOuterCenterCommand.class.st | 12 +-- ...oundPaintRadialOuterRadiusCommand.class.st | 12 +-- ...yramidBackgroundPaintStopsCommand.class.st | 14 ++- ...amidBackgroundStopsInputPresenter.class.st | 36 ++++--- ...amidBackgroundStopsModalPresenter.class.st | 40 ++++---- .../PyramidBackgroundTypeCommand.class.st | 14 ++- .../PyramidBasicConstraintsCommand.class.st | 12 +-- ...midBasicConstraintsInputPresenter.class.st | 34 ++++--- ...tHorizontalConstraintsBlocCommand.class.st | 14 ++- ...actVerticalConstraintsBlocCommand.class.st | 14 ++- ...cHorizontalConstraintsBlocCommand.class.st | 14 ++- ...sicVerticalConstraintsBlocCommand.class.st | 14 ++- .../PyramidBlElementHelper.class.st | 10 +- .../PyramidBlocLayoutPlugin.class.st | 44 ++++----- src/Pyramid-Bloc/PyramidBlocPlugin.class.st | 46 +++++---- .../PyramidBlocTextCommand.class.st | 14 ++- .../PyramidBlocTextPlugin.class.st | 18 ++-- .../PyramidBorderDashArrayCommand.class.st | 12 +-- .../PyramidBorderDashOffsetCommand.class.st | 14 ++- .../PyramidBorderLineCapCommand.class.st | 12 +-- .../PyramidBorderLineJoinCommand.class.st | 12 +-- .../PyramidBorderMiterLimitCommand.class.st | 14 ++- .../PyramidBorderOpacityCommand.class.st | 12 +-- .../PyramidBorderPaintColorCommand.class.st | 14 ++- .../PyramidBorderPaintCommand.class.st | 12 +-- ...BorderPaintLinearDirectionCommand.class.st | 10 +- ...derPaintLinearDirectionEndCommand.class.st | 12 +-- ...rPaintLinearDirectionStartCommand.class.st | 12 +-- .../PyramidBorderPaintRadialCommand.class.st | 10 +- ...rderPaintRadialInnerCenterCommand.class.st | 12 +-- ...rderPaintRadialInnerRadiusCommand.class.st | 12 +-- ...rderPaintRadialOuterCenterCommand.class.st | 12 +-- ...rderPaintRadialOuterRadiusCommand.class.st | 12 +-- .../PyramidBorderPaintStopsCommand.class.st | 14 ++- .../PyramidBorderWidthCommand.class.st | 12 +-- ...yramidChangeOrderWithIndexCommand.class.st | 10 +- .../PyramidChangeTextCommand.class.st | 12 +-- .../PyramidChildrenCommand.class.st | 14 ++- .../PyramidClipChildrenCommand.class.st | 12 +-- .../PyramidContextMenuPlugin.class.st | 24 +++-- .../PyramidCopyPastePlugin.class.st | 24 +++-- .../PyramidCornerRadiiInputPresenter.class.st | 26 +++-- .../PyramidDrawOrderIcons.class.st | 24 +++-- ...yramidEditOnRunningSystemSettings.class.st | 20 ++-- .../PyramidElementIdCommand.class.st | 12 +-- .../PyramidElementIdSortFunction.class.st | 10 +- .../PyramidElementToAddCategory.class.st | 26 +++-- .../PyramidElementToAddFactory.class.st | 28 +++--- .../PyramidElementToAddFactoryEmpty.class.st | 12 +-- ...ramidElementToAddFactoryPresenter.class.st | 34 ++++--- .../PyramidElementToAddModel.class.st | 16 ++-- .../PyramidElementToAddPresenter.class.st | 32 +++---- ...PyramidElementsManipulationHelper.class.st | 16 ++-- .../PyramidElevationSortFunction.class.st | 10 +- .../PyramidExistingOverlayError.class.st | 8 +- ...midFlowLayoutOrientationPresenter.class.st | 10 +- .../PyramidFontSizeCommand.class.st | 12 +-- .../PyramidFontWeightCommand.class.st | 12 +-- .../PyramidFrameConstraintsCommand.class.st | 10 +- ...FrameHorizontalConstraintsCommand.class.st | 12 +-- ...idFrameVerticalConstraintsCommand.class.st | 12 +-- .../PyramidGeometryCommand.class.st | 12 +-- .../PyramidGeometryInputModel.class.st | 42 ++++---- .../PyramidGeometryInputPresenter.class.st | 32 +++---- src/Pyramid-Bloc/PyramidGroupCommand.class.st | 34 ++++--- .../PyramidGroupCommandModel.class.st | 32 +++---- ...talFrameConstraintsInputPresenter.class.st | 26 +++-- .../PyramidInsetsInputPresenter.class.st | 26 +++-- .../PyramidLayoutBlocCommand.class.st | 12 +-- ...midLayoutChangeOrientationCommand.class.st | 14 ++- ...utChangeOrientationForFlowCommand.class.st | 10 +- ...ChangeOrientationForLinearCommand.class.st | 10 +- .../PyramidLibraryContainerPresenter.class.st | 28 +++--- ...dLinearLayoutOrientationPresenter.class.st | 10 +- .../PyramidMainExtension.class.st | 36 ++++--- .../PyramidMarginCommand.class.st | 12 +-- .../PyramidMenuExtension.class.st | 24 +++-- .../PyramidMouseTransformExtension.class.st | 20 ++-- .../PyramidMoveBackwardOrderCommand.class.st | 12 +-- .../PyramidMoveForwardOrderCommand.class.st | 12 +-- .../PyramidOnBackgroundOrderCommand.class.st | 12 +-- .../PyramidOnForegroundOrderCommand.class.st | 12 +-- .../PyramidOpacityCommand.class.st | 12 +-- .../PyramidOpenFromSpacePlugin.class.st | 16 ++-- .../PyramidOutskirtsCommand.class.st | 12 +-- .../PyramidPaddingCommand.class.st | 12 +-- .../PyramidPluginEditOnRunning.class.st | 38 ++++---- .../PyramidPluginTestMode.class.st | 28 +++--- .../PyramidPositionCommand.class.st | 12 +-- .../PyramidPositionExtension.class.st | 14 ++- .../PyramidPositionOffsetCommand.class.st | 16 ++-- .../PyramidProjectModel.extension.st | 4 +- ...idProportionnalConstraintsCommand.class.st | 10 +- ...onnalHorizontalConstraintsCommand.class.st | 12 +-- ...tionnalVerticalConstraintsCommand.class.st | 12 +-- .../PyramidRedoGroupCommand.class.st | 16 ++-- .../PyramidRemoveChildCommand.class.st | 12 +-- .../PyramidRemoveChildrenCommand.class.st | 12 +-- ...amidRemoveSelectedElementsCommand.class.st | 22 ++--- ...oundedRectangleCornerRadiiCommand.class.st | 14 ++- src/Pyramid-Bloc/PyramidSaveError.class.st | 8 +- src/Pyramid-Bloc/PyramidSaveModel.class.st | 38 ++++---- .../PyramidSaveModelVerifier.class.st | 44 ++++----- src/Pyramid-Bloc/PyramidSavePlugin.class.st | 36 ++++--- ...aveProjectConfigurationController.class.st | 44 ++++----- ...ramidSaveProjectConfigurationView.class.st | 72 +++++++------- .../PyramidSavingMethodBuilder.class.st | 28 +++--- .../PyramidSavingService.class.st | 42 ++++---- .../PyramidSelectionMakerExtension.class.st | 44 ++++----- ...ramidSelectionWidgetBorderBuilder.class.st | 42 ++++---- .../PyramidSelectionWidgetExtension.class.st | 56 ++++++----- src/Pyramid-Bloc/PyramidSpaceBuilder.class.st | 40 ++++---- .../PyramidSpaceContainer.class.st | 16 ++-- .../PyramidSpaceMainOverlay.class.st | 8 +- .../PyramidSpaceOverlayDecorator.class.st | 14 ++- src/Pyramid-Bloc/PyramidSpacePlugin.class.st | 26 +++-- .../PyramidSwitchInputPresenter.class.st | 46 +++++---- .../PyramidTextForegroundCommand.class.st | 12 +-- .../PyramidTreeBaseColumnsBuilder.class.st | 20 ++-- src/Pyramid-Bloc/PyramidTreePlugin.class.st | 76 ++++++++++----- .../PyramidTreePresenter.class.st | 54 +++++------ .../PyramidUndoGroupCommand.class.st | 16 ++-- ...calFrameConstraintsInputPresenter.class.st | 26 +++-- .../PyramidVisibilityCommand.class.st | 12 +-- .../PyramidVisibilityInputPresenter.class.st | 50 +++++----- .../PyramidVisibilitySortFunction.class.st | 10 +- .../PyramidVisualPystonForCly.class.st | 56 ++++++----- .../PyramidWheelTransformExtension.class.st | 12 +-- .../PyramidZIndexCommand.class.st | 12 +-- .../TPyramidEditorExtension.trait.st | 20 ++-- .../TPyramidEditorSpaceIsReady.trait.st | 14 ++- ...PyramidEditorSpaceIsReadyObserver.trait.st | 8 +- .../TPyramidEditorTransformation.trait.st | 14 ++- ...ramidEditorTransformationObserver.trait.st | 8 +- .../TPyramidElementToAdd.trait.st | 8 +- .../TPyramidKeyboardExtension.trait.st | 14 ++- ...ramidOpenFromSpacePluginExtension.trait.st | 10 +- .../TPyramidSpaceExtension.trait.st | 16 ++-- src/Pyramid-Bloc/True.extension.st | 6 +- src/Pyramid-Bloc/package.st | 2 +- .../PyramidSimpleExamples.class.st | 4 +- .../PyramidToploExamples.class.st | 39 +------- src/Pyramid-Toplo-Examples/package.st | 2 +- 212 files changed, 1652 insertions(+), 1969 deletions(-) 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..3e81dd4a 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,7 @@ PyramidBlocLayoutPlugin class >> constraintsPropV [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> flowLayoutOrientation [ | property | @@ -148,7 +146,7 @@ PyramidBlocLayoutPlugin class >> flowLayoutOrientation [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> layout [ | property | @@ -202,7 +200,7 @@ PyramidBlocLayoutPlugin class >> layout [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> linearLayoutOrientation [ | property | @@ -221,7 +219,7 @@ PyramidBlocLayoutPlugin class >> linearLayoutOrientation [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> margin [ | property | @@ -237,7 +235,7 @@ PyramidBlocLayoutPlugin class >> margin [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> padding [ | property | @@ -254,7 +252,7 @@ PyramidBlocLayoutPlugin class >> padding [ ^ property ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidBlocLayoutPlugin class >> position [ | property | @@ -268,7 +266,7 @@ PyramidBlocLayoutPlugin class >> position [ ^ property ] -{ #category : 'adding' } +{ #category : #adding } PyramidBlocLayoutPlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow at: #tabRight addItem: [ :builder | @@ -279,7 +277,7 @@ PyramidBlocLayoutPlugin >> addPanelsOn: aPyramidSimpleWindow [ order: 3 ] ] -{ #category : 'connecting' } +{ #category : #connecting } PyramidBlocLayoutPlugin >> connectOn: aPyramidEditor [ propertiesManager projectModel: aPyramidEditor projectModel. @@ -287,7 +285,7 @@ PyramidBlocLayoutPlugin >> connectOn: aPyramidEditor [ aPyramidEditor propertiesManager commandExecutor ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidBlocLayoutPlugin >> initialize [ propertiesManager := PyramidPropertiesManagerForSelection new. @@ -324,7 +322,7 @@ PyramidBlocLayoutPlugin >> initialize [ 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..fd895146 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,44 @@ PyramidTreePlugin class >> addDefaultOnLibrary: library [ ^ library ] -{ #category : 'adding' } +{ #category : #adding } PyramidTreePlugin class >> addOnLibrary: aLibrary [ self addDefaultOnLibrary: aLibrary. - self addPystonOnLibrary: aLibrary + self addPystonOnLibrary: aLibrary. + self addPystashOnLibrary: aLibrary ] -{ #category : 'as yet unclassified' } +{ #category : #'as yet unclassified' } +PyramidTreePlugin class >> addPystashOnLibrary: library [ + + | pragmas methods packages | + pragmas := Pragma allNamed: #pyStash. + methods := (pragmas collect: #method) asSet. + packages := (methods collect: #package) asSet. + + packages do: [ :package | + | factories | + factories := methods + select: [ :method | method package = package ] + thenCollect: [ :method | + PyramidElementToAddFactory new + elementIcon: (Smalltalk ui icons iconNamed: + method methodClass soleInstance systemIconName); + elementName: method selector; + elementBlock: [ + (method methodClass soleInstance perform: + method selector) materializeAsBlElement ]; + yourself ]. + library + addCategoryWithName: package name + withIcon: (Smalltalk ui icons iconNamed: #smallInfo) + withAllFactories: factories asArray sorted ]. + + ^ library +] + +{ #category : #'as yet unclassified' } PyramidTreePlugin class >> addPystonOnLibrary: library [ | pragmas methods packages | @@ -79,7 +107,7 @@ PyramidTreePlugin class >> addPystonOnLibrary: library [ ^ library ] -{ #category : 'accessing' } +{ #category : #accessing } PyramidTreePlugin class >> columnsBuildersClasses [ ColumnsBuildersClasses ifNil: [ @@ -87,14 +115,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 +130,7 @@ PyramidTreePlugin >> addColumns: aCollection [ ] -{ #category : 'adding' } +{ #category : #adding } PyramidTreePlugin >> addPanelsOn: aPyramidSimpleWindow [ aPyramidSimpleWindow at: #tabLeft addItem: [ :builder | @@ -117,7 +145,7 @@ PyramidTreePlugin >> addPanelsOn: aPyramidSimpleWindow [ addItem: [ :builder | self menuAddAndDeleteOn: builder ] ] -{ #category : 'actions' } +{ #category : #actions } PyramidTreePlugin >> configureBuilder: aPyramidEditorBuilder [ self class columnsBuildersClasses do: [ :each | @@ -126,19 +154,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 +175,7 @@ PyramidTreePlugin >> editor: aPyramidEditor [ (self editor window services at: #selectionMenu) builder ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreePlugin >> initialize [ self initializeLibraryPresenters. @@ -157,7 +185,7 @@ PyramidTreePlugin >> initialize [ yourself ] -{ #category : 'initialization' } +{ #category : #initialization } PyramidTreePlugin >> initializeLibraryPresenters [ | idGenerator | @@ -193,19 +221,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 +283,7 @@ PyramidTreePlugin >> menuAddAndDeleteOn: aBuilder [ order: 10 ] -{ #category : 'removing' } +{ #category : #removing } PyramidTreePlugin >> removeSelectedElements [ self editor propertiesManager commandExecutor @@ -267,7 +295,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/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-Examples/PyramidSimpleExamples.class.st b/src/Pyramid-Examples/PyramidSimpleExamples.class.st index 2eeecc7e..e349996a 100644 --- a/src/Pyramid-Examples/PyramidSimpleExamples.class.st +++ b/src/Pyramid-Examples/PyramidSimpleExamples.class.st @@ -9,7 +9,7 @@ PyramidSimpleExamples class >> imageProxy [ "This class has been generated using Pyramid. By: YannLEGOFF - 2024-07-22 17:50:11" + 2024-07-23 09:32:34" ^ [ {(BlElement new @@ -17,7 +17,7 @@ PyramidSimpleExamples class >> imageProxy [ background: (BlImageBackground new image: (PyramidExternalRessourceProxy new pyramidExternalRessourceSource: (PyramidExternalRessourceSource new - target: Object class new; + target: Object; selector: #iconNamed:; arguments: {#pharoBig}; yourself); diff --git a/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st b/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st index 1991336c..f9606da8 100644 --- a/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st +++ b/src/Pyramid-Toplo-Examples/PyramidToploExamples.class.st @@ -1,11 +1,10 @@ Class { - #name : 'PyramidToploExamples', - #superclass : 'Object', - #category : 'Pyramid-Toplo-Examples', - #package : 'Pyramid-Toplo-Examples' + #name : #PyramidToploExamples, + #superclass : #Object, + #category : #'Pyramid-Toplo-Examples' } -{ #category : 'pyramid-serialized-bloc' } +{ #category : #'pyramid-serialized-bloc' } PyramidToploExamples class >> buttons [ ^ [ "BlStashSerializer" @@ -54,12 +53,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -104,12 +101,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -143,12 +138,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -177,12 +170,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -208,12 +199,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -261,12 +250,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -294,12 +281,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -331,12 +316,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -367,12 +350,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -398,12 +379,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -444,12 +423,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -475,12 +452,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -514,12 +489,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -545,12 +518,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. @@ -576,12 +547,10 @@ blfontsizedefaultattribute21 := BlFontSizeDefaultAttribute new. constraints vertical exact: 32.0. constraints padding: blinsets1 ]; beHorizontal; - beIconFirst; flexible: false; icon: nil; iconContainerHeight: 0.0; iconContainerWidth: 0.0; - interspace: 0.0 @ 0.0; label: (ToLabel new layout: blframelayout5; constraintsDo: [:constraints | constraints horizontal fitContent. diff --git a/src/Pyramid-Toplo-Examples/package.st b/src/Pyramid-Toplo-Examples/package.st index 992899b5..a1c8a7af 100644 --- a/src/Pyramid-Toplo-Examples/package.st +++ b/src/Pyramid-Toplo-Examples/package.st @@ -1 +1 @@ -Package { #name : 'Pyramid-Toplo-Examples' } +Package { #name : #'Pyramid-Toplo-Examples' }