New subject: The Inbox: Tools-kfr.657.mcz

25 Nov 2015

      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 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]

  !

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