Easiest way to present Dates

I have been looking for the easiest way to get a date to display with
the desired format.

By adding

BlockContext-write: anObject description: aDescription

    ^ self value: anObject

The following becomes possible:

    ^ MADateDescription new
        selectorAccessor: #orderDate;
        beWithinYears: 2;
        stringWriter: [ :i | i mmddyyyy ];
        label: 'Order Date';
        beReadonly;
        beSearchable;
        yourself
       
Is there a better way?
Is this worth adding to the mainstream?

Keith


_______________________________________________
SmallWiki, Magritte, Pier and Related Tools ...
https://www.iam.unibe.ch/mailman/listinfo/smallwiki