Improve box layout support (driven by ToDoList example)

src/Spec-Toplo/SpHorizontalLayoutDirection.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #SpHorizontalLayoutDirection }
+
+{ #category : #'*Spec-Toplo' }
+SpHorizontalLayoutDirection >> setRigidityOfNonExpandedBlElement: aBlElement [
+
+	aBlElement
+		vMatchParent;
+		hFitContent
+]

src/Spec-Toplo/SpLayoutDirection.extension.st

@@ -0,0 +1,8 @@
+Extension { #name : #SpLayoutDirection }
+
+{ #category : #'*Spec-Toplo' }
+SpLayoutDirection >> setRigidityOfNonExpandedBlElement: aBlElement [
+	"Set the layout contraints according to this direction. Inspired on the Morphic backend."
+
+	self subclassResponsibility
+]

src/Spec-Toplo/SpToploBoxAdapter.class.st

@@ -150,6 +150,19 @@ SpToploBoxAdapter >> updateAsExpandedChild: childBlElement with: aSpBoxConstrain
 	childBlElement matchParent
 ]
 
+{ #category : #'as yet unclassified' }
+SpToploBoxAdapter >> updateAsNonExpandedChild: childBlElement with: aSpBoxConstraints [
+	"Set up child to stay rigid in the layout direction."
+
+	layout direction setRigidityOfNonExpandedBlElement: childBlElement.
+	aSpBoxConstraints width ifNotNil: [ :w | 
+		1 halt.
+		childBlElement width: w ].
+	aSpBoxConstraints height ifNotNil: [ :h | 
+		1 halt.
+		childBlElement height: h ]
+]
+
 { #category : #'as yet unclassified' }
 SpToploBoxAdapter >> updateChildPadding: aBlElement with: aSpBoxConstraints [
 

src/Spec-Toplo/SpToploLayoutAdapter.class.st

@@ -42,6 +42,13 @@ SpToploLayoutAdapter >> buildWidget [
 	^ nil
 ]
 
+{ #category : #building }
+SpToploLayoutAdapter >> buildWithSelector: aSelector [
+	"Inspired on SpMorphicLayoutAdapter>>#buildWithSelector:"
+
+	^ self widget
+]
+
 { #category : #accessing }
 SpToploLayoutAdapter >> children [
 	"Debug API. Answer the widgets added to this layout."

src/Spec-Toplo/SpVerticalLayoutDirection.extension.st

@@ -0,0 +1,9 @@
+Extension { #name : #SpVerticalLayoutDirection }
+
+{ #category : #'*Spec-Toplo' }
+SpVerticalLayoutDirection >> setRigidityOfNonExpandedBlElement: aBlElement [
+
+	aBlElement
+		hMatchParent;
+		vFitContent
+]