[Pharo] Personal fitness tracker web app.
Update WA components.
Changed files
src/MyFitnessTracker-Components/MFTHomepage.class.st
@@ -12,7 +12,7 @@
12
12
MFTHomepage >> initialize [
13
13
14
14
super initialize.
15
Removed:
workoutPlan := MFTWorkoutPlan placeholder
15
Added:
workoutPlan := MFTRoutine heavyDutyOneIdealRoutine
16
16
]
17
17
18
18
{ #category : 'rendering' }
@@ -21,6 +21,7 @@
21
21
html heading
22
22
level: 1;
23
23
with: 'Workouts'.
24
Added:
html render: MFTMonthCalendarComponent new.
24
25
html heading
25
26
level: 2;
26
27
with: 'Next workout'.
src/MyFitnessTracker-Components/MFTMonthCalendarComponent.class.st
@@ -0,0 +1,14 @@
1
Added:
Class {
2
Added:
#name : 'MFTMonthCalendarComponent',
3
Added:
#superclass : 'WAMiniCalendar',
4
Added:
#category : 'MyFitnessTracker-Components',
5
Added:
#package : 'MyFitnessTracker-Components'
6
Added:
}
7
Added:
8
Added:
{ #category : 'instance creation' }
9
Added:
MFTMonthCalendarComponent class >> month: aMonth [
10
Added:
11
Added:
^ self new
12
Added:
month: aMonth;
13
Added:
yourself
14
Added:
]
src/MyFitnessTracker-Components/MFTWorkoutComponent.class.st
@@ -34,16 +34,20 @@
34
34
html table: [
35
35
html tableHead: [
36
36
html
37
Removed:
tableHeading: 'Set Group';
37
Added:
tableHeading: 'Group';
38
Added:
tableHeading: 'Set';
39
Added:
tableHeading: 'Exercise';
38
40
tableHeading: 'Reps';
39
41
tableHeading: 'Load' ].
40
42
workout setGroups collect: [ :setGroup |
41
Removed:
html tableHead: [ html tableHeading: setGroup type ].
42
43
setGroup sets collect: [ :set |
43
Removed:
html tableRow: (html
44
Removed:
tableData: set exercise;
45
Removed:
tableData: set reps;
46
Removed:
tableData: set load) ] ] ]
44
Added:
html tableRow: [
45
Added:
html tableData: (workout setGroups indexOf: setGroup).
46
Added:
html
47
Added:
tableData: (Character value: 96 + (setGroup sets indexOf: set));
48
Added:
tableData: set exercise;
49
Added:
tableData: set reps;
50
Added:
tableData: set load ] ] ] ]
47
51
]
48
52
49
53
{ #category : 'accessing' }