From 0f1e0959b359dadde2a0637c27619552265eb675 Mon Sep 17 00:00:00 2001 From: Juraj Kubelka Date: Wed, 17 Jul 2024 13:03:57 -0400 Subject: [PATCH] add dummy method [feenkcom/gtoolkit#3892] --- .../GtPharoDummyOneObject.class.st | 37 +++++++++++++++++++ 1 file changed, 37 insertions(+) diff --git a/src/GToolkit-Pharo-Coder-Examples/GtPharoDummyOneObject.class.st b/src/GToolkit-Pharo-Coder-Examples/GtPharoDummyOneObject.class.st index ee82d90b..8e9b0675 100644 --- 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