extensions.st
changeset 15149 caec9aaa1869
parent 15148 803c504c561d
child 15177 28ce238b8a47
equal deleted inserted replaced
15148:803c504c561d 15149:caec9aaa1869
   325 !Character methodsFor:'inspecting'!
   325 !Character methodsFor:'inspecting'!
   326 
   326 
   327 inspectorExtraAttributes
   327 inspectorExtraAttributes
   328     "extra (pseudo instvar) entries to be shown in an inspector."
   328     "extra (pseudo instvar) entries to be shown in an inspector."
   329 
   329 
   330     ^ super inspectorExtraAttributes
   330     |atts|
       
   331 
       
   332     atts := super inspectorExtraAttributes.
       
   333     atts
   331         add:'-hexValue' -> [ self codePoint radixPrintStringRadix:16 ];
   334         add:'-hexValue' -> [ self codePoint radixPrintStringRadix:16 ];
   332         add:'-string' -> [ self stringSpecies with:self ];
   335         add:'-string' -> [ self stringSpecies with:self ];
   333         add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self asString ];
       
   334         add:'-utf8String' -> [ self utf8Encoded ];
   336         add:'-utf8String' -> [ self utf8Encoded ];
   335         add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ];
   337         add:'-utf8' -> [ self utf8Encoded asByteArray hexPrintStringWithSeparator:Character space ].
   336         yourself
   338 
       
   339     HTMLUtilities notNil ifTrue:[
       
   340         atts add:'-html' -> [ HTMLUtilities escapeCharacterEntities:self asString ]
       
   341     ].
       
   342     ^ atts
   337 
   343 
   338     "
   344     "
   339      $a inspect
   345      $a inspect
       
   346      $> inspect
       
   347      (Character value:16r3124) inspect
   340     "
   348     "
   341 
   349 
   342     "Created: / 22-10-2006 / 03:52:20 / cg"
   350     "Created: / 22-10-2006 / 03:52:20 / cg"
   343 ! !
   351 ! !
   344 
   352 
  2367 ! !
  2375 ! !
  2368 
  2376 
  2369 !stx_libtool class methodsFor:'documentation'!
  2377 !stx_libtool class methodsFor:'documentation'!
  2370 
  2378 
  2371 extensionsVersion_CVS
  2379 extensionsVersion_CVS
  2372     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.135 2015-01-31 23:38:55 cg Exp $'
  2380     ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.136 2015-01-31 23:42:10 cg Exp $'
  2373 ! !
  2381 ! !
  2374 
  2382 
  2375 !stx_libtool class methodsFor:'documentation'!
  2383 !stx_libtool class methodsFor:'documentation'!
  2376 
  2384 
  2377 extensionsVersion_HG
  2385 extensionsVersion_HG