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

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

Name: Morphic-mt.1214
Author: mt
Time: 31 July 2016, 11:29:46.133418 am
UUID: 0a02a7cb-3826-8d4f-9069-2b6b84a827ae
Ancestors: Morphic-mt.1213

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

Adds minimal tool support for UI themes to world main docking bar's EXTRAS menu.

=============== Diff against Morphic-mt.1213 ===============

Item was changed:
  ----- Method: MenuMorph class>>gradientMenu: (in category 'preferences') -----
  gradientMenu: aBoolean
  
+ 	GradientMenu = aBoolean ifTrue: [^ self].
  	GradientMenu := aBoolean.
+ 
+ 	self flag: #refactor. "mt: Heavy use of the gradient-menu property..."
- 	SystemProgressMorph reset.
  	
+ 	SystemProgressMorph reset.
+ 	PluggableTextMorph flushAdornmentCache.
+ 
+ 	MenuMorph allSubInstancesDo: [:ea | ea setDefaultParameters; setTitleParameters; updateColor].
+ 	DockingBarMorph allSubInstancesDo: [:ea | ea setDefaultParameters; updateColor].
+ 
+ 	TheWorldMainDockingBar updateInstances.
+ 	PluggableListMorph allSubInstancesDo: [:ea | ea setListParameters].
+ 	SimpleHierarchicalListMorph allSubInstancesDo: [:ea | ea setDefaultParameters].
+ 	!
- 	"Update docking bars and their sub-menus."
- 	ActiveWorld mainDockingBars do: [:bar |
- 		bar
- 			autoGradient: aBoolean;
- 			updateColor].
- 	TheWorldMainDockingBar updateInstances.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>editCurrentTheme (in category 'submenu - extras') -----
+ editCurrentTheme
+ 
+ 	UserInterfaceTheme current explore.!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>extrasMenuOn: (in category 'submenu - extras') -----
  extrasMenuOn: aDockingBar 
  
  	aDockingBar addItem: [ :it|
  		it 	contents: 'Extras' translated;
  			addSubMenu: [:menu|
  				menu addItem:[:item|
  					item
  						contents: 'Recover Changes' translated;
  						help: 'Recover changes after a crash' translated;
  						icon: MenuIcons smallDocumentClockIcon;
  						target: ChangeList;
  						selector: #browseRecentLog].
  				menu addLine.
  				menu addItem:[:item|
  					item
+ 						contents: 'Themes & Colors' translated;
+ 						subMenuUpdater: self
+ 						selector: #themesAndWindowColorsOn: ].
- 						contents: 'Window Colors' translated;
- 						help: 'Changes the window color scheme' translated;
- 						addSubMenu:[:submenu| self windowColorsOn: submenu]].
  				menu addItem:[:item|
  					item
  						contents: 'Set Author Initials' translated;
  						help: 'Sets the author initials' translated;
  						icon: MenuIcons smallUserQuestionIcon;
  						target: Utilities;
  						selector: #setAuthorInitials].
  				menu addItem:[:item|
  					item
  						contents: 'Restore Display (r)' translated;
  						help: 'Redraws the entire display' translated;
  						target: Project current;
  						selector: #restoreDisplay].
  				menu addItem:[:item|
  					item
  						contents: 'Rebuild Menus' translated;
  						help: 'Rebuilds the menu bar' translated;
  						target: TheWorldMainDockingBar;
  						selector: #updateInstances].
  				menu addLine.
  				menu addItem:[:item|
  					item
  						contents: 'Start Profiler' translated;
  						help: 'Starts the profiler' translated;
  						icon: MenuIcons smallTimerIcon;
  						target: self;
  						selector: #startMessageTally].
  				menu addItem:[:item|
  					item
  						contents: 'Collect Garbage' translated;
  						help: 'Run the garbage collector and report space usage' translated;
  						target: Utilities;
  						selector: #garbageCollectAndReport].
  				menu addItem:[:item|
  					item
  						contents: 'Purge Undo Records' translated;
  						help: 'Save space by removing all the undo information remembered in all projects' translated;
  						target: CommandHistory;
  						selector: #resetAllHistory].
  				menu addItem:[:item|
  					item
  						contents: 'VM statistics' translated;
  						help: 'Virtual Machine information' translated;
  						target: self;
  						selector: #vmStatistics].
  				menu addLine.
  				menu addItem:[:item|
  					item
  						contents: 'Graphical Imports' translated;
  						help: 'View the global repository called ImageImports; you can easily import external graphics into ImageImports via the FileList' translated;
  						target: (Imports default);
  						selector: #viewImages].
  				menu addItem:[:item|
  					item
  						contents: 'Standard Graphics Library' translated;
  						help: 'Lets you view and change the system''s standard library of graphics' translated;
  						target: ScriptingSystem;
  						selector: #inspectFormDictionary].
  				menu addItem:[:item|
  					item
  						contents: 'Annotation Setup' translated;
  						help: 'Click here to get a little window that will allow you to specify which types of annotations, in which order, you wish to see in the annotation panes of browsers and other tools' translated;
  						target: Preferences;
  						selector: #editAnnotations].
  				menu addItem:[:item|
  					item
  						contents: 'Browse My Changes' translated;
  						help: 'Browse all of my changes since the last time #condenseSources was run.' translated;
  						target: SystemNavigation new;
  						selector: #browseMyChanges].
  			] ]!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>themesAndWindowColorsOn: (in category 'submenu - extras') -----
+ themesAndWindowColorsOn: menu
+ 
+ 	| themes |
+ 	themes := UserInterfaceTheme allThemes asArray sortBy: [:t1 :t2 |
+ 		t1 name <= t2 name].
+ 	
+ 	menu addItem:[:item|
+ 		item
+ 			contents: (Model useColorfulWindows ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Colorful Windows' translated;
+ 			target: self;
+ 			selector: #toggleColorfulWindows].
+ 	menu addItem:[:item|
+ 		item
+ 			contents: (SystemWindow gradientWindow not ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Flat Widget Look' translated;
+ 			target: self;
+ 			selector: #toggleGradients].
+ 	menu addItem:[:item |
+ 		item
+ 			contents: ((Preferences valueOfFlag: #menuAppearance3d) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Shadows' translated;
+ 			target: self;
+ 			selector: #toggleShadows].
+ 	menu addItem:[:item |
+ 		item
+ 			contents: (SystemWindow roundedWindowCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Widget Look' translated;
+ 			target: self;
+ 			selector: #toggleRoundedLook].
+ 
+ 	
+ 	menu addLine.
+ 	
+ 	themes ifEmpty: [ 
+ 		menu addItem: [ :item | 
+ 			item
+ 				contents: '(No UI themes found.)' translated;
+ 				isEnabled: false ] ].
+ 	themes do: [ :each |
+ 		menu addItem: [ :item |
+ 			item 
+ 				contents: (UserInterfaceTheme current == each ifTrue: ['<yes>'] ifFalse: ['<no>']), each name;
+ 				target: each;
+ 				selector: #apply ] ].
+ 	menu
+ 		addLine;
+ 		add: 'Edit Current UI Theme...' target: self selector: #editCurrentTheme.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>toggleColorfulWindows (in category 'submenu - extras') -----
+ toggleColorfulWindows
+ 
+ 	Model useColorfulWindows: Model useColorfulWindows not.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>toggleGradients (in category 'submenu - extras') -----
+ toggleGradients
+ 
+ 	| switch |
+ 	switch := SystemWindow gradientWindow not.
+ 	
+ 	SystemWindow gradientWindow: switch.
+ 	DialogWindow gradientDialog: switch.
+ 	MenuMorph gradientMenu: switch.
+ 	ScrollBar gradientScrollBar: switch.
+ 	PluggableButtonMorph gradientButton: switch.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>toggleRoundedLook (in category 'submenu - extras') -----
+ toggleRoundedLook
+ 
+ 	| switch |
+ 	switch := SystemWindow roundedWindowCorners not.
+ 	
+ 	SystemWindow roundedWindowCorners: switch.
+ 	DialogWindow roundedDialogCorners: switch.
+ 	PluggableButtonMorph roundedButtonCorners: switch.
+ 	MenuMorph roundedMenuCorners: switch.
+ 	ScrollBar roundedScrollBarLook: switch.!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>toggleShadows (in category 'submenu - extras') -----
+ toggleShadows
+ 
+ 	Preferences toggle: #menuAppearance3d.!

Item was removed:
- ----- Method: TheWorldMainDockingBar>>windowColorsOn: (in category 'construction') -----
- windowColorsOn: menu
- 
- 	menu addItem:[:item|
- 		item
- 			contents: 'Gray Windows' translated;
- 			help: 'Use uniform window colors' translated;
- 			target: Preferences;
- 			selector: #installUniformWindowColors].
- 
- 	menu addItem:[:item|
- 		item
- 			contents: 'Colorful Windows' translated;
- 			help: 'Use normal window colors' translated;
- 			target: Preferences;
- 			selector: #installNormalWindowColors].
- 
- 	menu addLine.
- 
- 	menu addItem:[:item|
- 		item
- 			contents: 'Bright-colored Windows' translated;
- 			help: 'Use bright window colors' translated;
- 			target: Preferences;
- 			selector: #installBrightWindowColors].
- 
- 	menu addItem:[:item|
- 		item
- 			contents: 'Pastel-colored Windows' translated;
- 			help: 'Use pastel window colors' translated;
- 			target: Preferences;
- 			selector: #installPastelWindowColors].
- !

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'!
- (PackageInfo named: 'Morphic') postscript: 'ScrollBar initializeImagesCache.
- LazyListMorph allSubInstancesDo: [:ea | ea resetFilterOffsets].
- PluggableTextMorph flushAdornmentCache.'!