[Pharo] Personal fitness tracker web app.
Rename MFTProfileTask class to MFTUserTask.
Changed files
src/MyFitnessTracker/MFTProfileTask.class.st
@@ -1,62 +0,0 @@
1
Removed:
Class {
2
Removed:
#name : #MFTProfileTask,
3
Removed:
#superclass : #WATask,
4
Removed:
#instVars : [
5
Removed:
'user'
6
Removed:
],
7
Removed:
#category : #'MyFitnessTracker-Dialogs'
8
Removed:
}
9
Removed:
10
Removed:
{ #category : #actions }
11
Removed:
MFTProfileTask class >> edit: aMFTUser [
12
Removed:
13
Removed:
^ self new
14
Removed:
user: aMFTUser;
15
Removed:
yourself
16
Removed:
]
17
Removed:
18
Removed:
{ #category : #running }
19
Removed:
MFTProfileTask >> go [
20
Removed:
21
Removed:
user username: (self call: (MFTStringDialog new
22
Removed:
heading: 'username';
23
Removed:
string: user username;
24
Removed:
completion: 20)).
25
Removed:
user dateOfBirth: (self call: (MFTDateDialog new
26
Removed:
heading: 'date of birth';
27
Removed:
date: user dateOfBirth;
28
Removed:
completion: 40)).
29
Removed:
user realFirstName: (self call: (MFTStringDialog new
30
Removed:
heading: 'real first name';
31
Removed:
string: user realFirstName;
32
Removed:
completion: 60)).
33
Removed:
user realLastName: (self call: (MFTStringDialog new
34
Removed:
heading: 'real last name';
35
Removed:
string: user realLastName;
36
Removed:
completion: 80)).
37
Removed:
38
Removed:
(self call: (MFTConfirmDialog edit: user))
39
Removed:
ifTrue: [
40
Removed:
self session user: user.
41
Removed:
self answer: user ]
42
Removed:
ifFalse: [ self answer: nil ]
43
Removed:
]
44
Removed:
45
Removed:
{ #category : #initialization }
46
Removed:
MFTProfileTask >> initialize [
47
Removed:
48
Removed:
super initialize.
49
Removed:
user := MFTUser new
50
Removed:
]
51
Removed:
52
Removed:
{ #category : #accessing }
53
Removed:
MFTProfileTask >> user [
54
Removed:
55
Removed:
^ user
56
Removed:
]
57
Removed:
58
Removed:
{ #category : #accessing }
59
Removed:
MFTProfileTask >> user: anObject [
60
Removed:
61
Removed:
user := anObject
62
Removed:
]
src/MyFitnessTracker/MFTUserTask.class.st
@@ -0,0 +1,83 @@
1
Added:
Class {
2
Added:
#name : #MFTUserTask,
3
Added:
#superclass : #WATask,
4
Added:
#instVars : [
5
Added:
'user',
6
Added:
'action'
7
Added:
],
8
Added:
#category : #'MyFitnessTracker-Dialogs'
9
Added:
}
10
Added:
11
Added:
{ #category : #actions }
12
Added:
MFTUserTask class >> edit: aMFTUser [
13
Added:
14
Added:
^ self new
15
Added:
user: aMFTUser;
16
Added:
action: #edit;
17
Added:
yourself
18
Added:
]
19
Added:
20
Added:
{ #category : #accessing }
21
Added:
MFTUserTask >> action [
22
Added:
23
Added:
^ action
24
Added:
]
25
Added:
26
Added:
{ #category : #accessing }
27
Added:
MFTUserTask >> action: anObject [
28
Added:
29
Added:
action := anObject
30
Added:
]
31
Added:
32
Added:
{ #category : #running }
33
Added:
MFTUserTask >> go [
34
Added:
35
Added:
user username: (self call: (MFTStringDialog new
36
Added:
action: action;
37
Added:
heading: 'username';
38
Added:
string: user username;
39
Added:
completion: 20)).
40
Added:
user passwordHashFromString: (self call: (MFTStringDialog new
41
Added:
action: action;
42
Added:
heading: 'password';
43
Added:
completion: 40)).
44
Added:
user dateOfBirth: (self call: (MFTDateDialog new
45
Added:
action: action;
46
Added:
heading: 'date of birth';
47
Added:
date: user dateOfBirth;
48
Added:
completion: 60)).
49
Added:
user realFirstName: (self call: (MFTStringDialog new
50
Added:
action: action;
51
Added:
heading: 'real first name';
52
Added:
string: user realFirstName;
53
Added:
completion: 80)).
54
Added:
user realLastName: (self call: (MFTStringDialog new
55
Added:
heading: 'real last name';
56
Added:
string: user realLastName;
57
Added:
completion: 100)).
58
Added:
59
Added:
(self call: (MFTConfirmDialog new
60
Added:
action: action;
61
Added:
component: user))
62
Added:
ifTrue: [ self answer: user ]
63
Added:
ifFalse: [ self answer: nil ]
64
Added:
]
65
Added:
66
Added:
{ #category : #initialization }
67
Added:
MFTUserTask >> initialize [
68
Added:
69
Added:
super initialize.
70
Added:
user := MFTUser new
71
Added:
]
72
Added:
73
Added:
{ #category : #accessing }
74
Added:
MFTUserTask >> user [
75
Added:
76
Added:
^ user
77
Added:
]
78
Added:
79
Added:
{ #category : #accessing }
80
Added:
MFTUserTask >> user: anObject [
81
Added:
82
Added:
user := anObject
83
Added:
]