The Trunk: Tools-mt.623.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-mt.623.mcz

commits-2
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!