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