[Pkg] The Trunk: Morphic-mt.1251.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Aug 10 11:54:52 UTC 2016


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

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

Name: Morphic-mt.1251
Author: mt
Time: 10 August 2016, 1:54:10.925966 pm
UUID: 615f4769-33d6-3048-adca-7efad1b3a0d0
Ancestors: Morphic-mt.1250

Due to popular request, make settings for "shadows" and "rounded look" in the docking bar theme menu more fine-granular.

=============== Diff against Morphic-mt.1250 ===============

Item was changed:
  ----- 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 addLine.
  	menu addItem:[:item |
  		item
+ 			contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Soft Shadows' translated;
- 			contents: ((Preferences valueOfFlag: #menuAppearance3d) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Shadows' translated;
  			target: self;
+ 			selector: #toggleSoftShadows].
- 			selector: #toggleShadows].
  	menu addItem:[:item |
  		item
+ 			contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow not]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Hard Shadows' translated;
- 			contents: (SystemWindow roundedWindowCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Widget Look' 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].
- 			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>>toggleHardShadows (in category 'submenu - extras') -----
+ toggleHardShadows
+ 
+ 	((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow])
+ 		ifFalse: [Preferences toggle: #menuAppearance3d].
+ 	Morph useSoftDropShadow: false.
+ 	
+ 	(Smalltalk classNamed: #SystemWindow) ifNotNil: [:c |
+ 		c refreshAllWindows; reconfigureWindowsForFocus].
+ 	(Smalltalk classNamed: #TheWorldMainDockingBar) ifNotNil: [:c |
+ 		c updateInstances].!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>toggleRoundedButtonLook (in category 'submenu - extras') -----
+ toggleRoundedButtonLook
+ 
+ 	| switch |
+ 	switch := PluggableButtonMorph roundedButtonCorners not.
+ 	
+ 	PluggableButtonMorph roundedButtonCorners: switch.
+ 	ScrollBar roundedScrollBarLook: switch.!

Item was removed:
- ----- 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>>toggleRoundedWindowLook (in category 'submenu - extras') -----
+ toggleRoundedWindowLook
+ 
+ 	| switch |
+ 	switch := SystemWindow roundedWindowCorners not.
+ 	
+ 	SystemWindow roundedWindowCorners: switch.
+ 	DialogWindow roundedDialogCorners: switch.
+ 	MenuMorph roundedMenuCorners: switch.!

Item was removed:
- ----- Method: TheWorldMainDockingBar>>toggleShadows (in category 'submenu - extras') -----
- toggleShadows
- 
- 	Preferences toggle: #menuAppearance3d.
- 	
- 	(Smalltalk classNamed: #SystemWindow) ifNotNil: [:c |
- 		c refreshAllWindows; reconfigureWindowsForFocus].
- 	(Smalltalk classNamed: #TheWorldMainDockingBar) ifNotNil: [:c |
- 		c updateInstances].!

Item was added:
+ ----- Method: TheWorldMainDockingBar>>toggleSoftShadows (in category 'submenu - extras') -----
+ toggleSoftShadows
+ 
+ 	((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow not])
+ 		ifFalse: [Preferences toggle: #menuAppearance3d].
+ 	Morph useSoftDropShadow: true.
+ 	
+ 	(Smalltalk classNamed: #SystemWindow) ifNotNil: [:c |
+ 		c refreshAllWindows; reconfigureWindowsForFocus].
+ 	(Smalltalk classNamed: #TheWorldMainDockingBar) ifNotNil: [:c |
+ 		c updateInstances].!

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "For more fine-granular visual settings."'!
- (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances. "..."'!



More information about the Packages mailing list