<div dir="ltr">Ok,<div>I'll remove this change</div><div><br></div><div>Best,</div><div>Karl</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Nov 26, 2015 at 12:49 AM, Chris Muller <span dir="ltr"><<a href="mailto:ma.chris.m@gmail.com" target="_blank">ma.chris.m@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Ah, looks like our difference is in the "Browser shows package pane" preference.<br>
<br>
When it is off, there is a "alphabetize" there. When its on, the<br>
"alphabetize" is in the second pane. In both cases it alphabetizes<br>
all system categories..<br>
<div class="HOEnZb"><div class="h5"><br>
On Wed, Nov 25, 2015 at 1:01 PM, karl ramberg <<a href="mailto:karlramberg@gmail.com">karlramberg@gmail.com</a>> wrote:<br>
> In the package pane menu?<br>
> I could not see it. It was just 4 items in the menu.<br>
><br>
> Best,<br>
> Karl<br>
><br>
><br>
> On Wed, Nov 25, 2015 at 5:14 PM, Chris Muller <<a href="mailto:asqueaker@gmail.com">asqueaker@gmail.com</a>> wrote:<br>
>><br>
>> There is already an "alphabetize" function.<br>
>><br>
>> On Wed, Nov 25, 2015 at 5:32 AM, <<a href="mailto:commits@source.squeak.org">commits@source.squeak.org</a>> wrote:<br>
>> > A new version of Tools was added to project The Inbox:<br>
>> > <a href="http://source.squeak.org/inbox/Tools-kfr.657.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/inbox/Tools-kfr.657.mcz</a><br>
>> ><br>
>> > ==================== Summary ====================<br>
>> ><br>
>> > Name: Tools-kfr.657<br>
>> > Author: kfr<br>
>> > Time: 25 November 2015, 12:31:59.64 pm<br>
>> > UUID: 4c535bc5-5f99-42b3-8caa-4dc9bafb00ba<br>
>> > Ancestors: Tools-kfr.656<br>
>> ><br>
>> > Adds a toggle to show packages alphabetically in the PackagePaneBrowser<br>
>> ><br>
>> > =============== Diff against Tools-kfr.656 ===============<br>
>> ><br>
>> > Item was changed:<br>
>> > Browser subclass: #PackagePaneBrowser<br>
>> > + instanceVariableNames: 'package packageListIndex packageList<br>
>> > packageListSorted'<br>
>> > - instanceVariableNames: 'package packageListIndex packageList'<br>
>> > classVariableNames: ''<br>
>> > poolDictionaries: ''<br>
>> > category: 'Tools-Browser'!<br>
>> ><br>
>> > !PackagePaneBrowser commentStamp: '<historical>' prior: 0!<br>
>> > A package browser represents a hierarchical query path through an<br>
>> > organization of class and method information. It parses class categories<br>
>> > into a two-level hierarchy on the first '-' character, giving "packages"<br>
>> > (e.g., Magnitude, Collections, Graphics, etc.), and "categories" (e.g.,<br>
>> > Magnitude-General and Magnitude-Number).<br>
>> ><br>
>> > Instance Variables:<br>
>> > package <Symbol> the "category header," e.g., #Magnitudes or<br>
>> > #Collections<br>
>> > packageListIndex <Integer> The index in the package list<br>
>> > packageList <OrderedCollection of String> the list of package<br>
>> > names<br>
>> > !<br>
>> ><br>
>> > Item was changed:<br>
>> > ----- Method: PackagePaneBrowser>>mainPackageMenu: (in category<br>
>> > 'package list') -----<br>
>> > mainPackageMenu: aMenu<br>
>> > "Answer a Menu of operations on class packages to be<br>
>> > displayed when the operate menu button is pressed."<br>
>> > <packageListMenu><br>
>> > ^aMenu addList: #(<br>
>> > ('find class...' findClass)<br>
>> > ('recent classes...' recent)<br>
>> > -<br>
>> > ('reorganize' editSystemCategories)<br>
>> > + ('show alphabetically' togglePackageListSorted)<br>
>> > + ('show unsorted' togglePackageListSorted)<br>
>> > ('update'<br>
>> > updatePackages));<br>
>> > yourself.<br>
>> > !<br>
>> ><br>
>> > Item was changed:<br>
>> > ----- Method: PackagePaneBrowser>>packageList (in category 'package<br>
>> > list') -----<br>
>> > packageList<br>
>> > "Answer a list of the packages in the current system<br>
>> > organization."<br>
>> ><br>
>> > | str stream |<br>
>> > str := Set new: 100.<br>
>> > stream := WriteStream on: (Array new: 100).<br>
>> > systemOrganizer categories do:<br>
>> > [ :categ | | cats |<br>
>> > cats := categ asString copyUpTo: $-.<br>
>> > (str includes: cats) ifFalse:<br>
>> > [str add: cats.<br>
>> > stream nextPut: cats]].<br>
>> > + packageListSorted<br>
>> > + ifTrue:[ ^stream contents sorted]<br>
>> > + ifFalse:[ ^stream contents]!<br>
>> > - ^stream contents!<br>
>> ><br>
>> > Item was changed:<br>
>> > ----- Method: PackagePaneBrowser>>systemOrganizer: (in category<br>
>> > 'initialize-release') -----<br>
>> > systemOrganizer: aSystemOrganizer<br>
>> > "Initialize the receiver as a perspective on the system<br>
>> > organizer,<br>
>> > aSystemOrganizer. Typically there is only one--the system<br>
>> > variable<br>
>> > SystemOrganization."<br>
>> ><br>
>> > super systemOrganizer: aSystemOrganizer .<br>
>> > + packageListIndex := 0.<br>
>> > + packageListSorted := false!<br>
>> > - packageListIndex := 0!<br>
>> ><br>
>> > Item was added:<br>
>> > + ----- Method: PackagePaneBrowser>>togglePackageListSorted (in category<br>
>> > 'package list') -----<br>
>> > + togglePackageListSorted<br>
>> > + packageListSorted<br>
>> > + ifTrue:[ packageListSorted := false]<br>
>> > + ifFalse:[ packageListSorted := true]<br>
>> > + !<br>
>> ><br>
>> ><br>
>><br>
><br>
</div></div></blockquote></div><br></div>