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.!
packages@lists.squeakfoundation.org