The Trunk: 51Deprecated-mt.37.mcz

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

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

Name: 51Deprecated-mt.37
Author: mt
Time: 31 July 2016, 11:02:27.47649 am
UUID: 7a39db3d-68a6-8545-a4b4-ec7c35d1edf9
Ancestors: 51Deprecated-mt.36

*** Widget Refactorings and UI Themes (Part 4 of 11) ***

Some fixes and refactorings in menus and docking bars. Prepare both for UI themeing.

=============== Diff against 51Deprecated-mt.36 ===============

Item was added:
+ ----- Method: MenuMorph class>>menuBorderColor (in category '*51Deprecated') -----
+ menuBorderColor
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #borderColor for: self) ifNil: [(Color r: 0.2 g: 0.3 b: 0.9)]!

Item was added:
+ ----- Method: MenuMorph class>>menuBorderWidth (in category '*51Deprecated') -----
+ menuBorderWidth
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #borderWidth for: self) ifNil: [2]!

Item was added:
+ ----- Method: MenuMorph class>>menuColor (in category '*51Deprecated') -----
+ menuColor
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #color for: self) ifNil: [(Color r: 0.9 g: 0.9 b: 0.9)]!

Item was added:
+ ----- Method: MenuMorph class>>menuLineColor (in category '*51Deprecated') -----
+ menuLineColor
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #lineColor for: self) ifNil: [(Color r: 0.6 g: 0.7 b: 1)]!

Item was added:
+ ----- Method: MenuMorph class>>menuSelectionColor (in category '*51Deprecated') -----
+ menuSelectionColor
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #selectionColor for: MenuItemMorph) ifNil: [(Color r: 0.4 g: 0.5 b: 0.7)]!

Item was added:
+ ----- Method: MenuMorph class>>menuTitleBorderColor (in category '*51Deprecated') -----
+ menuTitleBorderColor
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #titleBorderColor for: self) ifNil: [(Color r: 0.6 g: 0.7 b: 1)]!

Item was added:
+ ----- Method: MenuMorph class>>menuTitleBorderWidth (in category '*51Deprecated') -----
+ menuTitleBorderWidth
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #titleBorderWidth for: self) ifNil: [0]!

Item was added:
+ ----- Method: MenuMorph class>>menuTitleColor (in category '*51Deprecated') -----
+ menuTitleColor
+
+ self deprecated: 'mt: Use UI themes.'.
+ ^ (UserInterfaceTheme current get: #titleColor for: self) ifNil: [ Color transparent]!