Workout task: added actions.

Commit
c472b51043875c72efc05e020531d4b4f3f0b2ac
Author
Marius Peter <marius.peter@tutanota.com>
Author date
Committer
Marius Peter <marius.peter@tutanota.com>
Committer date
src/MyFitnessTracker/MFTWorkoutTask.class.st
index bde95073..27b82800 100644..100644
@@ -2,7 +2,8 @@
2 2 #name : #MFTWorkoutTask,
3 3 #superclass : #WATask,
4 4 #instVars : [
5 Removed: 'workout'
5 Added: 'workout',
6 Added: 'action'
6 7 ],
7 8 #category : #'MyFitnessTracker-Dialogs'
8 9 }
@@ -12,29 +13,48 @@
12 13
13 14 ^ self new
14 15 workout: aMFTWorkout;
16 Added: action: #edit;
15 17 yourself
16 18 ]
17 19
20 Added: { #category : #accessing }
21 Added: MFTWorkoutTask >> action [
22 Added:
23 Added: ^ action
24 Added: ]
25 Added:
26 Added: { #category : #accessing }
27 Added: MFTWorkoutTask >> action: anObject [
28 Added:
29 Added: action := anObject
30 Added: ]
31 Added:
18 32 { #category : #running }
19 33 MFTWorkoutTask >> go [
20 34
35 Added: | confirmed |
21 36 workout date: (self call: (MFTDateDialog new
37 Added: action: action;
22 38 date: workout date;
23 39 completion: 20)).
24 40 workout exercises: (self call: (MFTExercisesDialog new
41 Added: action: action;
25 42 exercises: workout exercises;
26 43 completion: 40)).
27 44 workout primaryMuscle: (self call: (MFTPrimaryMuscleDialog new
45 Added: action: action;
28 46 primaryMuscle: workout primaryMuscle;
29 47 completion: 60)).
30 48 workout secondaryMuscles: (self call: (MFTSecondaryMusclesDialog new
49 Added: action: action;
31 50 secondaryMuscles: workout secondaryMuscles;
32 51 completion: 80)).
33 52
34 Removed: (self call: (MFTConfirmDialog add: workout))
35 Removed: ifTrue: [
36 Removed: self session user workouts add: workout.
37 Removed: self answer: workout ]
53 Added: confirmed := self call: (MFTConfirmDialog new
54 Added: action: action;
55 Added: component: workout).
56 Added: confirmed
57 Added: ifTrue: [ self answer: workout ]
38 58 ifFalse: [ self answer: nil ]
39 59 ]
40 60
@@ -42,7 +62,8 @@
42 62 MFTWorkoutTask >> initialize [
43 63
44 64 super initialize.
45 Removed: workout := MFTWorkout new
65 Added: workout := MFTWorkout new.
66 Added: action := #add
46 67 ]
47 68
48 69 { #category : #accessing }