Re: [squeak-dev] The Inbox: Morphic-mdlh.1297.mcz

On Wed, 11 Jan 2017 09:31:43 0000, commits@source.squeak.org commits@source.squeak.org wrote:

Merlin de la Haye uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-mdlh.1297.mcz

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

Name: Morphic-mdlh.1297 Author: mdlh Time: 29 December 2016, 11:46:25.676308 am UUID: b2c44cf8-e058-dd49-a748-161548b2da23 Ancestors: Morphic-mt.1296

corrected typo in description text (amout -> amount)

=============== Diff against Morphic-mt.1296 ===============

Item was changed: ----- Method: PluggableTextMorph class>>visualWrapBorder (in category 'preferences') ----- visualWrapBorder <preference: 'Show wrap border in code panes.' categoryList: #(editing visuals performance)

• description: 'Show a visual border after a specific amount of
  

characters. Makes sense for monospaced fonts.'

• description: 'Show a visual border after a specific amout of characters.
  

Makes sense for monospaced fonts.' type: #Boolean> ^ VisualWrapBorder ifNil: [false]!

Item was changed: ----- Method: ScrollBar>>scrollPageInit: (in category 'scrolling') ----- scrollPageInit: evt

evt redButtonPressed ifFalse: [^ self].

self resetTimer. self setNextDirectionFromEvent: evt. self scrollBarAction: #doScrollByPage. self startStepping.!

Item was changed: ----- Method: TheWorldMainDockingBar>>listWindowsOn: (in category 'submenu

• windows') ----- listWindowsOn: menu

  | windows | windows := self allVisibleWindows sorted: [:winA :winB | ((winA model isNil or: [winB model isNil]) or: [winA model name = winB

model name]) ifTrue: [winA label < winB label] ifFalse: [winA model name < winB model name]]. windows ifEmpty: [ menu addItem: [ :item | item contents: 'No Windows' translated; isEnabled: false ] ]. windows do: [ :each | menu addItem: [ :item | item contents: (self windowMenuItemLabelFor: each);

• 		icon: ((each model respondsTo: #windowColorToUse)
  

• 			ifTrue: [self colorIcon: each model windowColorToUse]
  

• 			ifFalse: [self colorIcon: each color]);
  

• 		icon: (each model ifNotNil: [self colorIcon: each model
  

windowColorToUse]);

What is the intent of this change?

		target: each;
		selector: #comeToFront;
		subMenuUpdater: self
		selector: #windowMenuFor:on:
		arguments: { each };
		action: [ each beKeyWindow; expand ] ] ].

menu addLine; add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe; addItem: [:item | item contents: 'Close all windows without changes'; target: self; icon: MenuIcons smallBroomIcon; selector: #closeAllWindows]; add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.!