[squeak-dev] The Trunk: Tools-rkrk.112.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-rkrk.112.mcz

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

Name: Tools-rkrk.112
Author: rkrk
Time: 24 August 2009, 3:07:54 am
UUID: f430afae-49f9-4bbf-a776-7297ace95735
Ancestors: Tools-rkrk.111

Preferences isn't used anymore for listing classes hierarchically in the browser. Use Browser listClassesHierarchically: true to enable the feature.

=============== Diff against Tools-rkrk.111 ===============

Item was changed:
  ----- Method: Browser>>classListIndexOf: (in category 'class list') -----
  classListIndexOf: className
 
  | classList |
  classList := self classList.
+ self class listClassesHierarchically
- Preferences listClassesHierarchically
  ifTrue: [classList := classList collect: [:ea | ea withoutLeadingBlanks asSymbol]].
  ^ classList indexOf: className.!

Item was changed:
  ----- Method: Browser>>classList (in category 'class list') -----
  classList
 
+ ^ self class listClassesHierarchically
- ^ Preferences listClassesHierarchically
  ifTrue: [self hierarchicalClassList]
  ifFalse: [self defaultClassList].!

Item was changed:
  ----- Method: Browser>>selectedClassName (in category 'class list') -----
  selectedClassName
 
  | className |
  className := self classList
  at: classListIndex
  ifAbsent: [^ nil].
+ self class listClassesHierarchically ifTrue: [
- Preferences listClassesHierarchically ifTrue: [
  className := className withoutLeadingBlanks asSymbol].
  ^ className.!