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

commits at source.squeak.org commits at source.squeak.org
Wed Jan 11 09:31:43 UTC 2017

Merlin de la Haye uploaded a new version of Morphic to project The Inbox:

==================== 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') -----
  	<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 | 
  				contents: 'No Windows' translated;
  				isEnabled: false ] ].
  	windows do: [ :each |
  		menu addItem: [ :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]);
  				target: each;
  				selector: #comeToFront;
  				subMenuUpdater: self
  				selector: #windowMenuFor:on:
  				arguments: { each };
  				action: [ each beKeyWindow; expand ] ] ].
  		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.!

More information about the Squeak-dev mailing list