[squeak-dev] The Inbox: Tools-kfr.657.mcz
karl ramberg
karlramberg at gmail.com
Thu Nov 26 05:35:31 UTC 2015
Ok,
I'll remove this change
Best,
Karl
On Thu, Nov 26, 2015 at 12:49 AM, Chris Muller <ma.chris.m at 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 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]
> >> > + !
> >> >
> >> >
> >>
> >
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20151126/3bda9721/attachment.htm
More information about the Squeak-dev
mailing list
|