[squeak-dev] The Trunk: ToolBuilder-MVC-ar.16.mcz

Andreas Raab uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-ar.16.mcz

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

Name: ToolBuilder-MVC-ar.16
Author: ar
Time: 7 September 2009, 3:19:42 am
UUID: e074cd6c-636c-8f40-8cb7-a8ff72cff81b
Ancestors: ToolBuilder-MVC-ar.15

Move the old TextStyle>>mvcPromptFor: implementation here.

=============== Diff against ToolBuilder-MVC-ar.15 ===============

Item was changed:
  ----- Method: MVCUIManager>>chooseFont:for:setSelector:getSelector: (in category 'ui requests') -----
+ chooseFont: aPrompt for: aTarget setSelector: setSelector getSelector: getSelector
+ "MVC Only!! prompt for a font and if one is provided, send it to aTarget using a message with selector aSelector."
+ | aMenu aChoice aStyle namesAndSizes aFont |
+ aMenu := CustomMenu new.
+ TextStyle actualTextStyles keysSortedSafely do:
+ [:styleName |
+ aMenu add: styleName action: styleName].
+ aChoice := aMenu startUpWithCaption: aPrompt.
+ aChoice ifNil: [^ self].
+ aMenu := CustomMenu new.
+ aStyle := TextStyle named: aChoice.
+ (namesAndSizes := aStyle fontNamesWithPointSizes) do:
+ [:aString | aMenu add: aString action: aString].
+ aChoice := aMenu startUpWithCaption: nil.
+ aChoice ifNil: [^ self].
+ aFont := aStyle fontAt: (namesAndSizes indexOf: aChoice).
+ aTarget perform: setSelector with: aFont!
- chooseFont: titleString for: aModel setSelector: setSelector getSelector: getSelector
- "Open a font-chooser for the given model"
- ^TextStyle mvcPromptForFont: titleString andSendTo: aModel withSelector: setSelector!