First attempt with text field input

src/Spec-Brick-Tests/SpBrickTextInputFieldAdapterTest.class.st

@@ -0,0 +1,23 @@
+Class {
+	#name : #SpBrickTextInputFieldAdapterTest,
+	#superclass : #SpBrickWidgetAdapterTest,
+	#category : #'Spec-Brick-Tests'
+}
+
+{ #category : #tests }
+SpBrickTextInputFieldAdapterTest >> specWidgetClass [
+
+	^ SpTextInputFieldPresenter
+]
+
+{ #category : #tests }
+SpBrickTextInputFieldAdapterTest >> testText [
+
+	specWidget text: 'Hello Brick'.
+	self assert: specWidget text asString equals: 'Hello Brick'.
+
+	brickWidget text: 'Hello Spec' asRopedText.
+"	self waitUI."
+	self assert: specWidget text asString equals: 'Hello Spec'.
+
+]

src/Spec-Brick/BrOneLineInputFilter.class.st

@@ -0,0 +1,12 @@
+Class {
+	#name : #BrOneLineInputFilter,
+	#superclass : #BrTextEditorInputFilter,
+	#category : #'Spec-Brick'
+}
+
+{ #category : #accessing }
+BrOneLineInputFilter >> filter: aString [
+	<return: #String>
+
+	^ aString reject: #isLineSeparator
+]

src/Spec-Brick/SpBrickAbstractTextAdapter.class.st

@@ -0,0 +1,35 @@
+Class {
+	#name : #SpBrickAbstractTextAdapter,
+	#superclass : #SpBrickWidgetAdapter,
+	#category : #'Spec-Brick'
+}
+
+{ #category : #'widget creation' }
+SpBrickAbstractTextAdapter >> subscribeToPresenter [
+
+	self presenter
+		whenTextChangedDo: [ self updateText ];
+		whenPlaceholderChangedDo: [ self halt ];
+		whenAcceptBlockChangedDo: [ self halt ];
+		yourself
+]
+
+{ #category : #'widget creation' }
+SpBrickAbstractTextAdapter >> subscribeToWidget [
+
+	widget
+		addEventHandlerOn: "BrEditorTextChanged"BrTextEditorModifiedEvent
+		do: [ self updateText ]
+]
+
+{ #category : #'widget update' }
+SpBrickAbstractTextAdapter >> updateAll [
+
+	self updateText.
+]
+
+{ #category : #'widget update' }
+SpBrickAbstractTextAdapter >> updateText [
+
+	self subclassResponsibility
+]

src/Spec-Brick/SpBrickTextInputFieldAdapter.class.st

@@ -0,0 +1,21 @@
+Class {
+	#name : #SpBrickTextInputFieldAdapter,
+	#superclass : #SpBrickAbstractTextAdapter,
+	#category : #'Spec-Brick'
+}
+
+{ #category : #'widget creation' }
+SpBrickTextInputFieldAdapter >> buildWidget [
+
+	^ BrEditor new
+		aptitude: BrGlamorousRegularEditorAptitude;
+		inputFilter: BrOneLineInputFilter new;
+		vFitContent;
+		yourself
+]
+
+{ #category : #'widget update' }
+SpBrickTextInputFieldAdapter >> updateText [
+
+	self widgetDo: [ :w | w text: self presenter text ]
+]