Confirmation form.

Commit
aee0c5d71df76a1a10575aa204f65a2194cef84d
Author
Marius Peter <marius.peter@tutanota.com>
Author date
Committer
Marius Peter <marius.peter@tutanota.com>
Committer date
src/MyFitnessTracker/MFTConfirmForm.class.st
index 00000000..e5063ddd 000000..100644
@@ -0,0 +1,34 @@
1 Added: Class {
2 Added: #name : 'MFTConfirmForm',
3 Added: #superclass : 'MFTForm',
4 Added: #category : 'MyFitnessTracker-Forms',
5 Added: #package : 'MyFitnessTracker',
6 Added: #tag : 'Forms'
7 Added: }
8 Added:
9 Added: { #category : 'as yet unclassified' }
10 Added: MFTConfirmForm >> cancelForm [
11 Added:
12 Added: self answer: false
13 Added: ]
14 Added:
15 Added: { #category : 'as yet unclassified' }
16 Added: MFTConfirmForm >> emptySetGroups [
17 Added:
18 Added: body := { (MFTFormComponent new
19 Added: heading: 'Empty Set Groups';
20 Added: modelObject: 'No exercises were specified.') }
21 Added: ]
22 Added:
23 Added: { #category : 'initialization' }
24 Added: MFTConfirmForm >> initialize [
25 Added:
26 Added: super initialize .
27 Added: heading := 'Heads up!'
28 Added: ]
29 Added:
30 Added: { #category : 'as yet unclassified' }
31 Added: MFTConfirmForm >> submitForm [
32 Added:
33 Added: self answer: true
34 Added: ]