[squeak-dev] The Inbox: Tools-kfr.657.mcz

karl ramberg karlramberg at gmail.com
Wed Nov 25 19:01:57 UTC 2015


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/20151125/97828ed3/attachment-0001.htm


More information about the Squeak-dev mailing list