Quantcast

The Inbox: Morphic-mdlh.1297.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

The Inbox: Morphic-mdlh.1297.mcz

commits-2
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]);
  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.!


Loading...