The Trunk: ToolBuilder-Morphic-mt.116.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.116.mcz

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

Name: ToolBuilder-Morphic-mt.116
Author: mt
Time: 2 April 2015, 9:38:28.131 am
UUID: 7a34bef1-14ce-d64f-bcfe-11020448a33b
Ancestors: ToolBuilder-Morphic-mt.115

Fixed resizing of search input and button bar in ListChooser.

=============== Diff against ToolBuilder-Morphic-mt.115 ===============

Item was changed:
  ----- Method: ListChooser>>buildWith: (in category 'building') -----
  buildWith: aBuilder
+ | windowSpec searchBarHeight buttonBarHeight |
- | windowSpec |
  builder := aBuilder.
+
+ searchBarHeight := Preferences standardDefaultTextFont height * 2.
+ buttonBarHeight := Preferences standardButtonFont height * 4.
+
  windowSpec := self buildWindowWith: builder specs: {
+ (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@searchBarHeight)) -> [self buildSearchMorphWith: builder].
+ (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@searchBarHeight corner: 0@buttonBarHeight negated)) -> [self buildListMorphWith: builder].
+ (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@buttonBarHeight negated corner: 0@0)) -> [self buildButtonBarWith: builder].
- (0@0 corner: 1@0.05) -> [self buildSearchMorphWith: builder].
- (0@0.05 corner: 1@0.9) -> [self buildListMorphWith: builder].
- (0@0.9 corner: 1@1) -> [self buildButtonBarWith: builder].
  }.
  windowSpec closeAction: #closed.
  windowSpec extent: self initialExtent.
  window := builder build: windowSpec.
 
 
  searchMorph := window submorphs detect:
  [ :each | each isKindOf: PluggableTextMorph ].
  searchMorph
  hideScrollBarsIndefinitely;
  acceptOnCR: true;
  setBalloonText: 'Type a string to filter down the listed items';
  onKeyStrokeSend: #keyStroke: to: self;
  hasUnacceptedEdits: true "force acceptOnCR to work even with no text entered".
  listMorph := window submorphs detect:
  [ :each | each isKindOf: PluggableListMorph ].
  ^ window!