all: intial code import

ContactBook.package/ContactBook.class/README.md

@@ -0,0 +1,9 @@
+I represent a contact book.
+
+I have contacts.
+
+Collaborators:
+- Veit Heller <veit@veitheller.de>
+
+    Instance Variables
+	contacts: a List of Contacts

ContactBook.package/ContactBook.class/class/createDefault.st

@@ -0,0 +1,16 @@
+instance creation
+createDefault
+	^ self new
+		addContact: (Contact
+			newNamed: 'Damien Cassou'
+			email: 'damien@cassou.me');
+		addContact: (Contact
+			newNamed: 'Marcus Denker'
+			email: 'marcus.denker@inria.fr');
+		addContact: (Contact
+			newNamed: 'Tudor Girba'
+			email: 'tudor@tudorgirba.com');
+		addContact: (Contact
+			newNamed: 'Clara Allende'
+			email: 'clari.allende@gmail.com');
+		yourself

ContactBook.package/ContactBook.class/instance/addContact..st

@@ -0,0 +1,3 @@
+accessing
+addContact: aContact
+	contacts add: aContact

ContactBook.package/ContactBook.class/instance/contacts.st

@@ -0,0 +1,3 @@
+accessing
+contacts
+	^ contacts

ContactBook.package/ContactBook.class/instance/initialize.st

@@ -0,0 +1,3 @@
+initialization
+initialize
+	contacts := OrderedCollection new.

ContactBook.package/ContactBook.class/instance/removeContact..st

@@ -0,0 +1,3 @@
+accessing
+removeContact: aContact
+	contacts remove: aContact

ContactBook.package/ContactBook.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "ContactBook",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "VeitHeller 5/12/2018 14:19",
+	"instvars" : [
+		"contacts" ],
+	"name" : "ContactBook",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }