hellerve/contact-book
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

all: intial code import

Browse Source
This commit is contained in:
Veit Heller
2018-05-12 15:25:36 +02:00
parent 1f20ee2574
commit 9f47b858c3
59 changed files with 375 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

0
ContactBook.package/WAContact.class/README.md Normal file
View File

5
ContactBook.package/WAContact.class/class/editContact..st Normal file
View File

@@ -0,0 +1,5 @@
operations
editContact: aContact
^ self new
setContact: aContact;
yourself

3
ContactBook.package/WAContact.class/instance/contact.st Normal file
View File

@@ -0,0 +1,3 @@
accessing
contact
^ contact

4
ContactBook.package/WAContact.class/instance/initialize.st Normal file
View File

@@ -0,0 +1,4 @@
initialize
initialize
super initialize.
contact := Contact new.

9
ContactBook.package/WAContact.class/instance/renderButtonsOn..st Normal file
View File

@@ -0,0 +1,9 @@
rendering
renderButtonsOn: html
html tbsFormGroup: [
html tbsButtonGroup: [
self
renderSubmitButtonOn: html;
renderCancelButtonOn: html
]
]

6
ContactBook.package/WAContact.class/instance/renderCancelButtonOn..st Normal file
View File

@@ -0,0 +1,6 @@
rendering
renderCancelButtonOn: html
html tbsButton
beDanger;
cancelCallback: [ self answer: nil ];
with: 'Cancel'

9
ContactBook.package/WAContact.class/instance/renderContentOn..st Normal file
View File

@@ -0,0 +1,9 @@
rendering
renderContentOn: html
html tbsContainer: [
html heading with: 'Contact Editing'.
html tbsForm with: [
self renderFieldsOn: html.
self renderButtonsOn: html
]
]

10
ContactBook.package/WAContact.class/instance/renderEmailFieldOn..st Normal file
View File

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

4
ContactBook.package/WAContact.class/instance/renderFieldsOn..st Normal file
View File

@@ -0,0 +1,4 @@
rendering
renderFieldsOn: html
self renderFullnameFieldOn: html.
self renderEmailFieldOn: html

10
ContactBook.package/WAContact.class/instance/renderFullnameFieldOn..st Normal file
View File

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

7
ContactBook.package/WAContact.class/instance/renderSubmitButtonOn..st Normal file
View File

@@ -0,0 +1,7 @@
rendering
renderSubmitButtonOn: html
html tbsSubmitButton
beSuccess;
bePrimary;
callback: [ self answer: self contact ];
with: 'Save'

3
ContactBook.package/WAContact.class/instance/setContact..st Normal file
View File

@@ -0,0 +1,3 @@
accessing
setContact: aContact
contact := aContact

14
ContactBook.package/WAContact.class/properties.json Normal file
View File

@@ -0,0 +1,14 @@
{
"category" : "ContactBook",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
"contact" ],
"name" : "WAContact",
"pools" : [
],
"super" : "WAComponent",
"type" : "normal" }