[Pharo] Personal fitness tracker web app.
Update obsolete Date class methods.
Changed files
src/MyFitnessTracker/MFTAthlete.class.st
@@ -45,8 +45,8 @@
45
45
super initialize.
46
46
name := 'John Default'.
47
47
nickname := 'Johnny D.'.
48
Removed:
born := Date fromString: '01/01/1990'.
49
Removed:
died := Date fromString: '01/01/2000'.
48
Added:
born := Date year: 1990 month: 1 day: 1.
49
Added:
died := Date year: 2001 month: 1 day: 1.
50
50
bio := 'John Default is still today regarded as one of the most default bodybuilders ever.'
51
51
]
52
52
src/MyFitnessTracker/MFTMikeMentzer.class.st
@@ -12,8 +12,8 @@
12
12
super initialize.
13
13
name := 'Michael John Mentzer'.
14
14
nickname := 'Mike Mentzer'.
15
Removed:
born := Date fromString: '11/15/1951'.
16
Removed:
died := Date fromString: '06/10/2001'.
15
Added:
born := Date year: 1955 month: 11 day: 15.
16
Added:
died := Date year: 2001 month: 6 day: 10.
17
17
bio := 'Mike Mentzer is most famous for his Heavy Duty training regimen.'
18
18
]
19
19
src/MyFitnessTracker/MFTRepsDistributionGraph.class.st
@@ -8,7 +8,7 @@
8
8
9
9
{ #category : 'as yet unclassified' }
10
10
MFTRepsDistributionGraph >> crunchTheNumbers [
11
Removed:
"TODO: This looks ugly."
11
Added:
"TODO: This looks ugly."
12
12
13
13
| sets repTally |
14
14
sets := self session user workouts flatCollect: #sets.
src/MyFitnessTracker/MFTUser.class.st
@@ -38,7 +38,7 @@
38
38
username: 'mrs_default';
39
39
realFirstName: 'Deborah';
40
40
realLastName: 'Default';
41
Removed:
dateOfBirth: (Date fromString: '01/01/2000');
41
Added:
dateOfBirth: (Date year: 2000 month: 1 day: 1);
42
42
isLoggedIn: false;
43
43
workouts: MFTWorkout placeholderCollection;
44
44
weights: MFTWeight placeholderCollection
src/MyFitnessTracker/MFTWeight.class.st
@@ -43,16 +43,16 @@
43
43
44
44
^ OrderedCollection withAll: {
45
45
(self new
46
Removed:
date: (Date fromString: '01/01/2024');
46
Added:
date: (Date year: 2024 month: 1 day: 1);
47
47
value: 90).
48
48
(self new
49
Removed:
date: (Date fromString: '01/02/2024');
49
Added:
date: (Date year: 2024 month: 1 day: 2);
50
50
value: 91).
51
51
(self new
52
Removed:
date: (Date fromString: '01/03/2024');
52
Added:
date: (Date year: 2024 month: 1 day: 3);
53
53
value: 92).
54
54
(self new
55
Removed:
date: (Date fromString: '01/04/2024');
55
Added:
date: (Date year: 2024 month: 1 day: 4);
56
56
value: 93) }
57
57
]
58
58
src/MyFitnessTracker/MFTWorkout.class.st
@@ -33,21 +33,21 @@
33
33
workout1 := self new
34
34
id: 1;
35
35
userId: 1;
36
Removed:
date: (Date fromString: '2024-01-01');
36
Added:
date: (Date year: 2024 month: 1 day: 1);
37
37
primaryMuscleGroupId: 4;
38
38
sets:
39
39
(placeholderSets select: [ :set | set workoutId = 1 ]).
40
40
workout2 := self new
41
41
id: 2;
42
42
userId: 1;
43
Removed:
date: (Date fromString: '2024-01-02');
43
Added:
date: (Date year: 2024 month: 1 day: 2);
44
44
primaryMuscleGroupId: 5;
45
45
sets:
46
46
(placeholderSets select: [ :set | set workoutId = 2 ]).
47
47
workout3 := self new
48
48
id: 3;
49
49
userId: 1;
50
Removed:
date: (Date fromString: '2024-01-03');
50
Added:
date: (Date year: 2024 month: 1 day: 3);
51
51
primaryMuscleGroupId: 6;
52
52
sets:
53
53
(placeholderSets select: [ :set | set workoutId = 3 ]).