Issue 0138 - Better layout

src/Pyramid-Bloc/BlBasicLayout.extension.st

@@ -1,7 +1,7 @@
 Extension { #name : #BlBasicLayout }
 
 { #category : #'*Pyramid-Bloc' }
-BlBasicLayout >> setLayoutOn: aPyramidLayoutInputPresenter [
+BlBasicLayout >> asIcon [
 
-	aPyramidLayoutInputPresenter setBasic
+	^ self iconNamed: #radioButtonUnselected
 ]

src/Pyramid-Bloc/BlBottomAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlBottomAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlBottomAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectEnd.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlElement.extension.st

@@ -3,5 +3,5 @@ Extension { #name : #BlElement }
 { #category : #'*Pyramid-Bloc' }
 BlElement >> asIcon [
 
-	^ self iconNamed: #class
+	^ self layout asIcon
 ]

src/Pyramid-Bloc/BlFlowLayout.extension.st

@@ -12,7 +12,7 @@ BlFlowLayout >> = anObject [
 ]
 
 { #category : #'*Pyramid-Bloc' }
-BlFlowLayout >> setLayoutOn: aPyramidLayoutInputPresenter [
+BlFlowLayout >> asIcon [
 
-	aPyramidLayoutInputPresenter setFlow
+	^ self iconNamed: #smallJustified
 ]

src/Pyramid-Bloc/BlFrameLayout.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlFrameLayout }
+
+{ #category : #'*Pyramid-Bloc' }
+BlFrameLayout >> asIcon [
+
+	^ self iconNamed: #windowMaximize
+]

src/Pyramid-Bloc/BlHorizontalCenterAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlHorizontalCenterAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlHorizontalCenterAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectCenter.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlHorizontalCoordinateEndAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlHorizontalCoordinateEndAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlHorizontalCoordinateEndAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectCenter.
+	aFrameConstraintsPresenter inputHasRelative state: true.
+	aFrameConstraintsPresenter inputRelative value: self coordinate negated
+]

src/Pyramid-Bloc/BlHorizontalCoordinateLeftAlignment.extension.st

@@ -0,0 +1,11 @@
+Extension { #name : #BlHorizontalCoordinateLeftAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlHorizontalCoordinateLeftAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectStart.
+	aFrameConstraintsPresenter inputHasRelative
+		state: true.
+	aFrameConstraintsPresenter inputRelative
+		value: self coordinate
+]

src/Pyramid-Bloc/BlHorizontalCoordinateRightAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlHorizontalCoordinateRightAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlHorizontalCoordinateRightAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectEnd.
+	aFrameConstraintsPresenter inputHasRelative state: true.
+	aFrameConstraintsPresenter inputRelative value: self coordinate
+]

src/Pyramid-Bloc/BlHorizontalCoordinateStartAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlHorizontalCoordinateStartAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlHorizontalCoordinateStartAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectCenter.
+	aFrameConstraintsPresenter inputHasRelative state: true.
+	aFrameConstraintsPresenter inputRelative value: self coordinate
+]

src/Pyramid-Bloc/BlHorizontalEndAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlHorizontalEndAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlHorizontalEndAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectEnd.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlHorizontalStartAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlHorizontalStartAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlHorizontalStartAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectStart.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlLayout.extension.st

@@ -8,7 +8,7 @@ BlLayout >> = anObject [
 ]
 
 { #category : #'*Pyramid-Bloc' }
-BlLayout >> setLayoutOn: aPyramidLayoutInputPresenter [
+BlLayout >> asIcon [
 
-	aPyramidLayoutInputPresenter setUnknowValue
+	^ self iconNamed: #smallQuestion
 ]

src/Pyramid-Bloc/BlLinearLayout.extension.st

@@ -0,0 +1,7 @@
+Extension { #name : #BlLinearLayout }
+
+{ #category : #'*Pyramid-Bloc' }
+BlLinearLayout >> asIcon [
+
+	^ self iconNamed: #smallLeftFlush
+]

src/Pyramid-Bloc/BlLinearLayoutHorizontalOrientation.extension.st

@@ -0,0 +1,13 @@
+Extension { #name : #BlLinearLayoutHorizontalOrientation }
+
+{ #category : #'*Pyramid-Bloc' }
+BlLinearLayoutHorizontalOrientation >> asBooleanForPyramid [
+
+	^ false
+]
+
+{ #category : #'*Pyramid-Bloc' }
+BlLinearLayoutHorizontalOrientation >> switchOrientation [
+
+	^ BlLinearLayoutVerticalOrientation new
+]

src/Pyramid-Bloc/BlLinearLayoutVerticalOrientation.extension.st

@@ -0,0 +1,13 @@
+Extension { #name : #BlLinearLayoutVerticalOrientation }
+
+{ #category : #'*Pyramid-Bloc' }
+BlLinearLayoutVerticalOrientation >> asBooleanForPyramid [
+
+	^ true
+]
+
+{ #category : #'*Pyramid-Bloc' }
+BlLinearLayoutVerticalOrientation >> switchOrientation [
+
+	^ BlLinearLayoutHorizontalOrientation new
+]

src/Pyramid-Bloc/BlNullHorizontalAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlNullHorizontalAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlNullHorizontalAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectNull.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlNullVerticalAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlNullVerticalAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlNullVerticalAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectNull.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlProportionalLayout.extension.st

@@ -1,7 +1,7 @@
 Extension { #name : #BlProportionalLayout }
 
 { #category : #'*Pyramid-Bloc' }
-BlProportionalLayout >> setLayoutOn: aPyramidLayoutInputPresenter [
+BlProportionalLayout >> asIcon [
 
-	aPyramidLayoutInputPresenter setProportionnal
+	^ self iconNamed: #haloScale
 ]

src/Pyramid-Bloc/BlTextElement.extension.st

@@ -3,5 +3,5 @@ Extension { #name : #BlTextElement }
 { #category : #'*Pyramid-Bloc' }
 BlTextElement >> asIcon [
 
-	^ self iconNamed: #haloFontStyle
+	^ self iconNamed: #smallFonts
 ]

src/Pyramid-Bloc/BlTopAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlTopAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlTopAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectStart.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlVerticalCenterAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlVerticalCenterAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlVerticalCenterAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectCenter.
+	aFrameConstraintsPresenter inputHasRelative state: false.
+	aFrameConstraintsPresenter inputRelative value: 0
+]

src/Pyramid-Bloc/BlVerticalCoordinateBottomAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlVerticalCoordinateBottomAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlVerticalCoordinateBottomAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectEnd.
+	aFrameConstraintsPresenter inputHasRelative state: true.
+	aFrameConstraintsPresenter inputRelative value: self coordinate
+]

src/Pyramid-Bloc/BlVerticalCoordinateTopAlignment.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #BlVerticalCoordinateTopAlignment }
+
+{ #category : #'*Pyramid-Bloc' }
+BlVerticalCoordinateTopAlignment >> pyramidSelectOn: aFrameConstraintsPresenter [
+
+	aFrameConstraintsPresenter selectStart.
+	aFrameConstraintsPresenter inputHasRelative state: true.
+	aFrameConstraintsPresenter inputRelative value: self coordinate
+]

src/Pyramid-Bloc/False.extension.st

@@ -1,7 +1,13 @@
 Extension { #name : #False }
 
 { #category : #'*Pyramid-Bloc' }
-False >> asOrientationForPyramid [
+False >> asOrientationForFlowPyramid [
 
 	^ BlLayoutOrientation horizontal
 ]
+
+{ #category : #'*Pyramid-Bloc' }
+False >> asOrientationForLinearPyramid [
+
+	^ BlLinearLayoutHorizontalOrientation new
+]