equal
deleted
inserted
replaced
1216 |info name packageID methods| |
1216 |info name packageID methods| |
1217 |
1217 |
1218 info := self selectedModuleInfo. |
1218 info := self selectedModuleInfo. |
1219 |
1219 |
1220 name := info classNames detect:[:nm | self isExtensionName:nm]. |
1220 name := info classNames detect:[:nm | self isExtensionName:nm]. |
1221 packageID := (name copyWithoutLast:('_extensions' size)) asSymbol. |
1221 packageID := (name copyButLast:('_extensions' size)) asSymbol. |
1222 methods := Smalltalk allExtensionsForPackage:packageID. |
1222 methods := Smalltalk allExtensionsForPackage:packageID. |
1223 (UserPreferences browserClass) browseMethods:methods title:('Extensions for ',packageID). |
1223 (UserPreferences browserClass) browseMethods:methods title:('Extensions for ',packageID). |
1224 ! |
1224 ! |
1225 |
1225 |
1226 browseModulesProjectDefinition |
1226 browseModulesProjectDefinition |