add dummy method [feenkcom/gtoolkit#3892]

feenkcom · Jul 17, 2024 · 0f1e095 · 0f1e095
1 parent 56d1960
commit 0f1e095
Showing 1 changed file with 37 additions and 0 deletions.
diff --git a/src/GToolkit-Pharo-Coder-Examples/GtPharoDummyOneObject.class.st b/src/GToolkit-Pharo-Coder-Examples/GtPharoDummyOneObject.class.st
@@ -87,6 +87,36 @@ GtPharoDummyOneObject >> instAReceiver [
 	^ instA raisedTo: a
 ]
 
+{ #category : #accessing }
+GtPharoDummyOneObject >> longMethod [
+	| aValue |
+	aValue := 1.
+	aValue := aValue + 1.
+	aValue := aValue + 2.
+	aValue := aValue + 3.
+	aValue := self togetherWith: aValue.
+	#(5 6) 
+		inject: aValue 
+		into: [ :aSum :anotherValue |
+			aSum + anotherValue ].
+	aValue := aValue + 7.
+	aValue := aValue + 8.
+	aValue := aValue + 9.
+	aValue := aValue + 10.
+	aValue := aValue + 11.
+	aValue := aValue + 12.
+	aValue := aValue + 13.
+	aValue := aValue + 14.
+	aValue := aValue + 15.
+	aValue := aValue + 16.
+	aValue := aValue + 17.
+	aValue := aValue + 18.
+	aValue := aValue + 19.
+	aValue := aValue + 20.
+	aValue := aValue + 21.
+	^ aValue
+]
+
 { #category : #accessing }
 GtPharoDummyOneObject >> number [
 	^ self one
@@ -159,6 +189,13 @@ GtPharoDummyOneObject >> three [
 	^ self two + self one
 ]
 
+{ #category : #accessing }
+GtPharoDummyOneObject >> togetherWith: aValue [
+	| anotherValue |
+	anotherValue := aValue + 4.
+	^ anotherValue
+]
+
 { #category : #accessing }
 GtPharoDummyOneObject >> two [
 	^ self one + self one