equal
deleted
inserted
replaced
115 yourself |
115 yourself |
116 |
116 |
117 " |
117 " |
118 Color red inspect |
118 Color red inspect |
119 " |
119 " |
|
120 ! ! |
|
121 |
|
122 !Date methodsFor:'inspecting'! |
|
123 |
|
124 inspectorExtraAttributes |
|
125 "extra (pseudo instvar) entries to be shown in an inspector." |
|
126 |
|
127 ^ Dictionary new |
|
128 declareAllNewFrom:(super inspectorExtraAttributes ? #()); |
|
129 add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ]; |
|
130 add:'-dayInYear' -> [ self dayInYear ]; |
|
131 add:'-daysInMonth' -> [ self daysInMonth ]; |
|
132 add:'-monthName' -> [ self monthName ]; |
|
133 add:'-leapYear' -> [ self isLeapYear ]; |
|
134 yourself |
|
135 |
|
136 " |
|
137 Date today inspect |
|
138 " |
|
139 |
|
140 "Created: / 20-01-2011 / 12:19:05 / cg" |
120 ! ! |
141 ! ! |
121 |
142 |
122 !Dictionary methodsFor:'inspecting'! |
143 !Dictionary methodsFor:'inspecting'! |
123 |
144 |
124 inspectorClass |
145 inspectorClass |
451 |
472 |
452 "Created: / 18-09-2006 / 21:25:52 / cg" |
473 "Created: / 18-09-2006 / 21:25:52 / cg" |
453 "Modified: / 06-10-2006 / 13:57:38 / cg" |
474 "Modified: / 06-10-2006 / 13:57:38 / cg" |
454 ! ! |
475 ! ! |
455 |
476 |
|
477 !Timestamp methodsFor:'inspecting'! |
|
478 |
|
479 inspectorExtraAttributes |
|
480 "extra (pseudo instvar) entries to be shown in an inspector." |
|
481 |
|
482 ^ Dictionary new |
|
483 declareAllNewFrom:(super inspectorExtraAttributes ? #()); |
|
484 add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self asDate dayOfWeekName , '"' ]; |
|
485 add:'-dayInYear' -> [ self dayInYear ]; |
|
486 add:'-daysInMonth' -> [ self asDate daysInMonth ]; |
|
487 add:'-monthName' -> [ self asDate monthName ]; |
|
488 add:'-leapYear' -> [ self asDate isLeapYear ]; |
|
489 yourself |
|
490 |
|
491 " |
|
492 Timestamp now inspect |
|
493 " |
|
494 |
|
495 "Created: / 20-01-2011 / 12:19:05 / cg" |
|
496 ! ! |
|
497 |
456 !stx_libtool class methodsFor:'documentation'! |
498 !stx_libtool class methodsFor:'documentation'! |
457 |
499 |
458 extensionsVersion_CVS |
500 extensionsVersion_CVS |
459 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.29 2010-12-23 15:45:22 cg Exp $' |
501 ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.30 2011-01-20 11:24:55 cg Exp $' |
460 ! ! |
502 ! ! |