The Trunk: Tools-bf.238.mcz

Bert Freudenberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-bf.238.mcz

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

Name: Tools-bf.238
Author: bf
Time: 30 April 2010, 1:12:28.458 am
UUID: d9aa92f2-c52f-4218-bad3-915e982cd394
Ancestors: Tools-bf.237, Tools-fbs.234

merge Tools-fbs.234
M7511: MessageNames uses Browser's better-named Frame creation methods.

=============== Diff against Tools-bf.237 ===============

Item was changed:
  ----- Method: MessageNames>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
  "ToolBuilder open: MessageNames new"
+ | searchPaneHeight windowSpec max result |
+ searchPaneHeight := self buttonHeight.
- | windowSpec max result |
  max := self wantsOptionalButtons ifTrue:[0.42] ifFalse:[0.5].
  windowSpec := self buildWindowWith: builder specs: {
+ (self topConstantHeightFrame: searchPaneHeight fromLeft: 0 width: 0.5) -> [self buildSearchPaneWith: builder].
+ (self selectorListFrame: max fromTop: searchPaneHeight) -> [self buildSelectorListWith: builder].
- (self searchPaneFrame: self buttonHeight) -> [self buildSearchPaneWith: builder].
- (self selectorListFrame: max fromTop: self buttonHeight) -> [self buildSelectorListWith: builder].
  (0.5@0.0 corner: 1.0@max) -> [self buildMessageListWith: builder].
  (0@max corner: 1@1) -> [self buildCodePaneWith: builder].
  }.
 
  result := builder build: windowSpec.
  searchPane := builder widgetAt: #search.
  ^result!

Item was removed:
- ----- Method: MessageNames>>searchPaneFrame: (in category 'toolbuilder') -----
- searchPaneFrame: height
- ^LayoutFrame new
- leftFraction: 0 offset: 0;
- topFraction: 0 offset: 0;
- rightFraction: 0.5 offset: 0;
- bottomFraction: 0 offset: height.!