[Pharo] Personal fitness tracker web app.
Added a couple muscles, their latin names, and the link to a Terminologia Anatomica database.
src/MyFitnessTracker/MFTMuscle.class.st
@@ -2,86 +2,171 @@
2
2
#name : #MFTMuscle,
3
3
#superclass : #Object,
4
4
#instVars : [
5
Removed:
'name'
5
Added:
'nameEnglish',
6
Added:
'nameLatin',
7
Added:
'description'
6
8
],
7
9
#category : #MyFitnessTracker
8
10
}
9
11
10
12
{ #category : #'as yet unclassified' }
11
Removed:
MFTMuscle class >> back [
13
Added:
MFTMuscle class >> biceps [
12
14
13
15
^ self new
14
Removed:
name: 'back';
15
Removed:
yourself
16
Added:
nameEnglish: 'biceps';
17
Added:
nameLatin: 'biceps brachii';
18
Added:
yourself
16
19
]
17
20
18
21
{ #category : #'as yet unclassified' }
19
Removed:
MFTMuscle class >> biceps [
22
Added:
MFTMuscle class >> deltoidAnterior [
20
23
21
24
^ self new
22
Removed:
name: 'biceps';
23
Removed:
yourself
25
Added:
nameEnglish: 'deltoid (anterior)';
26
Added:
nameLatin: 'deltoideus';
27
Added:
yourself
24
28
]
25
29
26
30
{ #category : #'as yet unclassified' }
27
Removed:
MFTMuscle class >> chest [
28
Removed:
"comment stating purpose of class-side method"
31
Added:
MFTMuscle class >> deltoidMedial [
29
32
30
Removed:
"scope: class-variables & class-instance-variables"
33
Added:
^ self new
34
Added:
name: 'deltoid (medial)';
35
Added:
nameLatin: 'deltoideus';
36
Added:
yourself
37
Added:
]
31
38
39
Added:
{ #category : #'as yet unclassified' }
40
Added:
MFTMuscle class >> deltoidPosterior [
41
Added:
32
42
^ self new
33
Removed:
name: 'chest';
43
Added:
name: 'deltoid (posterior)';
44
Added:
nameLatin: 'deltoideus';
34
45
yourself
35
46
]
36
47
37
48
{ #category : #'as yet unclassified' }
38
Removed:
MFTMuscle class >> deltoidAnterior [
49
Added:
MFTMuscle class >> externalOblique [
39
50
40
51
^ self new
41
Removed:
name: 'anterior deltoid';
42
Removed:
yourself
52
Added:
nameEnglish: 'external oblique';
53
Added:
description: 'Located on the front and side of the abdomen.';
54
Added:
yourself
43
55
]
44
56
45
57
{ #category : #'as yet unclassified' }
46
Removed:
MFTMuscle class >> deltoidLateral [
58
Added:
MFTMuscle class >> hamstring [
47
59
48
60
^ self new
49
Removed:
name: 'lateral deltoid';
50
Removed:
yourself
61
Added:
name: 'triceps';
62
Added:
description: '';
63
Added:
yourself
51
64
]
52
65
53
66
{ #category : #'as yet unclassified' }
54
Removed:
MFTMuscle class >> deltoidPosterior [
67
Added:
MFTMuscle class >> internalOblique [
55
68
56
69
^ self new
57
Removed:
name: 'posterior deltoid';
58
Removed:
yourself
70
Added:
nameEnglish: 'internal oblique';
71
Added:
description: 'Located on the front and side of the abdomen.';
72
Added:
yourself
59
73
]
60
74
61
75
{ #category : #'as yet unclassified' }
62
Removed:
MFTMuscle class >> pectoral [
76
Added:
MFTMuscle class >> rectusAbdominis [
63
77
64
78
^ self new
65
Removed:
name: 'pectoral';
66
Removed:
yourself
79
Added:
nameEnglish: 'six-pack';
80
Added:
nameLatin: (thisContext sender selector asString);
81
Added:
description:
82
Added:
'Located along the front of the abdomen. Colloquially known as the "six-pack"';
83
Added:
yourself
67
84
]
68
85
69
86
{ #category : #'as yet unclassified' }
87
Added:
MFTMuscle class >> transversusAbdominis [
88
Added:
89
Added:
^ self new
90
Added:
nameEnglish: 'abs';
91
Added:
nameLatin: 'transversus abdominis';
92
Added:
description:
93
Added:
'Deepest abdominal muscle. Wraps around the spine for protection and stability.';
94
Added:
yourself
95
Added:
]
96
Added:
97
Added:
{ #category : #'as yet unclassified' }
70
98
MFTMuscle class >> triceps [
71
99
72
100
^ self new
73
Removed:
name: 'triceps';
74
Removed:
yourself
101
Added:
nameEnglish: 'triceps';
102
Added:
nameLatin: 'triceps brachii';
103
Added:
yourself
75
104
]
76
105
77
106
{ #category : #accessing }
78
Removed:
MFTMuscle >> name [
107
Added:
MFTMuscle >> description [
79
108
80
Removed:
^ name asString
109
Added:
^ description
81
110
]
82
111
83
112
{ #category : #accessing }
84
Removed:
MFTMuscle >> name: aString [
113
Added:
MFTMuscle >> description: aString [
85
114
86
Removed:
name := aString
115
Added:
description := aString
116
Added:
]
117
Added:
118
Added:
{ #category : #initialization }
119
Added:
MFTMuscle >> initialize [
120
Added:
121
Added:
super initialize.
122
Added:
nameEnglish := String new.
123
Added:
nameLatin := String new.
124
Added:
description := String new
125
Added:
]
126
Added:
127
Added:
{ #category : #accessing }
128
Added:
MFTMuscle >> linkTerminologiaAnatomica [
129
Added:
130
Added:
^ 'http://terminologia-anatomica.org/en/Search?query=' , nameLatin
131
Added:
]
132
Added:
133
Added:
{ #category : #accessing }
134
Added:
MFTMuscle >> nameEnglish [
135
Added:
136
Added:
^ nameEnglish
137
Added:
]
138
Added:
139
Added:
{ #category : #accessing }
140
Added:
MFTMuscle >> nameEnglish: aString [
141
Added:
142
Added:
nameEnglish := aString
143
Added:
]
144
Added:
145
Added:
{ #category : #accessing }
146
Added:
MFTMuscle >> nameLatin [
147
Added:
148
Added:
^ nameLatin
149
Added:
]
150
Added:
151
Added:
{ #category : #accessing }
152
Added:
MFTMuscle >> nameLatin: aString [
153
Added:
154
Added:
nameLatin := aString
155
Added:
]
156
Added:
157
Added:
{ #category : #rendering }
158
Added:
MFTMuscle >> renderContentOn: html [
159
Added:
160
Added:
html container: [
161
Added:
html table
162
Added:
class: 'table table-striped';
163
Added:
with: [
164
Added:
html tableHead: [
165
Added:
html
166
Added:
tableHeading: 'Property';
167
Added:
tableHeading: 'Value' ].
168
Added:
self class allInstVarNames do: [ :var |
169
Added:
html tableRow: [
170
Added:
html tableData: var.
171
Added:
html tableData: (self perform: var) ] ] ] ]
87
172
]