Fix issue #5

OpenSmock · Aug 20, 2019 · bbee15a · bbee15a
1 parent a8117a4
commit bbee15a
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/Penfeld/PenInput.class.st b/src/Penfeld/PenInput.class.st
@@ -14,6 +14,22 @@ PenInput class >> styleName [
 	^ #input
 ]
 
+{ #category : #initialization }
+PenInput >> defaultText [ 
+	^ ''
+]
+
+{ #category : #initialization }
+PenInput >> initialize [ 
+	super initialize.
+	text := self defaultText.
+]
+
+{ #category : #accessing }
+PenInput >> text [ 
+	^ text
+]
+
 { #category : #accessing }
 PenInput >> text: aString [
 	aString = text ifTrue: [ ^ self ].