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

[commits at source.squeak.org]

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

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

Name: Morphic-mt.1200
Author: mt
Time: 28 July 2016, 11:15:23.107276 am
UUID: e7d3f249-f9e8-e546-97f7-a98a3db03b31
Ancestors: Morphic-mt.1199

Adds pragma preference for rounded window corners.

=============== Diff against Morphic-mt.1199 ===============

Item was changed:
  ----- Method: ProjectViewMorph>>wantsRoundedCorners (in category 'rounding') -----
  wantsRoundedCorners
+ 	^SystemWindow roundedWindowCorners 
- 	^Preferences roundedWindowCorners 
  		and: [(owner isSystemWindow) not]!

Item was changed:
  ----- Method: ScorePlayerMorph>>wantsRoundedCorners (in category 'rounding') -----
  wantsRoundedCorners
+ 	^ SystemWindow roundedWindowCorners or: [super wantsRoundedCorners]!
- 	^ Preferences roundedWindowCorners or: [super wantsRoundedCorners]!

Item was changed:
  MorphicModel subclass: #SystemWindow
  	instanceVariableNames: 'labelString stripes label closeBox collapseBox paneMorphs paneRects collapsedFrame fullFrame isCollapsed isActive isLookingFocused menuBox mustNotClose labelWidgetAllowance updatablePanes allowReframeHandles labelArea expandBox'
+ 	classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows RoundedWindowCorners TopWindow WindowTitleActiveOnFirstClick WindowsRaiseOnClick'
- 	classVariableNames: 'ClickOnLabelToEdit CloseBoxFrame CloseBoxImageFlat CloseBoxImageGradient CollapseBoxImageFlat CollapseBoxImageGradient DoubleClickOnLabelToExpand ExpandBoxFrame ExpandBoxImageFlat ExpandBoxImageGradient FocusFollowsMouse GradientWindow HideExpandButton MenuBoxFrame MenuBoxImageFlat MenuBoxImageGradient ResizeAlongEdges ReuseWindows TopWindow WindowTitleActiveOnFirstClick WindowsRaiseOnClick'
  	poolDictionaries: ''
  	category: 'Morphic-Windows'!
  
  !SystemWindow commentStamp: '<historical>' prior: 0!
  SystemWindow is the Morphic equivalent of StandardSystemView -- a labelled container for rectangular views, with iconic facilities for close, collapse/expand, and resizing.
  
  The attribute onlyActiveOnTop, if set to true (and any call to activate will set this), determines that only the top member of a collection of such windows on the screen shall be active.  To be not active means that a mouse click in any region will only result in bringing the window to the top and then making it active.!

Item was removed:
- ----- Method: SystemWindow class>>initialize (in category 'initializing') -----
- initialize
- 	"SystemWindow initialize"
- 	
- 	CollapseBoxImageGradient := nil.
- 	CloseBoxImageGradient := nil.
- 	ExpandBoxImageGradient := nil.
- 	MenuBoxImageGradient := nil.
- 	
- 	CollapseBoxImageFlat := nil.
- 	CloseBoxImageFlat := nil.
- 	ExpandBoxImageFlat := nil.
- 	MenuBoxImageFlat := nil.
- 
- 	self updatePreferences.!

Item was added:
+ ----- Method: SystemWindow class>>roundedWindowCorners (in category 'preferences') -----
+ roundedWindowCorners
+ 
+ 	<preference: 'Rounded Window Corners'
+ 		category: 'windows'
+ 		description: 'If true, windows will have a rounded corners.'
+ 		type: #Boolean>
+ 	^ RoundedWindowCorners ifNil: [false]!

Item was added:
+ ----- Method: SystemWindow class>>roundedWindowCorners: (in category 'preferences') -----
+ roundedWindowCorners: aBoolean
+ 
+ 	RoundedWindowCorners = aBoolean ifTrue: [^ self].
+ 	RoundedWindowCorners := aBoolean.
+ 	self refreshAllWindows.!

Item was removed:
- ----- Method: SystemWindow class>>updatePreferences (in category 'initializing') -----
- updatePreferences
- 	"Temporary method to update system-wide preferences"
- 	Preferences installNormalWindowColors.
- 
- 	Preferences setPreference: #menuAppearance3d toValue: true.
- 	(Preferences preferenceAt: #menuAppearance3d) defaultValue: true.
- 
- 	Preferences setPreference: #menuColorFromWorld toValue: false.
- 	(Preferences preferenceAt: #menuColorFromWorld) defaultValue: false.
- 
- 	MenuMorph roundedMenuCorners: false.
- 
- 	MenuMorph menuColor: (Color gray: 0.9).
- 	MenuMorph menuTitleColor: (Color transparent).
- 	MenuMorph menuTitleBorderWidth: 0.
- 	Preferences
- 		setParameter: #defaultWorldColor
- 		to: (Color gray: 0.25).
- 
- 	Preferences setPreference: #showSplitterHandles toValue: false.
- 	(Preferences preferenceAt: #showSplitterHandles) defaultValue: true.
- 
- 	Preferences setPreference: #showSharedFlaps toValue: false.
- 	(Preferences preferenceAt: #showSharedFlaps) defaultValue: false.
- 
- 	CornerGripMorph drawCornerResizeHandles: false.
- 	FillInTheBlankMorph roundedDialogCorners: true.
- 
- 	LazyListMorph
- 		listSelectionColor: LazyListMorph listSelectionColor;
- 		listSelectionTextColor: Color black.
- 	PluggableButtonMorph roundedButtonCorners: true.
- 	SystemWindow
- 		clickOnLabelToEdit: false;
- 		doubleClickOnLabelToExpand: true;
- 		moveMenuButtonRight: true;
- 		hideExpandButton: false.!

Item was changed:
  ----- Method: SystemWindow>>wantsRoundedCorners (in category 'drawing') -----
  wantsRoundedCorners
+ 	^ false "Temporarily."!
- 	^ Preferences roundedWindowCorners or: [super wantsRoundedCorners]!

Item was changed:
  ----- Method: TheWorldMenu>>roundedCornersString (in category 'action') -----
  roundedCornersString
  
+ 	^ (((SystemWindow roundedWindowCorners)
+ 		ifTrue: ['stop']
+ 		ifFalse: ['start']) , ' rounding window corners') translated!
- 	^ Preferences roundedCornersString!

Item was changed:
  ----- Method: TheWorldMenu>>toggleRoundedCorners (in category 'action') -----
  toggleRoundedCorners
  
+ 	SystemWindow roundedWindowCorners: SystemWindow roundedWindowCorners not.!
- 	Preferences toggle: #roundedWindowCorners.!

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'!
- (PackageInfo named: 'Morphic') postscript: '"Fixes the event handling that occurs in the same control flow after loading this code."
- HandMorph allInstancesDo: [:ea | ea initForEvents]. 
- 
- "Deploy mouse-wheel event handling to existing scrollpanes and hands."
- Project allMorphicProjects do: [:morphicProject |
- 	morphicProject world handsDo: [:hand |
- 		hand addKeyboardCaptureFilter: hand]].
- ScrollPane allSubInstancesDo: [:ea |
- 	ea addKeyboardCaptureFilter: ea].
- 
- "Add Do-menu."
- TheWorldMainDockingBar updateInstances.'!