[squeak-dev] The Inbox: Tools-ct.1065.mczThiede, Christoph Christoph.Thiede at student.hpi.uni-potsdam.deMon Oct 4 14:25:31 UTC 2021
[cid:22ae7dc5-95ca-4375-bcdc-0ed01465bfce] [cid:117179d6-8f25-46e1-88de-204a7609ea92] ________________________________ Von: Squeak-dev <squeak-dev-bounces at lists.squeakfoundation.org> im Auftrag von commits at source.squeak.org <commits at source.squeak.org> Gesendet: Montag, 4. Oktober 2021 16:24:18 An: squeak-dev at lists.squeakfoundation.org Betreff: [squeak-dev] The Inbox: Tools-ct.1065.mcz A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1065.mcz ==================== Summary ==================== Name: Tools-ct.1065 Author: ct Time: 4 October 2021, 4:24:14.796947 pm UUID: b693bc16-16c5-bc48-a47e-df8b2fcc255a Ancestors: Tools-eem.1064 Adds menu items to browse the extensions, dependencies, and the package of a system category or package in the relevant browsers' columns. Depends on System-ct.1245. Supersedes Tools-ct.930. Also integrates Tools-ct.961 for package browsing instead of adding new merge conflicts (though this increases the size of this version -- please report back whether this was a good decision or not). =============== Diff against Tools-eem.1064 =============== Item was added: + ----- Method: Browser>>browseExtensions (in category 'system category functions') ----- + browseExtensions + + ^ self systemNavigation browseAllExtensionsOfCategory: self selectedSystemCategory! Item was added: + ----- Method: Browser>>browseInvertedPackageDependencies (in category 'system category functions') ----- + browseInvertedPackageDependencies + + ^ DependencyBrowser openInvertedOnPackage: self selectedPackage! Item was added: + ----- Method: Browser>>browsePackage (in category 'system category functions') ----- + browsePackage + + ^ self selectedPackage browse! Item was added: + ----- Method: Browser>>browsePackageDependencies (in category 'system category functions') ----- + browsePackageDependencies + + ^ DependencyBrowser openOnPackage: self selectedPackage! Item was added: + ----- Method: Browser>>browsePackageExtensions (in category 'system category functions') ----- + browsePackageExtensions + + ^ self systemNavigation browseAllExtensionsOfPackage: self selectedPackage! Item was changed: ----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') ----- mainSystemCategoryMenu: aMenu <systemCategoryMenu> ^ aMenu addList: #( + ('find class... (f)' findClass) + ('back... (b)' recent) - ('find class... (f)' findClass) - ('back... (b)' recent) - + ('browse all' browseAllClasses) + ('browse' buildSystemCategoryBrowser) + ('browse extensions' browseExtensions) - ('browse all' browseAllClasses) - ('browse' buildSystemCategoryBrowser) - + ('browse package' browsePackage) + ('browse package extensions' browsePackageExtensions) + ('browse dependencies' browsePackageDependencies) + ('browse inverted dependencies' browseInvertedPackageDependencies) - ('printOut' printOutSystemCategory) - ('fileOut' fileOutSystemCategory) - + ('printOut' printOutSystemCategory) + ('fileOut' fileOutSystemCategory) - ('reorganize' editSystemCategories) - ('alphabetize' alphabetizeSystemCategories) - + ('reorganize' editSystemCategories) + ('alphabetize' alphabetizeSystemCategories) + - + ('update' updateSystemCategories) + ('add item...' addSystemCategory) + ('rename...' renameSystemCategory) + ('remove (x)' removeSystemCategory)); + yourself! - ('update' updateSystemCategories) - ('add item...' addSystemCategory) - ('rename...' renameSystemCategory) - ('remove (x)' removeSystemCategory)); - yourself - ! Item was added: + ----- Method: Browser>>selectedPackage (in category 'system category list') ----- + selectedPackage + + ^ self environment packageOrganizer packageOfSystemCategory: self selectedSystemCategory! Item was changed: ----- Method: DependencyBrowser class>>openInvertedOn: (in category 'opening') ----- openInvertedOn: requiredPackageNames "DependencyBrowser openInvertedOn: #(Monticello)" | model | model := self new. ^ ToolBuilder open: ( model + packageList: (Cursor wait showWhile: [ + model packageList select: [:packageName | + model computePackageDependencies: packageName. + model packageDeps includesAnyOf: requiredPackageNames]]); - packageList: (model packageList select: [:packageName | - model computePackageDependencies: packageName. - model packageDeps includesAnyOf: requiredPackageNames]); windowTitle: ('Dependency Browser (inverted on {1})' format: {requiredPackageNames}); yourself) ! Item was added: + ----- Method: DependencyBrowser class>>openInvertedOnPackage: (in category 'opening') ----- + openInvertedOnPackage: aPackageInfo + "DependencyBrowser openInvertedOnPackage: Morph packageInfo" + + ^ self openInvertedOn: {aPackageInfo name}! Item was added: + ----- Method: DependencyBrowser class>>openOnPackage: (in category 'opening') ----- + openOnPackage: aPackageInfo + "DependencyBrowser openOnPackage: Morph packageInfo" + + ^ ToolBuilder open: (self new + selectPackage: aPackageInfo name; + yourself)! Item was added: + ----- Method: DependencyBrowser>>selectPackage: (in category 'class list') ----- + selectPackage: packageName + + self packageListIndex: (self packageList indexOf: packageName).! Item was added: + ----- Method: DependencyBrowser>>selectedPackage (in category 'class list') ----- + selectedPackage + + ^ self packageList at: self packageListIndex! Item was added: + ----- Method: PackagePaneBrowser class>>fullOnPackage: (in category 'instance creation') ----- + fullOnPackage: aPackage + + ^ self new + selectPackageNamed: aPackage name; + buildAndOpenFullBrowser! Item was changed: ----- Method: PackagePaneBrowser>>mainPackageMenu: (in category 'package list') ----- mainPackageMenu: aMenu "Answer a Menu of operations on class packages to be displayed when the operate menu button is pressed." <packageListMenu> ^aMenu addList: #( + ('find class... (f)' findClass) + ('back... (b)' recent) - ('find class...' findClass) - ('recent classes...' recent) - + ('browse extensions' browsePackageExtensions) + ('browse dependencies' browsePackageDependencies) + ('browse inverted dependencies' browseInvertedPackageDependencies) + - + ('reorganize' editSystemCategories) + ('alphabetize' alphabetizeSystemCategories) - ('reorganize' editSystemCategories) - ('alphabetize' alphabetizeSystemCategories) - + ('update' updatePackages)); + yourself.! - ('update' updatePackages)); - yourself. - ! Item was changed: ----- Method: PackagePaneBrowser>>packageListKey:from: (in category 'package list') ----- packageListKey: aChar from: view aChar == $f ifTrue: [^ self findClass]. + aChar == $b ifTrue: [^ self recent]. ^ self classListKey: aChar from: view! Item was added: + ----- Method: PackagePaneBrowser>>selectPackageNamed: (in category 'package list') ----- + selectPackageNamed: aPackageName + + self packageListIndex: (self packageList indexOf: aPackageName). + self changed: #packageListIndex.! Item was added: + ----- Method: PackagePaneBrowser>>selectedPackage (in category 'package list') ----- + selectedPackage + + ^ self package + ifNotNil: [:package | PackageInfo named: package] + ifNil: [super selectedPackage]! Item was changed: ----- Method: StandardToolSet class>>browsePackage: (in category 'browsing') ----- browsePackage: aPackageInfo + ^ PackagePaneBrowser fullOnPackage: aPackageInfo! - self flag: #discuss. "mt: Maybe use the package-pane browser?" - "PackagePaneBrowser fullOnCategory: aPackageInfo name" - - ^ self browseCategory: aPackageInfo systemCategories first - - ! -------------- next part -------------- An HTML attachment was scrubbed... URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211004/62c8e5ca/attachment-0001.html> -------------- next part -------------- A non-text attachment was scrubbed... Name: pastedImage.png Type: image/png Size: 88617 bytes Desc: pastedImage.png URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211004/62c8e5ca/attachment-0002.png> -------------- next part -------------- A non-text attachment was scrubbed... Name: pastedImage.png Type: image/png Size: 26465 bytes Desc: pastedImage.png URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20211004/62c8e5ca/attachment-0003.png>
More information about the Squeak-dev mailing list |
