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