Packages April 2017

packages@lists.squeakfoundation.org

1 participants
121 discussions

The Trunk: 60Deprecated-ul.4.mcz
by commits＠source.squeak.org 25 Apr '17

25 Apr '17

Levente Uzonyi uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-ul.4.mcz ==================== Summary ==================== Name: 60Deprecated-ul.4 Author: ul Time: 25 April 2017, 6:39:25.185216 pm UUID: a8e17d3d-f574-4b75-b464-7ec87ffcd62d Ancestors: 60Deprecated-tfel.3 - deprecated Object >> #clone =============== Diff against 60Deprecated-tfel.3 =============== Item was added: + ----- Method: Object>>clone (in category '*60Deprecated-copying') ----- + clone + "Answer a shallow copy of the receiver." + + self deprecated: 'Use #shallowCopy'. + ^self shallowCopy!

1 0

The Trunk: Multilingual-pre.225.mcz
by commits＠source.squeak.org 25 Apr '17

25 Apr '17

Patrick Rein uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-pre.225.mcz ==================== Summary ==================== Name: Multilingual-pre.225 Author: pre Time: 25 April 2017, 2:37:50.28766 pm UUID: 3b353e70-b2e8-2d46-bb26-2f159e6b9276 Ancestors: Multilingual-ul.224 Removes the unnecessary initializers for TextConverters again =============== Diff against Multilingual-ul.224 =============== Item was changed: ----- Method: ByteTextConverter class>>initialize (in category 'class initialization') ----- initialize + self == ByteTextConverter + ifTrue: [self allSubclassesDo: [:c | c initialize]] + ifFalse: [self + initializeDecodeTable; + initializeEncodeTable; + initializeLatin1MapAndEncodings] - self ~~ ByteTextConverter ifTrue: "This method exists for subclass use" - [self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings] ! Item was removed: - ----- Method: CP1250TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: CP1252TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: CP1253TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: CP1256TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: ISO88592TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: ISO88597TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: Latin1TextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize! Item was removed: - ----- Method: Latin9TextConverter class>>initialize (in category 'as yet unclassified') ----- - initialize - - self initializeDecodeTable; initializeEncodeTable; initializeLatin1MapAndEncodings! Item was removed: - ----- Method: MacRomanTextConverter class>>initialize (in category 'class initialization') ----- - initialize - - super initialize!

1 0

