Changed prefix from Lt to Cm.

Author: juliendelplanque

Lieutenant-ContactBook-Extensions/LtChangePhoneCommand.class.st renamed to Lieutenant-ContactBook-Extensions/CmChangePhoneCommand.class.st

@@ -1,14 +1,14 @@
 Class {
-	#name : #LtChangePhoneCommand,
-	#superclass : #LtContactBookCommand,
+	#name : #CmChangePhoneCommand,
+	#superclass : #CmContactBookCommand,
 	#instVars : [
 		'newPhone'
 	],
 	#category : #'Lieutenant-ContactBook-Extensions'
 }
 
 { #category : #hooks }
-LtChangePhoneCommand >> execute [
+CmChangePhoneCommand >> execute [
 	"One should never manipulate UI directly from a commande.
 	 Instead, you can use one of the subclass of LtCommandNotification.
 	 The UI interactions will be handled by the command decorator.
@@ -19,19 +19,19 @@ LtChangePhoneCommand >> execute [
 ]
 
 { #category : #initialization }
-LtChangePhoneCommand >> initialize [
+CmChangePhoneCommand >> initialize [
 	super initialize.
 	self
 		basicName: 'Change phone';
 		basicDescription: 'Change the phone number of the contact.'
 ]
 
 { #category : #accessing }
-LtChangePhoneCommand >> newPhone [
+CmChangePhoneCommand >> newPhone [
 	^ newPhone
 ]
 
 { #category : #accessing }
-LtChangePhoneCommand >> newPhone: anObject [
+CmChangePhoneCommand >> newPhone: anObject [
 	newPhone := anObject
 ]

Lieutenant-ContactBook-Extensions/LtContactBookPresenter.extension.st renamed to Lieutenant-ContactBook-Extensions/CmContactBookPresenter.extension.st

@@ -1,14 +1,14 @@
-Extension { #name : #LtContactBookPresenter }
+Extension { #name : #CmContactBookPresenter }
 
 { #category : #'*Lieutenant-ContactBook-Extensions' }
-LtContactBookPresenter class >> changePhoneCommandWith: presenter forRootGroup: aLtCommandsGroup [
+CmContactBookPresenter class >> changePhoneCommandWith: presenter forRootGroup: aLtCommandsGroup [
 	<lieutenantExtension>
 	(aLtCommandsGroup / 'Edition') "Inject an additional command in 'Edition' group."
 		register: (LtChangePhoneCommand forSpec context: presenter)
 ]
 
 { #category : #'*Lieutenant-ContactBook-Extensions' }
-LtContactBookPresenter class >> extraCommandsWith: presenter forRootGroup: aLtCommandsGroup [
+CmContactBookPresenter class >> extraCommandsWith: presenter forRootGroup: aLtCommandsGroup [
 	<lieutenantExtension>
 	aLtCommandsGroup
 		register: ((LtCommandsGroup named: 'Extra') asSpecGroup

Lieutenant-ContactBook/LtAddContactCommand.class.st renamed to Lieutenant-ContactBook/CmAddContactCommand.class.st

@@ -2,13 +2,13 @@
 I am a command allowing to add a contact.
 "
 Class {
-	#name : #LtAddContactCommand,
-	#superclass : #LtContactBookCommand,
+	#name : #CmAddContactCommand,
+	#superclass : #CmContactBookCommand,
 	#category : #'Lieutenant-ContactBook-Commands'
 }
 
 { #category : #converting }
-LtAddContactCommand >> asSpecCommand [
+CmAddContactCommand >> asSpecCommand [
 	"Here we define the additional information that the command will need to know
 	 when used in Spec framework.
 	"
@@ -18,7 +18,7 @@ LtAddContactCommand >> asSpecCommand [
 ]
 
 { #category : #hooks }
-LtAddContactCommand >> execute [
+CmAddContactCommand >> execute [
 	"One should never manipulate UI directly from a commande.
 	 Instead, you can use one of the subclass of LtCommandNotification.
 	 The UI interactions will be handled by the command decorator.
@@ -34,7 +34,7 @@ LtAddContactCommand >> execute [
 ]
 
 { #category : #initialization }
-LtAddContactCommand >> initialize [
+CmAddContactCommand >> initialize [
 	super initialize.
 	self
 		basicName: 'New contact'; "This is the name of the command that will be shown to user."

Lieutenant-ContactBook/LtContact.class.st renamed to Lieutenant-ContactBook/CmContact.class.st

@@ -2,7 +2,7 @@
 I model a contact, I have a name and a phone.
 "
 Class {
-	#name : #LtContact,
+	#name : #CmContact,
 	#superclass : #Object,
 	#instVars : [
 		'name',
@@ -12,34 +12,34 @@ Class {
 }
 
 { #category : #'instance creation' }
-LtContact class >> named: aString phone: phone [
+CmContact class >> named: aString phone: phone [
 	^self new 
 		name: aString;
 		phone: phone
 ]
 
 { #category : #accessing }
-LtContact >> name [
+CmContact >> name [
 	^ name
 ]
 
 { #category : #accessing }
-LtContact >> name: anObject [
+CmContact >> name: anObject [
 	name := anObject
 ]
 
 { #category : #accessing }
-LtContact >> phone [
+CmContact >> phone [
 	^ phone
 ]
 
 { #category : #accessing }
-LtContact >> phone: anObject [
+CmContact >> phone: anObject [
 	phone := anObject
 ]
 
 { #category : #printing }
-LtContact >> printOn: aStream [
+CmContact >> printOn: aStream [
 	super printOn: aStream.
 
 	aStream nextPut: $(.

Lieutenant-ContactBook/LtContactBook.class.st renamed to Lieutenant-ContactBook/CmContactBook.class.st

@@ -2,7 +2,7 @@
 I am a contact book. I hold a list of contacts.
 "
 Class {
-	#name : #LtContactBook,
+	#name : #CmContactBook,
 	#superclass : #Object,
 	#instVars : [
 		'contents'
@@ -15,7 +15,7 @@ Class {
 }
 
 { #category : #accessing }
-LtContactBook class >> coworkers [
+CmContactBook class >> coworkers [
 	^coworkers ifNil: [ 
 		coworkers := self new 
 			add: 'Stef' phone: '112 378';
@@ -25,7 +25,7 @@ LtContactBook class >> coworkers [
 ]
 
 { #category : #accessing }
-LtContactBook class >> family [
+CmContactBook class >> family [
 	^family ifNil: [ 
 		family := self new 
 			add: 'John' phone: '342 345';
@@ -35,53 +35,53 @@ LtContactBook class >> family [
 ]
 
 { #category : #accessing }
-LtContactBook class >> reset [
+CmContactBook class >> reset [
 	<script>
 	coworkers := nil.
 	family := nil
 ]
 
 { #category : #accessing }
-LtContactBook >> add: contactName phone: phone [
+CmContactBook >> add: contactName phone: phone [
 	| contact |
 	contact := LtContact named: contactName phone: phone.
 	self addContact: contact.
 	^contact
 ]
 
 { #category : #accessing }
-LtContactBook >> addContact: aContact [
+CmContactBook >> addContact: aContact [
 	contents add: aContact
 ]
 
 { #category : #accessing }
-LtContactBook >> addContact: newContact after: contactAfter [ 
+CmContactBook >> addContact: newContact after: contactAfter [ 
 	contents add: newContact after: contactAfter
 ]
 
 { #category : #accessing }
-LtContactBook >> contents [
+CmContactBook >> contents [
 	^ contents
 ]
 
 { #category : #accessing }
-LtContactBook >> contents: anObject [
+CmContactBook >> contents: anObject [
 	contents := anObject
 ]
 
 { #category : #testing }
-LtContactBook >> includesContact: aContact [
+CmContactBook >> includesContact: aContact [
 	^ contents includes: aContact
 
 ]
 
 { #category : #initialization }
-LtContactBook >> initialize [
+CmContactBook >> initialize [
 	super initialize.
 	contents := OrderedCollection new.
 ]
 
 { #category : #accessing }
-LtContactBook >> removeContact: aContact [
+CmContactBook >> removeContact: aContact [
 	contents remove: aContact
 ]

Lieutenant-ContactBook/LtContactBookCommand.class.st renamed to Lieutenant-ContactBook/CmContactBookCommand.class.st

@@ -4,34 +4,34 @@ I am an abstract command for the contact book example.
 I define methods to access information in my #context more easily.
 "
 Class {
-	#name : #LtContactBookCommand,
-	#superclass : #LtCommand,
+	#name : #CmContactBookCommand,
+	#superclass : #CmCommand,
 	#category : #'Lieutenant-ContactBook-Commands'
 }
 
 { #category : #accessing }
-LtContactBookCommand >> contactBook [
+CmContactBookCommand >> contactBook [
 	"Again, this is totally optional, it justs make access to selected contact easier.
 	 Thus code in #execute is easier to read.
 	"
 	^ self contactBookPresenter contactBook
 ]
 
 { #category : #accessing }
-LtContactBookCommand >> contactBookPresenter [
+CmContactBookCommand >> contactBookPresenter [
 	"Optional, simply aliasing the context (the LtContactBookPresenter) to a more explicit name.
 	 It will just make the code easier to read in #execute methods of my subclasses.
 	"
 	^ self context
 ]
 
 { #category : #testing }
-LtContactBookCommand >> hasSelectedContact [
+CmContactBookCommand >> hasSelectedContact [
 	^ self contactBookPresenter isContactSelected
 ]
 
 { #category : #accessing }
-LtContactBookCommand >> selectedContact [
+CmContactBookCommand >> selectedContact [
 	"Again, this is totally optional, it justs make access to selected contact easier.
 	 Thus code in #execute is easier to read.
 	"