diff --git a/src/Toplo/ToClickableSkin.class.st b/src/Toplo/ToClickableSkin.class.st index 6b96551f2..8d0ddd89e 100644 --- a/src/Toplo/ToClickableSkin.class.st +++ b/src/Toplo/ToClickableSkin.class.st @@ -27,8 +27,7 @@ ToClickableSkin >> adaptNextChildrenArray: anArray in: anElement [ c linear horizontal alignCenter. c frame vertical alignCenter. c frame horizontal alignCenter ] ]. - - ^ self shaping adaptNextChildrenArray: anArray in: anElement + ^ anArray ] { #category : #'t - shapeable - private - shaping/sizing' } diff --git a/src/Toplo/ToControlShaping.class.st b/src/Toplo/ToControlShaping.class.st index e51464d10..7a989a840 100644 --- a/src/Toplo/ToControlShaping.class.st +++ b/src/Toplo/ToControlShaping.class.st @@ -7,12 +7,6 @@ Class { #category : #'Toplo-Core-Theme' } -{ #category : #'private children updating' } -ToControlShaping >> adaptNextChildrenArray: anArray in: anElement [ - - ^ anArray -] - { #category : #hook } ToControlShaping >> applyOn: anElement [ diff --git a/src/Toplo/ToQuadShaping.class.st b/src/Toplo/ToQuadShaping.class.st index 449dd2a96..cbc2a65e3 100644 --- a/src/Toplo/ToQuadShaping.class.st +++ b/src/Toplo/ToQuadShaping.class.st @@ -7,17 +7,6 @@ Class { #category : #'Toplo-Core-Theme' } -{ #category : #'private children updating' } -ToQuadShaping >> adaptNextChildrenArray: anArray in: anElement [ - - | subs | - subs := super adaptNextChildrenArray: anArray in: anElement. - (anElement verticalRequested and: [ anElement isLabelFirst ]) - ifTrue: [ ^ subs reversed ]. - ^ subs - -] - { #category : #accessing } ToQuadShaping >> radius [ diff --git a/src/Toplo/ToTripletJustifiedStrategy.class.st b/src/Toplo/ToTripletJustifiedStrategy.class.st index 3154cb643..f08306176 100644 --- a/src/Toplo/ToTripletJustifiedStrategy.class.st +++ b/src/Toplo/ToTripletJustifiedStrategy.class.st @@ -25,11 +25,3 @@ ToTripletJustifiedStrategy >> isJustified [ ^ true ] - -{ #category : #layout } -ToTripletJustifiedStrategy >> onMeasure: anExtentMeasurementSpec in: aTriplet [ - - " nothing to do, interspace is setup in #initialize " - - ^ true -] diff --git a/src/Toplo/ToTripletStrategy.class.st b/src/Toplo/ToTripletStrategy.class.st index 79f79443b..f6f362149 100644 --- a/src/Toplo/ToTripletStrategy.class.st +++ b/src/Toplo/ToTripletStrategy.class.st @@ -44,7 +44,7 @@ ToTripletStrategy >> onInstalledIn: aTriplet [ { #category : #layout } ToTripletStrategy >> onMeasure: anExtentMeasurementSpec in: aTriplet [ - self subclassResponsibility + ^ true ] { #category : #'api - install/uninstall hook' } diff --git a/src/Toplo/ToTripletWithExactInterspaceStrategy.class.st b/src/Toplo/ToTripletWithExactInterspaceStrategy.class.st index 34c0d1428..ca0072d84 100644 --- a/src/Toplo/ToTripletWithExactInterspaceStrategy.class.st +++ b/src/Toplo/ToTripletWithExactInterspaceStrategy.class.st @@ -24,14 +24,6 @@ ToTripletWithExactInterspaceStrategy >> interspaceWidth [ ^ interspace requestedWidth ] -{ #category : #layout } -ToTripletWithExactInterspaceStrategy >> onMeasure: anExtentMeasurementSpec in: aTriplet [ - - " nothing to do, interspace is with exact size " - - ^ true -] - { #category : #accessing } ToTripletWithExactInterspaceStrategy >> width: anInteger [ diff --git a/src/Toplo/ToTripletWithoutInterspaceStrategy.class.st b/src/Toplo/ToTripletWithoutInterspaceStrategy.class.st index 99252b393..326691999 100644 --- a/src/Toplo/ToTripletWithoutInterspaceStrategy.class.st +++ b/src/Toplo/ToTripletWithoutInterspaceStrategy.class.st @@ -10,10 +10,3 @@ ToTripletWithoutInterspaceStrategy >> onInstalledIn: anElement [ super onInstalledIn: anElement. anElement fitContent ] - -{ #category : #layout } -ToTripletWithoutInterspaceStrategy >> onMeasure: anExtentMeasurementSpec in: aTriplet [ - - " Nothing to do " - ^ true -]