Fixed undeclared variables caused by batch renaming of classes to change prefix.

Author: juliendelplanque

Lieutenant-ContactBook-Extensions/CmContactBookPresenter.extension.st

@@ -4,22 +4,22 @@ Extension { #name : #CmContactBookPresenter }
 CmContactBookPresenter class >> changePhoneCommandWith: presenter forRootGroup: aCmCommandsGroup [
 	<lieutenantExtension>
 	(aCmCommandsGroup / 'Edition') "Inject an additional command in 'Edition' group."
-		register: (LtChangePhoneCommand forSpec context: presenter)
+		register: (CmChangePhoneCommand forSpec context: presenter)
 ]
 
 { #category : #'*Lieutenant-ContactBook-Extensions' }
 CmContactBookPresenter class >> extraCommandsWith: presenter forRootGroup: aCmCommandsGroup [
 	<lieutenantExtension>
 	aCmCommandsGroup
-		register: ((LtCommandsGroup named: 'Extra') asSpecGroup
+		register: ((CmCommandsGroup named: 'Extra') asSpecGroup
 						basicDescription: 'Extra commands to help during development.';
 						"Below is an example of reusing the same command for 2 different purposes."
-						register: ((LtInspectCommand forSpec context: [ presenter selectedContact ]) "Here context is computed at the moment the command is executed."
+						register: ((CmInspectCommand forSpec context: [ presenter selectedContact ]) "Here context is computed at the moment the command is executed."
 											"The name and description can be adapted for its specific usage."
 											basicName: 'Inspect contact';
 											basicDescription: 'Open an inspector on the selected contact.';
 											yourself);
-						register: ((LtInspectCommand forSpec context: [ presenter contactBook ])
+						register: ((CmInspectCommand forSpec context: [ presenter contactBook ])
 											basicName: 'Inspect contact book';
 											basicDescription: 'Open an inspector on the contact book.';
 											yourself);

Lieutenant-ContactBook/CmContactBook.class.st

@@ -44,7 +44,7 @@ CmContactBook class >> reset [
 { #category : #accessing }
 CmContactBook >> add: contactName phone: phone [
 	| contact |
-	contact := LtContact named: contactName phone: phone.
+	contact := CmContact named: contactName phone: phone.
 	self addContact: contact.
 	^contact
 ]

Lieutenant-ContactBook/CmContactBookPresenter.class.st

@@ -17,9 +17,9 @@ Class {
 
 { #category : #commands }
 CmContactBookPresenter class >> buildAddingGroupWith: presenterIntance [
-	^ (LtCommandsGroup named: 'Adding') asSpecGroup
+	^ (CmCommandsGroup named: 'Adding') asSpecGroup
 		basicDescription: 'Commands related to contact addition.';
-		register: (LtAddContactCommand forSpec context: presenterIntance);
+		register: (CmAddContactCommand forSpec context: presenterIntance);
 		beDisplayedAsGroup;
 		yourself
 ]
@@ -34,26 +34,26 @@ CmContactBookPresenter class >> buildCommandsGroupWith: presenterIntance forRoot
 
 { #category : #commands }
 CmContactBookPresenter class >> buildEditionGroupWith: presenterIntance [
-	^ (LtCommandsGroup named: 'Edition') asSpecGroup
+	^ (CmCommandsGroup named: 'Edition') asSpecGroup
 		basicDescription: 'Commands related to contact edition.';
-		register: (LtRenameContactCommand forSpec context: presenterIntance);
+		register: (CmRenameContactCommand forSpec context: presenterIntance);
 		beDisplayedAsGroup;
 		yourself
 ]
 
 { #category : #commands }
 CmContactBookPresenter class >> buildRemovingGroupWith: presenterIntance [
-	^ (LtCommandsGroup named: 'Removing') asSpecGroup
+	^ (CmCommandsGroup named: 'Removing') asSpecGroup
 		basicDescription: 'Command related to contact removal.';
-		register: (LtRemoveContactCommand forSpec context: presenterIntance);
+		register: (CmRemoveContactCommand forSpec context: presenterIntance);
 		beDisplayedAsGroup;
 		yourself
 ]
 
 { #category : #examples }
 CmContactBookPresenter class >> coworkersExample [
 	<example>
-	^ (self on: LtContactBook coworkers) openWithSpec 
+	^ (self on: CmContactBook coworkers) openWithSpec 
 ]
 
 { #category : #examples }
@@ -68,7 +68,7 @@ CmContactBookPresenter class >> defaultSpec [
 { #category : #examples }
 CmContactBookPresenter class >> familyExample [
 	<example>
-	^ (self on: LtContactBook family) openWithSpec 
+	^ (self on: CmContactBook family) openWithSpec 
 ]
 
 { #category : #accessing }
@@ -110,7 +110,7 @@ CmContactBookPresenter >> newContact [
 	(splitted size = 2 and: [ splitted allSatisfy: #isNotEmpty ])
 		ifFalse: [ InvalidUserInput signal: 'Please enter contact name and phone (split by comma)'  ].
 
-	^ LtContact new
+	^ CmContact new
 		name: splitted first;
 		phone: splitted second;
 		yourself

Lieutenant-Spec-Tests/CmMenuPresenterBuilderTest.class.st

@@ -14,23 +14,23 @@ Class {
 { #category : #running }
 CmMenuPresenterBuilderTest >> setUp [
 	super setUp.
-	menuBuilder := LtMenuPresenterBuilder new.
+	menuBuilder := CmMenuPresenterBuilder new.
 
-	commandsGroup := (LtCommandsGroup named: 'root') asSpecGroup beRoot
-							register: (LtBlockCommand new
+	commandsGroup := (CmCommandsGroup named: 'root') asSpecGroup beRoot
+							register: (CmBlockCommand new
 											basicName: 'c1';
 											block: [ ];
 											yourself) asSpecCommand;
-							register: ((LtCommandsGroup named: 'sub1') asSpecGroup
-											register: (LtBlockCommand new
+							register: ((CmCommandsGroup named: 'sub1') asSpecGroup
+											register: (CmBlockCommand new
 															basicName: 'c2';
 															block: [ ];
 															yourself) asSpecCommand;
-											register: (LtBlockCommand new
+											register: (CmBlockCommand new
 															basicName: 'c3';
 															block: [ ];
 															yourself) asSpecCommand);
-							register: (LtBlockCommand new
+							register: (CmBlockCommand new
 											basicName: 'c4';
 											block: [ ];
 											yourself) asSpecCommand;
@@ -43,7 +43,7 @@ CmMenuPresenterBuilderTest >> testVisitLtCommand [
 	evaluationResult := nil.
 	self assert: menuBuilder menuPresenter defaultGroup menuItems isEmpty.
 
-	(LtBlockCommand new
+	(CmBlockCommand new
 		basicName: 'c';
 		basicDescription: 'desc';
 		context: [ 41 ];
@@ -65,7 +65,7 @@ CmMenuPresenterBuilderTest >> testVisitLtCommand [
 CmMenuPresenterBuilderTest >> testVisitLtCommandThatCantBeRun [
 	self assert: menuBuilder menuPresenter defaultGroup menuItems isEmpty.
 
-	(LtBlockCommand new
+	(CmBlockCommand new
 		basicName: 'c';
 		basicDescription: 'desc';
 		context: [ 41 ];

Lieutenant-Spec-Tests/CmSpecCommandTest.class.st

@@ -10,7 +10,7 @@ Class {
 { #category : #running }
 CmSpecCommandTest >> setUp [
 	super setUp.
-	command := LtSpecCommand new
+	command := CmSpecCommand new
 ]
 
 { #category : #test }
@@ -44,7 +44,7 @@ CmSpecCommandTest >> testIconName [
 
 { #category : #test }
 CmSpecCommandTest >> testShortcutKey [
-	self should: [ command shortcutKey ] raise: LtNoShortcutIsDefined.
+	self should: [ command shortcutKey ] raise: CmNoShortcutIsDefined.
 
 	command shortcutKey: $a asKeyCombination.
 

Lieutenant-Spec/CmCommand.extension.st

@@ -3,7 +3,7 @@ Extension { #name : #CmCommand }
 { #category : #'*Lieutenant-Spec' }
 CmCommand >> asSpecCommand [
 	"Subclasses might override this method to define default icon and shortcut."
-	^ self decorateWith: LtSpecCommand
+	^ self decorateWith: CmSpecCommand
 ]
 
 { #category : #'*Lieutenant-Spec' }

Lieutenant-Spec/CmCommandsGroup.extension.st

@@ -3,7 +3,7 @@ Extension { #name : #CmCommandsGroup }
 { #category : #'*Lieutenant-Spec' }
 CmCommandsGroup >> asSpecGroup [
 	"Subclasses might override this method to define default icon."
-	^ self decorateWith: LtSpecCommandGroup
+	^ self decorateWith: CmSpecCommandGroup
 ]
 
 { #category : #'*Lieutenant-Spec' }

Lieutenant-Spec/CmSpecCommand.class.st

@@ -76,7 +76,7 @@ CmSpecCommand >> initialize [
 
 { #category : #accessing }
 CmSpecCommand >> shortcutKey [
-	^ shortcutKey ifNil: [ LtNoShortcutIsDefined signalCommand: self ]
+	^ shortcutKey ifNil: [ CmNoShortcutIsDefined signalCommand: self ]
 ]
 
 { #category : #accessing }

Lieutenant-Spec/CmSpecCommandGroup.class.st

@@ -18,7 +18,7 @@ Class {
 
 { #category : #default }
 CmSpecCommandGroup class >> defaultDisplayStrategy [
-	^ LtSpecDisplayAsSubMenu new
+	^ CmSpecDisplayAsSubMenu new
 ]
 
 { #category : #default }
@@ -28,19 +28,19 @@ CmSpecCommandGroup class >> defaultIconName [
 
 { #category : #converting }
 CmSpecCommandGroup >> asMenuPresenter [
-	^ LtMenuPresenterBuilder new
+	^ CmMenuPresenterBuilder new
 		visit: self;
 		menuPresenter
 ]
 
 { #category : #configuring }
 CmSpecCommandGroup >> beDisplayedAsGroup [
-	self displayStrategy: LtSpecDisplayAsGroup new
+	self displayStrategy: CmSpecDisplayAsGroup new
 ]
 
 { #category : #configuring }
 CmSpecCommandGroup >> beDisplayedAsSubMenu [
-	self displayStrategy: LtSpecDisplayAsSubMenu new
+	self displayStrategy: CmSpecDisplayAsSubMenu new
 ]
 
 { #category : #configuring }
@@ -83,7 +83,7 @@ CmSpecCommandGroup >> initialize [
 
 { #category : #'as yet unclassified' }
 CmSpecCommandGroup >> installShortcutsIn: aPresenter [ 
-	LtShortcutInstaller new
+	CmShortcutInstaller new
 		presenter: aPresenter;
 		visit: self
 ]

Lieutenant-Spec/ComposablePresenter.extension.st

@@ -12,7 +12,7 @@ ComposablePresenter class >> buildCommandsGroupWith: presenter forRoot: aCmComma
 { #category : #'*Lieutenant-Spec' }
 ComposablePresenter class >> buildRootCommandsGroupFor: presenterIntance [
 	| rootCommandGroup |
-	rootCommandGroup := LtCommandsGroup forSpec beRoot.
+	rootCommandGroup := CmCommandsGroup forSpec beRoot.
 	"Register default commands."
 	self buildCommandsGroupWith: presenterIntance forRoot: rootCommandGroup.
 

Lieutenant-Tests/CmCommandDecoratorTest.class.st

@@ -14,14 +14,14 @@ Class {
 { #category : #running }
 CmCommandDecoratorTest >> setUp [
 	super setUp.
-	commandToBeDecorated := LtCommand new.
+	commandToBeDecorated := CmCommand new.
 
 	commandToBeDecorated
 		basicName: 'command for test';
 		basicDescription: 'This command is only cerated for the purpose of unit tests.';
 		context: Object new.
 
-	decorator := LtCommandDecorator decorate: commandToBeDecorated
+	decorator := CmCommandDecorator decorate: commandToBeDecorated
 ]
 
 { #category : #test }
@@ -36,7 +36,7 @@ CmCommandDecoratorTest >> testContext [
 
 { #category : #tests }
 CmCommandDecoratorTest >> testDecorate [
-	self assert: decorator class equals: LtCommandDecorator.
+	self assert: decorator class equals: CmCommandDecorator.
 	self assert: decorator decoratedCommand equals: commandToBeDecorated
 ]
 

Lieutenant-Tests/CmCommandTest.class.st

@@ -10,7 +10,7 @@ Class {
 { #category : #running }
 CmCommandTest >> setUp [
 	super setUp.
-	command := LtFakeCommand new.
+	command := CmFakeCommand new.
 ]
 
 { #category : #test }

Lieutenant-Tests/CmCommandsGroupTest.class.st

@@ -17,25 +17,25 @@ Class {
 { #category : #running }
 CmCommandsGroupTest >> setUp [
 	super setUp.
-	group := LtCommandsGroup named: 'main group'.
-	firstCommand := LtBlockCommand new
+	group := CmCommandsGroup named: 'main group'.
+	firstCommand := CmBlockCommand new
 							basicName: 'first command';
 							block: [ :x | x ];
 							context: [ 1 ];
 							yourself.
 
 
-	subCommand1 :=  LtBlockCommand new
+	subCommand1 :=  CmBlockCommand new
 							basicName: 'sub command 1';
 							block: [ :x | x ];
 							context: [ 11 ];
 							yourself.
 
-	subGroup1 := (LtCommandsGroup named: 'sub group 1')
+	subGroup1 := (CmCommandsGroup named: 'sub group 1')
 							register: subCommand1;
 							yourself.
 
-	subGroup2 := LtCommandsGroup named: 'sub group 2'. "Empty on purpose."
+	subGroup2 := CmCommandsGroup named: 'sub group 2'. "Empty on purpose."
 
 	group
 		register: firstCommand;
@@ -77,7 +77,7 @@ CmCommandsGroupTest >> testGroups [
 
 { #category : #test }
 CmCommandsGroupTest >> testHasCommand [
-	self deny: (group hasCommand: LtCommand new).
+	self deny: (group hasCommand: CmCommand new).
 
 	self assert: (group hasCommand: firstCommand)
 ]
@@ -94,9 +94,9 @@ CmCommandsGroupTest >> testHasEntryNamed [
 { #category : #test }
 CmCommandsGroupTest >> testInitialize [
 	| newGroup |
-	newGroup := LtCommandsGroup new.
+	newGroup := CmCommandsGroup new.
 
-	self assert: newGroup basicName equals: LtCommandsGroup defaultName.
+	self assert: newGroup basicName equals: CmCommandsGroup defaultName.
 	self assert: newGroup entries isEmpty
 ]
 
@@ -105,7 +105,7 @@ CmCommandsGroupTest >> testRegisterCommandWithContext [
 	| secondCommand |
 	self deny: (group hasEntryNamed: 'second command').
 
-	secondCommand := LtBlockCommand new 
+	secondCommand := CmBlockCommand new 
 							basicName: 'second command';
 							block: [ :x | x ];
 							context: 42;
@@ -122,7 +122,7 @@ CmCommandsGroupTest >> testRegisterCommandWithContextBlock [
 	| secondCommand secondCommandWithSameName |
 	self deny: (group hasEntryNamed: 'second command').
 
-	secondCommand := LtBlockCommand new 
+	secondCommand := CmBlockCommand new 
 							basicName: 'second command';
 							block: [ :x | x ];
 							context: [ 42 ];
@@ -132,15 +132,15 @@ CmCommandsGroupTest >> testRegisterCommandWithContextBlock [
 	self assert: (group hasEntryNamed: 'second command').
 	self assert: (group commandOrGroupNamed: 'second command') equals: secondCommand.
 
-	secondCommandWithSameName := LtBlockCommand new 
+	secondCommandWithSameName := CmBlockCommand new 
 											basicName: 'second command';
 											block: [ :x | x ];
 											context: [ ];
 											yourself.
 
 	self
 		should: [ group register: secondCommandWithSameName]
-		raise: LtDuplicatedEntryName
+		raise: CmDuplicatedEntryName
 		withExceptionDo: [ :error |
 			self assert: error entryName equals: 'second command' ]
 ]
@@ -150,15 +150,15 @@ CmCommandsGroupTest >> testRegisterSubRegister [
 	| subGroup3 |
 	self deny: (group hasEntryNamed: 'sub group 3').
 
-	subGroup3 := LtCommandsGroup named: 'sub group 3'.
+	subGroup3 := CmCommandsGroup named: 'sub group 3'.
 	group register: subGroup3.
 
 	self assert: (group hasEntryNamed: 'sub group 3').
 	self assert: (group commandOrGroupNamed: 'sub group 3') equals: subGroup3.
 
 	self
-		should: [ group register: (LtCommandsGroup named: 'sub group 3') ]
-		raise: LtDuplicatedEntryName
+		should: [ group register: (CmCommandsGroup named: 'sub group 3') ]
+		raise: CmDuplicatedEntryName
 		withExceptionDo: [ :error |
 			self assert: error entryName equals: 'sub group 3' ]
 ]

Lieutenant/CmCommandsGroup.class.st

@@ -39,7 +39,7 @@ CmCommandsGroup class >> named: aString [
 { #category : #accessing }
 CmCommandsGroup >> allCommands [
 	| visitor |
-	visitor := LtCommandsCollector new.
+	visitor := CmCommandsCollector new.
 	self acceptVisitor: visitor.
 	^ visitor commandsCollected
 ]