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 at 0 corner: 1 at 0) offsets: (0 at 0 corner: 0 at searchBarHeight)) -> [self buildSearchMorphWith: builder].
+ 		(LayoutFrame fractions: (0 at 0 corner: 1 at 1) offsets: (0 at searchBarHeight corner: 0 at buttonBarHeight negated)) -> [self buildListMorphWith: builder].
+ 		(LayoutFrame fractions: (0 at 1 corner: 1 at 1) offsets: (0 at buttonBarHeight negated corner: 0 at 0)) -> [self buildButtonBarWith: builder].
- 		(0 at 0 corner: 1 at 0.05) -> [self buildSearchMorphWith: builder].
- 		(0 at 0.05 corner: 1 at 0.9) -> [self buildListMorphWith: builder].
- 		(0 at 0.9 corner: 1 at 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!