Tools__ObjectModuleInformation.st
changeset 2982 e8a9f796d598
parent 2977 2f7cc2452dd7
child 2998 91c12c87cde1
equal deleted inserted replaced
2981:e61e4a6fb317 2982:e8a9f796d598
  1195     "/ what a hack
  1195     "/ what a hack
  1196     (moduleInfoOrHandle isKindOf: ObjectMemory::BinaryModuleDescriptor) ifTrue:[
  1196     (moduleInfoOrHandle isKindOf: ObjectMemory::BinaryModuleDescriptor) ifTrue:[
  1197         classes := moduleInfoOrHandle classNames collect:[:nm | Smalltalk classNamed:nm].
  1197         classes := moduleInfoOrHandle classNames collect:[:nm | Smalltalk classNamed:nm].
  1198         UserPreferences systemBrowserClass 
  1198         UserPreferences systemBrowserClass 
  1199             browseClasses:classes
  1199             browseClasses:classes
  1200             label:(resources string:'Classes in %1' with:moduleInfoOrHandle libraryName)
  1200             label:(resources string:'Classes in %1' with:moduleInfoOrHandle libraryName).
       
  1201         "/ Q: what about extensions ?
  1201     ] ifFalse:[
  1202     ] ifFalse:[
  1202         moduleInfoOrHandle isMethodHandle ifTrue:[
  1203         moduleInfoOrHandle isMethodHandle ifTrue:[
  1203             method := moduleInfoOrHandle method.
  1204             method := moduleInfoOrHandle method.
  1204             (method notNil and:[method mclass notNil]) ifFalse:[
  1205             (method notNil and:[method mclass notNil]) ifFalse:[
  1205                 Dialog information:'The method has been redefined/removed'.
  1206                 Dialog information:'The method has been redefined/removed'.