The Trunk: EToys-ul.295.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.295.mcz ==================== Summary ==================== Name: EToys-ul.295 Author: ul Time: 24 April 2017, 7:10:16.712957 pm UUID: c7efa44d-562c-4e3a-82c9-aa6c5e17645c Ancestors: EToys-ul.294 KedamaMorph changes: - turtlesToDisplay is a Set instead of an Array (instances are migrated by the postscript) - turtleCount is counted lazily by #turtleCount - therefore #calcTurtlesCount is gone; senders set turtleCount to nil instead - #delete can not blow up anymore, because the keys of the dictionary are copied before mass deletion =============== Diff against EToys-ul.294 =============== Item was changed: ----- Method: KedamaMorph>>addToTurtleDisplayList: (in category 'setup') ----- addToTurtleDisplayList: p - | a | (p isKindOf: KedamaExamplerPlayer) ifFalse: [^ self]. + turtlesToDisplay add: p! - a := turtlesToDisplay copyWithout: p. - turtlesToDisplay := a copyWith: p. - ! Item was removed: - ----- Method: KedamaMorph>>calcTurtlesCount (in category 'turtles') ----- - calcTurtlesCount - - turtleCount := turtlesDict detectSum: [ :each | each size ]! Item was changed: ----- Method: KedamaMorph>>clearAll (in category 'setup') ----- clearAll "Reset this StarSqueak world. All patch variables are cleared, all turtles are removed, and all demons are turned off." patchVarDisplayForm := Form extent: dimensions depth: 32. self initializePatch. self recreateMagnifiedDisplayForm. self initializeTurtlesDict. + turtleCount := nil. - turtleCount := 0. lastTurtleID := 0. self color: Color black. ! Item was changed: ----- Method: KedamaMorph>>delete (in category 'deleting') ----- delete - | c | super delete. + turtlesDict keys do: [:key | + self deleteAllTurtlesOfExampler: key. + key costume ifNotNil: [ :costume | + costume renderedMorph delete ] ]. + defaultPatch ifNotNil: [ defaultPatch delete ] - turtlesDict keysDo: [:k | - self deleteAllTurtlesOfExampler: k. - c := k costume. - c ifNotNil: [c renderedMorph delete]. - ]. - - defaultPatch ifNotNil: [defaultPatch delete]. ! Item was changed: ----- Method: KedamaMorph>>deleteAllTurtlesOfExampler: (in category 'turtles') ----- deleteAllTurtlesOfExampler: examplerPlayer turtlesDict removeKey: examplerPlayer ifAbsent: []. self removeFromTurtleDisplayList: examplerPlayer. + turtleCount := nil - self calcTurtlesCount. ! Item was changed: ----- Method: KedamaMorph>>deleteTurtleID:of: (in category 'turtles') ----- deleteTurtleID: who of: examplerPlayer "Delete the given turtle from this world." | array | array := examplerPlayer turtles. array ifNil: [^ self]. turtlesDictSemaphore critical: [ array deleteTurtleID: who. ]. + turtleCount := nil. - self calcTurtlesCount. examplerPlayer costume renderedMorph privateTurtleCount: array size. "examplerPlayer allOpenViewers do: [:v | v resetWhoIfNecessary]." ! Item was changed: ----- Method: KedamaMorph>>initializeTurtlesDict (in category 'initialization') ----- initializeTurtlesDict turtlesDict := IdentityDictionary new. + turtlesToDisplay := Set new. - turtlesToDisplay := Array new. ! Item was changed: ----- Method: KedamaMorph>>makeReplicatedTurtles:examplerPlayer:color:ofPrototype:randomize: (in category 'turtles') ----- makeReplicatedTurtles: count examplerPlayer: tp color: c ofPrototype: prototype randomize: randomizeFlag | array inst | array := tp turtles. inst := prototype ifNil: [self makePrototypeOfExampler: tp color: c]. turtlesDictSemaphore critical: [ array addTurtlesCount: count ofPrototype: inst for: self randomize: randomizeFlag. ]. + turtleCount := nil. - self calcTurtlesCount. self changed. ! Item was changed: ----- Method: KedamaMorph>>makeTurtles:examplerPlayer:color:ofPrototype:turtles:randomize: (in category 'turtles') ----- makeTurtles: count examplerPlayer: tp color: c ofPrototype: prototype turtles: turtles randomize: randomizeFlag | array inst | array := tp turtles. (turtlesDict includesKey: tp) ifFalse: [ self addToTurtleDisplayList: tp. turtlesDict at: tp put: (array := turtles). ]. inst := prototype ifNil: [self makePrototypeOfExampler: tp color: c]. turtlesDictSemaphore critical: [array setTurtlesCount: count prototype: inst for: self randomize: randomizeFlag]. + turtleCount := nil. - self calcTurtlesCount. self changed. ! Item was changed: ----- Method: KedamaMorph>>makeTurtlesAtPositionsIn:examplerPlayer:ofPrototype: (in category 'turtles') ----- makeTurtlesAtPositionsIn: positionAndColorArray examplerPlayer: tp ofPrototype: prototype | array inst | array := tp turtles. inst := prototype ifNil: [self makePrototypeOfExampler: tp]. turtlesDictSemaphore critical: [array addTurtlesCount: positionAndColorArray first size ofPrototype: inst for: self positionAndColorArray: positionAndColorArray]. + turtleCount := nil. - self calcTurtlesCount. self changed. ! Item was changed: ----- Method: KedamaMorph>>removeAllFromTurtleDisplayList (in category 'drawing') ----- removeAllFromTurtleDisplayList + turtlesToDisplay removeAll - turtlesToDisplay := #(). ! Item was changed: ----- Method: KedamaMorph>>removeFromTurtleDisplayList: (in category 'turtles') ----- removeFromTurtleDisplayList: examplerPlayer + turtlesToDisplay remove: examplerPlayer ifAbsent: nil - turtlesToDisplay := turtlesToDisplay copyWithout: examplerPlayer. ! Item was changed: ----- Method: KedamaMorph>>setTurtlesCount:examplerPlayer:color: (in category 'turtles') ----- setTurtlesCount: count examplerPlayer: tp color: cPixel | prototype | prototype := self makePrototypeOfExampler: tp color: cPixel. turtlesDictSemaphore critical: [(tp turtles) setTurtlesCount: count prototype: prototype for: self randomize: true]. + turtleCount := nil - self calcTurtlesCount. ! Item was changed: ----- Method: KedamaMorph>>turtleCount (in category 'etoys') ----- turtleCount + ^turtleCount ifNil: [ + turtleCount := turtlesDict detectSum: [ :each | each size ] ] - ^ turtleCount. ! Item was changed: + (PackageInfo named: 'EToys') postscript: 'KedamaMorph allInstancesDo: [ :each | + (each instVarNamed: #turtlesToDisplay) ifNotNil: [ :turtlesToDisplay | + turtlesToDisplay class == Array ifTrue: [ + each instVarNamed: #turtlesToDisplay put: turtlesToDisplay asSet ] ] ]'! - (PackageInfo named: 'EToys') postscript: '"Remove an obsolete class that somehow got into the system" - (Smalltalk environment includesKey: #KedamaTurtleVectorPlayer) ifTrue: [ - Smalltalk environment removeKey: #KedamaTurtleVectorPlayer. - SystemOrganization removeMissingClasses]. - - "Clear weak message sends to remove modal windows from worlds that are closing." - (WeakMessageSend allInstances select: [:wm | - (wm receiver isKindOf: PasteUpMorph) and: [wm selector = #removeModalWindow]]) - do: [:wm | wm receiver: nil].'!

