The Trunk: ST80-mt.218.mcz

Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.218.mcz

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

Name: ST80-mt.218
Author: mt
Time: 24 August 2016, 1:45:33.502718 pm
UUID: 847f8a18-1aca-8940-871d-6d83553b92f7
Ancestors: ST80-mt.217

Simple MVC update to use UI theme colors for buttons, text fields, lists, and windows.

=============== Diff against ST80-mt.217 ===============

Item was changed:
  ----- Method: PluggableButtonView>>label: (in category 'accessing') -----
  label: aStringOrDisplayObject
  "Label this button with the given String or DisplayObject."
 
+ | fontToUse |
+ fontToUse := self userInterfaceTheme font ifNil: [TextStyle defaultFont].
  ((aStringOrDisplayObject isKindOf: Paragraph)
  or: [aStringOrDisplayObject isForm])
  ifTrue: [label := aStringOrDisplayObject]
+ ifFalse: [label := (Paragraph withText: (aStringOrDisplayObject asText
+ addAttribute: (TextFontReference toFont: fontToUse)))].
- ifFalse: [label := aStringOrDisplayObject asParagraph].
  self centerLabel.
  !

Item was added:
+ ----- Method: StandardSystemView>>defaultBackgroundColor (in category 'initialize-release') -----
+ defaultBackgroundColor
+
+ ^ model
+ ifNil: [Color white]
+ ifNotNil: [:m | m windowColorToUse]!

Item was added:
+ ----- Method: StandardSystemView>>defaultForegroundColor (in category 'initialize-release') -----
+ defaultForegroundColor
+
+ ^ (self userInterfaceTheme borderColorModifier ifNil: [ [:c | c adjustBrightness: -0.5] ]) value: self defaultBackgroundColor!

Item was removed:
- ----- Method: StandardSystemView>>model: (in category 'initialize-release') -----
- model: aModel
- "Set the receiver's model.  For a Standard System View, we also at this time get the default background color set up.  7/30/96 sw"
- super model: aModel.
- self setDefaultBackgroundColor!

Item was added:
+ ----- Method: View>>defaultBackgroundColor (in category 'initialize-release') -----
+ defaultBackgroundColor
+
+ ^ self userInterfaceTheme color!

Item was added:
+ ----- Method: View>>defaultForegroundColor (in category 'initialize-release') -----
+ defaultForegroundColor
+
+ ^ self userInterfaceTheme borderColor!

Item was changed:
  ----- Method: View>>model:controller: (in category 'controller access') -----
  model: aModel controller: aController
  "Set the receiver's model to aModel, add the receiver to aModel's list of
  dependents, and set the receiver's controller to aController. Subsequent
  changes to aModel (see Model|change) will result in View|update:
  messages being sent to the receiver. #NoControllerAllowed for the value
  of aController indicates that no default controller is available; nil for the
  value of aController indicates that the default controller is to be used
  when needed. If aController is neither #NoControllerAllowed nor nil, its
  view is set to the receiver and its model is set to aModel."
 
  model ~~ nil & (model ~~ aModel)
  ifTrue: [model removeDependent: self].
  aModel ~~ nil & (aModel ~~ model)
  ifTrue: [aModel addDependent: self].
  model := aModel.
  aController ~~ nil
  ifTrue:
  [aController view: self.
  aController model: aModel].
+ controller := aController.
+
+ self setDefaultForegroundColor.
+ self setDefaultBackgroundColor.!
- controller := aController!

Item was changed:
  ----- Method: View>>setDefaultBackgroundColor (in category 'initialize-release') -----
  setDefaultBackgroundColor
  "Obtain the background color from the receiver's model.
  The preferences make sure whether this is a colorful or uniform
  look."
 
+ self backgroundColor: self defaultBackgroundColor!
- self backgroundColor: model windowColorToUse!

Item was added:
+ ----- Method: View>>setDefaultForegroundColor (in category 'initialize-release') -----
+ setDefaultForegroundColor
+
+ self foregroundColor: self defaultForegroundColor!