Packages March 2016

packages@lists.squeakfoundation.org

1 participants
112 discussions

The Trunk: Morphic-kfr.1094.mcz
by commits＠source.squeak.org 16 Mar '16

16 Mar '16

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1094.mcz ==================== Summary ==================== Name: Morphic-kfr.1094 Author: kfr Time: 16 March 2016, 8:29:46.384817 pm UUID: 94780b73-cfa6-44fd-b7ed-ee2807f9ceae Ancestors: Morphic-mt.1093 Snap dropped morphs to grid if gridding is on =============== Diff against Morphic-mt.1093 =============== Item was changed: ----- Method: PasteUpMorph>>acceptDroppingMorph:event: (in category 'dropping/grabbing') ----- acceptDroppingMorph: dropped event: evt "The supplied morph, known to be acceptable to the receiver, is now to be assimilated; the precipitating event is supplied" | aMorph | aMorph := self morphToDropFrom: dropped. self isWorldMorph ifTrue:["Add the given morph to this world and start stepping it if it wants to be." self addMorphFront: aMorph. (aMorph fullBounds intersects: self viewBox) ifFalse: [Beeper beep. aMorph position: self bounds center]] ifFalse:[super acceptDroppingMorph: aMorph event: evt]. aMorph submorphsDo: [:m | (m isKindOf: HaloMorph) ifTrue: [m delete]]. aMorph allMorphsDo: "Establish any penDown morphs in new world" [:m | | tfm mm | m player ifNotNil: [m player getPenDown ifTrue: [((mm := m player costume) notNil and: [(tfm := mm owner transformFrom: self) notNil]) ifTrue: [self noteNewLocation: (tfm localPointToGlobal: mm referencePosition) forPlayer: m player]]]]. self isPartsBin ifTrue: [aMorph isPartsDonor: true. aMorph stopSteppingSelfAndSubmorphs. aMorph suspendEventHandler] ifFalse: [self world startSteppingSubmorphsOf: aMorph]. " self presenter morph: aMorph droppedIntoPasteUpMorph: self." + self griddingOn ifTrue: [aMorph position: (self gridPoint: aMorph position)]. - self showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]. self bringTopmostsToFront. !

1 0

The Trunk: Morphic-kfr.1094.mcz
by commits＠source.squeak.org 16 Mar '16

16 Mar '16

1 0

The Trunk: Tools-mt.679.mcz
by commits＠source.squeak.org 16 Mar '16

16 Mar '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.679.mcz ==================== Summary ==================== Name: Tools-mt.679 Author: mt Time: 16 March 2016, 2:36:07.723033 pm UUID: f184dac2-4ba4-4030-a394-4b8031592101 Ancestors: Tools-mt.678 Fixes styling bug when using the subclassing template. =============== Diff against Tools-mt.678 =============== Item was changed: ----- Method: Browser>>aboutToStyle: (in category 'code pane') ----- aboutToStyle: aStyler "This is a notification that aStyler is about to re-style its text. Set the classOrMetaClass in aStyler, so that identifiers will be resolved correctly. Answer true to allow styling to proceed, or false to veto the styling" | type | self isModeStyleable ifFalse: [^false]. type := self editSelection. (#(newMessage editMessage editClass newClass) includes: type) ifFalse:[^false]. + aStyler classOrMetaClass: ((type = #editClass or: [type = #newClass]) ifFalse:[self selectedClassOrMetaClass]). - aStyler classOrMetaClass: (type = #editClass ifFalse:[self selectedClassOrMetaClass]). ^true!

1 0

The Trunk: Tools-mt.679.mcz
by commits＠source.squeak.org 16 Mar '16

16 Mar '16

1 0

The Trunk: Tools-mt.678.mcz
by commits＠source.squeak.org 16 Mar '16

