<div dir="ltr">This looks interesting and quite useful! I'm thinking though that input validation is such a common need that TextModelMorph should support it. I think I've worked out the details of how it can be easily done. I tested my approach by creating subclasses of TextModelMorph and InnerTextMorph, but what I did in those subclasses could just as well go into their superclasses. It would enable code like this in order to create a text input that only accepts entry of an integer up to 5 characters. The important parts are in red.<div> </div><div>entry := TextModelMorph withText: '' acceptOnAny: true; hideScrollBarsIndefinitely; "Don't allow more than five characters." maxSize: 5; "Only allow digits." charValidationBlock: [ :char | char isDigit ]; "Setting height to zero causes it to use minimum height for one line." morphExtent: 100 @ 0; "Don't allow the first character to be zero." valueValidationBlock: [ :value | value first ~= $0 ]; wrapFlag: false. </div><div> </div><div>If there is interest in this, I will provide a changeset. Otherwise I can just use my custom subclasses.</div></div> <div class="gmail_quote gmail_quote_container"><div dir="ltr" class="gmail_attr">On Sat, Apr 5, 2025 at 1:10 AM Hilaire Fernandes via Cuis-dev <<a href="mailto:cuis-dev@lists.cuis.st">cuis-dev@lists.cuis.st</a>> wrote: </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-style:solid;border-left-color:rgb(204,204,204);padding-left:1ex"> <div bgcolor="#FFFFFF"> Hi Mark, In the Cuis-Smalltalk-UI, you can find the Mold system a general system for input validation. It does not need to specialize Widget for validation, it uses external classes to do so. <div style="background:repeat rgb(255,255,255);overflow:auto;width:auto;border-style:solid;border-color:gray;border-width:0.1em 0.1em 0.1em 0.8em;padding:0.1em 0.6em"> <table> <tbody> <tr> <td> <pre style="margin:0px;line-height:125%"> 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36</pre> </td> <td> <pre style="margin:0px;line-height:125%">MoldExample>>eight " MoldExample eight " | mold fullname email confirmEmail | mold := Mold new. fullname := mold stringField on: #propertyValue of: ValueHolder new; label: 'Your Name'; beRequired; addCondition: [ :input | input includesSubString: ' '] labeled: [ :wrong | 'Please enter your first and last name. I couldn''t find a space in {1}' format: {wrong} ]. email := mold emailField on: #propertyValue of: ValueHolder new; label: 'Email Address:'. confirmEmail := mold emailField on: #propertyValue of: ValueHolder new; label: 'Confirm Email:'. email addCondition: [ :input | input = confirmEmail input ] labeled: 'Email addresses did not match.'. confirmEmail addCondition: [ :input | input = email input ] labeled: 'Email addresses did not match.'. mold textField on: #propertyValue of: ValueHolder new; label: 'About yourself.'; beRequired. mold checkboxField on: #propertyValue of: (ValueHolder with: true); label: 'Sign for the newsletter'; addCondition: [ :input | fullname isValid not or: [ input or: [ fullname value first = $K ] ] ] labeled: 'Sorry, you may not opt out of our spam unless your name starts with K.'. mold openDialog: 'Example Eight' </pre> </td> </tr> </tbody> </table> </div> Hilaire <pre cols="72">-- <a href="http://mamot.fr/@drgeo" target="_blank">http://mamot.fr/@drgeo</a></pre> </div> -- Cuis-dev mailing list <a href="mailto:Cuis-dev@lists.cuis.st" target="_blank">Cuis-dev@lists.cuis.st</a> <a href="https://lists.cuis.st/mailman/listinfo/cuis-dev" rel="noreferrer" target="_blank">https://lists.cuis.st/mailman/listinfo/cuis-dev</a> </blockquote></div><div> </div><div> </div>-- <div dir="ltr" class="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div><div dir="ltr"><div dir="ltr"><div>R. Mark Volkmann</div><div>Object Computing, Inc.</div></div></div></div></div></div></div></div>