--- a/extensions.st Tue Jul 18 15:26:52 2017 +0200
+++ b/extensions.st Tue Jul 18 19:59:19 2017 +0200
@@ -179,10 +179,12 @@
^ super inspectorExtraAttributes
add:(self isMeta
- ifFalse:[ '-meta' -> [ self theMetaclass ] ]
- ifTrue:[ '-nonMeta' -> [ self theNonMetaclass ] ]);
+ ifFalse:[ '-meta' -> self theMetaclass ]
+ ifTrue:[ '-nonMeta' -> self theNonMetaclass ]);
add:( '-project definition class' -> [ self theNonMetaclass projectDefinitionClass ] );
yourself
+
+ "Modified (format): / 18-07-2017 / 19:56:35 / cg"
! !
!Behavior methodsFor:'inspecting'!
@@ -220,16 +222,17 @@
self homeMethod isNil ifTrue:[
d
- add:'-code' -> 'no home method';
+ add:'-code' -> 'no home method';
add:'-source' -> 'no home method'.
] ifFalse:[
d
- add:'-code' -> [ String streamContents:[:s | self homeMethod decompileTo:s]];
+ add:'-code' -> [ String streamContents:[:s | self homeMethod decompileTo:s]];
add:'-source' -> [ self homeMethod source].
].
^ d
"Created: / 15-11-2011 / 14:24:10 / cg"
+ "Modified (format): / 18-07-2017 / 19:56:44 / cg"
! !
!Boolean methodsFor:'inspecting'!
@@ -299,11 +302,13 @@
].
^ super inspectorExtraAttributes
- add:'-hexstring' -> [ self hexPrintString "WithSeparator:Character space" ];
+ add:'-hexstring' -> [ self hexPrintString "WithSeparator:Character space" ];
add:'-hexadecimal' -> [ basePrinter value:self value:16 ];
- add:'-binary' -> [ basePrinter value:self value:2 ];
+ add:'-binary' -> [ basePrinter value:self value:2 ];
add:'-asciiString' -> [ self asString ];
yourself
+
+ "Modified (format): / 18-07-2017 / 19:56:54 / cg"
! !
!Change methodsFor:'private'!
@@ -424,10 +429,10 @@
atts := super inspectorExtraAttributes.
atts
- add:'-hexValue' -> [ self codePoint radixPrintStringRadix:16 ];
- add:'-string' -> [ self stringSpecies with:self ];
+ add:'-hexValue' -> [ self codePoint radixPrintStringRadix:16 ];
+ add:'-string' -> [ self stringSpecies with:self ];
add:'-utf8String' -> [ self utf8Encoded ];
- add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ].
+ add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ].
HTMLUtilities notNil ifTrue:[
atts add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self asString ]
@@ -441,6 +446,7 @@
"
"Created: / 22-10-2006 / 03:52:20 / cg"
+ "Modified (format): / 18-07-2017 / 19:57:07 / cg"
! !
!Character methodsFor:'inspecting'!
@@ -603,11 +609,11 @@
|d|
d := super inspectorExtraAttributes
- add:'-hex' -> [ self asByteArray hexPrintStringWithSeparator:Character space ];
- add:'-bytes' -> [ self asByteArray ];
+ add:'-hex' -> [ self asByteArray hexPrintStringWithSeparator:Character space ];
+ add:'-bytes' -> [ self asByteArray ];
add:'-utf8String' -> [ self utf8Encoded ];
- add:'-utf8Bytes' -> [ self utf8Encoded asByteArray ];
- add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ];
+ add:'-utf8Bytes' -> [ self utf8Encoded asByteArray ];
+ add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ];
yourself.
HTMLUtilities notNil ifTrue:[
@@ -620,6 +626,7 @@
"
"Created: / 22-10-2006 / 03:52:20 / cg"
+ "Modified (format): / 18-07-2017 / 19:57:21 / cg"
! !
!CharacterArray methodsFor:'inspecting'!
@@ -710,13 +717,15 @@
"extra (pseudo instvar) entries to be shown in an inspector."
^ super inspectorExtraAttributes
- add:'-rgb' -> [ self rgbValue hexPrintString ];
+ add:'-rgb' -> [ self rgbValue hexPrintString ];
add:'-html' -> [ self htmlPrintString ];
yourself
"
Color red inspect
"
+
+ "Modified (format): / 18-07-2017 / 19:57:26 / cg"
! !
!Color methodsFor:'inspecting'!
@@ -761,15 +770,15 @@
"extra (pseudo instvar) entries to be shown in an inspector."
^ super inspectorExtraAttributes
- add:'-day' -> [ self day printString ];
+ add:'-day' -> [ self day printString ];
add:'-month' -> [ self month printString ];
- add:'-year' -> [ self year printString ];
- add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ];
- add:'-dayInYear' -> [ self dayInYear ];
+ add:'-year' -> [ self year printString ];
+ add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self dayOfWeekName , '"' ];
+ add:'-dayInYear' -> [ self dayInYear ];
add:'-daysInMonth' -> [ self daysInMonth ];
- add:'-monthName' -> [ self monthName ];
- add:'-weekNr' -> [ self weekInYear ];
- add:'-leapYear' -> [ self isLeapYear ];
+ add:'-monthName' -> [ self monthName ];
+ add:'-weekNr' -> [ self weekInYear ];
+ add:'-leapYear' -> [ self isLeapYear ];
add:'-iso8601(utc)' -> [ self asUtcTimestamp printStringIso8601 ];
yourself
@@ -778,6 +787,7 @@
"
"Created: / 20-01-2011 / 12:19:05 / cg"
+ "Modified (format): / 18-07-2017 / 19:57:44 / cg"
! !
!Date methodsFor:'printing & storing'!
@@ -1401,13 +1411,15 @@
d := super inspectorExtraAttributes.
(name := Icon nameIfKnownIcon:self) notNil ifTrue:[
- d add:'-origin (comes from)' -> [ name ]
+ d add:'-origin (comes from)' -> name
].
^ d
"
ToolbarIconLibrary systemBrowserIcon inspect
"
+
+ "Modified: / 18-07-2017 / 19:58:01 / cg"
! !
!Image methodsFor:'inspecting'!
@@ -1446,8 +1458,8 @@
attr := super inspectorExtraAttributes.
attr
add:'-hexadecimal' -> [ self radixPrintStringRadix:16 ];
- add:'-octal' -> [ self radixPrintStringRadix:8 ];
- add:'-binary' -> [ self radixPrintStringRadix:2 ].
+ add:'-octal' -> [ self radixPrintStringRadix:8 ];
+ add:'-binary' -> [ self radixPrintStringRadix:2 ].
highBit := self highBit.
(#(8 16 32 64) includes:highBit) ifTrue:[
@@ -1471,6 +1483,7 @@
"Created: / 18-09-2006 / 21:22:46 / cg"
"Modified: / 26-02-2016 / 19:36:15 / cg"
+ "Modified (format): / 18-07-2017 / 19:58:09 / cg"
! !
!Interval methodsFor:'inspecting'!
@@ -1603,7 +1616,7 @@
"extra (pseudo instvar) entries to be shown in an inspector."
^ super inspectorExtraAttributes
- add:'-code' -> [ String streamContents:[:s | self decompileTo:s] ];
+ add:'-code' -> [ String streamContents:[:s | self decompileTo:s] ];
add:'-source' -> [ self source ];
yourself
@@ -1613,6 +1626,7 @@
"Created: / 18-09-2006 / 21:34:01 / cg"
"Modified: / 06-10-2006 / 13:57:33 / cg"
+ "Modified (format): / 18-07-2017 / 19:54:55 / cg"
! !
!Method methodsFor:'printing & storing'!
@@ -2409,7 +2423,7 @@
"
"Created: / 18-09-2006 / 21:25:52 / cg"
- "Modified: / 06-10-2006 / 13:57:38 / cg"
+ "Modified: / 18-07-2017 / 19:59:04 / cg"
! !
!Time methodsFor:'printing & storing'!
@@ -2426,12 +2440,12 @@
"extra (pseudo instvar) entries to be shown in an inspector."
^ super inspectorExtraAttributes
- add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self asDate dayOfWeekName , '"' ];
- add:'-dayInYear' -> [ self dayInYear ];
+ add:'-dayInWeek' -> [ self dayInWeek printString , ' "', self asDate dayOfWeekName , '"' ];
+ add:'-dayInYear' -> [ self dayInYear ];
add:'-daysInMonth' -> [ self asDate daysInMonth ];
- add:'-monthName' -> [ self asDate monthName ];
- add:'-weekNr' -> [ self asDate weekInYear ];
- add:'-leapYear' -> [ self asDate isLeapYear ];
+ add:'-monthName' -> [ self asDate monthName ];
+ add:'-weekNr' -> [ self asDate weekInYear ];
+ add:'-leapYear' -> [ self asDate isLeapYear ];
add:'-iso8601(utc)' -> [ self asUtcTimestamp printStringIso8601 ];
yourself
@@ -2440,6 +2454,7 @@
"
"Created: / 20-01-2011 / 12:19:05 / cg"
+ "Modified (format): / 18-07-2017 / 19:54:31 / cg"
! !
!Timestamp methodsFor:'inspecting'!