1 0

The Trunk: EToys-ul.294.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ul.294.mcz ==================== Summary ==================== Name: EToys-ul.294 Author: ul Time: 24 April 2017, 6:45:53.242181 pm UUID: e5de2bdd-eb92-463c-a91e-1cdd166b8e6e Ancestors: EToys-ul.293 - removed the #vmParameterAt:put: sends from KedamaMorph >> #calcTurtlesCount, and simplified it =============== Diff against EToys-ul.293 =============== Item was changed: ----- Method: KedamaMorph>>calcTurtlesCount (in category 'turtles') ----- calcTurtlesCount + turtleCount := turtlesDict detectSum: [ :each | each size ]! - turtleCount := 0. - turtlesDict do: [:a | turtleCount := turtleCount + a size]. - - Smalltalk vmParameterAt: 5 put: ((turtleCount * 3) min: 16000 max: 4000). - Smalltalk vmParameterAt: 6 put: ((turtleCount * 6) min: 32000 max: 8000). - !

1 0

The Trunk: Collections-ul.750.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.750.mcz ==================== Summary ==================== Name: Collections-ul.750 Author: ul Time: 24 April 2017, 3:36:04.668235 pm UUID: 766fe870-89dd-455b-b0e9-8b14c7ab8548 Ancestors: Collections-ul.749 SequenceableCollection changes: - #indexOfSubCollection:startingAt:ifAbsent: sends indexOfSubCollection:startingAt: - fix: #identityIndexOf:startingAt:ifAbsent: didn't use startIndex =============== Diff against Collections-ul.749 =============== Item was changed: ----- Method: SequenceableCollection>>identityIndexOf:startingAt:ifAbsent: (in category 'accessing') ----- identityIndexOf: anElement startingAt: startIndex ifAbsent: exceptionBlock "Answer the index of anElement within the receiver starting at startIndex. If the receiver does not contain anElement, answer the result of evaluating the argument, exceptionBlock." | index | + (index := self identityIndexOf: anElement startingAt: startIndex) = 0 ifFalse: [ ^index ]. - (index := self identityIndexOf: anElement startingAt: 1) = 0 ifFalse: [ ^index ]. ^exceptionBlock value! Item was changed: ----- Method: SequenceableCollection>>indexOfSubCollection:startingAt:ifAbsent: (in category 'accessing') ----- indexOfSubCollection: sub startingAt: start ifAbsent: exceptionBlock "Answer the index of the receiver's first element, such that that element equals the first element of sub, and the next elements equal the rest of the elements of sub. Begin the search at element start of the receiver. If no such match is found, answer the result of evaluating argument, exceptionBlock." + + | index | + (index := self indexOfSubCollection: sub startingAt: start) = 0 ifFalse: [ ^index ]. - | first index | - sub isEmpty ifTrue: [^ exceptionBlock value]. - first := sub first. - (start max: 1) to: self size - sub size + 1 do: - [:startIndex | - (self at: startIndex) = first ifTrue: - [index := 1. - [(self at: startIndex+index-1) = (sub at: index)] - whileTrue: - [index = sub size ifTrue: [^startIndex]. - index := index+1]]]. ^ exceptionBlock value!

