extensions.st
changeset 14816 192e3eeaa070
parent 14698 cad037e21687
child 14817 056ec74bde0a
equal deleted inserted replaced
14815:15e9025634ec 14816:192e3eeaa070
   558     ^ super inspectorExtraAttributes
   558     ^ super inspectorExtraAttributes
   559         add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ];
   559         add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ];
   560         add:'-dayInYear' -> [ self dayInYear ];
   560         add:'-dayInYear' -> [ self dayInYear ];
   561         add:'-daysInMonth' -> [ self daysInMonth ];
   561         add:'-daysInMonth' -> [ self daysInMonth ];
   562         add:'-monthName' -> [ self monthName ];
   562         add:'-monthName' -> [ self monthName ];
       
   563         add:'-weekNr' -> [  self weekInYear ];
   563         add:'-leapYear' -> [ self isLeapYear ];
   564         add:'-leapYear' -> [ self isLeapYear ];
       
   565         add:'-iso8601(utc)' -> [ self asUtcTimestamp printISO8601 ];
   564         yourself
   566         yourself
   565 
   567 
   566     "
   568     "
   567      Date today inspect
   569      Date today inspect
   568     "
   570     "
  1676     ^ super inspectorExtraAttributes
  1678     ^ super inspectorExtraAttributes
  1677         add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self asDate dayOfWeekName , '"' ];
  1679         add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self asDate dayOfWeekName , '"' ];
  1678         add:'-dayInYear' -> [ self dayInYear ];
  1680         add:'-dayInYear' -> [ self dayInYear ];
  1679         add:'-daysInMonth' -> [ self asDate daysInMonth ];
  1681         add:'-daysInMonth' -> [ self asDate daysInMonth ];
  1680         add:'-monthName' -> [ self asDate monthName ];
  1682         add:'-monthName' -> [ self asDate monthName ];
       
  1683         add:'-weekNr' -> [ self asDate weekInYear ];
  1681         add:'-leapYear' -> [ self asDate isLeapYear ];
  1684         add:'-leapYear' -> [ self asDate isLeapYear ];
       
  1685         add:'-iso8601(utc)' -> [ self asUtcTimestamp printISO8601 ];
  1682         yourself
  1686         yourself
  1683 
  1687 
  1684     "
  1688     "
  1685      Timestamp now inspect
  1689      Timestamp now inspect
  1686     "
  1690     "
  2361 ! !
  2365 ! !
  2362 
  2366 
  2363 !stx_libtool class methodsFor:'documentation'!
  2367 !stx_libtool class methodsFor:'documentation'!
  2364 
  2368 
  2365 extensionsVersion_CVS
  2369 extensionsVersion_CVS
  2366     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.129 2014-08-05 15:30:27 vrany Exp $'
  2370     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.130 2014-11-07 21:23:38 cg Exp $'
  2367 ! !
  2371 ! !
  2368 
  2372 
  2369 !stx_libtool class methodsFor:'documentation'!
  2373 !stx_libtool class methodsFor:'documentation'!
  2370 
  2374 
  2371 extensionsVersion_HG
  2375 extensionsVersion_HG