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

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

Name: Tools-mt.611
Author: mt
Time: 30 April 2015, 11:56:08.088 am
UUID: c60f763b-2f7f-224f-b789-42f04dd883aa
Ancestors: Tools-mt.610

Minor cosmetic, pixel-based changes in browsers, package browsers, and debuggers.

=============== Diff against Tools-mt.610 ===============

Item was changed:
  ----- Method: Browser>>buildSwitchesWith: (in category 'toolbuilder') -----
  buildSwitchesWith: builder
  	"Build the instance/comment/class switch"
  
  	| panelSpec buttonSpec |
  	panelSpec := builder pluggablePanelSpec new
  		layout: #horizontal;
  		children: OrderedCollection new;
  		yourself.
  
  	buttonSpec := builder pluggableButtonSpec new.
  	buttonSpec 
  			model: self;
  			label: 'instance'; 
  			state: #instanceMessagesIndicated; 
  			action: #indicateInstanceMessages.
  	panelSpec children addLast: buttonSpec.
  
  	buttonSpec := builder pluggableButtonSpec new.
  	buttonSpec 
  			model: self;
+ 			label: '?';
+ 			help: 'Cycle between definition, comment, and hierarchy view' translated; 
- 			label: '?'; 
  			state: #classCommentIndicated; 
  			action: #plusButtonHit.
  	panelSpec children addLast: buttonSpec.
  
  	buttonSpec := builder pluggableButtonSpec new.
  	buttonSpec 
  			model: self;
  			label: 'class'; 
  			state: #classMessagesIndicated; 
  			action: #indicateClassMessages.
  	panelSpec children addLast: buttonSpec.
  
  	^panelSpec!

Item was changed:
  ----- Method: Browser>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
  	"Create the ui for the browser"
  	| windowSpec max |
  	max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].
  	windowSpec := self buildWindowWith: builder specs: {
  		(0 at 0 corner: 0.25 at max) -> [self buildSystemCategoryListWith: builder].
+ 		(self classListFrame: max fromLeft: 0.25 width: 0.25) -> [self buildClassListWith: builder].
+ 		(self switchesFrame: max fromLeft: 0.25 width: 0.25) -> [self buildSwitchesWith: builder].
- 		(0.25 at 0 corner: 0.5@(max-0.08)) -> [self buildClassListWith: builder].
- 		(0.25@(max-0.08) corner: 0.5 at max) -> [self buildSwitchesWith: builder].
  		(0.5 at 0 corner: 0.75 at max) -> [self buildMessageCategoryListWith: builder].
  		(0.75 at 0 corner: 1 at max) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}.
  	^builder build: windowSpec!

Item was changed:
  ----- Method: Browser>>classListFrame:fromTop:fromLeft:width: (in category 'initialize-release') -----
  classListFrame: bottomFraction fromTop: topFraction fromLeft: leftFraction width: rightFraction
  	^LayoutFrame new
  		leftFraction: leftFraction offset: 0;
  		topFraction: topFraction offset: 0;
  		rightFraction: (leftFraction + rightFraction) offset: 0;
+ 		bottomFraction: bottomFraction offset: self buttonHeight negated!
- 		bottomFraction: bottomFraction offset: self buttonHeight negated - 3!

Item was changed:
  ----- Method: Browser>>openOnClassWithEditString: (in category 'initialize-release') -----
  openOnClassWithEditString: aString
  	"Create a pluggable version of all the views for a Browser, including views and controllers."
  	"Example:
  		Browser newOnClass: Browser.
  	"
  	| builder max |
  	builder := ToolBuilder default.
  	max := self wantsOptionalButtons ifTrue:[0.32] ifFalse:[0.4].
  	^self buildWindowWith: builder specs: {
+ 		(self topConstantHeightFrame: self buttonHeight fromLeft: 0 width: 0.5) -> [self buildClassListSingletonWith: builder].
- 		(0.0 at 0.0 corner: 0.5 at 0.08) -> [self buildClassListSingletonWith: builder].
  		(self frameOffsetFromTop: self buttonHeight fromLeft: 0 width: 0.5 bottomFraction: max) -> [self buildMessageCategoryListWith: builder].
  		(self topConstantHeightFrame: self buttonHeight fromLeft: 0.5 width: 0.5) -> [self buildSwitchesWith: builder].
  		(self frameOffsetFromTop: self buttonHeight fromLeft: 0.5 width: 0.5 bottomFraction: max) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}
  !

Item was changed:
  ----- Method: Browser>>switchesFrame:fromLeft:width: (in category 'initialize-release') -----
  switchesFrame: bottomFraction fromLeft: leftFraction width: rightFraction
  	^LayoutFrame new
  		leftFraction: leftFraction offset: 0;
+ 		topFraction: bottomFraction offset: self buttonHeight negated;
- 		topFraction: bottomFraction offset: self buttonHeight negated - 4;
  		rightFraction: (leftFraction + rightFraction) offset: 0;
  		bottomFraction: bottomFraction offset: 0!

Item was changed:
  ----- Method: Debugger>>contextStackFrame (in category 'toolbuilder') -----
  contextStackFrame
+ 
+ 	| topOffset |
- 	| spacing topOffset |
- 	spacing := 3.
  	topOffset := self wantsOptionalButtons
+ 		ifTrue: [self buttonHeight]
+ 		ifFalse: [0].
- 		ifTrue: [self buttonHeight + spacing]
- 		ifFalse: [spacing].
  
  	^LayoutFrame new
  		leftFraction: 0 offset: 0;
  		topFraction: 0 offset: topOffset;
  		rightFraction: 1 offset: 0;
  		bottomFraction: 1 offset: 0!

Item was changed:
  ----- Method: PackagePaneBrowser>>openEditString: (in category 'initialize-release') -----
  openEditString: aString
          "Create a pluggable version of all the views for a Browser, including views and controllers."
  	"Example: 
  		PackagePaneBrowser fullOnClass: Browser.
  	"
  	| builder max |
  	builder := ToolBuilder default.
  	max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].
  	^self buildWindowWith: builder specs: {
  		(0 at 0 corner: 0.15 at max) -> [self buildPackageListWith: builder].
  		(0.15 at 0 corner: 0.35 at max) -> [self buildSystemCategoryListWith: builder].
+ 		(self classListFrame: max fromLeft: 0.35 width: 0.25) -> [self buildClassListWith: builder].
+ 		(self switchesFrame: max fromLeft: 0.35 width: 0.25) -> [self buildSwitchesWith: builder].
- 		(0.35 at 0 corner: 0.6@(max-0.1)) -> [self buildClassListWith: builder].
- 		(0.35@(max-0.1) corner: 0.6 at max) -> [self buildSwitchesWith: builder].
  		(0.6 at 0 corner: 0.75 at max) -> [self buildMessageCategoryListWith: builder].
  		(0.75 at 0 corner: 1 at max) -> [self buildMessageListWith: builder].
  		(0 at max corner: 1 at 1) -> [self buildCodePaneWith: builder].
  	}!