belka/book-exercises
1
0
Fork 0
Code Activity

Update to bootstrap 5

Browse Source
This commit is contained in:
Eugen Wissner
2025-10-01 01:58:38 +02:00
parent 4dbc1a7c7c
commit ae97162406
2 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/ContactBook/WAContact.class.st
View File

@@ -1,6 +1,6 @@
Class { Class {
#name : 'WAContact', #name : 'WAContact',
#superclass : 'WAComponent', #superclass : 'SBSRootComponent',
#instVars : [ #instVars : [
'contact' 'contact'
], ],
@@ -59,7 +59,7 @@ WAContact >> renderEmailFieldOn: html [
html emailInput html emailInput
formControl; formControl;
placeholder: 'your@email.eu'; placeholder: 'your@email.eu';
callback: [ :value | self contact email: value ]; callback: [ :value | self contact email: value address ];
value: (self contact email ifNil: '') ] value: (self contact email ifNil: '') ]
] ]
@@ -82,7 +82,8 @@ WAContact >> renderFullnameFieldOn: html [
{ #category : 'as yet unclassified' } { #category : 'as yet unclassified' }
WAContact >> renderSubmitButtonOn: html [ WAContact >> renderSubmitButtonOn: html [
html submitButton html formButton
beSubmit;
beSuccess; beSuccess;
bePrimary; bePrimary;
callback: [ self answer: self contact ]; callback: [ self answer: self contact ];

4
src/ContactBook/WAContactBook.class.st
View File

@@ -1,6 +1,6 @@
Class { Class {
#name : 'WAContactBook', #name : 'WAContactBook',
#superclass : 'WAComponent', #superclass : 'SBSRootComponent',
#instVars : [ #instVars : [
'contactBook' 'contactBook'
], ],
@@ -12,7 +12,7 @@ Class {
WAContactBook class >> initialize [ WAContactBook class >> initialize [
(WAAdmin register: self asApplicationAt: 'contacts') (WAAdmin register: self asApplicationAt: 'contacts')
addLibrary: JQDeploymentLibrary; addLibrary: JQDeploymentLibrary;
addLibrary: SBSDevelopmentLibrary addLibrary: SBSDeploymentLibrary
] ]
{ #category : 'rendering' } { #category : 'rendering' }