[Pharo] Personal fitness tracker web app.
Updated method classification.
Changed files
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 |
@@ -27,14 +27,14 @@
27
27
setGroups at: (setGroups indexOf: oldSetGroup) put: newSetGroup ]
28
28
]
29
29
30
Removed:
{ #category : 'initialization' }
30
Added:
{ #category : 'as yet unclassified' }
31
31
MFTSetGroupsDialog >> initialize [
32
32
33
33
super initialize.
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
@@ -44,7 +44,7 @@
44
44
with: 'Add exercise'
45
45
]
46
46
47
Removed:
{ #category : 'rendering' }
47
Added:
{ #category : 'as yet unclassified' }
48
48
MFTSetGroupsDialog >> renderContentOn: html [
49
49
50
50
self renderDialogOn: html with: [
@@ -52,25 +52,25 @@
52
52
self renderAddSetGroupButtonsOn: html ]
53
53
]
54
54
55
Removed:
{ #category : 'rendering' }
55
Added:
{ #category : 'as yet unclassified' }
56
56
MFTSetGroupsDialog >> renderLoad [
57
57
58
58
^ (setGroups flatCollect: #sets) anySatisfy: #hasLoad
59
59
]
60
60
61
Removed:
{ #category : 'rendering' }
61
Added:
{ #category : 'as yet unclassified' }
62
62
MFTSetGroupsDialog >> renderRestAfter [
63
63
64
64
^ (setGroups flatCollect: #sets) anySatisfy: #hasRestAfter
65
65
]
66
66
67
Removed:
{ #category : 'rendering' }
67
Added:
{ #category : 'as yet unclassified' }
68
68
MFTSetGroupsDialog >> renderRpe [
69
69
70
70
^ (setGroups flatCollect: #sets) anySatisfy: #hasRpe
71
71
]
72
72
73
Removed:
{ #category : 'rendering' }
73
Added:
{ #category : 'as yet unclassified' }
74
74
MFTSetGroupsDialog >> renderSetGroupButtonsOn: html For: setGroup [
75
75
76
76
html buttonGroup: [
@@ -92,7 +92,7 @@
92
92
with: 'Duplicate' ]
93
93
]
94
94
95
Removed:
{ #category : 'rendering' }
95
Added:
{ #category : 'as yet unclassified' }
96
96
MFTSetGroupsDialog >> renderSetGroupsRowsOn: html [
97
97
98
98
| renderLoad renderRpe renderRestAfter |
@@ -114,7 +114,7 @@
114
114
setGroup hasRestAfter ifTrue: [ html tableData: set restAfter ] ] ] ]
115
115
]
116
116
117
Removed:
{ #category : 'rendering' }
117
Added:
{ #category : 'as yet unclassified' }
118
118
MFTSetGroupsDialog >> renderSetGroupsTableHeaderOn: html [
119
119
120
120
html tableHead: [
@@ -127,7 +127,7 @@
127
127
self renderRestAfter ifTrue: [ html tableHeading: 'Rest after (s) ' ] ]
128
128
]
129
129
130
Removed:
{ #category : 'rendering' }
130
Added:
{ #category : 'as yet unclassified' }
131
131
MFTSetGroupsDialog >> renderSetsTableHeaderOn: html [
132
132
133
133
html tableHead: [
@@ -140,7 +140,7 @@
140
140
self renderRestAfter ifTrue: [ html tableHeading: 'Rest after (s) ' ] ]
141
141
]
142
142
143
Removed:
{ #category : 'rendering' }
143
Added:
{ #category : 'as yet unclassified' }
144
144
MFTSetGroupsDialog >> renderSetsTableOn: html [
145
145
146
146
html table
@@ -150,7 +150,7 @@
150
150
self renderSetGroupsRowsOn: html ]
151
151
]
152
152
153
Removed:
{ #category : 'rendering' }
153
Added:
{ #category : 'as yet unclassified' }
154
154
MFTSetGroupsDialog >> renderSubmitOn: html [
155
155
156
156
html buttonGroup: [
@@ -166,13 +166,13 @@
166
166
with: (completion ifNil: [ 'Cancel' ] ifNotNil: [ 'Skip' ]) ]
167
167
]
168
168
169
Removed:
{ #category : 'accessing' }
169
Added:
{ #category : 'as yet unclassified' }
170
170
MFTSetGroupsDialog >> setGroups [
171
171
172
172
^ setGroups
173
173
]
174
174
175
Removed:
{ #category : 'accessing' }
175
Added:
{ #category : 'as yet unclassified' }
176
176
MFTSetGroupsDialog >> setGroups: anObject [
177
177
178
178
setGroups := anObject
src/MyFitnessTracker/MFTStringDialog.class.st
@@ -9,7 +9,7 @@
9
9
#tag : 'Dialogs'
10
10
}
11
11
12
Removed:
{ #category : 'actions' }
12
Added:
{ #category : 'as yet unclassified' }
13
13
MFTStringDialog class >> edit: aString [
14
14
15
15
^ self new
@@ -18,14 +18,14 @@
18
18
yourself
19
19
]
20
20
21
Removed:
{ #category : 'initialization' }
21
Added:
{ #category : 'as yet unclassified' }
22
22
MFTStringDialog >> initialize [
23
23
24
24
super initialize.
25
25
string := String new
26
26
]
27
27
28
Removed:
{ #category : 'rendering' }
28
Added:
{ #category : 'as yet unclassified' }
29
29
MFTStringDialog >> renderContentOn: html [
30
30
31
31
self renderDialogOn: html with: [
@@ -34,7 +34,7 @@
34
34
callback: [ :value | string := value ] ]
35
35
]
36
36
37
Removed:
{ #category : 'rendering' }
37
Added:
{ #category : 'as yet unclassified' }
38
38
MFTStringDialog >> renderSubmitOn: html [
39
39
40
40
html buttonGroup: [