--- a/Tools__ObjectModuleInformation.st Fri Sep 01 14:27:28 2017 +0200
+++ b/Tools__ObjectModuleInformation.st Fri Sep 01 14:28:14 2017 +0200
@@ -1263,11 +1263,11 @@
(moduleInfoOrHandle isKindOf: ObjectMemory::BinaryModuleDescriptor) ifTrue:[
classes := moduleInfoOrHandle classNames collect:[:nm | Smalltalk classNamed:nm].
- UserPreferences systemBrowserClass
+ SystemBrowser default
perform:#openOnPackage: with:(moduleInfoOrHandle package)
ifNotUnderstood:[
"/ Q: what about extensions ?
- UserPreferences systemBrowserClass
+ SystemBrowser default
browseClasses:classes
label:(resources string:'Classes in %1' with:moduleInfoOrHandle libraryName).
]
@@ -1278,10 +1278,11 @@
Dialog information:'The method has been redefined/removed'.
^ self.
].
- UserPreferences systemBrowserClass
- openInMethod:method
+ SystemBrowser default openInMethod:method
]
].
+
+ "Modified: / 01-09-2017 / 14:23:04 / cg"
!
browseModuleExtensions