all: intial code import

2018-05-12 15:25:36 +02:00
parent 1f20ee2574
commit 9f47b858c3
59 changed files with 375 additions and 0 deletions
--- a/ContactBook.package/.filetree
+++ b/ContactBook.package/.filetree
@@ -0,0 +1,4 @@
+{
+	"noMethodMetaData" : true,
+	"separateMethodMetaAndSource" : false,
+	"useCypressPropertiesFile" : true }
--- a/ContactBook.package/Contact.class/README.md
+++ b/ContactBook.package/Contact.class/README.md
@@ -0,0 +1,17 @@
+I represent a contact.
+
+I know about my name and email.
+
+Collaborators:
+- Veit Heller <veit@veitheller.de
+
+Public API and Key Messages
+
+- there are accessors for both fullname and email.
+- you can create new instances using the newNamed:email: message.
+
+Internal Representation and Key Implementation Points.
+
+    Instance Variables
+	email: a String
+	fullname: a String
--- a/ContactBook.package/Contact.class/class/newNamed.email..st
+++ b/ContactBook.package/Contact.class/class/newNamed.email..st
@@ -0,0 +1,6 @@
+instance creation
+newNamed: aNameString email: anEmailString
+	^ self new
+		fullname: aNameString;
+		email: anEmailString;
+		yourself
--- a/ContactBook.package/Contact.class/instance/email..st
+++ b/ContactBook.package/Contact.class/instance/email..st
@@ -0,0 +1,3 @@
+accessing
+email: aString 
+	email := aString
--- a/ContactBook.package/Contact.class/instance/email.st
+++ b/ContactBook.package/Contact.class/instance/email.st
@@ -0,0 +1,3 @@
+accessing
+email
+	^ email
--- a/ContactBook.package/Contact.class/instance/fullname..st
+++ b/ContactBook.package/Contact.class/instance/fullname..st
@@ -0,0 +1,3 @@
+accessing
+fullname: aString 
+	fullname := aString trimBoth
--- a/ContactBook.package/Contact.class/instance/fullname.st
+++ b/ContactBook.package/Contact.class/instance/fullname.st
@@ -0,0 +1,3 @@
+accessing
+fullname
+	^ fullname
--- a/ContactBook.package/Contact.class/instance/gravatarUrl.st
+++ b/ContactBook.package/Contact.class/instance/gravatarUrl.st
@@ -0,0 +1,3 @@
+accessing
+gravatarUrl
+	^ 'http://www.gravatar.com/avatar/', (MD5 hashMessage: email trimBoth asLowercase) hex, '.jpg'
--- a/ContactBook.package/Contact.class/instance/printOn..st
+++ b/ContactBook.package/Contact.class/instance/printOn..st
@@ -0,0 +1,7 @@
+printing
+printOn: aStream
+	aStream
+		nextPutAll: self fullname;
+		nextPutAll: ' <';
+		nextPutAll: self email;
+		nextPutAll: '>'
--- a/ContactBook.package/Contact.class/properties.json
+++ b/ContactBook.package/Contact.class/properties.json
@@ -0,0 +1,15 @@
+{
+	"category" : "ContactBook",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "VeitHeller 5/12/2018 14:05",
+	"instvars" : [
+		"fullname",
+		"email" ],
+	"name" : "Contact",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }
--- a/ContactBook.package/ContactBook.class/README.md
+++ b/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
--- a/ContactBook.package/ContactBook.class/class/createDefault.st
+++ b/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
--- a/ContactBook.package/ContactBook.class/instance/addContact..st
+++ b/ContactBook.package/ContactBook.class/instance/addContact..st
@@ -0,0 +1,3 @@
+accessing
+addContact: aContact
+	contacts add: aContact
--- a/ContactBook.package/ContactBook.class/instance/contacts.st
+++ b/ContactBook.package/ContactBook.class/instance/contacts.st
@@ -0,0 +1,3 @@
+accessing
+contacts
+	^ contacts
--- a/ContactBook.package/ContactBook.class/instance/initialize.st
+++ b/ContactBook.package/ContactBook.class/instance/initialize.st
@@ -0,0 +1,3 @@
+initialization
+initialize
+	contacts := OrderedCollection new.
--- a/ContactBook.package/ContactBook.class/instance/removeContact..st
+++ b/ContactBook.package/ContactBook.class/instance/removeContact..st
@@ -0,0 +1,3 @@
+accessing
+removeContact: aContact
+	contacts remove: aContact
--- a/ContactBook.package/ContactBook.class/properties.json
+++ b/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" }
--- a/ContactBook.package/ContactBookTest.class/README.md
+++ b/ContactBook.package/ContactBookTest.class/README.md
--- a/ContactBook.package/ContactBookTest.class/instance/testContactManagement.st
+++ b/ContactBook.package/ContactBookTest.class/instance/testContactManagement.st
@@ -0,0 +1,10 @@
+testing
+testContactManagement
+	| book contact |
+	book := ContactBook new.
+	contact := Contact newNamed: 'Veit Heller' email: 'veit@veitheller.de'.
+	book addContact: contact.
+	self assert: book contacts size equals: 1.
+	book removeContact: contact.
+	self assert: book contacts size equals: 0.
+	
--- a/ContactBook.package/ContactBookTest.class/instance/testCreation.st
+++ b/ContactBook.package/ContactBookTest.class/instance/testCreation.st
@@ -0,0 +1,5 @@
+testing
+testCreation
+	| book |
+	book := ContactBook new.
+	self assert: book contacts size equals: 0.
--- a/ContactBook.package/ContactBookTest.class/properties.json
+++ b/ContactBook.package/ContactBookTest.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "ContactBook",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "ContactBookTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }
--- a/ContactBook.package/ContactTest.class/README.md
+++ b/ContactBook.package/ContactTest.class/README.md
--- a/ContactBook.package/ContactTest.class/instance/testInstanceCreation.st
+++ b/ContactBook.package/ContactTest.class/instance/testInstanceCreation.st
@@ -0,0 +1,6 @@
+testing
+testInstanceCreation
+	| contact |
+	contact := Contact newNamed: 'Marcus Denker' email: 'marcus.denker@inria.fr'.
+	self assert: contact fullname equals: 'Marcus Denker'.
+	self assert: contact email equals: 'marcus.denker@inria.fr'.
--- a/ContactBook.package/ContactTest.class/instance/testNameTrimmed.st
+++ b/ContactBook.package/ContactTest.class/instance/testNameTrimmed.st
@@ -0,0 +1,5 @@
+testing
+testNameTrimmed
+	| contact |
+	contact := Contact newNamed: '  Veit Heller  ' email: 'veit@veitheller.de'.
+	self assert: contact fullname equals: 'Veit Heller'.
--- a/ContactBook.package/ContactTest.class/instance/testString.st
+++ b/ContactBook.package/ContactTest.class/instance/testString.st
@@ -0,0 +1,5 @@
+testing
+testString
+	| contact |
+	contact := Contact newNamed: '  Veit Heller  ' email: 'veit@veitheller.de'.
+	self assert: contact asString equals: 'Veit Heller <veit@veitheller.de>'.
--- a/ContactBook.package/ContactTest.class/properties.json
+++ b/ContactBook.package/ContactTest.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "ContactBook",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "ContactTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }
--- a/ContactBook.package/WAContact.class/README.md
+++ b/ContactBook.package/WAContact.class/README.md
--- a/ContactBook.package/WAContact.class/class/editContact..st
+++ b/ContactBook.package/WAContact.class/class/editContact..st
@@ -0,0 +1,5 @@
+operations
+editContact: aContact
+	^ self new
+		setContact: aContact;
+		yourself
--- a/ContactBook.package/WAContact.class/instance/contact.st
+++ b/ContactBook.package/WAContact.class/instance/contact.st
@@ -0,0 +1,3 @@
+accessing
+contact
+	^ contact
--- a/ContactBook.package/WAContact.class/instance/initialize.st
+++ b/ContactBook.package/WAContact.class/instance/initialize.st
@@ -0,0 +1,4 @@
+initialize
+initialize
+	super initialize.
+	contact := Contact new.
--- a/ContactBook.package/WAContact.class/instance/renderButtonsOn..st
+++ b/ContactBook.package/WAContact.class/instance/renderButtonsOn..st
@@ -0,0 +1,9 @@
+rendering
+renderButtonsOn: html
+	html tbsFormGroup: [
+		html tbsButtonGroup: [
+			self
+				renderSubmitButtonOn: html;
+				renderCancelButtonOn: html
+		]
+	]
--- a/ContactBook.package/WAContact.class/instance/renderCancelButtonOn..st
+++ b/ContactBook.package/WAContact.class/instance/renderCancelButtonOn..st
@@ -0,0 +1,6 @@
+rendering
+renderCancelButtonOn: html
+	html tbsButton
+		beDanger;
+		cancelCallback: [ self answer: nil ];
+		with: 'Cancel'
--- a/ContactBook.package/WAContact.class/instance/renderContentOn..st
+++ b/ContactBook.package/WAContact.class/instance/renderContentOn..st
@@ -0,0 +1,9 @@
+rendering
+renderContentOn: html
+	html tbsContainer: [
+		html heading with: 'Contact Editing'.
+		html tbsForm with: [
+			self renderFieldsOn: html.
+			self renderButtonsOn: html
+		]
+	]
--- a/ContactBook.package/WAContact.class/instance/renderEmailFieldOn..st
+++ b/ContactBook.package/WAContact.class/instance/renderEmailFieldOn..st
@@ -0,0 +1,10 @@
+rendering
+renderEmailFieldOn: html
+	html tbsFormGroup: [
+		html label: 'Email'.
+		html emailInput
+			tbsFormControl;
+			placeholder: 'your@email.eu';
+			callback: [ :email | self contact email: email address ];
+			value: (self contact email ifNil: '')
+	]
--- a/ContactBook.package/WAContact.class/instance/renderFieldsOn..st
+++ b/ContactBook.package/WAContact.class/instance/renderFieldsOn..st
@@ -0,0 +1,4 @@
+rendering
+renderFieldsOn: html
+	self renderFullnameFieldOn: html.
+	self renderEmailFieldOn: html
--- a/ContactBook.package/WAContact.class/instance/renderFullnameFieldOn..st
+++ b/ContactBook.package/WAContact.class/instance/renderFullnameFieldOn..st
@@ -0,0 +1,10 @@
+rendering
+renderFullnameFieldOn: html
+	html tbsFormGroup: [
+		html label: 'Fullname'.
+		html textInput
+			tbsFormControl;
+			placeholder: 'fullname';
+			callback: [ :value | self contact fullname: value ];
+			value: (self contact fullname ifNil: '')
+	]
--- a/ContactBook.package/WAContact.class/instance/renderSubmitButtonOn..st
+++ b/ContactBook.package/WAContact.class/instance/renderSubmitButtonOn..st
@@ -0,0 +1,7 @@
+rendering
+renderSubmitButtonOn: html
+	html tbsSubmitButton
+		beSuccess;
+		bePrimary;
+		callback: [ self answer: self contact ];
+		with: 'Save'
--- a/ContactBook.package/WAContact.class/instance/setContact..st
+++ b/ContactBook.package/WAContact.class/instance/setContact..st
@@ -0,0 +1,3 @@
+accessing
+setContact: aContact
+	contact := aContact
--- a/ContactBook.package/WAContact.class/properties.json
+++ b/ContactBook.package/WAContact.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "ContactBook",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"contact" ],
+	"name" : "WAContact",
+	"pools" : [
+		 ],
+	"super" : "WAComponent",
+	"type" : "normal" }
--- a/ContactBook.package/WAContactBook.class/README.md
+++ b/ContactBook.package/WAContactBook.class/README.md
@@ -0,0 +1,14 @@
+I represent a contact book web application.
+
+I render a contact book to HTML using Seaside.
+
+Collaborators:
+Veit Heller <veit@veitheller.de>
+
+Internal Representation and Key Implementation Points.
+
+    Instance Variables
+	contactBook: a Contactbook
+
+
+    Implementation Points
--- a/ContactBook.package/WAContactBook.class/class/initialize.st
+++ b/ContactBook.package/WAContactBook.class/class/initialize.st
@@ -0,0 +1,5 @@
+initialization
+initialize
+	(WAAdmin register: self asApplicationAt: 'contacts')
+		addLibrary: JQDeploymentLibrary;
+		addLibrary: TBSDeploymentLibrary
--- a/ContactBook.package/WAContactBook.class/instance/addContact.st
+++ b/ContactBook.package/WAContactBook.class/instance/addContact.st
@@ -0,0 +1,4 @@
+rendering
+addContact
+	(self call: WAContact new)
+		ifNotNil: [ :contact | contactBook addContact: contact ]
--- a/ContactBook.package/WAContactBook.class/instance/contacts.st
+++ b/ContactBook.package/WAContactBook.class/instance/contacts.st
@@ -0,0 +1,3 @@
+accessing
+contacts
+	^ contactBook contacts
--- a/ContactBook.package/WAContactBook.class/instance/contactsDo..st
+++ b/ContactBook.package/WAContactBook.class/instance/contactsDo..st
@@ -0,0 +1,3 @@
+operations
+contactsDo: aBlock
+	self contacts do: aBlock
--- a/ContactBook.package/WAContactBook.class/instance/initialize.st
+++ b/ContactBook.package/WAContactBook.class/instance/initialize.st
@@ -0,0 +1,4 @@
+initialization
+initialize
+	super initialize.
+	contactBook := ContactBook createDefault
--- a/ContactBook.package/WAContactBook.class/instance/renderButtonsForContact.on..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderButtonsForContact.on..st
@@ -0,0 +1,7 @@
+rendering
+renderButtonsForContact: aContact on: html
+	html tbsButtonGroup: [
+		self
+		renderEditButtonForContact: aContact on: html;
+		renderRemoveButtonForContact: aContact on: html
+	]
--- a/ContactBook.package/WAContactBook.class/instance/renderContact.on..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderContact.on..st
@@ -0,0 +1,9 @@
+rendering
+renderContact: aContact on: html
+	html tableRow: [
+		html
+			tableData: [ self renderPhotoOf: aContact on: html ];
+			tableData: aContact fullname;
+			tableData: aContact email;
+			tableData: [ self renderButtonsForContact: aContact on: html ]
+	]
--- a/ContactBook.package/WAContactBook.class/instance/renderContactsOn..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderContactsOn..st
@@ -0,0 +1,12 @@
+rendering
+renderContactsOn: html
+	html tbsTable: [
+		html tableHead: [
+			html
+				tableHeading: 'Photo';
+				tableHeading: 'Name';
+				tableHeading: 'Email';
+				tableHeading: 'Actions'
+		].
+		self contactsDo: [ :contact | self renderContact: contact on: html ]
+	]
--- a/ContactBook.package/WAContactBook.class/instance/renderContentOn..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderContentOn..st
@@ -0,0 +1,11 @@
+rendering
+renderContentOn: html
+	html tbsContainer: [
+		html heading
+			level: 1;
+			with: 'My Contact Book'.
+		html tbsForm: [
+			self renderContactsOn: html.
+			self renderGlobalButtonsOn: html
+		]
+	]
--- a/ContactBook.package/WAContactBook.class/instance/renderEditButtonForContact.on..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderEditButtonForContact.on..st
@@ -0,0 +1,6 @@
+updating
+renderEditButtonForContact: aContact on: html
+	html tbsButton
+		beSuccess;
+		callback: [ self call: (WAContact editContact: aContact) ];
+		with: 'Edit'
--- a/ContactBook.package/WAContactBook.class/instance/renderGlobalButtonsOn..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderGlobalButtonsOn..st
@@ -0,0 +1,8 @@
+rendering
+renderGlobalButtonsOn: html
+	html tbsButtonGroup: [
+		html tbsButton
+			beSuccess;
+			callback: [ self addContact ];
+			with: 'New contact'
+	]
--- a/ContactBook.package/WAContactBook.class/instance/renderPhotoOf.on..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderPhotoOf.on..st
@@ -0,0 +1,3 @@
+rendering
+renderPhotoOf: aContact on: html
+	html image url: aContact gravatarUrl
--- a/ContactBook.package/WAContactBook.class/instance/renderRemoveButtonForContact.on..st
+++ b/ContactBook.package/WAContactBook.class/instance/renderRemoveButtonForContact.on..st
@@ -0,0 +1,6 @@
+rendering
+renderRemoveButtonForContact: aContact on: html
+	html tbsButton
+		beDanger;
+		callback: [ self contactBook removeContact: aContact ];
+		with: 'Remove'
--- a/ContactBook.package/WAContactBook.class/instance/updateRoot..st
+++ b/ContactBook.package/WAContactBook.class/instance/updateRoot..st
@@ -0,0 +1,4 @@
+updating
+updateRoot: anHtmlRoot
+	super updateRoot: anHtmlRoot.
+	anHtmlRoot title: 'Contact Book'
--- a/ContactBook.package/WAContactBook.class/properties.json
+++ b/ContactBook.package/WAContactBook.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "ContactBook",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "VeitHeller 5/12/2018 14:29",
+	"instvars" : [
+		"contactBook" ],
+	"name" : "WAContactBook",
+	"pools" : [
+		 ],
+	"super" : "WAComponent",
+	"type" : "normal" }
--- a/ContactBook.package/monticello.meta/categories.st
+++ b/ContactBook.package/monticello.meta/categories.st
@@ -0,0 +1 @@
+SystemOrganization addCategory: #ContactBook!
--- a/ContactBook.package/monticello.meta/initializers.st
+++ b/ContactBook.package/monticello.meta/initializers.st
--- a/ContactBook.package/monticello.meta/package
+++ b/ContactBook.package/monticello.meta/package
@@ -0,0 +1 @@
+(name 'ContactBook')
--- a/ContactBook.package/properties.json
+++ b/ContactBook.package/properties.json
@@ -0,0 +1,2 @@
+{
+	 }
				`@@ -0,0 +1 @@`
				`SystemOrganization addCategory: #ContactBook!`