16 Mar '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.678.mcz ==================== Summary ==================== Name: Tools-mt.678 Author: mt Time: 16 March 2016, 2:34:21.339033 pm UUID: db77a698-d959-4e09-97d3-9011979a9723 Ancestors: Tools-topa.677 Fixes bug in Hierarchy Browser related to subclassing and class-list updating. Might be a regression fix caused by some recent updates. Note that we might want to establish the same update mechanism as in other CodeHolder subclasses, which is #stepAt:. At the moment, Hierarchy Browsers do not recognize general changes in the class hierarchy - only if that change origins from within that hierarchy browser. =============== Diff against Tools-topa.677 =============== Item was removed: - ----- Method: HierarchyBrowser>>changed: (in category 'initialization') ----- - changed: sym - sym == #classList ifTrue: [self updateAfterClassChange]. - super changed: sym! Item was added: + ----- Method: HierarchyBrowser>>copyClass (in category 'class functions') ----- + copyClass + + super copyClass. + self updateAfterClassChange.! Item was added: + ----- Method: HierarchyBrowser>>defineClass:notifying: (in category 'class functions') ----- + defineClass: defString notifying: aController + + super defineClass: defString notifying: aController. + self updateAfterClassChange.! Item was added: + ----- Method: HierarchyBrowser>>defineTrait:notifying: (in category 'traits') ----- + defineTrait: defString notifying: aController + + super defineTrait: defString notifying: aController. + self updateAfterClassChange.! Item was changed: ----- Method: HierarchyBrowser>>initHierarchyForClass: (in category 'initialization') ----- initHierarchyForClass: aClassOrMetaClass | nonMetaClass superclasses | centralClass := aClassOrMetaClass. nonMetaClass := aClassOrMetaClass theNonMetaClass. self systemOrganizer: SystemOrganization. metaClassIndicated := aClassOrMetaClass isMeta. classDisplayList := OrderedCollection new. (superclasses := nonMetaClass allSuperclasses reversed) withIndexDo: [ : each : indent | classDisplayList add: (String streamContents: [ : stream | indent - 1 timesRepeat: [ stream nextPutAll: ' ' ]. stream nextPutAll: each name ]) ]. nonMetaClass allSubclassesWithLevelDo: [ : eachClass : lvl | classDisplayList add: (String streamContents: [ : stream | lvl timesRepeat: [ stream nextPutAll: ' ' ]. stream nextPutAll: eachClass name ]) ] startingLevel: superclasses size. + + self changed: #classList. self selectClass: nonMetaClass! Item was added: + ----- Method: HierarchyBrowser>>renameClass (in category 'class functions') ----- + renameClass + + super renameClass. + self updateAfterClassChange.!

1 0

The Trunk: Tools-mt.678.mcz
by commits＠source.squeak.org 16 Mar '16

16 Mar '16

1 0

The Trunk: Collections-ul.680.mcz
by commits＠source.squeak.org 10 Mar '16

