Merge pull request #1538 from pharo-spec/dev-3.0

moved to Spec2-Transmission package
pharo-spec · Apr 11, 2024 · d585a91 · d585a91
2 parents aab7b6b + 426ad62
commit d585a91
Show file tree

Hide file tree

Showing 4 changed files with 26 additions and 24 deletions.
diff --git a/src/Spec2-Core/SpPresenterSelectorPresenter.class.st b/src/Spec2-Core/SpPresenterSelectorPresenter.class.st
@@ -23,12 +23,6 @@ Class {
 	#tag : 'Widgets'
 }
 
-{ #category : 'transmission' }
-SpPresenterSelectorPresenter >> defaultInputPort [
-
-	^ self inputModelPort
-]
-
 { #category : 'api - focus' }
 SpPresenterSelectorPresenter >> defaultKeyboardFocus [
 
@@ -56,12 +50,6 @@ SpPresenterSelectorPresenter >> initializePresenters [
 	layout := SpBoxLayout newTopToBottom
 ]
 
-{ #category : 'transmission' }
-SpPresenterSelectorPresenter >> inputModelPort [
-
-	^ SpModelPort newPresenter: self
-]
-
 { #category : 'accessing - model' }
 SpPresenterSelectorPresenter >> setModel: anObject [
 

diff --git a/src/Spec2-Core/SpTModel.trait.st b/src/Spec2-Core/SpTModel.trait.st
@@ -11,18 +11,6 @@ Trait {
 	#tag : 'Widgets'
 }
 
-{ #category : 'transmission' }
-SpTModel >> defaultInputPort [
-
-	^ self inputModelPort
-]
-
-{ #category : 'transmission' }
-SpTModel >> inputModelPort [
-
-	^ SpModelPort newPresenter: self
-]
-
 { #category : 'accessing - model' }
 SpTModel >> model [
 

diff --git a/src/Spec2-Transmission/SpPresenterSelectorPresenter.extension.st b/src/Spec2-Transmission/SpPresenterSelectorPresenter.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : 'SpPresenterSelectorPresenter' }
+
+{ #category : '*Spec2-Transmission' }
+SpPresenterSelectorPresenter >> defaultInputPort [
+
+	^ self inputModelPort
+]
+
+{ #category : '*Spec2-Transmission' }
+SpPresenterSelectorPresenter >> inputModelPort [
+
+	^ SpModelPort newPresenter: self
+]
diff --git a/src/Spec2-Transmission/SpTModel.extension.st b/src/Spec2-Transmission/SpTModel.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : 'SpTModel' }
+
+{ #category : '*Spec2-Transmission' }
+SpTModel >> defaultInputPort [
+
+	^ self inputModelPort
+]
+
+{ #category : '*Spec2-Transmission' }
+SpTModel >> inputModelPort [
+
+	^ SpModelPort newPresenter: self
+]