[squeak-dev] The Trunk: Tools-ar.126.mcz

Andreas Raab uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ar.126.mcz

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

Name: Tools-ar.126
Author: ar
Time: 18 September 2009, 10:10:22 am
UUID: 9facd3fb-d4f7-1240-b1a4-2629f384ebc4
Ancestors: Tools-ar.125

Face Lift: Minor Botox injections to lift the height of various button rows.

=============== Diff against Tools-ar.125 ===============

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@0 corner: 0.25@max) -> [self buildSystemCategoryListWith: builder].
+ (0.25@0 corner: 0.5@(max-0.08)) -> [self buildClassListWith: builder].
+ (0.25@(max-0.08) corner: 0.5@max) -> [self buildSwitchesWith: builder].
- (0.25@0 corner: 0.5@(max-0.1)) -> [self buildClassListWith: builder].
- (0.25@(max-0.1) corner: 0.5@max) -> [self buildSwitchesWith: builder].
  (0.5@0 corner: 0.75@max) -> [self buildMessageCategoryListWith: builder].
  (0.75@0 corner: 1@max) -> [self buildMessageListWith: builder].
  (0@max corner: 1@1) -> [self buildCodePaneWith: builder].
  }.
  ^builder build: windowSpec!

Item was changed:
  ----- Method: Browser>>buildSwitchesWith: (in category 'toolbuilder') -----
  buildSwitchesWith: builder
  "Build the instance/comment/class switch"
  | panelSpec buttonSpec |
  panelSpec := builder pluggablePanelSpec new.
  panelSpec children: OrderedCollection new.
 
  buttonSpec := builder pluggableButtonSpec new.
  buttonSpec
  model: self;
  label: 'instance';
  state: #instanceMessagesIndicated;
  action: #indicateInstanceMessages;
+ frame: (0@0 corner: 0.39@1).
- frame: (0@0 corner: 0.4@1).
- panelSpec children addLast: buttonSpec.
-
- buttonSpec := builder pluggableButtonSpec new.
- buttonSpec
- model: self;
- label: '?';
- state: #classCommentIndicated;
- action: #plusButtonHit;
- frame: (0.4@0 corner: 0.6@1).
  panelSpec children addLast: buttonSpec.
 
  buttonSpec := builder pluggableButtonSpec new.
  buttonSpec
  model: self;
+ label: '?';
+ state: #classCommentIndicated;
+ action: #plusButtonHit;
+ frame: (0.41@0 corner: 0.59@1).
+ panelSpec children addLast: buttonSpec.
+
+ buttonSpec := builder pluggableButtonSpec new.
+ buttonSpec
+ model: self;
  label: 'class';
  state: #classMessagesIndicated;
  action: #indicateClassMessages;
+ frame: (0.61@0 corner: 1@1).
- frame: (0.6@0 corner: 1@1).
  panelSpec children addLast: buttonSpec.
 
  ^panelSpec!

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

Item was changed:
  ----- Method: Browser>>addClassAndSwitchesTo:at:with: (in category 'toolbuilder') -----
  addClassAndSwitchesTo: windowSpec at: frame with: builder
  | listSpec panelSpec |
 
  listSpec := self buildClassListWith: builder.
+ listSpec frame: (frame origin corner: frame right @ (frame bottom - 0.08)).
- listSpec frame: (frame origin corner: frame right @ (frame bottom - 0.1)).
  windowSpec children add: listSpec.
 
  panelSpec := self buildSwitchesWith: builder.
+ panelSpec frame: (frame left@(frame bottom - 0.08) corner: frame corner).
- panelSpec frame: (frame left@(frame bottom - 0.1) corner: frame corner).
  windowSpec children addLast: panelSpec.!

Item was changed:
  ----- Method: CodeHolder>>buildCodePaneWith: (in category 'toolbuilder') -----
  buildCodePaneWith: builder
  | textSpec top buttonSpec annoSpec |
  self wantsOptionalButtons ifTrue:[
  top := builder pluggablePanelSpec new.
  top children: OrderedCollection new.
  buttonSpec := self buildOptionalButtonsWith: builder.
+ buttonSpec frame: (0@0 corner: 1@0.11).
- buttonSpec frame: (0@0 corner: 1@0.12).
  top children add: buttonSpec.
  ].
  textSpec := builder pluggableCodePaneSpec new.
  textSpec
  model: self;
  getText: #contents;
  setText: #contents:notifying:;
  selection: #contentsSelection;
  menu: #codePaneMenu:shifted:.
  self wantsAnnotationPane ifTrue:[
  top ifNil:[
  top := builder pluggablePanelSpec new.
  top children: OrderedCollection new.
  ].
  annoSpec := builder pluggableInputFieldSpec new.
  annoSpec model: self; getText: #annotation.
  annoSpec frame: (0@0.88 corner: 1@1).
  top children add: annoSpec.
  ].
  top ifNotNil:[
  textSpec frame: (0 @ (buttonSpec ifNil:[0] ifNotNil:[0.12])
  corner: 1 @ (annoSpec ifNil:[1] ifNotNil:[0.88])).
  top children add: textSpec.
  ].
  ^top ifNil:[textSpec]!