1 0

The Trunk: UpdateStream-ul.10.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of UpdateStream to project The Trunk: http://source.squeak.org/trunk/UpdateStream-ul.10.mcz ==================== Summary ==================== Name: UpdateStream-ul.10 Author: ul Time: 24 April 2017, 1:17:07.109447 pm UUID: a7ad436f-7226-4d9b-98b2-e2541a7aa84e Ancestors: UpdateStream-ul.9 - rewrote senders of #clone to use #shallowCopy =============== Diff against UpdateStream-ul.9 =============== Item was changed: ----- Method: UpdateStreamDownloader class>>serverUrls (in category 'server urls') ----- serverUrls "Return the current list of server URLs. For code updates. Format of UpdateUrlLists is #( ('squeak updates' ('url1' 'url2')) ('some other updates' ('url3' 'url4')))" | list | list := UpdateUrlLists first last. "If there is a dead server, return a copy with that server last" Socket deadServer ifNotNil: [ + list shallowCopy withIndexDo: [:aName :ind | - list clone withIndexDo: [:aName :ind | (aName beginsWith: Socket deadServer) ifTrue: [ list := list asOrderedCollection. "and it's a copy" list removeAt: ind. list addLast: aName]] ]. ^ list asArray!

1 0

The Trunk: TrueType-ul.49.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-ul.49.mcz ==================== Summary ==================== Name: TrueType-ul.49 Author: ul Time: 24 April 2017, 1:16:55.146396 pm UUID: 872ce35f-3479-4c01-8c43-4acd73e74843 Ancestors: TrueType-ul.48 - rewrote senders of #clone to use #shallowCopy =============== Diff against TrueType-ul.48 =============== Item was changed: ----- Method: TTCFontReader>>readFrom:fromOffset:at: (in category 'as yet unclassified') ----- readFrom: fontData fromOffset: offset at: encodingTag | headerEntry maxProfileEntry nameEntry indexLocEntry charMapEntry glyphEntry horzHeaderEntry horzMetricsEntry kerningEntry glyphOffset cmap numHMetrics indexToLocFormat fontDescription0 fontDescription1 array result | "Search the tables required to build the font" (headerEntry := self getTableDirEntry: 'head' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a header table']. (maxProfileEntry := self getTableDirEntry: 'maxp' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a maximum profile table']. (nameEntry := self getTableDirEntry: 'name' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a name table']. (indexLocEntry := self getTableDirEntry: 'loca' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a relocation table']. (charMapEntry := self getTableDirEntry: 'cmap' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a character map table']. (glyphEntry := self getTableDirEntry: 'glyf' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a glyph table']. (horzHeaderEntry := self getTableDirEntry: 'hhea' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a horizontal header table']. (horzMetricsEntry := self getTableDirEntry: 'hmtx' from: fontData offset: offset) == nil ifTrue:[ ^self error:'This font does not have a horizontal metrics table']. (kerningEntry := self getTableDirEntry: 'kern' from: fontData offset: offset) == nil ifTrue:[ Transcript cr; show:'This font does not have a kerning table';endEntry]. "Process the data" indexToLocFormat := self processFontHeaderTable: headerEntry. self processMaximumProfileTable: maxProfileEntry. self processNamingTable: nameEntry. glyphOffset := self processIndexToLocationTable: indexLocEntry format: indexToLocFormat. cmap := self processCharacterMappingTable: charMapEntry. (cmap == nil or:[cmap value == nil]) ifTrue:[^self error:'This font has no suitable character mappings']. self processGlyphDataTable: glyphEntry offsets: glyphOffset. numHMetrics := self processHorizontalHeaderTable: horzHeaderEntry. self processHorizontalMetricsTable: horzMetricsEntry length: numHMetrics. kerningEntry isNil ifTrue:[kernPairs := #()] ifFalse:[self processKerningTable: kerningEntry]. array := self processCharMap: cmap. + fontDescription0 := fontDescription shallowCopy. + fontDescription1 := fontDescription shallowCopy. - fontDescription0 := fontDescription clone. - fontDescription1 := fontDescription clone. fontDescription0 setGlyphs: (array at: 1) mapping: (array at: 1).. fontDescription1 setGlyphs: (array at: 2) mapping: (array at: 2).. fontDescription0 setKernPairs: kernPairs. fontDescription1 setKernPairs: kernPairs. result := OrderedCollection new. (encodingTag = nil or: [encodingTag = 0]) ifTrue: [^ Array with: fontDescription1]. result add: fontDescription0. encodingTag -1 timesRepeat: [result add: nil]. result add: fontDescription1. ^ result asArray. !

