[squeak-dev] The Trunk: Morphic-mt.1702.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Oct 15 12:30:43 UTC 2020
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.!
More information about the Squeak-dev
mailing list
|