[squeak-dev] The Trunk: Graphics-ar.75.mcz

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

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

Name: Graphics-ar.75
Author: ar
Time: 7 September 2009, 3:03:36 am
UUID: 280b651a-9e95-b34c-986b-4c9c0f4c63b7
Ancestors: Graphics-jmv.74

Remove some no longer necessary methods in TextStyle which introduced dependencies on Morphic and MVC.

=============== Diff against Graphics-jmv.74 ===============

Item was removed:
- ----- Method: TextStyle class>>modalStyleSelectorWithTitle: (in category 'user interface') -----
- modalStyleSelectorWithTitle: title
- "Presents a modal font-style choice menu, answers a TextStyle or nil."
- "TextStyle modalStyleSelectorWithTitle: 'testing'"
-
- | menu actualStyles |
- Smalltalk isMorphic ifFalse: [ ^self modalMVCStyleSelectorWithTitle: title ].
-
- menu := MenuMorph entitled: title.
- actualStyles := self actualTextStyles.
- actualStyles keysSortedSafely do: [ :styleName | | style |
- style := actualStyles at: styleName.
- menu add: styleName target: menu selector: #modalSelection: argument: style.
- menu lastItem font: (style fontOfSize: 18)
- ].
- ^menu invokeModal.
- !

Item was removed:
- ----- Method: TextStyle class>>mvcPromptForFont:andSendTo:withSelector: (in category 'user interface') -----
- mvcPromptForFont: aPrompt andSendTo: aTarget withSelector: aSelector
- "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 |
- "TextStyle mvcPromptForFont: 'Choose system font style' andSendTo: TextStyle withSelector: #setSystemFontTo:"
- aMenu := CustomMenu new.
- self actualTextStyles keysSortedSafely do:
- [:styleName |
- aMenu add: styleName action: styleName].
- aChoice := aMenu startUpWithCaption: aPrompt.
- aChoice ifNil: [^ self].
- aMenu := CustomMenu new.
- aStyle := self 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: aSelector with: aFont!

Item was removed:
- ----- Method: TextStyle class>>modalMVCStyleSelectorWithTitle: (in category 'user interface') -----
- modalMVCStyleSelectorWithTitle: title
- "MVC Only!! Presents a modal font-style choice menu, answers a TextStyle or nil."
- "TextStyle modalMVCStyleSelectorWithTitle: 'testing'"
-
- | aMenu actualStyles |
- aMenu := CustomMenu new.
- actualStyles := self actualTextStyles.
- actualStyles keysSortedSafely do: [ :styleName | | style |
- style := actualStyles at: styleName.
- aMenu add: styleName action: style
- ].
- ^aMenu startUpWithCaption: title.
- !