The Trunk: Tools-fbs.478.mcz

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: [  ]!