Hi Karl,
On 26.11.2015, at 06:35, karl ramberg karlramberg@gmail.com wrote:
Ok, I'll remove this change
I'm fine with the change. Also, contrary to 'alphabetize', you change just sorts the packages as presented, not in the system organizer, which has benefits on its own :)
Best regards -Tobias
Best, Karl
On Thu, Nov 26, 2015 at 12:49 AM, Chris Muller ma.chris.m@gmail.com wrote: Ah, looks like our difference is in the "Browser shows package pane" preference.
When it is off, there is a "alphabetize" there. When its on, the "alphabetize" is in the second pane. In both cases it alphabetizes all system categories..
On Wed, Nov 25, 2015 at 1:01 PM, karl ramberg karlramberg@gmail.com wrote:
In the package pane menu? I could not see it. It was just 4 items in the menu.
Best, Karl
On Wed, Nov 25, 2015 at 5:14 PM, Chris Muller asqueaker@gmail.com wrote:
There is already an "alphabetize" function.
On Wed, Nov 25, 2015 at 5:32 AM, commits@source.squeak.org wrote:
A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-kfr.657.mcz
==================== Summary ====================
Name: Tools-kfr.657 Author: kfr Time: 25 November 2015, 12:31:59.64 pm UUID: 4c535bc5-5f99-42b3-8caa-4dc9bafb00ba Ancestors: Tools-kfr.656
Adds a toggle to show packages alphabetically in the PackagePaneBrowser
=============== Diff against Tools-kfr.656 ===============
Item was changed: Browser subclass: #PackagePaneBrowser
instanceVariableNames: 'package packageListIndex packageListpackageListSorted'
instanceVariableNames: 'package packageListIndex packageList' classVariableNames: '' poolDictionaries: '' category: 'Tools-Browser'!!PackagePaneBrowser commentStamp: '<historical>' prior: 0! A package browser represents a hierarchical query path through an
organization of class and method information. It parses class categories into a two-level hierarchy on the first '-' character, giving "packages" (e.g., Magnitude, Collections, Graphics, etc.), and "categories" (e.g., Magnitude-General and Magnitude-Number).
Instance Variables: package <Symbol> the "category header," e.g., #Magnitudes or #Collections packageListIndex <Integer> The index in the package list packageList <OrderedCollection of String> the list of package names !
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...' findClass) ('recent classes...' recent) - ('reorganize' editSystemCategories)
('show alphabetically' togglePackageListSorted)('show unsorted' togglePackageListSorted) ('update'updatePackages)); yourself. !
Item was changed: ----- Method: PackagePaneBrowser>>packageList (in category 'package list') ----- packageList "Answer a list of the packages in the current system organization."
| str stream | str := Set new: 100. stream := WriteStream on: (Array new: 100). systemOrganizer categories do: [ :categ | | cats | cats := categ asString copyUpTo: $-. (str includes: cats) ifFalse: [str add: cats. stream nextPut: cats]].
packageListSortedifTrue:[ ^stream contents sorted]ifFalse:[ ^stream contents]!
^stream contents!Item was changed: ----- Method: PackagePaneBrowser>>systemOrganizer: (in category 'initialize-release') ----- systemOrganizer: aSystemOrganizer "Initialize the receiver as a perspective on the system organizer, aSystemOrganizer. Typically there is only one--the system variable SystemOrganization."
super systemOrganizer: aSystemOrganizer .
packageListIndex := 0.packageListSorted := false!
packageListIndex := 0!Item was added:
- ----- Method: PackagePaneBrowser>>togglePackageListSorted (in category
'package list') -----
- togglePackageListSorted
packageListSortedifTrue:[ packageListSorted := false]ifFalse:[ packageListSorted := true]!