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/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 ]
+	]