[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