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