[Pharo] Personal fitness tracker web app.
Change all occurences of a ``landing'' page to a ``home'' page.
Changed files
src/MyFitnessTracker/MFTLandingPage.class.st
@@ -40,7 +40,7 @@
40
40
MFTLandingPage >> initialize [
41
41
42
42
super initialize.
43
Removed:
title := 'landingPage'.
43
Added:
title := 'home'.
44
44
cards := self defaultCards
45
45
]
46
46
src/MyFitnessTracker/MFTMainNavigationBarComponent.class.st
@@ -41,7 +41,7 @@
41
41
| pm |
42
42
pm := self session pageManager.
43
43
html navigationBarBrand
44
Removed:
callback: [ pm setActivePageAt: #landing ];
44
Added:
callback: [ pm setActivePageAt: #home ];
45
45
with: 'MyFitnessTracker'.
46
46
"The toggler is only visible when the screen width is reduced."
47
47
html navigationBarToggler
@@ -54,12 +54,12 @@
54
54
class: 'justify-content-between';
55
55
with: [
56
56
html navigationBarNavigation: [
57
Removed:
pm mainPages keysAndValuesDo: [ :key :value |
57
Added:
pm mainPages keysAndValuesDo: [ :name :page |
58
58
html navigationItem
59
Removed:
beActiveIf: [ pm activePage = value ];
59
Added:
beActiveIf: [ pm activePage = page ];
60
60
with: [
61
61
html navigationLink
62
Removed:
callback: [ pm setActivePageAt: key ];
63
Removed:
with: value title capitalized ] ] ].
62
Added:
callback: [ pm setActivePageAt: name ];
63
Added:
with: page title capitalized ] ] ].
64
64
html render: loginRegisterLogout ]
65
65
]
src/MyFitnessTracker/MFTPage.class.st
@@ -20,5 +20,5 @@
20
20
{ #category : 'accessing' }
21
21
MFTPage >> title [
22
22
23
Removed:
^ title asString
23
Added:
^ title
24
24
]
src/MyFitnessTracker/MFTPageManager.class.st
@@ -29,7 +29,7 @@
29
29
MFTPageManager >> defaultPublicPages [
30
30
31
31
^ OrderedDictionary newFrom: {
32
Removed:
(#landing -> MFTPublicLandingPage new).
32
Added:
(#home -> MFTPublicLandingPage new).
33
33
(#logs -> MFTLogsPage new).
34
34
(#learn -> MFTLearnPage new).
35
35
(#about -> MFTAboutPage new).
@@ -64,7 +64,7 @@
64
64
MFTPageManager >> initialize [
65
65
66
66
mainPages := self defaultPublicPages.
67
Removed:
activePage := mainPages at: #landing.
67
Added:
activePage := mainPages at: #home.
68
68
mainNavigationBar := MFTMainNavigationBarComponent new.
69
69
header := MFTRegisterProspectEmailHeader new.
70
70
footer := MFTDefaultFooter new
@@ -74,14 +74,14 @@
74
74
MFTPageManager >> loadPublicPages [
75
75
76
76
mainPages := self defaultPublicPages.
77
Removed:
self setActivePageAt: #landing
77
Added:
self setActivePageAt: #home
78
78
]
79
79
80
80
{ #category : 'as yet unclassified' }
81
81
MFTPageManager >> loadUserPages [
82
82
83
Removed:
mainPages at: #landing put: MFTUserLandingPage new.
84
Removed:
self setActivePageAt: #landing
83
Added:
mainPages at: #home put: MFTUserLandingPage new.
84
Added:
self setActivePageAt: #home
85
85
]
86
86
87
87
{ #category : 'accessing' }
src/MyFitnessTracker/MFTPublicLandingPage.class.st
@@ -15,11 +15,3 @@
15
15
MFTWeightsCard new.
16
16
MFTPromisesCard new }
17
17
]
18
Removed:
19
Removed:
{ #category : 'initialization' }
20
Removed:
MFTPublicLandingPage >> initialize [
21
Removed:
22
Removed:
super initialize.
23
Removed:
title := 'home'.
24
Removed:
cards := self defaultCards
25
Removed:
]
src/MyFitnessTracker/MFTUserLandingPage.class.st
@@ -13,11 +13,3 @@
13
13
MFTMainUserCard new.
14
14
MFTWorkoutsCard new }
15
15
]
16
Removed:
17
Removed:
{ #category : 'initialization' }
18
Removed:
MFTUserLandingPage >> initialize [
19
Removed:
20
Removed:
super initialize.
21
Removed:
title := self session user username.
22
Removed:
cards := self defaultCards
23
Removed:
]