extensions.st
changeset 17068 5fb10da2bf01
parent 17061 17e020091a74
child 17100 9b62a75af74f
child 17136 cb908d2ba02e
equal deleted inserted replaced
17067:1daebd492bbf 17068:5fb10da2bf01
    46                 atts add:('-~> ',eachName) -> [ bindingDict at:eachName ].
    46                 atts add:('-~> ',eachName) -> [ bindingDict at:eachName ].
    47             ].
    47             ].
    48         ].
    48         ].
    49     ].
    49     ].
    50     ^ atts
    50     ^ atts
       
    51 ! !
       
    52 
       
    53 !Array methodsFor:'inspecting'!
       
    54 
       
    55 inspectorValueStringInListFor:anInspector
       
    56     "returns a string to be shown in the inspector's list"
       
    57 
       
    58     self size == 0 ifTrue:[
       
    59         ^ '#()'
       
    60     ].
       
    61     ^ super inspectorValueStringInListFor:anInspector
    51 ! !
    62 ! !
    52 
    63 
    53 !ArrayedCollection methodsFor:'inspecting'!
    64 !ArrayedCollection methodsFor:'inspecting'!
    54 
    65 
    55 inspector2TabForHexDump
    66 inspector2TabForHexDump
  1321                                 ifNotNilOrEmptyDo:[:file | self saveOn: file ]
  1332                                 ifNotNilOrEmptyDo:[:file | self saveOn: file ]
  1322                          ] }
  1333                          ] }
  1323     }
  1334     }
  1324 ! !
  1335 ! !
  1325 
  1336 
       
  1337 !ImmutableArray methodsFor:'inspecting'!
       
  1338 
       
  1339 inspectorValueStringInListFor:anInspector
       
  1340     "returns a string to be shown in the inspector's list"
       
  1341 
       
  1342     self size == 0 ifTrue:[
       
  1343         ^ '#() immutable'
       
  1344     ].
       
  1345     ^ super inspectorValueStringInListFor:anInspector
       
  1346 ! !
       
  1347 
  1326 !Integer methodsFor:'inspecting'!
  1348 !Integer methodsFor:'inspecting'!
  1327 
  1349 
  1328 inspectorExtraAttributes
  1350 inspectorExtraAttributes
  1329     "extra (pseudo instvar) entries to be shown in an inspector."
  1351     "extra (pseudo instvar) entries to be shown in an inspector."
  1330 
  1352