[Pkg] The Trunk: Tools-mt.623.mcz

[commits at source.squeak.org]

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

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

Name: Tools-mt.623
Author: mt
Time: 8 May 2015, 11:11:07.916 am
UUID: 4f937cd2-ceaa-de4a-b47c-c4762865eb22
Ancestors: Tools-mt.622

Re-order instance/?/class switches in browsers to instance/class/? as discussed here:

http://forum.world.st/Changing-button-groups-order-in-browsers-tp4823991.html

Assumption: Switching between instance/class is used more often than ? . Also, instance/class are more cohesive but ? is something special.

=============== Diff against Tools-mt.622 ===============

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