Skip to content

Commit c82b9c3

Browse files
juliendelplanquejuliendelplanque
committed
Renamed parameters according to new prefix for classes.
1 parent 54939e2 commit c82b9c3

17 files changed

+75
-75
lines changed

‎Lieutenant-ContactBook-Extensions/CmContactBookPresenter.extension.st

+4-4
Original file line numberDiff line numberDiff line change
@@ -1,16 +1,16 @@
11
Extension { #name : #CmContactBookPresenter }
22

33
{ #category : #'*Lieutenant-ContactBook-Extensions' }
4-
CmContactBookPresenter class >> changePhoneCommandWith: presenter forRootGroup: aLtCommandsGroup [
4+
CmContactBookPresenter class >> changePhoneCommandWith: presenter forRootGroup: aCmCommandsGroup [
55
<lieutenantExtension>
6-
(aLtCommandsGroup / 'Edition') "Inject an additional command in 'Edition' group."
6+
(aCmCommandsGroup / 'Edition') "Inject an additional command in 'Edition' group."
77
register: (LtChangePhoneCommand forSpec context: presenter)
88
]
99

1010
{ #category : #'*Lieutenant-ContactBook-Extensions' }
11-
CmContactBookPresenter class >> extraCommandsWith: presenter forRootGroup: aLtCommandsGroup [
11+
CmContactBookPresenter class >> extraCommandsWith: presenter forRootGroup: aCmCommandsGroup [
1212
<lieutenantExtension>
13-
aLtCommandsGroup
13+
aCmCommandsGroup
1414
register: ((LtCommandsGroup named: 'Extra') asSpecGroup
1515
basicDescription: 'Extra commands to help during development.';
1616
"Below is an example of reusing the same command for 2 different purposes."

‎Lieutenant-ContactBook/CmContactBookPresenter.class.st

+3-3
Original file line numberDiff line numberDiff line change
@@ -141,11 +141,11 @@ CmContactBookPresenter >> newPhone [
141141
]
142142

143143
{ #category : #'user interaction' }
144-
CmContactBookPresenter >> removeContact: aLtContact [
144+
CmContactBookPresenter >> removeContact: aCmContact [
145145
| confirm |
146-
confirm := self confirm: ('Are you sure you want to remove {1} contact' format: { aLtContact name }) label: 'Remove the contact'.
146+
confirm := self confirm: ('Are you sure you want to remove {1} contact' format: { aCmContact name }) label: 'Remove the contact'.
147147
confirm
148-
ifTrue: [ self contactBook removeContact: aLtContact ]
148+
ifTrue: [ self contactBook removeContact: aCmContact ]
149149
]
150150

151151
{ #category : #accessing }

‎Lieutenant-Epicea/EpLogBrowserPresenter.extension.st

+2-2
Original file line numberDiff line numberDiff line change
@@ -1,8 +1,8 @@
11
Extension { #name : #EpLogBrowserPresenter }
22

33
{ #category : #'*Lieutenant-Epicea' }
4-
EpLogBrowserPresenter class >> buildCommandsGroupWith: presenter forRoot: aLtCommandsGroup [
5-
aLtCommandsGroup
4+
EpLogBrowserPresenter class >> buildCommandsGroupWith: presenter forRoot: aCmCommandsGroup [
5+
aCmCommandsGroup
66
register: (self codeChangesGroupWith: presenter) beDisplayedAsGroup;
77
register: (self eventsGroupWith: presenter) beDisplayedAsGroup;
88
register: (self refactoringGroupWith: presenter) beDisplayedAsGroup;

‎Lieutenant-Spec/CmMenuPresenterBuilder.class.st

+13-13
Original file line numberDiff line numberDiff line change
@@ -31,30 +31,30 @@ CmMenuPresenterBuilder >> menuPresenter: anObject [
3131
]
3232

3333
{ #category : #visiting }
34-
CmMenuPresenterBuilder >> visitLtCommand: aLtCommand [
35-
aLtCommand canBeRun "If can not be run, do not add to the menu."
34+
CmMenuPresenterBuilder >> visitLtCommand: aCmCommand [
35+
aCmCommand canBeRun "If can not be run, do not add to the menu."
3636
ifFalse: [ ^ self ].
3737

3838
stack top addItem: [ :item |
3939
item
40-
name: aLtCommand name;
41-
description: aLtCommand description;
42-
iconName: aLtCommand iconName;
43-
action: [ aLtCommand execute ];
40+
name: aCmCommand name;
41+
description: aCmCommand description;
42+
iconName: aCmCommand iconName;
43+
action: [ aCmCommand execute ];
4444
in: [ :i |
45-
aLtCommand hasShortcut
46-
ifTrue: [ i shortcut: aLtCommand shortcutKey ] ] ]
45+
aCmCommand hasShortcut
46+
ifTrue: [ i shortcut: aCmCommand shortcutKey ] ] ]
4747
]
4848

4949
{ #category : #visiting }
50-
CmMenuPresenterBuilder >> visitLtCommandsGroup: aLtCommandsGroup [
51-
aLtCommandsGroup isRoot
50+
CmMenuPresenterBuilder >> visitLtCommandsGroup: aCmCommandsGroup [
51+
aCmCommandsGroup isRoot
5252
ifTrue: [
53-
super visitLtCommandsGroup: aLtCommandsGroup.
53+
super visitLtCommandsGroup: aCmCommandsGroup.
5454
^ self ].
5555

56-
aLtCommandsGroup displayIn: stack top do: [ :specGroupOrSubMenu |
56+
aCmCommandsGroup displayIn: stack top do: [ :specGroupOrSubMenu |
5757
stack push: specGroupOrSubMenu.
58-
super visitLtCommandsGroup: aLtCommandsGroup.
58+
super visitLtCommandsGroup: aCmCommandsGroup.
5959
stack pop ]
6060
]

‎Lieutenant-Spec/CmShortcutInstaller.class.st

+4-4
Original file line numberDiff line numberDiff line change
@@ -21,9 +21,9 @@ CmShortcutInstaller >> presenter: anObject [
2121
]
2222

2323
{ #category : #visiting }
24-
CmShortcutInstaller >> visitLtCommand: aLtCommand [
25-
aLtCommand hasShortcut
24+
CmShortcutInstaller >> visitLtCommand: aCmCommand [
25+
aCmCommand hasShortcut
2626
ifFalse: [ ^ self ].
27-
self presenter on: aLtCommand shortcutKey do: [
28-
aLtCommand canBeRun ifTrue: [ aLtCommand execute ] ]
27+
self presenter on: aCmCommand shortcutKey do: [
28+
aCmCommand canBeRun ifTrue: [ aCmCommand execute ] ]
2929
]

‎Lieutenant-Spec/CmSpecCommandGroupDisplayStrategy.class.st

+1-1
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,6 @@ Class {
88
}
99

1010
{ #category : #displaying }
11-
CmSpecCommandGroupDisplayStrategy >> display: aLtSpecCommandGroup in: aMenuPresenter do: aBlock [
11+
CmSpecCommandGroupDisplayStrategy >> display: aCmSpecCommandGroup in: aMenuPresenter do: aBlock [
1212
self subclassResponsibility
1313
]

‎Lieutenant-Spec/CmSpecDisplayAsGroup.class.st

+1-1
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ Class {
88
}
99

1010
{ #category : #displaying }
11-
CmSpecDisplayAsGroup >> display: aLtSpecCommandGroup in: aMenuPresenter do: aBlock [
11+
CmSpecDisplayAsGroup >> display: aCmSpecCommandGroup in: aMenuPresenter do: aBlock [
1212
aMenuPresenter addGroup: [ :menuGroup |
1313
aBlock value: menuGroup ]
1414
]

‎Lieutenant-Spec/CmSpecDisplayAsSubMenu.class.st

+4-4
Original file line numberDiff line numberDiff line change
@@ -8,13 +8,13 @@ Class {
88
}
99

1010
{ #category : #displaying }
11-
CmSpecDisplayAsSubMenu >> display: aLtSpecCommandGroup in: aMenuPresenter do: aBlock [
11+
CmSpecDisplayAsSubMenu >> display: aCmSpecCommandGroup in: aMenuPresenter do: aBlock [
1212
aMenuPresenter addItem: [ :menuItem |
1313
| subMenu |
1414
menuItem
15-
name: aLtSpecCommandGroup name;
16-
description: aLtSpecCommandGroup description;
17-
icon: (self iconNamed: aLtSpecCommandGroup iconName).
15+
name: aCmSpecCommandGroup name;
16+
description: aCmSpecCommandGroup description;
17+
icon: (self iconNamed: aCmSpecCommandGroup iconName).
1818
subMenu := MenuPresenter new.
1919
aBlock value: subMenu.
2020
menuItem subMenu: subMenu ]

‎Lieutenant-Spec/ComposablePresenter.extension.st

+1-1
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
Extension { #name : #ComposablePresenter }
22

33
{ #category : #'*Lieutenant-Spec' }
4-
ComposablePresenter class >> buildCommandsGroupWith: presenter forRoot: aLtCommandsGroup [
4+
ComposablePresenter class >> buildCommandsGroupWith: presenter forRoot: aCmCommandsGroup [
55
"This hook allows you to build your groups of commands.
66
You must attach them to aLtCommandsGroup throught the registration mechanism.
77
The presenter instance to which this group of command will be bound is provided (this is useful for setting commands context).

‎Lieutenant/CmAbstractCommand.class.st

+2-2
Original file line numberDiff line numberDiff line change
@@ -10,8 +10,8 @@ Class {
1010
}
1111

1212
{ #category : #visiting }
13-
CmAbstractCommand >> acceptVisitor: aLtCommandsRegisterVisitor [
14-
^ aLtCommandsRegisterVisitor visitLtCommand: self
13+
CmAbstractCommand >> acceptVisitor: aCmCommandOrGroup [
14+
^ aCmCommandOrGroup visitLtCommand: self
1515
]
1616

1717
{ #category : #testing }

‎Lieutenant/CmAbstractCommandsGroup.class.st

+5-5
Original file line numberDiff line numberDiff line change
@@ -11,8 +11,8 @@ CmAbstractCommandsGroup >> / aString [
1111
]
1212

1313
{ #category : #visiting }
14-
CmAbstractCommandsGroup >> acceptVisitor: aLtCommandsRegisterVisitor [
15-
^ aLtCommandsRegisterVisitor visitLtCommandsGroup: self
14+
CmAbstractCommandsGroup >> acceptVisitor: aCmCommandOrGroup [
15+
^ aCmCommandOrGroup visitLtCommandsGroup: self
1616
]
1717

1818
{ #category : #accessing }
@@ -41,7 +41,7 @@ CmAbstractCommandsGroup >> groups [
4141
]
4242

4343
{ #category : #testing }
44-
CmAbstractCommandsGroup >> hasCommand: aLtCommand [
44+
CmAbstractCommandsGroup >> hasCommand: aCmCommand [
4545
^ self subclassResponsibility
4646
]
4747

@@ -56,11 +56,11 @@ CmAbstractCommandsGroup >> isGroup [
5656
]
5757

5858
{ #category : #'public-api' }
59-
CmAbstractCommandsGroup >> register: aLtCommandsOrRegister [
59+
CmAbstractCommandsGroup >> register: aCmCommandsOrRegister [
6060
^ self subclassResponsibility
6161
]
6262

6363
{ #category : #'public-api' }
64-
CmAbstractCommandsGroup >> unregister: aLtCommandOrRegister [
64+
CmAbstractCommandsGroup >> unregister: aCmCommandOrRegister [
6565
^ self subclassResponsibility
6666
]

‎Lieutenant/CmCommandDecorator.class.st

+2-2
Original file line numberDiff line numberDiff line change
@@ -53,8 +53,8 @@ CmCommandDecorator >> context: anObject [
5353
]
5454

5555
{ #category : #decorating }
56-
CmCommandDecorator >> decorate: aLtCommand [
57-
self decoratedCommand: aLtCommand
56+
CmCommandDecorator >> decorate: aCmCommand [
57+
self decoratedCommand: aCmCommand
5858
]
5959

6060
{ #category : #accessing }

‎Lieutenant/CmCommandError.class.st

+6-6
Original file line numberDiff line numberDiff line change
@@ -23,15 +23,15 @@ Class {
2323
}
2424

2525
{ #category : #'instance creation' }
26-
CmCommandError class >> command: aLtSpecCommand [
26+
CmCommandError class >> command: aCmSpecCommand [
2727
^ self new
28-
command: aLtSpecCommand;
28+
command: aCmSpecCommand;
2929
yourself
3030
]
3131

3232
{ #category : #signalling }
33-
CmCommandError class >> signalCommand: aLtSpecCommand [
34-
(self command: aLtSpecCommand) signal
33+
CmCommandError class >> signalCommand: aCmSpecCommand [
34+
(self command: aCmSpecCommand) signal
3535
]
3636

3737
{ #category : #accessing }
@@ -40,6 +40,6 @@ CmCommandError >> command [
4040
]
4141

4242
{ #category : #accessing }
43-
CmCommandError >> command: aLtSpecCommand [
44-
command := aLtSpecCommand
43+
CmCommandError >> command: aCmSpecCommand [
44+
command := aCmSpecCommand
4545
]

‎Lieutenant/CmCommandsCollector.class.st

+3-3
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ CmCommandsCollector >> initialize [
2222
]
2323

2424
{ #category : #visiting }
25-
CmCommandsCollector >> visitLtCommand: aLtCommand [
26-
commandsCollected add: aLtCommand.
27-
^ aLtCommand
25+
CmCommandsCollector >> visitLtCommand: aCmCommand [
26+
commandsCollected add: aCmCommand.
27+
^ aCmCommand
2828
]

‎Lieutenant/CmCommandsGroup.class.st

+13-13
Original file line numberDiff line numberDiff line change
@@ -65,8 +65,8 @@ CmCommandsGroup >> groups [
6565
]
6666

6767
{ #category : #testing }
68-
CmCommandsGroup >> hasCommand: aLtCommand [
69-
^ self commands includes: aLtCommand
68+
CmCommandsGroup >> hasCommand: aCmCommand [
69+
^ self commands includes: aCmCommand
7070
]
7171

7272
{ #category : #testing }
@@ -86,39 +86,39 @@ CmCommandsGroup >> initialize [
8686
]
8787

8888
{ #category : #'public-api' }
89-
CmCommandsGroup >> register: aLtCommandsOrGroup [
90-
(self hasEntryNamed: aLtCommandsOrGroup basicName)
91-
ifTrue: [ LtDuplicatedEntryName signalEntryNamed: aLtCommandsOrGroup basicName ].
89+
CmCommandsGroup >> register: aCmCommandsOrGroup [
90+
(self hasEntryNamed: aCmCommandsOrGroup basicName)
91+
ifTrue: [ CmDuplicatedEntryName signalEntryNamed: aCmCommandsOrGroup basicName ].
9292

93-
entries add: aLtCommandsOrGroup
93+
entries add: aCmCommandsOrGroup
9494
]
9595

9696
{ #category : #'public-api' }
97-
CmCommandsGroup >> register: aLtCommandsOrGroup after: anotherLtCommandsOrGroup [
97+
CmCommandsGroup >> register: aCmCommandsOrGroup after: anotherLtCommandsOrGroup [
9898
self shouldBeImplemented; flag: #TODO
9999
]
100100

101101
{ #category : #'public-api' }
102-
CmCommandsGroup >> register: aLtCommandsOrGroup before: anotherLtCommandsOrGroup [
102+
CmCommandsGroup >> register: aCmCommandsOrGroup before: anotherLtCommandsOrGroup [
103103
self shouldBeImplemented; flag: #TODO
104104
]
105105

106106
{ #category : #'public-api' }
107-
CmCommandsGroup >> register: aLtCommandsOrGroup insteadOf: anotherLtCommandsOrGroup [
107+
CmCommandsGroup >> register: aCmCommandsOrGroup insteadOf: anotherLtCommandsOrGroup [
108108
self shouldBeImplemented; flag: #TODO
109109
]
110110

111111
{ #category : #'public-api' }
112-
CmCommandsGroup >> registerFirst: aLtCommandsOrGroup [
112+
CmCommandsGroup >> registerFirst: aCmCommandsOrGroup [
113113
self shouldBeImplemented; flag: #TODO
114114
]
115115

116116
{ #category : #'public-api' }
117-
CmCommandsGroup >> registerLast: aLtCommandsOrGroup [
117+
CmCommandsGroup >> registerLast: aCmCommandsOrGroup [
118118
self shouldBeImplemented; flag: #TODO
119119
]
120120

121121
{ #category : #'public-api' }
122-
CmCommandsGroup >> unregister: aLtCommandOrRegister [
123-
entries remove: (entries detect: [ :e | e = aLtCommandOrRegister ])
122+
CmCommandsGroup >> unregister: aCmCommandOrGroup [
123+
entries remove: (entries detect: [ :e | e = aCmCommandOrGroup ])
124124
]

‎Lieutenant/CmCommandsGroupDecorator.class.st

+8-8
Original file line numberDiff line numberDiff line change
@@ -45,8 +45,8 @@ CmCommandsGroupDecorator >> commands [
4545
]
4646

4747
{ #category : #decorating }
48-
CmCommandsGroupDecorator >> decorate: aLtCommandsGroup [
49-
self decoratedGroup: aLtCommandsGroup
48+
CmCommandsGroupDecorator >> decorate: aCmCommandsGroup [
49+
self decoratedGroup: aCmCommandsGroup
5050
]
5151

5252
{ #category : #accessing }
@@ -75,8 +75,8 @@ CmCommandsGroupDecorator >> groups [
7575
]
7676

7777
{ #category : #testing }
78-
CmCommandsGroupDecorator >> hasCommand: aLtCommand [
79-
^ self decoratedGroup hasCommand: aLtCommand
78+
CmCommandsGroupDecorator >> hasCommand: aCmCommand [
79+
^ self decoratedGroup hasCommand: aCmCommand
8080
]
8181

8282
{ #category : #testing }
@@ -90,11 +90,11 @@ CmCommandsGroupDecorator >> name [
9090
]
9191

9292
{ #category : #'public-api' }
93-
CmCommandsGroupDecorator >> register: aLtCommandsOrRegister [
94-
self decoratedGroup register: aLtCommandsOrRegister
93+
CmCommandsGroupDecorator >> register: aCmCommandOrGroup [
94+
self decoratedGroup register: aCmCommandOrGroup
9595
]
9696

9797
{ #category : #'public-api' }
98-
CmCommandsGroupDecorator >> unregister: aLtCommandOrRegister [
99-
^ self decoratedGroup unregister: aLtCommandOrRegister
98+
CmCommandsGroupDecorator >> unregister: aCmCommandOrGroup [
99+
^ self decoratedGroup unregister: aCmCommandOrGroup
100100
]

‎Lieutenant/CmVisitor.class.st

+3-3
Original file line numberDiff line numberDiff line change
@@ -17,12 +17,12 @@ CmVisitor >> visit: anObject [
1717
]
1818

1919
{ #category : #visiting }
20-
CmVisitor >> visitLtCommand: aLtCommandEntry [
20+
CmVisitor >> visitLtCommand: aCmCommandEntry [
2121
^ self subclassResponsibility
2222
]
2323

2424
{ #category : #visiting }
25-
CmVisitor >> visitLtCommandsGroup: aLtCommandsGroup [
26-
^ aLtCommandsGroup entries collect: [ :entry |
25+
CmVisitor >> visitLtCommandsGroup: aCmCommandsGroup [
26+
^ aCmCommandsGroup entries collect: [ :entry |
2727
entry acceptVisitor: self ]
2828
]

0 commit comments

Comments
 (0)