Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.478.mcz

==================== Summary ====================

Name: Tools-fbs.478
Author: fbs
Time: 2 July 2013, 8:55:00.661 pm
UUID: e23933e2-9027-7b4f-97a8-c1c5dc0620de
Ancestors: Tools-fbs.477

Revert accidental commit of alpha quality exploratory hack.

=============== Diff against Tools-fbs.477 ===============

Item was changed:
  ----- Method: Browser>>dragFromClassList: (in category 'drag and drop') -----
  dragFromClassList: index 
  	"Drag a class from the browser"
  	| name envt |
  	(name := self classList at: index) ifNil: [ ^ nil ].
  	(envt := self selectedEnvironment) ifNil: [ ^ nil ].
- 	"To maintain our current place in the list, try select the next class."
- 	(self classList size = 1) ifTrue: [self selectClassNamed: self classList first].
- 	(self classList size > 2) ifTrue: [ | currClassName classNames |
- 		currClassName :=  self selectedClassName.
- 		classNames := self classList.
- 		self selectClassNamed: (currClassName = classNames last
- 			ifTrue: [self classList before: currClassName]
- 			ifFalse: [self classList after: currClassName])].
  	^ envt
  		at: name withBlanksTrimmed asSymbol
  		ifAbsent: [  ]!