Merge pull request #644 from pharo-spec/643-Use-the-direction-strateg…

…y-instead-of-performs-in-paned-layout 643-Use-the-direction-strategy-instead-of-performs-in-paned-layout
pharo-spec · Jul 8, 2019 · 73dc7c1 · 73dc7c1
2 parents ed1e7be + e7575c6
commit 73dc7c1
Show file tree

Hide file tree

Showing 4 changed files with 17 additions and 2 deletions.
diff --git a/src/Spec2-Adapters-Morphic/SpLayoutDirection.extension.st b/src/Spec2-Adapters-Morphic/SpLayoutDirection.extension.st
@@ -1,5 +1,10 @@
 Extension { #name : #SpLayoutDirection }
 
+{ #category : #'*Spec2-Adapters-Morphic' }
+SpLayoutDirection >> newSplitter [
+	^ self subclassResponsibility
+]
+
 { #category : #'*Spec2-Adapters-Morphic' }
 SpLayoutDirection >> setRigidityOfNonExpendedMorph: aMorph [ 
 	self subclassResponsibility

diff --git a/src/Spec2-Adapters-Morphic/SpLayoutDirectionHorizontal.extension.st b/src/Spec2-Adapters-Morphic/SpLayoutDirectionHorizontal.extension.st
@@ -1,5 +1,10 @@
 Extension { #name : #SpLayoutDirectionHorizontal }
 
+{ #category : #'*Spec2-Adapters-Morphic' }
+SpLayoutDirectionHorizontal >> newSplitter [
+	^ SpPanedResizerMorph newHorizontal
+]
+
 { #category : #'*Spec2-Adapters-Morphic' }
 SpLayoutDirectionHorizontal >> setRigidityOfNonExpendedMorph: aMorph [ 
 	aMorph 

diff --git a/src/Spec2-Adapters-Morphic/SpLayoutDirectionVertical.extension.st b/src/Spec2-Adapters-Morphic/SpLayoutDirectionVertical.extension.st
@@ -1,5 +1,10 @@
 Extension { #name : #SpLayoutDirectionVertical }
 
+{ #category : #'*Spec2-Adapters-Morphic' }
+SpLayoutDirectionVertical >> newSplitter [
+	^ SpPanedResizerMorph newVertical
+]
+
 { #category : #'*Spec2-Adapters-Morphic' }
 SpLayoutDirectionVertical >> setRigidityOfNonExpendedMorph: aMorph [ 
 	aMorph 

diff --git a/src/Spec2-Adapters-Morphic/SpMorphicPanedAdapter.class.st b/src/Spec2-Adapters-Morphic/SpMorphicPanedAdapter.class.st
@@ -25,9 +25,9 @@ SpMorphicPanedAdapter >> addConstraits: constraints toChild: childMorph [
 
 { #category : #private }
 SpMorphicPanedAdapter >> addSplitterIn: aPanel for: childMorph [
-	
+
 	aPanel submorphs size = 1 ifFalse: [ ^ self ].
-	aPanel addMorphBack: (SpPanedResizerMorph perform: self selector)
+	aPanel addMorphBack: self direction newSplitter
 ]
 
 { #category : #private }