A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-lrnp.308.mcz
==================== Summary ====================
Name: MorphicExtras-lrnp.308 Author: lrnp Time: 2 March 2022, 9:53:05.152048 pm UUID: aaa42c8a-2ead-42a8-ae9f-e7802c4b176f Ancestors: MorphicExtras-mt.307
Put the book, not true, in the return position.
Must Do-It:
ScrapBook cleanUp: true.
when updating in-place.
=============== Diff against MorphicExtras-mt.307 ===============
Item was changed: ----- Method: ScrapBook>>scrapBook (in category 'scraps') ----- scrapBook | header aButton label | ^ book ifNil: [ book := BookMorph new pageSize: 300@300; setNameTo: 'scraps' translated. book addCornerGrips. book color: Color yellow muchLighter. book borderColor: Color darkGray; borderWidth: 2. book removeEverything; showPageControls; insertPage.
header := AlignmentMorph newRow wrapCentering: #center; cellPositioning: #leftCenter. header setProperty: #header toValue: true. header addMorph: (aButton := ThreePhaseButtonMorph labelSymbol: #'Halo-Collapse'). aButton target: book; actionSelector: #delete; setBalloonText: 'Close the trashcan.(to view again later, click on any trashcan).' translated withCRs. header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. header addMorphBack: (label := UpdatingStringMorph new target: self) beSticky. label getSelector: #trashTitle; useStringFormat; step. header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. header addMorphBack: (aButton := ThreePhaseButtonMorph labelSymbol: #'Halo-Dismiss'). aButton target: self; actionSelector: #maybeEmptyTrash; setBalloonText: 'Click here to empty the trash.' translated. book currentPage layoutPolicy: TableLayout new; addMorph: (TextMorph new contents: 'Objects you drag into the trash will automatically be saved here, one object per page, in case you need them later. To disable this feature set the "preserveTrash" Preference to false.\You can individually expunge objects by hitting the "-" control (behind "..."). You can empty out all the objects in the trash can by hitting the "X" button at top right.' translated withCRs; hResizing: #spaceFill).
book addMorphFront: header. + book setProperty: #scraps toValue: true. + book].! - book setProperty: #scraps toValue: true].!
squeak-dev@lists.squeakfoundation.org