[squeak-dev] The Trunk: System-ar.139.mcz

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

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

Name: System-ar.139
Author: ar
Time: 30 August 2009, 5:24:53 am
UUID: 389aa44d-05bd-c84f-9dd3-96cfcfc9c62b
Ancestors: System-dtl.138

FreeTypePlus integration. Vector the preference requests for changing standard fonts through UI manager so that we can fire off a proper chooser dialog.

=============== Diff against System-dtl.138 ===============

Item was changed:
  ----- Method: Preferences class>>chooseSystemFont (in category 'fonts') -----
  chooseSystemFont
+ self
+ chooseFontWithPrompt: 'Default font...' translated
+ andSendTo: self
+ withSelector: #setSystemFontTo:
+ highlightSelector: #standardSystemFont!
- self chooseFontWithPrompt: 'Choose the default text font' translated andSendTo: self withSelector: #setSystemFontTo: highlight: (TextConstants at: #DefaultTextStyle) defaultFont!

Item was added:
+ ----- Method: Preferences class>>chooseFontWithPrompt:andSendTo:withSelector:highlightSelector: (in category 'fonts') -----
+ chooseFontWithPrompt: aPrompt andSendTo: aReceiver withSelector: aSelector highlightSelector: highlightSelector
+ ^UIManager default
+ chooseFont: aPrompt
+ for: aReceiver
+ setSelector: aSelector
+ getSelector: highlightSelector !

Item was added:

Item was changed:
  ----- Method: Preferences class>>chooseFlapsFont (in category 'fonts') -----
  chooseFlapsFont
+ self
+ chooseFontWithPrompt: 'Flaps font...' translated
+ andSendTo: self
+ withSelector: #setFlapsFontTo:
+ highlightSelector: #standardFlapFont!
- self chooseFontWithPrompt: 'Choose a flaps font' translated andSendTo: self withSelector: #setFlapsFontTo: highlight: self standardFlapFont!

Item was changed:
  ----- Method: Preferences class>>chooseWindowTitleFont (in category 'fonts') -----
  chooseWindowTitleFont
+ self
+ chooseFontWithPrompt: 'Window Title font...' translated
+ andSendTo: self
+ withSelector: #setWindowTitleFontTo:
+ highlightSelector: #windowTitleFont!
- self chooseFontWithPrompt: 'Choose the window title font' translated andSendTo: self withSelector: #setWindowTitleFontTo: highlight: self windowTitleFont!

Item was changed:
  ----- Method: Preferences class>>chooseStandardButtonFont (in category 'fonts') -----
  chooseStandardButtonFont
+ self
+ chooseFontWithPrompt: 'Button font...' translated
+ andSendTo: self
+ withSelector: #setButtonFontTo:
+ highlightSelector: #standardButtonFont
- self chooseFontWithPrompt: 'Choose the button font' translated andSendTo: self withSelector: #setButtonFontTo: highlight: self standardButtonFont
 
  !

Item was changed:
  ----- Method: Preferences class>>chooseEToysFont (in category 'fonts') -----
  chooseEToysFont
  "present a menu with the possible fonts for the eToys"
  self
+ chooseFontWithPrompt: 'eToys font...' translated
- chooseFontWithPrompt: 'Choose the eToys font' translated
  andSendTo: self
  withSelector: #setEToysFontTo:
+ highlightSelector: #standardEToysFont!
- highlight: self standardEToysFont!

Item was changed:
  ----- Method: Preferences class>>chooseListFont (in category 'fonts') -----
  chooseListFont
+ self
+ chooseFontWithPrompt: 'List font...' translated
+ andSendTo: self
+ withSelector: #setListFontTo:
+ highlightSelector: #standardListFont!
- self chooseFontWithPrompt: 'Choose the standard list font' translated andSendTo: self withSelector: #setListFontTo: highlight: self standardListFont!

Item was changed:
  ----- Method: Preferences class>>chooseHaloLabelFont (in category 'fonts') -----
  chooseHaloLabelFont
  "present a menu with the possible fonts for label in halo"
  self
+ chooseFontWithPrompt: 'Halo Label font...'
- chooseFontWithPrompt: 'halo label font'
  andSendTo: self
  withSelector: #setHaloLabelFontTo:
+ highlightSelector: #standardHaloLabelFont!
- highlight: self standardHaloLabelFont!

Item was changed:
  ----- Method: Preferences class>>chooseMenuFont (in category 'fonts') -----
  chooseMenuFont
+ self
+ chooseFontWithPrompt: 'Menu font...' translated
+ andSendTo: self
+ withSelector: #setMenuFontTo:
+ highlightSelector: #standardMenuFont!
- self chooseFontWithPrompt: 'Choose the standard menu font' translated andSendTo: self withSelector: #setMenuFontTo: highlight: self standardMenuFont!

Item was added:
+ ----- Method: Preferences class>>standardSystemFont (in category 'fonts') -----
+ standardSystemFont
+ "Answer the standard system font "
+
+ ^(TextConstants at: #DefaultTextStyle) defaultFont!

Item was changed:
  ----- Method: Preferences class>>chooseCodeFont (in category 'fonts') -----
  chooseCodeFont
  "Not currently sent, but once protocols are sorted out so that we can disriminate on whether a text object being launched is for code or not, will be reincorporated"
 
+ self
+ chooseFontWithPrompt: 'Code font...' translated
+ andSendTo: self
+ withSelector: #setCodeFontTo:
+ highlightSelector: #standardCodeFont.!
- self chooseFontWithPrompt: 'Choose the font to be used for displaying code' translated andSendTo: self withSelector: #setCodeFontTo: highlight: self standardCodeFont.!

Item was changed:
  ----- Method: Preferences class>>chooseEToysTitleFont (in category 'fonts') -----
  chooseEToysTitleFont
  "present a menu with the possible fonts for the eToys"
  self
+ chooseFontWithPrompt: 'eToys Title font...' translated
- chooseFontWithPrompt: 'Choose the eToys title font' translated
  andSendTo: self
  withSelector: #setEToysTitleFontTo:
+ highlightSelector: #standardEToysTitleFont!
- highlight: self standardEToysTitleFont!