10 Mar '16

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.680.mcz ==================== Summary ==================== Name: Collections-ul.680 Author: ul Time: 10 March 2016, 4:33:52.197801 pm UUID: 0d7db6dd-bde1-40f0-919d-638fc4e8a9c7 Ancestors: Collections-ul.679 #includes: will return false if the receiver is some kind of character set and the argument is not a character. E.g. ['0' asCharacterSet includes: 48.123] won't evaluate to true anymore, nor will [ '' asCharacterSet includes: nil ] raise an error. #occurrencesOf: revamp - round #2 - added optimized implementations to all Collection subclasses where it was sensible - as suggested by Nicolas. - moved all implementations from testing to enumeration category, because this method doesn't answer a boolean value, but it's similar to #count:, which is in enumeration. =============== Diff against Collections-ul.679 =============== Item was changed: + ----- Method: ArrayedCollection>>occurrencesOf: (in category 'enumerating') ----- - ----- Method: ArrayedCollection>>occurrencesOf: (in category 'testing') ----- occurrencesOf: anObject "Answer how many of the receiver's elements are equal to anObject. Optimized version." | tally | tally := 0. 1 to: self size do: [ :index | (self at: index) = anObject ifTrue: [ tally := tally + 1 ] ]. ^tally! Item was changed: + ----- Method: Bag>>occurrencesOf: (in category 'enumerating') ----- - ----- Method: Bag>>occurrencesOf: (in category 'testing') ----- occurrencesOf: anObject "Answer how many of the receiver's elements are equal to anObject. Optimized version." ^contents at: anObject ifAbsent: 0! Item was added: + ----- Method: Bitset>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + (self includes: anObject) ifTrue: [ ^1 ]. + ^0! Item was changed: + ----- Method: ByteArray>>occurrencesOf: (in category 'enumerating') ----- - ----- Method: ByteArray>>occurrencesOf: (in category 'as yet unclassified') ----- occurrencesOf: anObject "Answer how many of the receiver's elements are equal to anObject. Optimized version." | tally | anObject isInteger ifFalse: [ ^0 ]. anObject negative ifTrue: [ ^0 ]. anObject > 255 ifTrue: [ ^0 ]. tally := 0. 1 to: self size do: [ :index | (self at: index) = anObject ifTrue: [ tally := tally + 1 ] ]. ^tally! Item was added: + ----- Method: ByteString>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + | tally | + anObject isCharacter ifFalse: [ ^0 ]. + anObject asInteger > 255 ifTrue: [ ^0 ]. + tally := 0. + 1 to: self size do: [ :index | + (self at: index) == anObject ifTrue: [ tally := tally + 1 ] ]. + ^tally! Item was added: + ----- Method: ByteSymbol>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + | tally | + anObject isCharacter ifFalse: [ ^0 ]. + anObject asInteger > 255 ifTrue: [ ^0 ]. + tally := 0. + 1 to: self size do: [ :index | + (self at: index) == anObject ifTrue: [ tally := tally + 1 ] ]. + ^tally! Item was changed: ----- Method: CharacterSet>>includes: (in category 'collection ops') ----- + includes: anObject - includes: aCharacter | index | + anObject isCharacter ifFalse: [ ^false ]. + (index := anObject asInteger + 1) > 256 ifTrue: [ ^false ]. - (index := aCharacter asInteger + 1) > 256 ifTrue: [ ^false ]. ^(map at: index) > 0! Item was added: + ----- Method: CharacterSet>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + (self includes: anObject) ifTrue: [ ^1 ]. + ^0! Item was changed: ----- Method: CharacterSetComplement>>includes: (in category 'collection ops') ----- + includes: anObject + + anObject isCharacter ifFalse: [ ^false ]. + (absent includes: anObject) ifTrue: [ ^false ]. + ^true! - includes: aCharacter - ^(absent includes: aCharacter) not! Item was added: + ----- Method: CharacterSetComplement>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + (self includes: anObject) ifTrue: [ ^1 ]. + ^0! Item was changed: + ----- Method: Collection>>occurrencesOf: (in category 'enumerating') ----- - ----- Method: Collection>>occurrencesOf: (in category 'testing') ----- occurrencesOf: anObject "Answer how many of the receiver's elements are equal to anObject." | tally | tally := 0. self do: [:each | anObject = each ifTrue: [tally := tally + 1]]. ^tally! Item was changed: + ----- Method: Matrix>>occurrencesOf: (in category 'enumerating') ----- - ----- Method: Matrix>>occurrencesOf: (in category 'testing') ----- occurrencesOf: anObject ^contents occurrencesOf: anObject! Item was added: + ----- Method: OrderedCollection>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + | tally | + tally := 0. + firstIndex to: lastIndex do: [ :index | + (array at: index) = anObject ifTrue: [ tally := tally + 1 ] ]. + ^tally! Item was added: + ----- Method: Set>>includes2: (in category 'testing') ----- + includes2: anObject + + ^((array at: (self scanFor: anObject)) == nil) not! Item was changed: + ----- Method: Set>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + (self includes: anObject) ifTrue: [ ^1 ]. + ^0! - ----- Method: Set>>occurrencesOf: (in category 'testing') ----- - occurrencesOf: anObject - ^ (self includes: anObject) ifTrue: [1] ifFalse: [0]! Item was changed: + ----- Method: String>>occurrencesOf: (in category 'enumerating') ----- - ----- Method: String>>occurrencesOf: (in category 'testing') ----- occurrencesOf: anObject "Answer how many of the receiver's elements are equal to anObject. Optimized version." | tally | anObject isCharacter ifFalse: [ ^0 ]. tally := 0. 1 to: self size do: [ :index | (self at: index) == anObject ifTrue: [ tally := tally + 1 ] ]. ^tally! Item was changed: ----- Method: WideCharacterSet>>includes: (in category 'collection ops') ----- + includes: anObject - includes: aCharacter | value | + anObject isCharacter ifFalse: [ ^false ]. + (value := anObject asInteger) < 256 ifTrue: [ - (value := aCharacter asInteger) < 256 ifTrue: [ ^(byteArrayMap at: value + 1) ~= 0 ]. ^((map at: (value bitShift: highBitsShift) ifAbsent: nil) ifNil: [ ^false ]) includes: (value bitAnd: lowBitsMask)! Item was added: + ----- Method: WideCharacterSet>>occurrencesOf: (in category 'enumerating') ----- + occurrencesOf: anObject + "Answer how many of the receiver's elements are equal to anObject. Optimized version." + + (self includes: anObject) ifTrue: [ ^1 ]. + ^0!

