The Trunk: Morphic-mt.1200.mcz

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.'!