The Inbox: Tools-fbs.234.mcz

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

The Inbox: Tools-fbs.234.mcz

commits-2
A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-fbs.234.mcz

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

Name: Tools-fbs.234
Author: fbs
Time: 23 April 2010, 10:33:38.711 am
UUID: 2e63bccb-791d-b94a-903d-7e9aeb4db33a
Ancestors: Tools-ar.233

M7511: MessageNames uses Browser's better-named Frame creation methods.

=============== Diff against Tools-ar.233 ===============

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.!