[Pharo] Personal fitness tracker web app.
Updated method protocols.
Changed files
src/MyFitnessTracker/MFTSetGroupDialog.class.st
@@ -11,7 +11,7 @@
11
11
#tag : 'Dialogs'
12
12
}
13
13
14
Removed:
{ #category : 'actions' }
14
Added:
{ #category : 'as yet unclassified' }
15
15
MFTSetGroupDialog class >> edit: aMFTSetGroup [
16
16
17
17
^ self new
@@ -22,7 +22,7 @@
22
22
yourself
23
23
]
24
24
25
Removed:
{ #category : 'actions' }
25
Added:
{ #category : 'as yet unclassified' }
26
26
MFTSetGroupDialog class >> edit: aMFTSetGroup withExercises: aMFTExerciseCollection [
27
27
28
28
^ self new
@@ -32,7 +32,7 @@
32
32
yourself
33
33
]
34
34
35
Removed:
{ #category : 'adding' }
35
Added:
{ #category : 'as yet unclassified' }
36
36
MFTSetGroupDialog >> addSet [
37
37
38
38
| set |
@@ -43,7 +43,7 @@
43
43
setGroup addSet: (set exercise: selectedExercises first)
44
44
]
45
45
46
Removed:
{ #category : 'adding' }
46
Added:
{ #category : 'as yet unclassified' }
47
47
MFTSetGroupDialog >> addSets: aMFTExerciseCollection [
48
48
49
49
| sets |
@@ -54,7 +54,7 @@
54
54
sets ifNotEmpty: [ setGroup addSets: sets ]
55
55
]
56
56
57
Removed:
{ #category : 'actions' }
57
Added:
{ #category : 'as yet unclassified' }
58
58
MFTSetGroupDialog >> editSet: aMFTSet [
59
59
60
60
| oldSet newSet |
@@ -66,7 +66,7 @@
66
66
newSet ifNotNil: [ setGroup updateSet: oldSet with: newSet ]
67
67
]
68
68
69
Removed:
{ #category : 'actions' }
69
Added:
{ #category : 'as yet unclassified' }
70
70
MFTSetGroupDialog >> editSets: aMFTSetCollection [
71
71
72
72
| oldSets newSets |
@@ -88,7 +88,7 @@
88
88
selectedExercises := OrderedCollection with: allExercises first
89
89
]
90
90
91
Removed:
{ #category : 'rendering' }
91
Added:
{ #category : 'as yet unclassified' }
92
92
MFTSetGroupDialog >> makeGiantSet [
93
93
94
94
self heading: 'Giant Sets'.
@@ -97,7 +97,7 @@
97
97
self populateSetsForExercises: selectedExercises
98
98
]
99
99
100
Removed:
{ #category : 'rendering' }
100
Added:
{ #category : 'as yet unclassified' }
101
101
MFTSetGroupDialog >> makeRegularExercise [
102
102
103
103
self heading: 'Sets'.
@@ -105,7 +105,7 @@
105
105
self populateSetsForExercises: selectedExercises
106
106
]
107
107
108
Removed:
{ #category : 'rendering' }
108
Added:
{ #category : 'as yet unclassified' }
109
109
MFTSetGroupDialog >> makeSuperset [
110
110
111
111
self heading: 'Supersets'.
@@ -115,7 +115,7 @@
115
115
self populateSetsForExercises: selectedExercises
116
116
]
117
117
118
Removed:
{ #category : 'rendering' }
118
Added:
{ #category : 'as yet unclassified' }
119
119
MFTSetGroupDialog >> makeTriset [
120
120
121
121
self heading: 'Tri-sets'.
@@ -136,7 +136,7 @@
136
136
exercise: exercise ])
137
137
]
138
138
139
Removed:
{ #category : 'rendering' }
139
Added:
{ #category : 'as yet unclassified' }
140
140
MFTSetGroupDialog >> renderConfigureSetGroupButtonsOn: html [
141
141
142
142
selectedExercises size = 1
@@ -179,7 +179,7 @@
179
179
self renderConfigureSetGroupButtonsOn: html ]
180
180
]
181
181
182
Removed:
{ #category : 'rendering' }
182
Added:
{ #category : 'as yet unclassified' }
183
183
MFTSetGroupDialog >> renderSelectExercisesOn: html [
184
184
185
185
| allSets |
@@ -198,7 +198,7 @@
198
198
labels: [ :each | each englishName ] ] ]
199
199
]
200
200
201
Removed:
{ #category : 'rendering' }
201
Added:
{ #category : 'as yet unclassified' }
202
202
MFTSetGroupDialog >> renderSetGroupRowsOn: html [
203
203
204
204
setGroup sets doWithIndex: [ :set :i |
@@ -252,7 +252,7 @@
252
252
with: set restAfter ] ] ]
253
253
]
254
254
255
Removed:
{ #category : 'rendering' }
255
Added:
{ #category : 'as yet unclassified' }
256
256
MFTSetGroupDialog >> renderSetGroupTableHeaderOn: html [
257
257
258
258
html tableHead: [
@@ -276,7 +276,7 @@
276
276
with: 'Rest After (s)' ] ]
277
277
]
278
278
279
Removed:
{ #category : 'rendering' }
279
Added:
{ #category : 'as yet unclassified' }
280
280
MFTSetGroupDialog >> renderSetGroupTableOn: html [
281
281
282
282
html table
@@ -286,7 +286,7 @@
286
286
self renderSetGroupRowsOn: html ]
287
287
]
288
288
289
Removed:
{ #category : 'rendering' }
289
Added:
{ #category : 'as yet unclassified' }
290
290
MFTSetGroupDialog >> renderSubmitOn: html [
291
291
292
292
html buttonGroup: [
@@ -302,25 +302,25 @@
302
302
with: (completion ifNil: [ 'Cancel' ] ifNotNil: [ 'Skip' ]) ]
303
303
]
304
304
305
Removed:
{ #category : 'accessing' }
305
Added:
{ #category : 'as yet unclassified' }
306
306
MFTSetGroupDialog >> selectedExercises [
307
307
308
308
^ selectedExercises
309
309
]
310
310
311
Removed:
{ #category : 'accessing' }
311
Added:
{ #category : 'as yet unclassified' }
312
312
MFTSetGroupDialog >> selectedExercises: aMFTExerciseCollection [
313
313
314
314
selectedExercises := aMFTExerciseCollection
315
315
]
316
316
317
Removed:
{ #category : 'accessing' }
317
Added:
{ #category : 'as yet unclassified' }
318
318
MFTSetGroupDialog >> setGroup [
319
319
320
320
^ setGroup
321
321
]
322
322
323
Removed:
{ #category : 'accessing' }
323
Added:
{ #category : 'as yet unclassified' }
324
324
MFTSetGroupDialog >> setGroup: anObject [
325
325
326
326
setGroup := anObject
src/MyFitnessTracker/MFTSetGroupsDialog.class.st
@@ -9,7 +9,7 @@
9
9
#tag : 'Dialogs'
10
10
}
11
11
12
Removed:
{ #category : 'adding' }
12
Added:
{ #category : 'as yet unclassified' }
13
13
MFTSetGroupsDialog >> addExercise [
14
14
15
15
| setGroup |
@@ -17,7 +17,7 @@
17
17
setGroup ifNotNil: [ setGroups add: setGroup ]
18
18
]
19
19
20
Removed:
{ #category : 'rendering' }
20
Added:
{ #category : 'as yet unclassified' }
21
21
MFTSetGroupsDialog >> editSetGroup: aMFTSetGroup [
22
22
23
23
| oldSetGroup newSetGroup |
@@ -34,7 +34,7 @@
34
34
setGroups := OrderedCollection new
35
35
]
36
36
37
Removed:
{ #category : 'rendering' }
37
Added:
{ #category : 'as yet unclassified' }
38
38
MFTSetGroupsDialog >> renderAddSetGroupButtonsOn: html [
39
39
40
40
html outlineButton
@@ -52,7 +52,7 @@
52
52
self renderAddSetGroupButtonsOn: html ]
53
53
]
54
54
55
Removed:
{ #category : 'rendering' }
55
Added:
{ #category : 'as yet unclassified' }
56
56
MFTSetGroupsDialog >> renderSubmitOn: html [
57
57
58
58
html buttonGroup: [
@@ -68,13 +68,13 @@
68
68
with: (completion ifNil: [ 'Cancel' ] ifNotNil: [ 'Skip' ]) ]
69
69
]
70
70
71
Removed:
{ #category : 'accessing' }
71
Added:
{ #category : 'as yet unclassified' }
72
72
MFTSetGroupsDialog >> setGroups [
73
73
74
74
^ setGroups
75
75
]
76
76
77
Removed:
{ #category : 'accessing' }
77
Added:
{ #category : 'as yet unclassified' }
78
78
MFTSetGroupsDialog >> setGroups: anObject [
79
79
80
80
setGroups := anObject