[squeak-dev] The Trunk: Morphic-mt.1268.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Aug 12 14:54:15 UTC 2016


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

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

Name: Morphic-mt.1268
Author: mt
Time: 12 August 2016, 4:53:21.972371 pm
UUID: ecfe52b7-1986-6a4c-b31a-e6ea7864049c
Ancestors: Morphic-mt.1267

Because the desktop background is so easily to change, i.e. overridable, provide a simple way to reset the background for the current UI theme. Same menu: Extras > Themes & Colors.

=============== Diff against Morphic-mt.1267 ===============

Item was added:
+ ----- Method: TheWorldMainDockingBar>>restoreThemeBackground (in category 'submenu - extras') -----
+ restoreThemeBackground
+ 
+ 	Project current world removeProperty: #hasCustomBackground.
+ 	UserInterfaceTheme current applyTo: {Project current}.!

Item was changed:
  ----- Method: TheWorldMainDockingBar>>themesAndWindowColorsOn: (in category 'submenu - extras') -----
  themesAndWindowColorsOn: menu
  
  	| themes |
  	themes := UserInterfaceTheme allThemes asArray sorted: [: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 addLine.
  	menu addItem:[:item |
  		item
  			contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Soft Shadows' translated;
  			target: self;
  			selector: #toggleSoftShadows].
  	menu addItem:[:item |
  		item
  			contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow not]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Hard Shadows' translated;
  			target: self;
  			selector: #toggleHardShadows].
  	menu addLine.
  	menu addItem:[:item |
  		item
  			contents: (SystemWindow roundedWindowCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Window/Dialog/Menu Look' translated;
  			target: self;
  			selector: #toggleRoundedWindowLook].
  	menu addItem:[:item |
  		item
  			contents: (PluggableButtonMorph roundedButtonCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Button/Scrollbar Look' translated;
  			target: self;
  			selector: #toggleRoundedButtonLook].
  
  	
  	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: 'Restore UI Theme Background' translated target: self selector: #restoreThemeBackground;
+ 		add: 'Edit Current UI Theme...' translated target: self selector: #editCurrentTheme.!
- 		add: 'Edit Current UI Theme...' target: self selector: #editCurrentTheme.!



More information about the Squeak-dev mailing list