Marcel Taeumel uploaded a new version of SmallLand-ColorTheme to project The Trunk:
http://source.squeak.org/trunk/SmallLand-ColorTheme-mt.7.mcz
==================== Summary ====================
Name: SmallLand-ColorTheme-mt.7
Author: mt
Time: 31 July 2016, 10:35:55.17149 am
UUID: e0eb5d6c-e032-b843-96b5-90e78b70d353
Ancestors: SmallLand-ColorTheme-fbs.6
*** 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 SmallLand-ColorTheme-fbs.6 ===============
Item was changed:
----- Method: SmallLandColorTheme>>apply (in category 'applying') -----
apply
+
- Preferences installBrightWindowColors.
""
super apply.
""
self updateTopProject.
self updateFlaps.
self updateWorldMainDockingBar!
Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.171.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.171
Author: mt
Time: 31 July 2016, 10:32:00.85249 am
UUID: de835798-12b4-df4e-9232-dcf31e11ee6f
Ancestors: ToolBuilder-Morphic-mt.170
*** 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 ToolBuilder-Morphic-mt.170 ===============
Item was changed:
+ Model subclass: #ListChooser
- Object subclass: #ListChooser
instanceVariableNames: 'window fullList selectedItems searchText searchMorph title listMorph index realIndex buttonBar builder addAllowed result'
classVariableNames: ''
poolDictionaries: ''
category: 'ToolBuilder-Morphic'!
!ListChooser commentStamp: 'MAD 3/14/2010 16:20' prior: 0!
I am a simple dialog to allow the user to pick from a list of strings or symbols.
I support keyboard and mouse navigation, and interactive filtering of the displayed items.
You can specify whether you want the index, or the value of the selected item. If you're interested in the value, you can also allow users to Add a new value not in the list.
cmd-s or <enter> or double-click answers the currently selected item's value/index;
cmd-l or <escape> or closing the window answers nil/zero.
Now using ToolBuilder, so needs Morphic-MAD.381.
Released under the MIT Licence.!
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)!