[BUG]MessageNotUnderstood: UndefinedObject>>isDeprecated

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

[BUG]MessageNotUnderstood: UndefinedObject>>isDeprecated

Karl Ramberg
Filing in and entering a old project bring up this bug.
Forexample this project:

Best,
Karl


22 October 2019 7:04:42.089765 pm

VM: Win32 - Smalltalk
Image: Squeak5.3alpha [latest update: #19133]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Users\Karl\Downloads\Squeak5.3alpha-18806-64bit-201810190412-Windows\Squeak5.3alpha-18806-64bit-201810190412-Windows
Trusted Dir C:\Users\Karl\Downloads\Squeak5.3alpha-18806-64bit-201810190412-Windows\Squeak5.3alpha-18806-64bit-201810190412-Windows\Karl
Untrusted Dir C:\Users\Karl\Documents\My Squeak

UndefinedObject(Object)>>doesNotUnderstand: #isDeprecated
Receiver: nil
Arguments and temporary variables:
aMessage: isDeprecated
exception: MessageNotUnderstood: UndefinedObject>>isDeprecated
resumeValue: nil
Receiver's instance variables:
nil

RecentMessageSet(CodeHolder)>>formattedLabel:forSelector:inClass:
Receiver: a RecentMessageSet
Arguments and temporary variables:
aString: 'T5 foo'
aSymbol: #foo
aClass: nil
formattedLabel: nil
Receiver's instance variables:
dependents: a DependentsArray(a PluggableSystemWindow<Untitled Window>(156713) ...etc...
contents: ''
currentCompiledMethod: nil
contentsSymbol: nil
multiWindowState: nil
growable: nil
messageList: an OrderedCollection(a MethodReference UpdatingSketchMorph >> #ste...etc...
messageListFormatted: nil
autoSelectString: nil
messageListIndex: 1
editSelection: nil

[] in RecentMessageSet(MessageSet)>>formattedLabel:
Receiver: a RecentMessageSet
Arguments and temporary variables:
aStringOrCodeReference: nil
cls: #foo
sel: a MethodReference T5 >> #foo
Receiver's instance variables:
dependents: a DependentsArray(a PluggableSystemWindow<Untitled Window>(156713) ...etc...
contents: ''
currentCompiledMethod: nil
contentsSymbol: nil
multiWindowState: nil
growable: nil
messageList: an OrderedCollection(a MethodReference UpdatingSketchMorph >> #ste...etc...
messageListFormatted: nil
autoSelectString: nil
messageListIndex: 1
editSelection: nil

MethodReference>>setClassAndSelectorIn:
Receiver: a MethodReference T5 >> #foo
Arguments and temporary variables:
csBlock: [closure] in RecentMessageSet(MessageSet)>>formattedLabel:
Receiver's instance variables:
classSymbol: #T5
classIsMeta: false
methodSymbol: #foo
stringVersion: 'T5 foo'
category: nil
environment: Smalltalk

RecentMessageSet class(MessageSet class)>>parse:toClassAndSelector:
Receiver: RecentMessageSet
Arguments and temporary variables:
codeReferenceOrString: a MethodReference T5 >> #foo
csBlock: [closure] in RecentMessageSet(MessageSet)>>formattedLabel:
tuple: nil
cl: nil
Receiver's instance variables:
superclass: MessageSet
methodDict: a MethodDictionary(#addExtraShiftedItemsTo:->(RecentMessageSet>>#ad...etc...
format: 65547
instanceVariables: nil
organization: ('contents' contents:notifying:)
('message functions' messageListMenuForRecentSubmission:...etc...
subclasses: nil
name: #RecentMessageSet
classPool: nil
sharedPools: nil
environment: nil
category: #'Tools-Browser'

RecentMessageSet(MessageSet)>>formattedLabel:
Receiver: a RecentMessageSet
Arguments and temporary variables:
aStringOrCodeReference: a MethodReference T5 >> #foo
Receiver's instance variables:
dependents: a DependentsArray(a PluggableSystemWindow<Untitled Window>(156713) ...etc...
contents: ''
currentCompiledMethod: nil
contentsSymbol: nil
multiWindowState: nil
growable: nil
messageList: an OrderedCollection(a MethodReference UpdatingSketchMorph >> #ste...etc...
messageListFormatted: nil
autoSelectString: nil
messageListIndex: 1
editSelection: nil

[] in RecentMessageSet(MessageSet)>>messageListFormatted
Receiver: a RecentMessageSet
Arguments and temporary variables:
ea: a MethodReference T5 >> #foo
Receiver's instance variables:
dependents: a DependentsArray(a PluggableSystemWindow<Untitled Window>(156713) ...etc...
contents: ''
currentCompiledMethod: nil
contentsSymbol: nil
multiWindowState: nil
growable: nil
messageList: an OrderedCollection(a MethodReference UpdatingSketchMorph >> #ste...etc...
messageListFormatted: nil
autoSelectString: nil
messageListIndex: 1
editSelection: nil

OrderedCollection>>collect:
Receiver: an OrderedCollection(a MethodReference UpdatingSketchMorph >> #stepTime a MethodReference ...etc...
Arguments and temporary variables:
aBlock: [closure] in RecentMessageSet(MessageSet)>>messageListFormatted
newCollection: an OrderedCollection('UpdatingSketchMorph stepTime {as yet uncla...etc...
index: 27
Receiver's instance variables:
array: {a MethodReference UpdatingSketchMorph >> #stepTime . a MethodReference ...etc...
firstIndex: 1
lastIndex: 30

RecentMessageSet(MessageSet)>>messageListFormatted
Receiver: a RecentMessageSet
Arguments and temporary variables:

Receiver's instance variables:
dependents: a DependentsArray(a PluggableSystemWindow<Untitled Window>(156713) ...etc...
contents: ''
currentCompiledMethod: nil
contentsSymbol: nil
multiWindowState: nil
growable: nil
messageList: an OrderedCollection(a MethodReference UpdatingSketchMorph >> #ste...etc...
messageListFormatted: nil
autoSelectString: nil
messageListIndex: 1
editSelection: nil

PluggableListMorphPlus(PluggableListMorph)>>getFullList
Receiver: a PluggableListMorphPlus(837572)
Arguments and temporary variables:
sel: #messageListFormatted
Receiver's instance variables:
bounds: 0@0 corner: 150@120
owner: nil
submorphs: {a ScrollBar(454900) . a ScrollBar(3486613) . a TransformMorph(89611...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (3407225) [other:  (minWidth -> 60) (keyboardCaptur...etc...
borderWidth: 1
borderColor: Color aluminum
model: a RecentMessageSet
slotName: nil
open: false
scrollBar: a ScrollBar(3486613)
scroller: a TransformMorph(896112)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #messageListMenu:shifted:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(454900)
hScrollBarPolicy: #never
vScrollBarPolicy: #whenNeeded
scrollBarThickness: 10
list: #()
fullList: nil
modelToView: nil
viewToModel: nil
getListSelector: #messageListFormatted
getListSizeSelector: nil
getListElementSelector: nil
getIndexSelector: #messageListIndex
setIndexSelector: #messageListIndex:
keystrokeActionSelector: #messageListKey:from:
autoDeselect: true
lastKeystrokeTime: nil
lastKeystrokes: nil
lastClickTime: nil
doubleClickSelector: nil
handlesBasicKeys: nil
potentialDropRow: nil
hoverRow: nil
listMorph: a LazyListMorph(410668)
keystrokePreviewSelector: nil
priorSelection: nil
getIconSelector: nil
getHelpSelector: nil
dragItemSelector: nil
dropItemSelector: nil
wantsDropSelector: nil
dragTypeSelector: nil
dragStartedSelector: nil

PluggableListMorphPlus(PluggableListMorph)>>getFilteredList
Receiver: a PluggableListMorphPlus(837572)
Arguments and temporary variables:
fullList: nil
filteredList: nil
Receiver's instance variables:
bounds: 0@0 corner: 150@120
owner: nil
submorphs: {a ScrollBar(454900) . a ScrollBar(3486613) . a TransformMorph(89611...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (3407225) [other:  (minWidth -> 60) (keyboardCaptur...etc...
borderWidth: 1
borderColor: Color aluminum
model: a RecentMessageSet
slotName: nil
open: false
scrollBar: a ScrollBar(3486613)
scroller: a TransformMorph(896112)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #messageListMenu:shifted:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(454900)
hScrollBarPolicy: #never
vScrollBarPolicy: #whenNeeded
scrollBarThickness: 10
list: #()
fullList: nil
modelToView: nil
viewToModel: nil
getListSelector: #messageListFormatted
getListSizeSelector: nil
getListElementSelector: nil
getIndexSelector: #messageListIndex
setIndexSelector: #messageListIndex:
keystrokeActionSelector: #messageListKey:from:
autoDeselect: true
lastKeystrokeTime: nil
lastKeystrokes: nil
lastClickTime: nil
doubleClickSelector: nil
handlesBasicKeys: nil
potentialDropRow: nil
hoverRow: nil
listMorph: a LazyListMorph(410668)
keystrokePreviewSelector: nil
priorSelection: nil
getIconSelector: nil
getHelpSelector: nil
dragItemSelector: nil
dropItemSelector: nil
wantsDropSelector: nil
dragTypeSelector: nil
dragStartedSelector: nil

PluggableListMorphPlus(PluggableListMorph)>>getList
Receiver: a PluggableListMorphPlus(837572)
Arguments and temporary variables:

Receiver's instance variables:
bounds: 0@0 corner: 150@120
owner: nil
submorphs: {a ScrollBar(454900) . a ScrollBar(3486613) . a TransformMorph(89611...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (3407225) [other:  (minWidth -> 60) (keyboardCaptur...etc...
borderWidth: 1
borderColor: Color aluminum
model: a RecentMessageSet
slotName: nil
open: false
scrollBar: a ScrollBar(3486613)
scroller: a TransformMorph(896112)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #messageListMenu:shifted:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(454900)
hScrollBarPolicy: #never
vScrollBarPolicy: #whenNeeded
scrollBarThickness: 10
list: #()
fullList: nil
modelToView: nil
viewToModel: nil
getListSelector: #messageListFormatted
getListSizeSelector: nil
getListElementSelector: nil
getIndexSelector: #messageListIndex
setIndexSelector: #messageListIndex:
keystrokeActionSelector: #messageListKey:from:
autoDeselect: true
lastKeystrokeTime: nil
lastKeystrokes: nil
lastClickTime: nil
doubleClickSelector: nil
handlesBasicKeys: nil
potentialDropRow: nil
hoverRow: nil
listMorph: a LazyListMorph(410668)
keystrokePreviewSelector: nil
priorSelection: nil
getIconSelector: nil
getHelpSelector: nil
dragItemSelector: nil
dropItemSelector: nil
wantsDropSelector: nil
dragTypeSelector: nil
dragStartedSelector: nil

PluggableListMorphPlus(PluggableListMorph)>>updateListFilter
Receiver: a PluggableListMorphPlus(837572)
Arguments and temporary variables:
selection: nil
Receiver's instance variables:
bounds: 0@0 corner: 150@120
owner: nil
submorphs: {a ScrollBar(454900) . a ScrollBar(3486613) . a TransformMorph(89611...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (3407225) [other:  (minWidth -> 60) (keyboardCaptur...etc...
borderWidth: 1
borderColor: Color aluminum
model: a RecentMessageSet
slotName: nil
open: false
scrollBar: a ScrollBar(3486613)
scroller: a TransformMorph(896112)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #messageListMenu:shifted:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(454900)
hScrollBarPolicy: #never
vScrollBarPolicy: #whenNeeded
scrollBarThickness: 10
list: #()
fullList: nil
modelToView: nil
viewToModel: nil
getListSelector: #messageListFormatted
getListSizeSelector: nil
getListElementSelector: nil
getIndexSelector: #messageListIndex
setIndexSelector: #messageListIndex:
keystrokeActionSelector: #messageListKey:from:
autoDeselect: true
lastKeystrokeTime: nil
lastKeystrokes: nil
lastClickTime: nil
doubleClickSelector: nil
handlesBasicKeys: nil
potentialDropRow: nil
hoverRow: nil
listMorph: a LazyListMorph(410668)
keystrokePreviewSelector: nil
priorSelection: nil
getIconSelector: nil
getHelpSelector: nil
dragItemSelector: nil
dropItemSelector: nil
wantsDropSelector: nil
dragTypeSelector: nil
dragStartedSelector: nil

PluggableListMorphPlus(PluggableListMorph)>>updateList:
Receiver: a PluggableListMorphPlus(837572)
Arguments and temporary variables:
modelList: nil
Receiver's instance variables:
bounds: 0@0 corner: 150@120
owner: nil
submorphs: {a ScrollBar(454900) . a ScrollBar(3486613) . a TransformMorph(89611...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (3407225) [other:  (minWidth -> 60) (keyboardCaptur...etc...
borderWidth: 1
borderColor: Color aluminum
model: a RecentMessageSet
slotName: nil
open: false
scrollBar: a ScrollBar(3486613)
scroller: a TransformMorph(896112)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #messageListMenu:shifted:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(454900)
hScrollBarPolicy: #never
vScrollBarPolicy: #whenNeeded
scrollBarThickness: 10
list: #()
fullList: nil
modelToView: nil
viewToModel: nil
getListSelector: #messageListFormatted
getListSizeSelector: nil
getListElementSelector: nil
getIndexSelector: #messageListIndex
setIndexSelector: #messageListIndex:
keystrokeActionSelector: #messageListKey:from:
autoDeselect: true
lastKeystrokeTime: nil
lastKeystrokes: nil
lastClickTime: nil
doubleClickSelector: nil
handlesBasicKeys: nil
potentialDropRow: nil
hoverRow: nil
listMorph: a LazyListMorph(410668)
keystrokePreviewSelector: nil
priorSelection: nil
getIconSelector: nil
getHelpSelector: nil
dragItemSelector: nil
dropItemSelector: nil
wantsDropSelector: nil
dragTypeSelector: nil
dragStartedSelector: nil

PluggableListMorphPlus(PluggableListMorph)>>updateList
Receiver: a PluggableListMorphPlus(837572)
Arguments and temporary variables:

Receiver's instance variables:
bounds: 0@0 corner: 150@120
owner: nil
submorphs: {a ScrollBar(454900) . a ScrollBar(3486613) . a TransformMorph(89611...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (3407225) [other:  (minWidth -> 60) (keyboardCaptur...etc...
borderWidth: 1
borderColor: Color aluminum
model: a RecentMessageSet
slotName: nil
open: false
scrollBar: a ScrollBar(3486613)
scroller: a TransformMorph(896112)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #messageListMenu:shifted:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(454900)
hScrollBarPolicy: #never
vScrollBarPolicy: #whenNeeded
scrollBarThickness: 10
list: #()
fullList: nil
modelToView: nil
viewToModel: nil
getListSelector: #messageListFormatted
getListSizeSelector: nil
getListElementSelector: nil
getIndexSelector: #messageListIndex
setIndexSelector: #messageListIndex:
keystrokeActionSelector: #messageListKey:from:
autoDeselect: true
lastKeystrokeTime: nil
lastKeystrokes: nil
lastClickTime: nil
doubleClickSelector: nil
handlesBasicKeys: nil
potentialDropRow: nil
hoverRow: nil
listMorph: a LazyListMorph(410668)
keystrokePreviewSelector: nil
priorSelection: nil
getIconSelector: nil
getHelpSelector: nil
dragItemSelector: nil
dropItemSelector: nil
wantsDropSelector: nil
dragTypeSelector: nil
dragStartedSelector: nil

PluggableListMorphPlus(PluggableListMorph)>>on:list:selected:changeSelected:menu:keystroke:
Receiver: a PluggableListMorphPlus(837572)
Arguments and temporary variables:
anObject: a RecentMessageSet
getListSel: #messageListFormatted
getSelectionSel: #messageListIndex
setSelectionSel: #messageListIndex:
getMenuSel: #messageListMenu:shifted:
keyActionSel: #messageListKey:from:
Receiver's instance variables:
bounds: 0@0 corner: 150@120
owner: nil
submorphs: {a ScrollBar(454900) . a ScrollBar(3486613) . a TransformMorph(89611...etc...
fullBounds: nil
color: Color white
extension: a MorphExtension (3407225) [other:  (minWidth -> 60) (keyboardCaptur...etc...
borderWidth: 1
borderColor: Color aluminum
model: a RecentMessageSet
slotName: nil
open: false
scrollBar: a ScrollBar(3486613)
scroller: a TransformMorph(896112)
retractableScrollBar: false
scrollBarOnLeft: false
getMenuSelector: #messageListMenu:shifted:
getMenuTitleSelector: nil
hasFocus: false
hScrollBar: a ScrollBar(454900)
hScrollBarPolicy: #never
vScrollBarPolicy: #whenNeeded
scrollBarThickness: 10
list: #()
fullList: nil
modelToView: nil
viewToModel: nil
getListSelector: #messageListFormatted
getListSizeSelector: nil
getListElementSelector: nil
getIndexSelector: #messageListIndex
setIndexSelector: #messageListIndex:
keystrokeActionSelector: #messageListKey:from:
autoDeselect: true
lastKeystrokeTime: nil
lastKeystrokes: nil
lastClickTime: nil
doubleClickSelector: nil
handlesBasicKeys: nil
potentialDropRow: nil
hoverRow: nil
listMorph: a LazyListMorph(410668)
keystrokePreviewSelector: nil
priorSelection: nil
getIconSelector: nil
getHelpSelector: nil
dragItemSelector: nil
dropItemSelector: nil
wantsDropSelector: nil
dragTypeSelector: nil
dragStartedSelector: nil

PluggableListMorphPlus class(PluggableListMorph class)>>on:list:selected:changeSelected:menu:keystroke:
Receiver: PluggableListMorphPlus
Arguments and temporary variables:
anObject: a RecentMessageSet
getListSel: #messageListFormatted
getSelectionSel: #messageListIndex
setSelectionSel: #messageListIndex:
getMenuSel: #messageListMenu:shifted:
keyActionSel: #messageListKey:from:
Receiver's instance variables:
superclass: PluggableListMorph
methodDict: a MethodDictionary(#acceptDroppingMorph:event:->(PluggableListMorphPlus...etc...
format: 65586
instanceVariables: #('dragItemSelector' 'dropItemSelector' 'wantsDropSelector' ...etc...
organization: ('accessing' dragItemSelector dragItemSelector: dragStartedSelector...etc...
subclasses: {PluggableListMorphByItemPlus}
name: #PluggableListMorphPlus
classPool: nil
sharedPools: nil
environment: Smalltalk
category: #'ToolBuilder-Morphic'
prototype: nil

MorphicToolBuilder>>buildPluggableList:
Receiver: a MorphicToolBuilder
Arguments and temporary variables:
aSpec: a PluggableListSpec
widget: nil
listClass: PluggableListMorphPlus
getIndex: #messageListIndex
setIndex: #messageListIndex:
Receiver's instance variables:
parent: a PluggableSystemWindow<Untitled Window>(156713)
widgets: nil
panes: an OrderedCollection()
parentMenu: nil

PluggableListSpec>>buildWith:
Receiver: a PluggableListSpec
Arguments and temporary variables:
builder: a MorphicToolBuilder
Receiver's instance variables:
name: nil
help: nil
model: a RecentMessageSet
frame: 0@0 corner: 1@0.3
color: nil
minimumExtent: nil
margin: nil
padding: nil
horizontalResizing: nil
verticalResizing: nil
list: #messageListFormatted
getIndex: #messageListIndex
setIndex: #messageListIndex:
getSelected: nil
setSelected: nil
menu: #messageListMenu:shifted:
keyPress: #messageListKey:from:
autoDeselect: nil
dragItem: #dragFromMessageList:
dropItem: nil
dropAccept: nil
doubleClick: nil
listSize: nil
listItem: nil
keystrokePreview: nil
icon: #messageIconAt:
vScrollBarPolicy: nil
hScrollBarPolicy: nil
dragStarted: nil
helpItem: #messageHelpAt:
filterableList: nil
clearFilterAutomatically: nil


--- The full stack ---
UndefinedObject(Object)>>doesNotUnderstand: #isDeprecated
RecentMessageSet(CodeHolder)>>formattedLabel:forSelector:inClass:
[] in RecentMessageSet(MessageSet)>>formattedLabel:
MethodReference>>setClassAndSelectorIn:
RecentMessageSet class(MessageSet class)>>parse:toClassAndSelector:
RecentMessageSet(MessageSet)>>formattedLabel:
[] in RecentMessageSet(MessageSet)>>messageListFormatted
OrderedCollection>>collect:
RecentMessageSet(MessageSet)>>messageListFormatted
PluggableListMorphPlus(PluggableListMorph)>>getFullList
PluggableListMorphPlus(PluggableListMorph)>>getFilteredList
PluggableListMorphPlus(PluggableListMorph)>>getList
PluggableListMorphPlus(PluggableListMorph)>>updateListFilter
PluggableListMorphPlus(PluggableListMorph)>>updateList:
PluggableListMorphPlus(PluggableListMorph)>>updateList
PluggableListMorphPlus(PluggableListMorph)>>on:list:selected:changeSelected:menu:keystroke:
PluggableListMorphPlus class(PluggableListMorph class)>>on:list:selected:changeSelected:menu:keystroke:
MorphicToolBuilder>>buildPluggableList:
PluggableListSpec>>buildWith:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
[] in MorphicToolBuilder(ToolBuilder)>>buildAll:in:
OrderedCollection>>do:
MorphicToolBuilder(ToolBuilder)>>buildAll:in:
MorphicToolBuilder>>buildPluggableWindow:
PluggableWindowSpec>>buildWith:
MorphicToolBuilder(ToolBuilder)>>build:
RecentMessageSet(MessageSet)>>buildWith:
MorphicToolBuilder(ToolBuilder)>>build:
ToolBuilder class>>build:
Utilities class>>recentSubmissionsWindow
PartsBin class>>thumbnailForQuad:color:
[] in PartsBin>>listDirection:quadList:buttonClass:
OrderedCollection>>do:
PartsBin>>listDirection:quadList:buttonClass:
PartsBin>>listDirection:quadList:
PartsBin class>>newPartsBinWithOrientation:andColor:from:
Flaps class>>newToolsFlap
Flaps class>>addStandardFlaps
Flaps class>>initializeStandardFlaps
Flaps class>>globalFlapTabs
[] in Flaps class>>enableGlobalFlaps
CursorWithMask(Cursor)>>showWhile:
Flaps class>>enableGlobalFlaps
MorphicProject>>updateLocaleDependents
MorphicProject(Project)>>localeChanged
MorphicProject class(Project class)>>localeChanged
[] in Locale class>>localeChanged
[] in SystemNavigation>>allBehaviorsDo:
[] in Environment>>allClassesAndTraitsDo:
[] in IdentityDictionary(Dictionary)>>keysAndValuesDo:
IdentityDictionary(Dictionary)>>associationsDo:
IdentityDictionary(Dictionary)>>keysAndValuesDo:
Environment>>allClassesAndTraitsDo:
SystemNavigation>>allBehaviorsDo:
Locale class>>localeChanged
Locale class>>switchTo:gently:
Locale class>>switchTo:
Locale class>>switchAndInstallFontToID:
MorphicProject>>finalEnterActions:
MorphicProject(Project)>>enter:revert:saveForRevert:
Project class>>returnToPreviousProject
PasteUpMorph>>goBack
-- and more not shown --