Skip to content
Closed
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
10 changes: 5 additions & 5 deletions src/Pyramid-Bloc/BlBackground.extension.st
Original file line number Diff line number Diff line change
@@ -1,25 +1,25 @@
Extension { #name : #BlBackground }
Extension { #name : 'BlBackground' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlBackground >> = aBlBackground [

aBlBackground == self ifTrue: [ ^ true ].
^ aBlBackground class = self class
]

{ #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
Expand Down
4 changes: 2 additions & 2 deletions src/Pyramid-Bloc/BlBasicLayout.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlBasicLayout }
Extension { #name : 'BlBasicLayout' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlBasicLayout >> setLayoutOn: aPyramidLayoutInputPresenter [

aPyramidLayoutInputPresenter setBasic
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlColorPaint.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlColorPaint }
Extension { #name : 'BlColorPaint' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlColorPaint >> asForm [

^ (Morph new
Expand All @@ -9,7 +9,7 @@ BlColorPaint >> asForm [
yourself) asForm
]

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlColorPaint >> selectOnBackgroundInput: aPyramidBackgroundInputPresenter [

aPyramidBackgroundInputPresenter selectPaintSolidWith: self
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlCompositeBackground.extension.st
Original file line number Diff line number Diff line change
@@ -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'
Expand Down
4 changes: 2 additions & 2 deletions src/Pyramid-Bloc/BlCornerRadii.extension.st
Original file line number Diff line number Diff line change
@@ -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: [
Expand Down
4 changes: 2 additions & 2 deletions src/Pyramid-Bloc/BlElement.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlElement }
Extension { #name : 'BlElement' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlElement >> asIcon [

^ self iconNamed: #class
Expand Down
4 changes: 2 additions & 2 deletions src/Pyramid-Bloc/BlEllipseGeometry.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlEllipseGeometry }
Extension { #name : 'BlEllipseGeometry' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlEllipseGeometry >> = anObject [

self == anObject ifTrue: [ ^ true ].
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlFlowLayout.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlFlowLayout }
Extension { #name : 'BlFlowLayout' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlFlowLayout >> = anObject [

self == anObject ifTrue: [ ^ true ].
Expand All @@ -11,7 +11,7 @@ BlFlowLayout >> = anObject [
^ true
]

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlFlowLayout >> setLayoutOn: aPyramidLayoutInputPresenter [

aPyramidLayoutInputPresenter setFlow
Expand Down
10 changes: 5 additions & 5 deletions src/Pyramid-Bloc/BlGradientPaint.extension.st
Original file line number Diff line number Diff line change
@@ -1,14 +1,14 @@
Extension { #name : #BlGradientPaint }
Extension { #name : 'BlGradientPaint' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlGradientPaint >> = aBlPaint [

self == aBlPaint ifTrue: [ ^ true ].
self class == aBlPaint class ifFalse: [ ^ false ].
^ self stops = aBlPaint stops
]

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlGradientPaint >> asForm [

^ (Morph new
Expand All @@ -21,13 +21,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.
Expand Down
10 changes: 5 additions & 5 deletions src/Pyramid-Bloc/BlImageBackground.extension.st
Original file line number Diff line number Diff line change
@@ -1,25 +1,25 @@
Extension { #name : #BlImageBackground }
Extension { #name : 'BlImageBackground' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlImageBackground >> = aBlBackground [

super = aBlBackground ifFalse: [ ^ false ].
^ self image = aBlBackground image
]

{ #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
Expand Down
4 changes: 2 additions & 2 deletions src/Pyramid-Bloc/BlInsets.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlInsets }
Extension { #name : 'BlInsets' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlInsets >> setInsetsOn: aPyramidInsetsInputPresenter [

self isUniform ifTrue: [
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLayout.extension.st
Original file line number Diff line number Diff line change
@@ -1,13 +1,13 @@
Extension { #name : #BlLayout }
Extension { #name : 'BlLayout' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlLayout >> = anObject [

self == anObject ifTrue: [ ^ true ].
^ self class = anObject class
]

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlLayout >> setLayoutOn: aPyramidLayoutInputPresenter [

aPyramidLayoutInputPresenter setUnknowValue
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLayoutCommonConstraintsAxis.extension.st
Original file line number Diff line number Diff line change
@@ -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
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLayoutExactResizer.extension.st
Original file line number Diff line number Diff line change
@@ -1,14 +1,14 @@
Extension { #name : #BlLayoutExactResizer }
Extension { #name : 'BlLayoutExactResizer' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlLayoutExactResizer >> asPyramidConstraintsArgument [

^ {
#exact:.
self size }
]

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlLayoutExactResizer >> setResizerConstraintsOn: aPyramidBasicConstraintsInputPresenter [

aPyramidBasicConstraintsInputPresenter setExact
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLayoutFitContentResizer.extension.st
Original file line number Diff line number Diff line change
@@ -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
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLayoutHorizontal.extension.st
Original file line number Diff line number Diff line change
@@ -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
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLayoutMatchParentResizer.extension.st
Original file line number Diff line number Diff line change
@@ -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
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLayoutVertical.extension.st
Original file line number Diff line number Diff line change
@@ -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
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlLinearGradientPaint.extension.st
Original file line number Diff line number Diff line change
@@ -1,13 +1,13 @@
Extension { #name : #BlLinearGradientPaint }
Extension { #name : 'BlLinearGradientPaint' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlLinearGradientPaint >> = aBlPaint [

super = aBlPaint ifFalse: [ ^ false ].
^ self end = aBlPaint end and: [ self start = aBlPaint start ]
]

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlLinearGradientPaint >> selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter [

super selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter.
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlPaint.extension.st
Original file line number Diff line number Diff line change
@@ -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
Expand Down
8 changes: 4 additions & 4 deletions src/Pyramid-Bloc/BlPaintBackground.extension.st
Original file line number Diff line number Diff line change
@@ -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
Expand Down
4 changes: 2 additions & 2 deletions src/Pyramid-Bloc/BlProportionalLayout.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlProportionalLayout }
Extension { #name : 'BlProportionalLayout' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlProportionalLayout >> setLayoutOn: aPyramidLayoutInputPresenter [

aPyramidLayoutInputPresenter setProportionnal
Expand Down
6 changes: 3 additions & 3 deletions src/Pyramid-Bloc/BlRadialGradientPaint.extension.st
Original file line number Diff line number Diff line change
@@ -1,13 +1,13 @@
Extension { #name : #BlRadialGradientPaint }
Extension { #name : 'BlRadialGradientPaint' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlRadialGradientPaint >> = aBlPaint [

super = aBlPaint ifFalse: [ ^ false ].
^ self center = aBlPaint center and: [ self radius = aBlPaint radius ]
]

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlRadialGradientPaint >> selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter [

super selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter.
Expand Down
4 changes: 2 additions & 2 deletions src/Pyramid-Bloc/BlRectangleGeometry.extension.st
Original file line number Diff line number Diff line change
@@ -1,6 +1,6 @@
Extension { #name : #BlRectangleGeometry }
Extension { #name : 'BlRectangleGeometry' }

{ #category : #'*Pyramid-Bloc' }
{ #category : '*Pyramid-Bloc' }
BlRectangleGeometry >> = anObject [

self == anObject ifTrue: [ ^ true ].
Expand Down
Loading