[Pharo] Personal fitness tracker web app.
Remove useless Seaside components.
Changed files
src/MyFitnessTracker-Components/MFTEmailSignupDialog.class.st
@@ -1,66 +0,0 @@
1
Removed:
Class {
2
Removed:
#name : 'MFTEmailSignupDialog',
3
Removed:
#superclass : 'SBSComponent',
4
Removed:
#instVars : [
5
Removed:
'localPart',
6
Removed:
'domain'
7
Removed:
],
8
Removed:
#category : 'MyFitnessTracker-Components-Dialogs',
9
Removed:
#package : 'MyFitnessTracker-Components',
10
Removed:
#tag : 'Dialogs'
11
Removed:
}
12
Removed:
13
Removed:
{ #category : 'initialization' }
14
Removed:
MFTEmailSignupDialog >> initialize [
15
Removed:
16
Removed:
super initialize.
17
Removed:
localPart := String new.
18
Removed:
domain := String new
19
Removed:
]
20
Removed:
21
Removed:
{ #category : 'rendering' }
22
Removed:
MFTEmailSignupDialog >> renderContentOn: html [
23
Removed:
24
Removed:
html div
25
Removed:
darkBackground;
26
Removed:
paddingTopAndBottom: 3;
27
Removed:
paddingLeftAndRight: 5;
28
Removed:
class: 'fixed-top';
29
Removed:
style: 'z-index: 1052';
30
Removed:
with: [
31
Removed:
html heading
32
Removed:
level3;
33
Removed:
whiteText;
34
Removed:
with: 'Get notified as soon as MFT is ready!'.
35
Removed:
html paragraph
36
Removed:
whiteText;
37
Removed:
with: [
38
Removed:
html
39
Removed:
text:
40
Removed:
'You will receive a single e-mail indicating that My Fitness Tracker is usable and accepting new user registration.';
41
Removed:
space;
42
Removed:
text:
43
Removed:
'The e-mail address provided shall be used for no other purpose whatsoever.' ].
44
Removed:
html form
45
Removed:
paddingTopAndBottom: 3;
46
Removed:
with: [
47
Removed:
html inputGroup with: [
48
Removed:
html formTextInput
49
Removed:
callback: [ :value | localPart := value ];
50
Removed:
placeholder: 'my-user'.
51
Removed:
html inputGroupAppend: [ html inputGroupText: '@' ].
52
Removed:
html formTextInput
53
Removed:
callback: [ :value | domain := value ];
54
Removed:
placeholder: 'example.com'.
55
Removed:
html inputGroupAppend: [
56
Removed:
html buttonGroup: [
57
Removed:
html formButton
58
Removed:
beSecondary;
59
Removed:
beSubmit;
60
Removed:
callback: [ self answer: localPart , '@' , domain ];
61
Removed:
with: 'Confirm'.
62
Removed:
html outlineButton
63
Removed:
beSecondary;
64
Removed:
callback: [ self answer: nil ];
65
Removed:
with: 'Cancel' ] ] ] ] ]
66
Removed:
]
src/MyFitnessTracker-Components/MFTSetGroupsDialogOld.class.st
@@ -1,179 +0,0 @@
1
Removed:
Class {
2
Removed:
#name : 'MFTSetGroupsDialogOld',
3
Removed:
#superclass : 'MFTDialog',
4
Removed:
#instVars : [
5
Removed:
'setGroups'
6
Removed:
],
7
Removed:
#category : 'MyFitnessTracker-Components-Dialogs',
8
Removed:
#package : 'MyFitnessTracker-Components',
9
Removed:
#tag : 'Dialogs'
10
Removed:
}
11
Removed:
12
Removed:
{ #category : 'adding' }
13
Removed:
MFTSetGroupsDialogOld >> addExercise [
14
Removed:
15
Removed:
| setGroup |
16
Removed:
setGroup := self call: (MFTSetGroupDialog new heading: 'Exercise').
17
Removed:
setGroup ifNotNil: [ setGroups add: setGroup ]
18
Removed:
]
19
Removed:
20
Removed:
{ #category : 'rendering' }
21
Removed:
MFTSetGroupsDialogOld >> editSetGroup: aMFTSetGroup [
22
Removed:
23
Removed:
| oldSetGroup newSetGroup |
24
Removed:
oldSetGroup := aMFTSetGroup.
25
Removed:
newSetGroup := self call: (MFTSetGroupDialog edit: aMFTSetGroup copy).
26
Removed:
newSetGroup ifNotNil: [
27
Removed:
setGroups at: (setGroups indexOf: oldSetGroup) put: newSetGroup ]
28
Removed:
]
29
Removed:
30
Removed:
{ #category : 'initialization' }
31
Removed:
MFTSetGroupsDialogOld >> initialize [
32
Removed:
33
Removed:
super initialize.
34
Removed:
setGroups := OrderedCollection new
35
Removed:
]
36
Removed:
37
Removed:
{ #category : 'rendering' }
38
Removed:
MFTSetGroupsDialogOld >> renderAddSetGroupButtonsOn: html [
39
Removed:
40
Removed:
html outlineButton
41
Removed:
bePrimary;
42
Removed:
beSmall;
43
Removed:
callback: [ self addExercise ];
44
Removed:
with: 'Add exercise'
45
Removed:
]
46
Removed:
47
Removed:
{ #category : 'rendering' }
48
Removed:
MFTSetGroupsDialogOld >> renderContentOn: html [
49
Removed:
50
Removed:
self renderDialogOn: html with: [
51
Removed:
setGroups ifNotEmpty: [ self renderSetsTableOn: html ].
52
Removed:
self renderAddSetGroupButtonsOn: html ]
53
Removed:
]
54
Removed:
55
Removed:
{ #category : 'as yet unclassified' }
56
Removed:
MFTSetGroupsDialogOld >> renderLoad [
57
Removed:
58
Removed:
^ (setGroups flatCollect: #sets) anySatisfy: #hasLoad
59
Removed:
]
60
Removed:
61
Removed:
{ #category : 'as yet unclassified' }
62
Removed:
MFTSetGroupsDialogOld >> renderRestAfter [
63
Removed:
64
Removed:
^ (setGroups flatCollect: #sets) anySatisfy: #hasRestAfter
65
Removed:
]
66
Removed:
67
Removed:
{ #category : 'as yet unclassified' }
68
Removed:
MFTSetGroupsDialogOld >> renderRpe [
69
Removed:
70
Removed:
^ (setGroups flatCollect: #sets) anySatisfy: #hasRpe
71
Removed:
]
72
Removed:
73
Removed:
{ #category : 'as yet unclassified' }
74
Removed:
MFTSetGroupsDialogOld >> renderSetGroupButtonsOn: html For: setGroup [
75
Removed:
76
Removed:
html buttonGroup: [
77
Removed:
html outlineButton
78
Removed:
beDanger;
79
Removed:
beSmall;
80
Removed:
callback: [ setGroups remove: setGroup ];
81
Removed:
with: 'Remove'.
82
Removed:
html outlineButton
83
Removed:
beSecondary;
84
Removed:
beSmall;
85
Removed:
callback: [ self editSetGroup: setGroup ];
86
Removed:
with: 'Edit'.
87
Removed:
html outlineButton
88
Removed:
beSecondary;
89
Removed:
beSmall;
90
Removed:
callback: [
91
Removed:
setGroups add: setGroup afterIndex: (setGroups indexOf: setGroup) ];
92
Removed:
with: 'Duplicate' ]
93
Removed:
]
94
Removed:
95
Removed:
{ #category : 'as yet unclassified' }
96
Removed:
MFTSetGroupsDialogOld >> renderSetGroupsRowsOn: html [
97
Removed:
98
Removed:
| renderLoad renderRpe renderRestAfter |
99
Removed:
renderLoad := self renderLoad.
100
Removed:
renderRpe := self renderRpe.
101
Removed:
renderRestAfter := self renderRestAfter.
102
Removed:
setGroups do: [ :setGroup |
103
Removed:
html tableRow with: [
104
Removed:
html tableData
105
Removed:
attributeAt: 'rowspan' put: setGroup sets size + 1;
106
Removed:
style: 'vertical-align: middle';
107
Removed:
with: [ self renderSetGroupButtonsOn: html For: setGroup ] ].
108
Removed:
setGroup sets do: [ :set |
109
Removed:
html tableRow: [
110
Removed:
html tableData: set exercise englishName.
111
Removed:
html tableData: set reps.
112
Removed:
setGroup hasLoad ifTrue: [ html tableData: set load ].
113
Removed:
setGroup hasRpe ifTrue: [ html tableData: set rpe ].
114
Removed:
setGroup hasRestAfter ifTrue: [ html tableData: set restAfter ] ] ] ]
115
Removed:
]
116
Removed:
117
Removed:
{ #category : 'as yet unclassified' }
118
Removed:
MFTSetGroupsDialogOld >> renderSetGroupsTableHeaderOn: html [
119
Removed:
120
Removed:
html tableHead: [
121
Removed:
html
122
Removed:
tableHeading;
123
Removed:
tableHeading: 'Exercise';
124
Removed:
tableHeading: 'Reps'.
125
Removed:
self renderLoad ifTrue: [ html tableHeading: 'Load' ].
126
Removed:
self renderRpe ifTrue: [ html tableHeading: 'RPE' ].
127
Removed:
self renderRestAfter ifTrue: [ html tableHeading: 'Rest after (s) ' ] ]
128
Removed:
]
129
Removed:
130
Removed:
{ #category : 'as yet unclassified' }
131
Removed:
MFTSetGroupsDialogOld >> renderSetsTableHeaderOn: html [
132
Removed:
133
Removed:
html tableHead: [
134
Removed:
html
135
Removed:
tableHeading;
136
Removed:
tableHeading: 'Exercise';
137
Removed:
tableHeading: 'Reps'.
138
Removed:
self renderLoad ifTrue: [ html tableHeading: 'Load' ].
139
Removed:
self renderRpe ifTrue: [ html tableHeading: 'RPE' ].
140
Removed:
self renderRestAfter ifTrue: [ html tableHeading: 'Rest after (s) ' ] ]
141
Removed:
]
142
Removed:
143
Removed:
{ #category : 'as yet unclassified' }
144
Removed:
MFTSetGroupsDialogOld >> renderSetsTableOn: html [
145
Removed:
146
Removed:
html table
147
Removed:
class: 'table table-bordered';
148
Removed:
with: [
149
Removed:
self renderSetGroupsTableHeaderOn: html.
150
Removed:
self renderSetGroupsRowsOn: html ]
151
Removed:
]
152
Removed:
153
Removed:
{ #category : 'rendering' }
154
Removed:
MFTSetGroupsDialogOld >> renderSubmitOn: html [
155
Removed:
156
Removed:
html buttonGroup: [
157
Removed:
html formButton
158
Removed:
beSubmit;
159
Removed:
bePrimary;
160
Removed:
callback: [ self answer: setGroups ];
161
Removed:
with: (completion ifNil: [ 'Submit' ] ifNotNil: [ 'Next' ]).
162
Removed:
html formButton
163
Removed:
beSubmit;
164
Removed:
beSecondary;
165
Removed:
callback: [ self answer: OrderedCollection new ];
166
Removed:
with: (completion ifNil: [ 'Cancel' ] ifNotNil: [ 'Skip' ]) ]
167
Removed:
]
168
Removed:
169
Removed:
{ #category : 'accessing' }
170
Removed:
MFTSetGroupsDialogOld >> setGroups [
171
Removed:
172
Removed:
^ setGroups
173
Removed:
]
174
Removed:
175
Removed:
{ #category : 'accessing' }
176
Removed:
MFTSetGroupsDialogOld >> setGroups: anObject [
177
Removed:
178
Removed:
setGroups := anObject
179
Removed:
]