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

commits at source.squeak.org commits at source.squeak.org
Mon Aug 24 01:09:24 UTC 2009


Robert Krahn uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/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.!




More information about the Squeak-dev mailing list