1 0

The Trunk: Tools-ul.758.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.758.mcz ==================== Summary ==================== Name: Tools-ul.758 Author: ul Time: 24 April 2017, 1:16:28.553014 pm UUID: 48605681-865d-4eab-abd2-d8e5299d772d Ancestors: Tools-eem.757 - rewrote senders of #clone to use #shallowCopy =============== Diff against Tools-eem.757 =============== Item was changed: ----- Method: MethodFinder>>testFromTuple: (in category 'initialize') ----- testFromTuple: nth "verify that the methods allowed don't crash the system. Try N of each of the fundamental types. up to 4 of each kind." | objects nonRepeating even other aa cnt | objects := #((1 4 17 42) ($a $b $c $d) ('one' 'two' 'three' 'four') (x + rect: new) ((a b 1 4) (c 1 5) ($a 3 d) ()) (4.5 0.0 3.2 100.3) ). objects := objects, {{true. false. true. false}. {Point. SmallInteger. Association. Array}. {Point class. SmallInteger class. Association class. Array class}. "{ 4 blocks }." {Date today. '1 Jan 1950' asDate. '25 Aug 1987' asDate. '1 Jan 2000' asDate}. {'15:16' asTime. '1:56' asTime. '4:01' asTime. '6:23' asTime}. {Dictionary new. Dictionary new. Dictionary new. Dictionary new}. {#(a b 1 4) asOrderedCollection. #(c 1 5) asOrderedCollection. #($a 3 d) asOrderedCollection. #() asOrderedCollection}. {3 -> true. 5.6 -> $a. #x -> 2. 'abcd' -> false}. {9 @ 3 extent: 5 @ 4. 0 @ 0 extent: 45 @ 9. -3 @ -7 extent: 2 @ 2. 4 @ 4 extent: 16 @ 16}. {Color red. Color blue. Color black. Color gray}}. self test2: objects. "rec+0, rec+1, rec+2, rec+3 need to be tested. " cnt := 0. nth to: 4 do: [:take | nonRepeating := OrderedCollection new. objects do: [:each | nonRepeating addAll: (each copyFrom: 1 to: take)]. "all combinations of take, from nonRepeating" even := true. nonRepeating combinations: take atATimeDo: [:tuple | + even ifTrue: [other := tuple shallowCopy] - even ifTrue: [other := tuple clone] ifFalse: [self load: (aa := Array with: tuple with: 1 with: other with: 7). (cnt := cnt + 1) \\ 50 = 0 ifTrue: [ Transcript cr; show: aa first printString]. self search: true. self test2: aa. self test2: nonRepeating. "self test2: objects"]. even := even not]. ].! Item was changed: ----- Method: SavedMultiWindowState>>addNewWindow (in category 'operations') ----- addNewWindow + self addWindow: prototype shallowCopy! - self addWindow: prototype clone! Item was changed: ----- Method: SavedMultiWindowState>>on: (in category 'initialize-release') ----- on: aModel + prototype := aModel shallowCopy. - prototype := aModel clone. self addWindow: aModel!

