Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.373.mcz
==================== Summary ====================
Name: Graphics-ul.373 Author: ul Time: 24 April 2017, 1:02:39.629816 pm UUID: db169757-0711-4bd4-8d51-74b25589668c Ancestors: Graphics-cbc.372
- rewrote senders of #clone to use #shallowCopy - removed some unnecessary #copy implementations
=============== Diff against Graphics-cbc.372 ===============
Item was changed: ----- Method: BDFFontReader class>>downloadFonts (in category 'resource download') ----- downloadFonts "BDFFontReader downloadFonts" "Download a standard set of BDF sources from x.org. The combined size of these source files is around 1.2M; after conversion to .sf2 format they may be deleted."
| heads tails filenames baseUrl basePath | heads := #( 'charR' 'courR' 'helvR' 'lubR' 'luRS' 'lutRS' 'ncenR' 'timR' ). tails := #( '08' '10' '12' '14' '18' '24').
filenames := OrderedCollection new. heads do: [:head | filenames addAll: (tails collect: [:tail | head , tail , '.bdf']) ]. baseUrl := 'http://cvsweb.xfree86.org/cvsweb/*checkout*/xc/fonts/bdf/75dpi/' asUrl. basePath := baseUrl path.
filenames do: [:filename | | document newPath newUrl | + newUrl := baseUrl shallowCopy. - newUrl := baseUrl clone. newPath := OrderedCollection newFrom: basePath.
newPath addLast: filename. newUrl path: newPath.
UIManager default informUser: 'Fetching ' , filename during: [document := newUrl retrieveContents].
MultiByteFileStream newFileNamed: filename do: [ :f | f wantsLineEndConversion: true; nextPutAll: document content ] ]. !
Item was removed: - ----- Method: Bitmap>>copy (in category 'copying') ----- - copy - - ^self clone!
Item was removed: - ----- Method: CharacterBlock>>copy (in category 'accessing') ----- - copy - "Overridden because Rectangle does a deepCopy, which goes nuts with the text" - - ^ self clone!
Item was changed: ----- Method: DisplayHostWindow>>queueEvent: (in category 'private-events') ----- queueEvent: evt "Queue the given event in the event queue (if any). Note that the event buffer must be copied since it will be reused later on." eventQueue ifNil: [^self]. "queue gets created by client" + eventQueue nextPut: evt shallowCopy. - eventQueue nextPut: evt clone. !
Item was changed: ----- Method: TextStyle>>veryDeepCopyWith: (in category 'Disk I/O') ----- veryDeepCopyWith: deepCopier "All inst vars are meant to be shared"
self == #veryDeepCopyWith:. "to satisfy checkVariables" + ^ deepCopier references at: self ifAbsentPut: [self shallowCopy]. "remember"! - ^ deepCopier references at: self ifAbsentPut: [self clone]. "remember"!
packages@lists.squeakfoundation.org