<div dir="ltr">Should I moved this into the Treated Inbox and do this a third time from a properly updated (16996 at this moment) image?<br></div><div class="gmail_extra"><br><div class="gmail_quote">On Sat, Mar 11, 2017 at 2:38 AM, <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">A new version of Morphic was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Morphic-klc.1297.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/<wbr>inbox/Morphic-klc.1297.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-klc.1297<br>
Author: klc<br>
Time: 11 March 2017, 2:37:49.702033 am<br>
UUID: d85f7001-40cf-9a47-8b99-<wbr>e0905a154364<br>
Ancestors: Morphic-mt.1296<br>
<br>
Update Swiki link to point to current site in class comment.<br>
<br>
=============== Diff against Morphic-mt.1296 ===============<br>
<br>
Item was changed:<br>
Object subclass: #Morph<br>
instanceVariableNames: 'bounds owner submorphs fullBounds color extension'<br>
classVariableNames: 'IndicateKeyboardFocus PreferredCornerRadius UseSoftDropShadow'<br>
poolDictionaries: ''<br>
category: 'Morphic-Kernel'!<br>
<br>
+ !Morph commentStamp: 'KLC 3/10/2017 15:50' prior: 0!<br>
+ A Morph (from the Greek "shape" or "form") is an interactive graphical object. General information on the Morphic system can be found at <a href="http://wiki.squeak.org/squeak/30" rel="noreferrer" target="_blank">http://wiki.squeak.org/squeak/<wbr>30</a>.<br>
- !Morph commentStamp: 'efc 2/26/2003 20:01' prior: 0!<br>
- A Morph (from the Greek "shape" or "form") is an interactive graphical object. General information on the Morphic system can be found at <a href="http://minnow.cc.gatech.edu/squeak/30" rel="noreferrer" target="_blank">http://minnow.cc.gatech.edu/<wbr>squeak/30</a>.<br>
<br>
Morphs exist in a tree, rooted at a World (generally a PasteUpMorph). The morphs owned by a morph are its submorphs. Morphs are drawn recursively; if a Morph has no owner it never gets drawn. To hide a Morph and its submorphs, set its #visible property to false using the #visible: method.<br>
<br>
The World (screen) coordinate system is used for most coordinates, but can be changed if there is a TransformMorph somewhere in the owner chain.<br>
<br>
My instance variables have accessor methods (e.g., #bounds, #bounds:). Most users should use the accessor methods instead of using the instance variables directly.<br>
<br>
Structure:<br>
instance var Type Description<br>
bounds Rectangle A Rectangle indicating my position and a size that will enclose me.<br>
owner Morph My parent Morph, or nil for the top-level Morph, which is a<br>
or nil world, typically a PasteUpMorph.<br>
submorphs Array My child Morphs.<br>
fullBounds Rectangle A Rectangle minimally enclosing me and my submorphs.<br>
color Color My primary color. Subclasses can use this in different ways.<br>
extension MorphExtension Allows extra properties to be stored without adding a<br>
or nil storage burden to all morphs.<br>
<br>
By default, Morphs do not position their submorphs. Morphs may position their submorphs directly or use a LayoutPolicy to automatically control their submorph positioning.<br>
<br>
Although Morph has some support for BorderStyle, most users should use BorderedMorph if they want borders.!<br>
<br>
Item was changed:<br>
----- Method: ScrollBar>>scrollPageInit: (in category 'scrolling') -----<br>
scrollPageInit: evt<br>
<br>
evt redButtonPressed ifFalse: [^ self].<br>
<br>
self resetTimer.<br>
self setNextDirectionFromEvent: evt.<br>
self scrollBarAction: #doScrollByPage.<br>
self startStepping.!<br>
<br>
Item was changed:<br>
----- Method: TheWorldMainDockingBar>><wbr>listWindowsOn: (in category 'submenu - windows') -----<br>
listWindowsOn: menu<br>
<br>
| windows |<br>
windows := self allVisibleWindows sorted: [:winA :winB |<br>
((winA model isNil or: [winB model isNil]) or: [winA model name = winB model name])<br>
ifTrue: [winA label < winB label]<br>
ifFalse: [winA model name < winB model name]].<br>
windows ifEmpty: [<br>
menu addItem: [ :item |<br>
item<br>
contents: 'No Windows' translated;<br>
isEnabled: false ] ].<br>
windows do: [ :each |<br>
menu addItem: [ :item |<br>
item<br>
contents: (self windowMenuItemLabelFor: each);<br>
+ icon: ((each model respondsTo: #windowColorToUse)<br>
+ ifTrue: [self colorIcon: each model windowColorToUse]<br>
+ ifFalse: [self colorIcon: each color]);<br>
- icon: (each model ifNotNil: [self colorIcon: each model windowColorToUse]);<br>
target: each;<br>
selector: #comeToFront;<br>
subMenuUpdater: self<br>
selector: #windowMenuFor:on:<br>
arguments: { each };<br>
action: [ each beKeyWindow; expand ] ] ].<br>
menu<br>
addLine;<br>
add: 'Close all windows' target: self selector: #closeAllWindowsUnsafe;<br>
addItem: [:item | item<br>
contents: 'Close all windows without changes';<br>
target: self;<br>
icon: MenuIcons smallBroomIcon;<br>
selector: #closeAllWindows];<br>
add: 'Close all windows but workspaces' target: self selector: #closeAllWindowsButWorkspaces.<wbr>!<br>
<br>
<br>
</blockquote></div><br></div>