File tree Expand file tree Collapse file tree 2 files changed +23
-27
lines changed Expand file tree Collapse file tree 2 files changed +23
-27
lines changed Original file line number Diff line number Diff line change @@ -18,16 +18,7 @@ Class {
18
18
{ #category : ' initialization' }
19
19
MailClientPresenter >> connectPresenters [
20
20
21
- account whenSelectionChangedDo: [
22
- | selectedEmail |
23
- editedEmail := nil .
24
- account hasSelectedEmail
25
- ifTrue: [
26
- selectedEmail := account selectedItem.
27
- selectedEmail isDraft
28
- ifTrue: [ editedEmail := selectedEmail].
29
- reader updateLayoutForEmail: selectedEmail ]
30
- ifFalse: [ reader updateLayoutForNoEmail ] ]
21
+ account whenSelectionChangedDo: [ self folderOrEmailSelectionChanged ]
31
22
]
32
23
33
24
{ #category : ' layout' }
@@ -44,6 +35,20 @@ MailClientPresenter >> defaultLayout [
44
35
yourself
45
36
]
46
37
38
+ { #category : ' private' }
39
+ MailClientPresenter >> folderOrEmailSelectionChanged [
40
+
41
+ | selectedEmail |
42
+ editedEmail := nil .
43
+ account hasSelectedEmail
44
+ ifTrue: [
45
+ selectedEmail := account selectedItem.
46
+ selectedEmail isDraft
47
+ ifTrue: [ editedEmail := selectedEmail].
48
+ reader updateLayoutForEmail: selectedEmail ]
49
+ ifFalse: [ reader updateLayoutForNoEmail ]
50
+ ]
51
+
47
52
{ #category : ' initialization' }
48
53
MailClientPresenter >> initializePresenters [
49
54
Original file line number Diff line number Diff line change @@ -30,23 +30,6 @@ MailClientPresenterWithDecorations >> accountMenu [
30
30
yourself
31
31
]
32
32
33
- { #category : ' nil' }
34
- MailClientPresenterWithDecorations >> connectPresenters [
35
-
36
- account whenSelectionChangedDo: [
37
- | selectedEmail |
38
- editedEmail := nil .
39
- account hasSelectedEmail
40
- ifTrue: [
41
- selectedEmail := account selectedItem.
42
- selectedEmail isDraft
43
- ifTrue: [ editedEmail := selectedEmail].
44
- reader updateLayoutForEmail: selectedEmail ]
45
- ifFalse: [ reader updateLayoutForNoEmail ].
46
- self updateToolBarButtons.
47
- statusBar popMessage ]
48
- ]
49
-
50
33
{ #category : ' actions' }
51
34
MailClientPresenterWithDecorations >> deleteMail [
52
35
@@ -63,6 +46,14 @@ MailClientPresenterWithDecorations >> fetchMail [
63
46
statusBar pushMessage: ' Mail fetched.'
64
47
]
65
48
49
+ { #category : ' private' }
50
+ MailClientPresenterWithDecorations >> folderOrEmailSelectionChanged [
51
+
52
+ super folderOrEmailSelectionChanged.
53
+ self updateToolBarButtons.
54
+ statusBar popMessage
55
+ ]
56
+
66
57
{ #category : ' private' }
67
58
MailClientPresenterWithDecorations >> formatMenu [
68
59
You can’t perform that action at this time.
0 commit comments