[squeak-dev] The Inbox: Tools-kfr.657.mcz
Chris Muller
ma.chris.m at gmail.com
Wed Nov 25 23:49:24 UTC 2015
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 at 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 at gmail.com> wrote:
>>
>> There is already an "alphabetize" function.
>>
>> On Wed, Nov 25, 2015 at 5:32 AM, <commits at 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 packageList
>> > packageListSorted'
>> > - 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]].
>> > + packageListSorted
>> > + ifTrue:[ ^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
>> > + packageListSorted
>> > + ifTrue:[ packageListSorted := false]
>> > + ifFalse:[ packageListSorted := true]
>> > + !
>> >
>> >
>>
>
More information about the Squeak-dev
mailing list
|