[Pkg] The Trunk: Morphic-kfr.933.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-kfr.933.mcz

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

Name: Morphic-kfr.933
Author: kfr
Time: 26 April 2015, 8:23:50.899 pm
UUID: 7a617d57-7c81-a640-9f49-aea7118f58ec
Ancestors: Morphic-mt.932

Scroll selected font into view

=============== Diff against Morphic-mt.932 ===============

Item was changed:
  ----- Method: FontChooserTool>>buildFontListWith: (in category 'toolbuilder') -----
  buildFontListWith: builder
  	"Build the font choosers list of font names"
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
+ 		name: #fontList;
  		list: #fontList; 
  		getIndex: #selectedFontIndex; 
  		setIndex: #selectedFontIndex:.
  	^listSpec
+ 	!
- !

Item was changed:
  ----- Method: FontChooserTool>>buildWith: (in category 'toolbuilder') -----
  buildWith: builder
  	"Create the ui for the browser"
  	"ToolBuilder open: self"
  	| windowSpec |
  	self offerStyleList ifTrue:[
  		windowSpec := self buildWindowWith: builder specs: {
  			(0 at 0 corner: 0.4 at 0.4) -> [self buildFontListWith: builder].
  			(0.4 at 0 corner: 0.8 at 0.4) -> [self buildStyleListWith: builder].
  			(0.8 at 0 corner: 1.0 at 0.4) -> [self buildPointSizeListWith: builder].
  			(0.0 at 0.4 corner: 1.0 at 0.88) -> [self buildPreviewPaneWith: builder].
  			(0.0 at 0.88 corner: 1 at 1) -> [self buildButtonBarWith: builder].
  		}.
  	] ifFalse:[
  		windowSpec := self buildWindowWith: builder specs: {
  			(0 at 0 corner: 0.7 at 0.4) -> [self buildFontListWith: builder].
  "			(0.4 at 0 corner: 0.8 at 0.4) -> [self buildStyleListWith: builder]."
  			(0.7 at 0 corner: 1.0 at 0.4) -> [self buildPointSizeListWith: builder].
  			(0.0 at 0.4 corner: 1.0 at 0.8) -> [self buildPreviewPaneWith: builder].
  			(0.0 at 0.8 corner: 1 at 1) -> [self buildButtonBarWith: builder].
  		}.
  	].
  	windowSpec extent: self initialExtent.
  	window := builder build: windowSpec.
  	"Yes, that's a hack. But it looks ugly with line breaks."
  	(builder widgetAt: #preview) textMorph wrapFlag: false.
+ 	(builder widgetAt: #fontList) scrollSelectionIntoView.
  	^window!