1 0

The Trunk: System-ul.947.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.947.mcz ==================== Summary ==================== Name: System-ul.947 Author: ul Time: 24 April 2017, 1:15:54.622643 pm UUID: 58e89632-762c-42f4-a3d0-55c1d1dd9dba Ancestors: System-eem.946 - rewrote senders of #clone to use #shallowCopy =============== Diff against System-eem.946 =============== Item was changed: ----- Method: DeepCopier>>mapUniClasses (in category 'like fullCopy') ----- mapUniClasses "For new Uniclasses, map their class vars to the new objects. And their additional class instance vars. (scripts slotInfo) and cross references like (player321)." "Players also refer to each other using associations in the References dictionary. Search the methods of our Players for those. Make new entries in References and point to them." | pp newKey | newUniClasses ifFalse: [^ self]. "All will be siblings. uniClasses is empty" "Uniclasses use class vars to hold onto siblings who are referred to in code" pp := (Smalltalk at: #Player ifAbsent:[^self]) class superclass instSize. uniClasses do: [:playersClass | "values = new ones" playersClass classPool associationsDo: [:assoc | assoc value: (assoc value veryDeepCopyWith: self)]. playersClass scripts: (playersClass privateScripts veryDeepCopyWith: self). "pp+1" "(pp+2) slotInfo was deepCopied in copyUniClass and that's all it needs" pp+3 to: playersClass class instSize do: [:ii | playersClass instVarAt: ii put: ((playersClass instVarAt: ii) veryDeepCopyWith: self)]. ]. "Make new entries in References and point to them." References keys "copy" do: [:playerName | | oldPlayer | oldPlayer := References at: playerName. (references includesKey: oldPlayer) ifTrue: [ newKey := (references at: oldPlayer) "new player" uniqueNameForReference. "now installed in References" (references at: oldPlayer) renameTo: newKey]]. uniClasses "values" do: [:newClass | | newSelList oldSelList | oldSelList := OrderedCollection new. newSelList := OrderedCollection new. newClass selectorsAndMethodsDo: [:sel :m | m literals do: [:assoc | | newAssoc | assoc isVariableBinding ifTrue: [ (References associationAt: assoc key ifAbsent: [nil]) == assoc ifTrue: [ newKey := (references at: assoc value ifAbsent: [assoc value]) externalName asSymbol. (assoc key ~= newKey) & (References includesKey: newKey) ifTrue: [ newAssoc := References associationAt: newKey. newClass methodDictionary at: sel put: + (newClass compiledMethodAt: sel) shallowCopy. "were sharing it" - (newClass compiledMethodAt: sel) clone. "were sharing it" (newClass compiledMethodAt: sel) literalAt: ((newClass compiledMethodAt: sel) literals indexOf: assoc) put: newAssoc. (oldSelList includes: assoc key) ifFalse: [ oldSelList add: assoc key. newSelList add: newKey]]]]]]. oldSelList with: newSelList do: [:old :new | newClass replaceSilently: old to: new]]. "This is text replacement and can be wrong"! Item was changed: ----- Method: Project class>>sweep: (in category 'squeaklet on server') ----- sweep: aServerDirectory | repository list parts ind entry projectName versions | "On the server, move all but the three most recent versions of each Squeaklet to a folder called 'older'" "Project sweep: ((ServerDirectory serverNamed: 'DaniOnJumbo') clone directory: '/vol0/people/dani/Squeaklets/2.7')" "Ensure the 'older' directory" (aServerDirectory includesKey: 'older') ifFalse: [aServerDirectory createDirectory: 'older']. + repository := aServerDirectory shallowCopy directory: aServerDirectory directory, '/older'. - repository := aServerDirectory clone directory: aServerDirectory directory, '/older'. "Collect each name, and decide on versions" list := aServerDirectory fileNames. list isString ifTrue: [^ self inform: 'server is unavailable' translated]. list sort. parts := list collect: [:en | Project parseProjectFileName: en]. parts := parts select: [:en | en third = 'pr']. ind := 1. [entry := list at: ind. projectName := entry first asLowercase. versions := OrderedCollection new. versions add: entry. [(ind := ind + 1) > list size ifFalse: [(parts at: ind) first asLowercase = projectName ifTrue: [versions add: (parts at: ind). true] ifFalse: [false]] ifTrue: [false]] whileTrue. aServerDirectory moveYoungest: 3 in: versions to: repository. ind > list size] whileFalse. ! Item was changed: ----- Method: Project>>enter:revert:saveForRevert: (in category 'enter') ----- enter: returningFlag revert: revertFlag saveForRevert: saveForRevert "Install my ChangeSet, Transcript, and scheduled views as current globals. If returningFlag is true, we will return to the project from whence the current project was entered; don't change its previousProject link in this case. If saveForRevert is true, save the ImageSegment of the project being left. If revertFlag is true, make stubs for the world of the project being left. If revertWithoutAsking is true in the project being left, then always revert." | leavingProject forceRevert response seg | self isIncompletelyLoaded ifTrue: [^ self loadFromServer: true]. self isCurrentProject ifTrue: [^ self]. forceRevert := false. CurrentProject rawParameters ifNil: [revertFlag ifTrue: [^ self inform: 'nothing to revert to' translated]] ifNotNil: [saveForRevert ifFalse: [ forceRevert := CurrentProject projectParameters at: #revertWithoutAsking ifAbsent: [false]]]. forceRevert not & revertFlag ifTrue: [ response := (UIManager default chooseFrom: { 'Revert to saved version' translated. 'Cancel' translated. } title: 'Are you sure you want to destroy this Project\ and revert to an older version?\\(From the parent project, click on this project''s thumbnail.)' translated withCRs) = 1. response ifFalse: [^ self]]. revertFlag | forceRevert ifTrue: [seg := CurrentProject projectParameters at: #revertToMe ifAbsent: [ ^ self inform: 'nothing to revert to' translated]] ifFalse: [ CurrentProject makeThumbnail. returningFlag == #specialReturn ifTrue: [ProjectHistory forget: CurrentProject. "this guy is irrelevant" Project forget: CurrentProject] ifFalse: [ProjectHistory remember: CurrentProject]]. (revertFlag | saveForRevert | forceRevert) ifFalse: [ (Preferences valueOfFlag: #projectsSentToDisk) ifTrue: [ self inform: 'Project serialization via image segments\does not work at the moment. Disabling the\preference #projectsSentToDisk now...' withCRs. Preferences disable: #projectsSentToDisk. "self storeToMakeRoom"]]. "Update display depth for leaving and entring project." CurrentProject displayDepth: Display depth. displayDepth == nil ifTrue: [displayDepth := Display depth]. self installNewDisplay: Display extent depth: displayDepth. returningFlag == #specialReturn ifTrue: [ CurrentProject removeChangeSetIfPossible. "keep this stuff from accumulating" nextProject := nil ] ifFalse: [ returningFlag ifTrue: [nextProject := CurrentProject] ifFalse: [previousProject := CurrentProject]. ]. CurrentProject world triggerEvent: #aboutToLeaveWorld. CurrentProject abortResourceLoading. CurrentProject finalExitActions: self. CurrentProject saveState. "********** SWITCHING CURRENT PROJECT **********" leavingProject := CurrentProject. CurrentProject := self. ProjectHistory remember: self. "********** SWITCHING CURRENT PROJECT **********" self loadState. self finalEnterActions: leavingProject. self addDeferredUIMessage: [self startResourceLoading]. self world triggerEvent: #aboutToEnterWorld. "Save project for revert." saveForRevert ifTrue: [ Smalltalk garbageCollect. "let go of pointers" leavingProject storeSegment. "result :=" leavingProject world isInMemory ifTrue: ['Can''t seem to write the project.'] ifFalse: [leavingProject projectParameters at: #revertToMe put: + leavingProject world xxxSegment shallowCopy]. - leavingProject world xxxSegment clone]. 'Project written.']. "original is for coming back in and continuing." revertFlag | forceRevert ifTrue: [ + seg shallowCopy revert]. "non-cloned one is for reverting again later" - seg clone revert]. "non-cloned one is for reverting again later" self removeParameter: #exportState. "Now that everything is set up, we can show zoom animation." self showZoom ifTrue: [self displayZoom: leavingProject parent ~~ self "Entering?"] ifFalse: [self restore]. "Update processes at last." self scheduleProcessForEnter. leavingProject terminateProcessForLeave. ! Item was changed: ----- Method: ResourceManager>>installResource:from:locator: (in category 'loading') ----- installResource: aResource from: aStream locator: loc | repl | aResource ifNil:[^false]. "it went away, so somebody might have deleted it" (aStream == nil or:[aStream size = 0]) ifTrue:[^false]. "error?!!" + repl := aResource shallowCopy readResourceFrom: aStream asUnZippedStream. - repl := aResource clone readResourceFrom: aStream asUnZippedStream. repl ifNotNil:[ aResource replaceByResource: repl. unloaded remove: loc. loaded add: loc. ^true ]. ^false!

