[squeak-dev] The Trunk: Morphic-mt.2070.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Jan 20 17:48:54 UTC 2023
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.2070.mcz
==================== Summary ====================
Name: Morphic-mt.2070
Author: mt
Time: 20 January 2023, 6:48:51.837382 pm
UUID: 698147f2-5aa9-2c41-b96e-a21f8163a07d
Ancestors: Morphic-mt.2069
Complements System-mt.1385
=============== Diff against Morphic-mt.2069 ===============
Item was changed:
----- Method: SystemWindow>>delete (in category 'open/close') -----
delete
| thisWorld sketchEditor aPaintBox |
self mustNotClose ifTrue: [^self].
model okToClose ifFalse: [^self].
thisWorld := self world.
sketchEditor := self extantSketchEditor.
self activeHand removeKeyboardListener: self.
+ RealEstateAgent rememberExtentFor: model.
self isFlexed
ifTrue: [owner delete]
ifFalse: [super delete].
model windowIsClosing; release.
model := nil.
sketchEditor ifNotNil:
[sketchEditor deleteSelfAndSubordinates.
(thisWorld notNil
and: [(aPaintBox := thisWorld paintBoxOrNil) notNil]) ifTrue:
[aPaintBox delete]].
SystemWindow noteTopWindowIn: thisWorld!
More information about the Squeak-dev
mailing list
|