[Pharo] Personal fitness tracker web app.
Add MFTEquipment class.
src/MyFitnessTracker-Core/MFTEquipment.class.st
@@ -0,0 +1,45 @@
1
Added:
"
2
Added:
I represent an equipment that can be used for a MFTExercise.
3
Added:
"
4
Added:
Class {
5
Added:
#name : 'MFTEquipment',
6
Added:
#superclass : 'MFTObject',
7
Added:
#instVars : [
8
Added:
'englishName'
9
Added:
],
10
Added:
#category : 'MyFitnessTracker-Core',
11
Added:
#package : 'MyFitnessTracker-Core'
12
Added:
}
13
Added:
14
Added:
{ #category : 'as yet unclassified' }
15
Added:
MFTEquipment class >> dumbell [
16
Added:
17
Added:
^ self
18
Added:
newWithEnglishName;
19
Added:
yourself
20
Added:
]
21
Added:
22
Added:
{ #category : 'as yet unclassified' }
23
Added:
MFTEquipment class >> newWithEnglishName [
24
Added:
"I return a MFTEquipment instance for which englishName is set to the calling method selector, as a space-separated string."
25
Added:
26
Added:
| equipmentNameFromSender |
27
Added:
equipmentNameFromSender := (thisContext sender selector
28
Added:
splitCamelCase collect: #asLowercase)
29
Added:
joinUsing: Character space.
30
Added:
^ self new
31
Added:
englishName: equipmentNameFromSender;
32
Added:
yourself
33
Added:
]
34
Added:
35
Added:
{ #category : 'accessing' }
36
Added:
MFTEquipment >> englishName [
37
Added:
38
Added:
^ englishName
39
Added:
]
40
Added:
41
Added:
{ #category : 'accessing' }
42
Added:
MFTEquipment >> englishName: anObject [
43
Added:
44
Added:
englishName := anObject
45
Added:
]