Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.597.mcz

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

Name: Tools-mt.597
Author: mt
Time: 19 April 2015, 9:10:51.874 am
UUID: 9c2210af-6512-6c44-87f2-d0f5ff76d8c1
Ancestors: Tools-kfr.596

Less vertical space consumed in top pane in hierarchy browser.

=============== Diff against Tools-kfr.596 ===============

Item was changed:
  ----- Method: Browser>>buildClassListSingletonWith: (in category 'toolbuilder') -----
  buildClassListSingletonWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
  		list: #classListSingleton; 
  		getIndex: #indexIsOne; 
  		setIndex: #indexIsOne:; 
  		menu: #classListMenu:shifted:;
+ 		keyPress: #classListKey:from:;
+ 		hScrollBarPolicy: #never;
+ 		vScrollBarPolicy: #never.
- 		keyPress: #classListKey:from:.
  	^listSpec
  !

Item was changed:
  ----- Method: Browser>>buildMessageListCatSingletonWith: (in category 'toolbuilder') -----
  buildMessageListCatSingletonWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
  		list: #messageCatListSingleton; 
  		getIndex: #indexIsOne; 
  		setIndex: #indexIsOne:; 
+ 		menu: #messageCategoryMenu:;
+ 		hScrollBarPolicy: #never;
+ 		vScrollBarPolicy: #never.
- 		menu: #messageCategoryMenu:.
  	^listSpec
  !

Item was changed:
  ----- Method: Browser>>buildSystemCatListSingletonWith: (in category 'toolbuilder') -----
  buildSystemCatListSingletonWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
  		list: #systemCategorySingleton; 
  		getIndex: #indexIsOne; 
  		setIndex: #indexIsOne:; 
  		menu: #systemCategoryMenu:; 
+ 		keyPress: #systemCatSingletonKey:from:;
+ 		hScrollBarPolicy: #never;
+ 		vScrollBarPolicy: #never.
- 		keyPress: #systemCatSingletonKey:from:.
  	^listSpec!

Item was changed:
  ----- Method: Browser>>openSystemCatEditString: (in category 'initialize-release') -----
  openSystemCatEditString: aString
  	"Create a pluggable version of all the views for a Browser, including views and controllers.  The top list view is of the currently selected system class category--a single item list."
  	"Example:
  		Browser new browseAllClasses.
  	"
  	| builder catPaneHeight max |
+ 	catPaneHeight := Preferences standardListFont height + 3 "top margin/border" + 3 "bottom margin/border".
- 	catPaneHeight := 0.16.
  	builder := ToolBuilder default.
+ 	max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4].
- 	max := self wantsOptionalButtons ifTrue:[0.32 + catPaneHeight] ifFalse:[0.4 + catPaneHeight].
  	^self buildWindowWith: builder specs: {
+ 		(LayoutFrame fractions: (0 at 0 corner: 1.0 at 0) offsets: (0 at 0 corner: 0 at catPaneHeight)) -> [self buildSystemCatListSingletonWith: builder].
+ 		((self classListFrame: max fromTop: 0 fromLeft: 0 width: 0.333)
+ 			topOffset: catPaneHeight) -> [self buildClassListWith: builder].
- 		(0 at 0 corner: 1.0 at catPaneHeight) -> [self buildSystemCatListSingletonWith: builder].
- 		(self classListFrame: max fromTop: catPaneHeight fromLeft: 0 width: 0.333) -> [self buildClassListWith: builder].
  		(self switchesFrame: max fromLeft: 0 width: 0.333) -> [self buildSwitchesWith: builder].
+ 		(LayoutFrame fractions: (0.333 at 0 corner: 0.666 at max) offsets: (0 at catPaneHeight corner: 0 at 0)) -> [self buildMessageCategoryListWith: builder].
+ 		(LayoutFrame fractions: (0.666 at 0 corner: 1 at max) offsets: (0 at catPaneHeight corner: 0 at 0)) -> [self buildMessageListWith: builder].
- 		(0.333 at catPaneHeight corner: 0.666 at max) -> [self buildMessageCategoryListWith: builder].
- 		(0.666 at catPaneHeight corner: 1 at max) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}!