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‎

Lines changed: 4 additions & 4 deletions
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‎

Lines changed: 3 additions & 3 deletions
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‎

Lines changed: 2 additions & 2 deletions
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‎

Lines changed: 13 additions & 13 deletions
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‎

Lines changed: 4 additions & 4 deletions
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‎

Lines changed: 1 addition & 1 deletion
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‎

Lines changed: 1 addition & 1 deletion
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‎

Lines changed: 4 additions & 4 deletions
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‎

Lines changed: 1 addition & 1 deletion
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‎

Lines changed: 2 additions & 2 deletions
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 }

0 commit comments

Comments
 (0)