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