1 0

The Trunk: Sound-ul.61.mcz
by commits＠source.squeak.org 24 Apr '17

24 Apr '17

Levente Uzonyi uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ul.61.mcz ==================== Summary ==================== Name: Sound-ul.61 Author: ul Time: 24 April 2017, 1:12:18.671166 pm UUID: 6e04eba9-2b83-416d-bb58-188fa0aa77f1 Ancestors: Sound-ul.60 - rewrote senders of #clone to use #shallowCopy =============== Diff against Sound-ul.60 =============== Item was changed: ----- Method: ReverbSound>>copySound (in category 'copying') ----- copySound "Private!! Support for copying. Copy my component sound." sound := sound copy. + leftBuffer := leftBuffer shallowCopy. + rightBuffer := rightBuffer shallowCopy. - leftBuffer := leftBuffer clone. - rightBuffer := rightBuffer clone. ! Item was changed: ----- Method: SoundBuffer>>lowPassFiltered (in category 'utilities') ----- lowPassFiltered "Answer a simple low-pass filtered copy of this buffer. Assume it is monophonic." | sz out last this | sz := self monoSampleCount. + out := self shallowCopy. - out := self clone. last := self at: 1. 2 to: sz do: [:i | this := self at: i. out at: i put: (this + last) // 2. last := this]. ^ out !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2017