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/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: '')
+	]