1 0

The Trunk: Collections-ul.680.mcz
by commits＠source.squeak.org 10 Mar '16

10 Mar '16

1 0

The Trunk: Kernel-eem.1005.mcz
by commits＠source.squeak.org 09 Mar '16

09 Mar '16

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1005.mcz ==================== Summary ==================== Name: Kernel-eem.1005 Author: eem Time: 9 March 2016, 11:53:31.024318 am UUID: ef6c553c-70dc-4646-8a12-172594ff090a Ancestors: Kernel-bf.1004 Give SmallFloat64 identityHash 4 and put it in the first class table page at that hash. 64-bit Spur will change over to that tag pattern asap. =============== Diff against Kernel-bf.1004 =============== Item was removed: - (PackageInfo named: 'Kernel') preamble: '((Mutex allInstances allSatisfy: [:m| (m instVarNamed: ''owner'') isNil]) - and: [Monitor allInstances allSatisfy: [:m| (m instVarNamed: ''ownerProcess'') isNil]]) ifFalse: - [self error: ''Some Mutexes and/or Monitors are owned. Cannot safely mutate. ABort load and resolve this before loading for safety.'']'! Item was changed: + (PackageInfo named: 'Kernel') postscript: '"below, add code to be run after the loading of this package" + + "Arrange that SmalFloat64 has identityHash 4 and is in the class table first page if possible. + Don''t bother to rehash all hashed collections; SmallFloat64 is not in any in the default image" + Smalltalk garbageCollect. + (Array someInstance size = 1024 + and: [(Array someInstance allSatisfy: [:e| e == nil or: [e isBehavior]]) + and: [(Array someInstance first: 17) = {nil . SmallInteger . Character . SmallInteger . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . nil . Array}]]) ifTrue: + [SmallFloat64 tryPrimitive: 161 withArgs: #(4). + Array someInstance at: 5 put: SmallFloat64]'! - (PackageInfo named: 'Kernel') postscript: 'Smalltalk removeFromStartUpList: DateAndTime.'!

1 0

The Trunk: Kernel-eem.1005.mcz
by commits＠source.squeak.org 09 Mar '16

09 Mar '16

1 0

← Newer
1
...
4
5
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2016