[Pharo] Personal fitness tracker web app.
Rename task.
Changed files
src/MyFitnessTracker/MFTSetGroupTask.class.st
@@ -0,0 +1,63 @@
1
Added:
Class {
2
Added:
#name : 'MFTSetGroupTask',
3
Added:
#superclass : 'WATask',
4
Added:
#instVars : [
5
Added:
'exercises',
6
Added:
'exerciseCount',
7
Added:
'setGroup'
8
Added:
],
9
Added:
#category : 'MyFitnessTracker-Tasks',
10
Added:
#package : 'MyFitnessTracker',
11
Added:
#tag : 'Tasks'
12
Added:
}
13
Added:
14
Added:
{ #category : 'as yet unclassified' }
15
Added:
MFTSetGroupTask class >> forExerciseCount: anInteger [
16
Added:
17
Added:
^ self new
18
Added:
exerciseCount: anInteger;
19
Added:
yourself
20
Added:
]
21
Added:
22
Added:
{ #category : 'accessing' }
23
Added:
MFTSetGroupTask >> exerciseCount: anObject [
24
Added:
25
Added:
exerciseCount := anObject
26
Added:
]
27
Added:
28
Added:
{ #category : 'accessing' }
29
Added:
MFTSetGroupTask >> exercises [
30
Added:
31
Added:
^ exercises
32
Added:
]
33
Added:
34
Added:
{ #category : 'accessing' }
35
Added:
MFTSetGroupTask >> exercises: anObject [
36
Added:
37
Added:
exercises := anObject
38
Added:
]
39
Added:
40
Added:
{ #category : 'running' }
41
Added:
MFTSetGroupTask >> go [
42
Added:
43
Added:
exercises := self call:
44
Added:
(MFTExercisesForm forExerciseCount: exerciseCount).
45
Added:
exercises ifNil: [ self answer: nil ].
46
Added:
47
Added:
setGroup := self call: (MFTSetGroupForm forExercises: exercises).
48
Added:
setGroup ifNil: [ self answer: nil ].
49
Added:
50
Added:
self answer: setGroup
51
Added:
]
52
Added:
53
Added:
{ #category : 'accessing' }
54
Added:
MFTSetGroupTask >> setGroups [
55
Added:
56
Added:
^ setGroups
57
Added:
]
58
Added:
59
Added:
{ #category : 'accessing' }
60
Added:
MFTSetGroupTask >> setGroups: anObject [
61
Added:
62
Added:
setGroups := anObject
63
Added:
]
src/MyFitnessTracker/MFTSetGroupsFormComponent.class.st
@@ -9,10 +9,10 @@
9
9
{ #category : 'adding' }
10
10
MFTSetGroupsFormComponent >> addSetGroupsForExerciseCount: anInteger [
11
11
12
Removed:
| setGroups |
13
Removed:
setGroups := self session pageManager activePage call:
14
Removed:
(MFTSetGroupsTask forExerciseCount: anInteger).
15
Removed:
setGroups ifNotNil: [ modelObject addSetGroups: setGroups ]
12
Added:
| setGroup |
13
Added:
setGroup := self session pageManager activePage call:
14
Added:
(MFTSetGroupTask forExerciseCount: anInteger).
15
Added:
setGroup ifNotNil: [ modelObject addSetGroup: setGroup ]
16
16
]
17
17
18
18
{ #category : 'initialization' }
src/MyFitnessTracker/MFTSetGroupsTask.class.st
@@ -1,69 +0,0 @@
1
Removed:
Class {
2
Removed:
#name : 'MFTSetGroupsTask',
3
Removed:
#superclass : 'WATask',
4
Removed:
#instVars : [
5
Removed:
'exercises',
6
Removed:
'exerciseCount',
7
Removed:
'setGroups'
8
Removed:
],
9
Removed:
#category : 'MyFitnessTracker-Tasks',
10
Removed:
#package : 'MyFitnessTracker',
11
Removed:
#tag : 'Tasks'
12
Removed:
}
13
Removed:
14
Removed:
{ #category : 'as yet unclassified' }
15
Removed:
MFTSetGroupsTask class >> forExerciseCount: anInteger [
16
Removed:
17
Removed:
^ self new
18
Removed:
exerciseCount: anInteger;
19
Removed:
yourself
20
Removed:
]
21
Removed:
22
Removed:
{ #category : 'accessing' }
23
Removed:
MFTSetGroupsTask >> exerciseCount [
24
Removed:
25
Removed:
^ exerciseCount
26
Removed:
]
27
Removed:
28
Removed:
{ #category : 'accessing' }
29
Removed:
MFTSetGroupsTask >> exerciseCount: anObject [
30
Removed:
31
Removed:
exerciseCount := anObject
32
Removed:
]
33
Removed:
34
Removed:
{ #category : 'accessing' }
35
Removed:
MFTSetGroupsTask >> exercises [
36
Removed:
37
Removed:
^ exercises
38
Removed:
]
39
Removed:
40
Removed:
{ #category : 'accessing' }
41
Removed:
MFTSetGroupsTask >> exercises: anObject [
42
Removed:
43
Removed:
exercises := anObject
44
Removed:
]
45
Removed:
46
Removed:
{ #category : 'running' }
47
Removed:
MFTSetGroupsTask >> go [
48
Removed:
49
Removed:
exercises := self call:
50
Removed:
(MFTExercisesForm forExerciseCount: exerciseCount).
51
Removed:
exercises ifNil: [ self answer: nil ].
52
Removed:
53
Removed:
setGroups := self call: (MFTSetGroupsForm forExercises: exercises).
54
Removed:
setGroups ifNil: [ self answer: nil ].
55
Removed:
56
Removed:
self answer: setGroups
57
Removed:
]
58
Removed:
59
Removed:
{ #category : 'accessing' }
60
Removed:
MFTSetGroupsTask >> setGroups [
61
Removed:
62
Removed:
^ setGroups
63
Removed:
]
64
Removed:
65
Removed:
{ #category : 'accessing' }
66
Removed:
MFTSetGroupsTask >> setGroups: anObject [
67
Removed:
68
Removed:
setGroups := anObject
69
Removed:
]