The Trunk: Morphic-mt.1702.mcz

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

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

Name: Morphic-mt.1702
Author: mt
Time: 15 October 2020, 2:30:38.301368 pm
UUID: 4eb3e7e3-9fda-af4a-9e7d-4ae1187fb179
Ancestors: Morphic-mt.1701

Complements System-mt.1180. See http://forum.world.st/Proposal-Resetting-pragma-preferences-via-nil-or-reset-message-td5123490.html

=============== Diff against Morphic-mt.1701 ===============

Item was changed:
  ----- Method: MorphicProject>>showWorldMainDockingBar (in category 'docking bars support') -----
  showWorldMainDockingBar
 
  ^ self projectPreferenceFlagDictionary
  at: #showWorldMainDockingBar
+ ifAbsent: [ true ]!
- ifAbsent: [ false ]!

Item was changed:
  ----- Method: MorphicProject>>showWorldMainDockingBar: (in category 'docking bars support') -----
+ showWorldMainDockingBar: aBooleanOrNil
- showWorldMainDockingBar: aBoolean
  "Change the receiver to show the main docking bar"
+ aBooleanOrNil
+ ifNil: [self projectPreferenceFlagDictionary removeKey: #showWorldMainDockingBar ifAbsent: []]
+ ifNotNil: [self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBooleanOrNil].
- self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBoolean.
  self assureMainDockingBarPresenceMatchesPreference!

Item was changed:
  ----- Method: PasteUpMorph class>>globalCommandKeysEnabled: (in category 'preferences') -----
  globalCommandKeysEnabled: aBoolean
 
  GlobalCommandKeysEnabled = aBoolean ifTrue: [^ self].
  GlobalCommandKeysEnabled := aBoolean.
 
  SystemWindow allSubInstancesDo: [:ea |
+ self globalCommandKeysEnabled
- aBoolean
  ifTrue: [ea addKeyboardShortcuts]
  ifFalse: [ea removeKeyboardShortcuts]].
 
  PasteUpMorph allSubInstancesDo: [:ea |
+ self globalCommandKeysEnabled
- aBoolean
  ifTrue: [ea addKeyboardShortcuts]
  ifFalse: [ea removeKeyboardShortcuts]].!

Item was changed:
  ----- Method: PluggableTextMorph class>>softLineWrap: (in category 'preferences') -----
+ softLineWrap: aBooleanOrNil
- softLineWrap: aBoolean
 
+ aBooleanOrNil == SoftLineWrap ifTrue: [^ self].
+ SoftLineWrap := aBooleanOrNil.
- aBoolean == SoftLineWrap ifTrue: [^ self].
- SoftLineWrap := aBoolean.
  PluggableTextMorph allSubInstancesDo: [:m |
+ m text lineCount > 1 ifTrue: [m wrapFlag: self softLineWrap]].!
- m text lineCount > 1 ifTrue: [m wrapFlag: aBoolean]].!

Item was changed:
  ----- Method: ProportionalSplitterMorph class>>smartHorizontalSplitters: (in category 'preferences') -----
+ smartHorizontalSplitters: aBooleanOrNil
+ SmartHorizontalSplitters := aBooleanOrNil.
+ self preferenceChanged: self smartHorizontalSplitters.!
- smartHorizontalSplitters: aBoolean
- SmartHorizontalSplitters := aBoolean.
- self preferenceChanged: aBoolean!

Item was changed:
  ----- Method: ProportionalSplitterMorph class>>smartVerticalSplitters: (in category 'preferences') -----
+ smartVerticalSplitters: aBooleanOrNil
+ SmartVerticalSplitters := aBooleanOrNil.
+ self preferenceChanged: self smartHorizontalSplitters.!
- smartVerticalSplitters: aBoolean
- SmartVerticalSplitters := aBoolean.
- self preferenceChanged: aBoolean!

Item was changed:
  ----- Method: ScrollPane class>>useRetractableScrollBars: (in category 'preferences') -----
+ useRetractableScrollBars: aBooleanOrNil
- useRetractableScrollBars: aBoolean
 
+ UseRetractableScrollBars = aBooleanOrNil ifTrue: [^ self].
+ UseRetractableScrollBars := aBooleanOrNil.
- UseRetractableScrollBars = aBoolean ifTrue: [^ self].
- UseRetractableScrollBars := aBoolean.
  ScrollPane allSubInstances do: [:pane |
+ pane retractable: self useRetractableScrollBars].!
- pane retractable: aBoolean].!

Item was changed:
  ----- Method: SystemWindow class>>moveMenuButtonRight: (in category 'preferences') -----
+ moveMenuButtonRight: aBooleanOrNil
- moveMenuButtonRight: aBoolean
 
+ | absLeftOffset moveToRight |
+ moveToRight := aBooleanOrNil ifNil: [true "default value"].
+ absLeftOffset := ((self hideExpandButton and: [moveToRight])
- | absLeftOffset |
- absLeftOffset := ((self hideExpandButton and: [aBoolean])
  ifTrue: [absLeftOffset := self boxExtent x * 2]
  ifFalse: [absLeftOffset := self boxExtent x]) + 3.
+ self menuBoxFrame leftOffset: (moveToRight
- self menuBoxFrame leftOffset: (aBoolean
  ifTrue: [absLeftOffset negated]
  ifFalse: [absLeftOffset]).
  self refreshAllWindows.!

Item was changed:
  ----- Method: TextMorphForEditView class>>draggableTextSelection: (in category 'preferences') -----
+ draggableTextSelection: aBooleanOrNil
- draggableTextSelection: aBoolean
 
+ DraggableTextSelection := aBooleanOrNil.
- DraggableTextSelection := aBoolean.
 
+ self draggableTextSelection in: [:aBoolean |
+ TextMorphForEditView allInstancesDo: [:tm |
+ tm dragEnabled: aBoolean; dropEnabled: aBoolean]].!
- TextMorphForEditView allInstancesDo: [:tm |
- tm dragEnabled: aBoolean; dropEnabled: aBoolean].!

Item was changed:
  ----- Method: TheWorldMainDockingBar class>>setMenuPreference:to: (in category 'preferences') -----
+ setMenuPreference: aPreferenceSymbol to: aBooleanOrNil
- setMenuPreference: aPreferenceSymbol to: aBoolean
  | project |
  (project := Project current) isMorphic ifTrue: [
+ aBooleanOrNil
+ ifNil: ["Reset to default value."
+ (Preferences preferenceAt: aPreferenceSymbol) ifNotNil: [:pref | pref restoreDefaultValue]]
+ ifNotNil: [
+ project projectPreferenceFlagDictionary at: aPreferenceSymbol  put: aBooleanOrNil].
+ (aBooleanOrNil ~= (Preferences preferenceAt: aPreferenceSymbol))
+ ifTrue: [Preferences setPreference: aPreferenceSymbol toValue: aBooleanOrNil]].
- project projectPreferenceFlagDictionary at: aPreferenceSymbol  put: aBoolean.
- (aBoolean ~= (Preferences preferenceAt: aPreferenceSymbol))
- ifTrue: [Preferences setPreference: aPreferenceSymbol toValue: aBoolean]].
  self updateInstances.!