[squeak-dev] The Trunk: Kernel-mt.1034.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Jul 31 08:21:34 UTC 2016
Marcel Taeumel uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-mt.1034.mcz
==================== Summary ====================
Name: Kernel-mt.1034
Author: mt
Time: 31 July 2016, 10:21:08.99049 am
UUID: f57f51f9-aa84-5e4e-90cb-a9c6228e3cd4
Ancestors: Kernel-topa.1033
*** Widget Refactorings and UI Themes (Part 2 of 11) ***
Simplify window colors and prepare them and other properties of system windows to be themed.
=============== Diff against Kernel-topa.1033 ===============
Item was changed:
Object subclass: #Model
instanceVariableNames: 'dependents'
+ classVariableNames: 'UseColorfulWindows WindowActiveOnFirstClick'
- classVariableNames: 'WindowActiveOnFirstClick'
poolDictionaries: ''
category: 'Kernel-Models'!
!Model commentStamp: '<historical>' prior: 0!
Provides a superclass for classes that function as models. The only behavior provided is fast dependents maintenance, which bypasses the generic DependentsFields mechanism. 1/23/96 sw!
Item was added:
+ ----- Method: Model class>>themeProperties (in category 'preferences') -----
+ themeProperties
+
+ ^ {
+ { #uniformWindowColor. 'Colors'. 'The color to be used when all windows should have the same color' }.
+ { #customWindowColor. 'Colors'. 'The color to be used when all windows can have their own color' }.
+ }!
Item was added:
+ ----- Method: Model class>>useColorfulWindows (in category 'preferences') -----
+ useColorfulWindows
+ <preference: 'Use colorful windows'
+ categoryList: #(Morphic windows)
+ description: 'When true, windows have colors specific to their kind.'
+ type: #Boolean>
+ ^UseColorfulWindows ifNil:[true]!
Item was added:
+ ----- Method: Model class>>useColorfulWindows: (in category 'preferences') -----
+ useColorfulWindows: aBoolean
+
+ UseColorfulWindows = aBoolean ifTrue: [^ self].
+ UseColorfulWindows := aBoolean.
+
+ (Smalltalk classNamed: #SystemWindow) ifNotNil: [:c | c refreshAllWindows].
+ (Smalltalk classNamed: #TheWorldMainDockingBar) ifNotNil: [:c | c updateInstances].!
Item was added:
+ ----- Method: Model>>applyUserInterfaceTheme (in category 'morphic ui') -----
+ applyUserInterfaceTheme
+
+ self dependents do: [:ea |
+ ea isSystemWindow ifTrue: [
+ ea refreshWindowColor]].!
Item was added:
+ ----- Method: Model>>canApplyUserInterfaceTheme (in category 'morphic ui') -----
+ canApplyUserInterfaceTheme
+ ^ self dependents notEmpty!
Item was added:
+ ----- Method: Model>>defaultBackgroundColor (in category 'morphic ui') -----
+ defaultBackgroundColor
+
+ self flag: #remove. "Use #windowColorToUse"
+ ^ self windowColorToUse!
Item was added:
+ ----- Method: Model>>defaultWindowColor (in category 'morphic ui') -----
+ defaultWindowColor
+
+ ^ self uniformWindowColor!
Item was added:
+ ----- Method: Model>>uniformWindowColor (in category 'morphic ui') -----
+ uniformWindowColor
+
+ ^ self userInterfaceTheme uniformWindowColor ifNil: [Color veryVeryLightGray]!
Item was added:
+ ----- Method: Model>>windowColorToUse (in category 'morphic ui') -----
+ windowColorToUse
+
+ ^ Color colorFrom: (self class useColorfulWindows
+ ifTrue: [self userInterfaceTheme customWindowColor ifNil: [self defaultWindowColor]]
+ ifFalse: [self uniformWindowColor])!
Item was removed:
- ----- Method: Object>>defaultBackgroundColor (in category 'user interface') -----
- defaultBackgroundColor
- "Answer the color to be used as the base window color for a window whose model is an object of the receiver's class"
-
- ^ Preferences windowColorFor: self class name!
Item was added:
+ ----- Method: StringHolder>>defaultWindowColor (in category 'user interface') -----
+ defaultWindowColor
+ ^ (Color r: 0.9 g: 0.9 b: 0.719)!
More information about the Squeak-dev
mailing list
|