"  ---- Ronald Brill 1995, 1996 ---- "
"  ---- Extended File Dialogs Version 2.1 ---- "



Date SecondaryFile !


! Date class methods!


!"End of class methods block"


! Date methods!


asFullISOString
| array result |
   array := self asArray.
   result := array pop asString + $-.
   array first < 10 ifTrue: [ result := result + $0. ].
   result := result + array pop + $-.
   array first < 10 ifTrue: [ result := result + $0. ].
   ^ result + array pop.
!"end asFullISOString"


!"End of methods block"
