Squeak-dev October 2016

squeak-dev@lists.squeakfoundation.org

40 participants
114 discussions

The Trunk: Collections-eem.717.mcz
by commits＠source.squeak.org 14 Oct '16

14 Oct '16

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.717.mcz ==================== Summary ==================== Name: Collections-eem.717 Author: eem Time: 13 October 2016, 4:14:34.323953 pm UUID: ff6f9273-5077-47f9-b660-0cdd4b184bb1 Ancestors: Collections-dtl.716 Revise upwards the cross-over in SequenceableCollection>>atAllPut: at which point to move from a simple loop using at:put: to connivance using replaceFrom:to:with:startingAt:. Add a comment that includes the code to actually test this, instead of simply claiming without support. =============== Diff against Collections-dtl.716 =============== Item was changed: ----- Method: SequenceableCollection>>atAllPut: (in category 'accessing') ----- atAllPut: anObject "Put anObject at every one of the receiver's indices." | size | + (size := self size) > 50 "first method faster for larger sizes; see below" - (size := self size) > 26 "first method faster from 27 accesses and on" ifTrue: [self from: 1 to: size put: anObject] + ifFalse: [1 to: size do: [:index | self at: index put: anObject]] + + "Here's code to test what's a good cross over." + "(1 to: 3) collect: + [:j| + { Array. ByteArray. FloatArray. WordArray } collect: + [:class| | a e | + a := class new: 250. + e := a at: 1. + (1 to: a size) detect: + [:n| | t1 t2 | + t1 := [1 to: 1000 do: [:i| a from: 1 to: n put: e]] timeToRun. + t2 := [1 to: 1000 do: [:i| 1 to: n do: [:index | a at: index put: e]]] timeToRun. + t1 < t2]]]" + "32-bit Spur x86 #(#(69 54 9 63) #(64 52 10 55) #(63 53 9 61))" + "64-bit Spur x86-64 #(#(63 50 10 55) #(60 48 10 54) #(63 44 9 50))"! - ifFalse: [1 to: size do: [:index | self at: index put: anObject]]!

1 0

Re: [squeak-dev] The Trunk: Kernel-eem.1045.mcz
by Nicolas Cellier 14 Oct '16

14 Oct '16

Hi Eliot, did you see related changes in inbox? 2016-10-12 21:10 GMT+02:00 <commits(a)source.squeak.org>: > Eliot Miranda uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-eem.1045.mcz > > ==================== Summary ==================== > > Name: Kernel-eem.1045 > Author: eem > Time: 12 October 2016, 12:10:33.006651 pm > UUID: d91d38c6-bb5b-4fcd-a28b-1bdbc867a33e > Ancestors: Kernel-nice.1044 > > Add support for creating DoubleByte (isShorts) and DoubleWord (isLongs) > variable classes. > > =============== Diff against Kernel-nice.1044 =============== > > Item was changed: > ----- Method: Behavior>>isBytes (in category 'testing') ----- > isBytes > + "Answer whether the receiver's instances have indexed 8-bit > integer instance variables. > - "Answer whether the receiver has 8-bit instance variables. > Above Cog Spur the class format is > <5 bits inst spec><16 bits inst size> > where the 5-bit inst spec is > 0 = 0 sized objects (UndefinedObject True > False et al) > 1 = non-indexable objects with inst vars > (Point et al) > 2 = indexable objects with no inst vars > (Array et al) > 3 = indexable objects with inst vars > (MethodContext AdditionalMethodState et al) > 4 = weak indexable objects with inst vars > (WeakArray et al) > 5 = weak non-indexable objects with inst > vars (ephemerons) (Ephemeron) > 6 = unused > 7 = immediates (SmallInteger, Character) > 8 = unused > 9 = 64-bit indexable > 10-11 = 32-bit indexable (Bitmap) > 12-15 = 16-bit indexable > 16-23 = 8-bit indexable > 24-31 = compiled methods (CompiledMethod)" > ^self instSpec >= 16! > > Item was added: > + ----- Method: Behavior>>isLongs (in category 'testing') ----- > + isLongs > + "Answer whether the receiver's instances have indexed 64-bit > integer instance variables. > + Above Cog Spur the class format is > + <5 bits inst spec><16 bits inst size> > + where the 5-bit inst spec is > + 0 = 0 sized objects (UndefinedObject True > False et al) > + 1 = non-indexable objects with inst vars > (Point et al) > + 2 = indexable objects with no inst vars > (Array et al) > + 3 = indexable objects with inst vars > (MethodContext AdditionalMethodState et al) > + 4 = weak indexable objects with inst vars > (WeakArray et al) > + 5 = weak non-indexable objects with inst > vars (ephemerons) (Ephemeron) > + 6 = unused > + 7 = immediates (SmallInteger, Character) > + 8 = unused > + 9 = 64-bit indexable > + 10-11 = 32-bit indexable (Bitmap) > + 12-15 = 16-bit indexable > + 16-23 = 8-bit indexable > + 24-31 = compiled methods (CompiledMethod)" > + ^self instSpec = 9! > > Item was added: > + ----- Method: Behavior>>isShorts (in category 'testing') ----- > + isShorts > + "Answer whether the receiver's instances have indexed 16-bit > integer instance variables. > + Above Cog Spur the class format is > + <5 bits inst spec><16 bits inst size> > + where the 5-bit inst spec is > + 0 = 0 sized objects (UndefinedObject True > False et al) > + 1 = non-indexable objects with inst vars > (Point et al) > + 2 = indexable objects with no inst vars > (Array et al) > + 3 = indexable objects with inst vars > (MethodContext AdditionalMethodState et al) > + 4 = weak indexable objects with inst vars > (WeakArray et al) > + 5 = weak non-indexable objects with inst > vars (ephemerons) (Ephemeron) > + 6 = unused > + 7 = immediates (SmallInteger, Character) > + 8 = unused > + 9 = 64-bit indexable > + 10-11 = 32-bit indexable (Bitmap) > + 12-15 = 16-bit indexable > + 16-23 = 8-bit indexable > + 24-31 = compiled methods (CompiledMethod)" > + ^self instSpec = 12! > > Item was changed: > ----- Method: Behavior>>isWords (in category 'testing') ----- > isWords > + "Answer whether the receiver's instances have indexed 32-bit > integer instance variables. > + Above Cog Spur the class format is > + <5 bits inst spec><16 bits inst size> > + where the 5-bit inst spec is > + 0 = 0 sized objects (UndefinedObject True > False et al) > + 1 = non-indexable objects with inst vars > (Point et al) > + 2 = indexable objects with no inst vars > (Array et al) > + 3 = indexable objects with inst vars > (MethodContext AdditionalMethodState et al) > + 4 = weak indexable objects with inst vars > (WeakArray et al) > + 5 = weak non-indexable objects with inst > vars (ephemerons) (Ephemeron) > + 6 = unused > + 7 = immediates (SmallInteger, Character) > + 8 = unused > + 9 = 64-bit indexable > + 10-11 = 32-bit indexable (Bitmap) > + 12-15 = 16-bit indexable > + 16-23 = 8-bit indexable > + 24-31 = compiled methods (CompiledMethod)" > + ^self instSpec = 10! > - "Answer true if the receiver is made of 32-bit instance variables." > - > - ^self isBytes not! > > Item was changed: > ----- Method: Class>>variableByteSubclass:instanceVariableNames: > classVariableNames:poolDictionaries:category: (in category 'subclass > creation') ----- > variableByteSubclass: t instanceVariableNames: f > classVariableNames: d poolDictionaries: s category: cat > "This is the standard initialization message for creating a new > class as a > subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 8-bit byte-sized nonpointer variables." > + ^ClassBuilder new > - have indexable byte-sized nonpointer variables." > - ^(ClassBuilder new) > superclass: self > variableByteSubclass: t > instanceVariableNames: f > classVariableNames: d > poolDictionaries: s > + category: cat! > - category: cat > - ! > > Item was changed: > ----- Method: Class>>variableByteSubclass:uses:instanceVariableNames: > classVariableNames:poolDictionaries:category: (in category 'subclass > creation') ----- > variableByteSubclass: t uses: aTraitCompositionOrArray > instanceVariableNames: f > classVariableNames: d poolDictionaries: s category: cat > "This is the standard initialization message for creating a new > class as a > subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 8-bit byte-sized nonpointer variables." > - have indexable byte-sized nonpointer variables." > > | newClass copyOfOldClass | > copyOfOldClass := self copy. > newClass := self > variableByteSubclass: t > instanceVariableNames: f > classVariableNames: d > poolDictionaries: s > category: cat. > > newClass setTraitComposition: aTraitCompositionOrArray > asTraitComposition. > SystemChangeNotifier uniqueInstance > classDefinitionChangedFrom: copyOfOldClass to: newClass. > + ^newClass! > - ^newClass > - ! > > Item was added: > + ----- Method: Class>>variableDoubleByteSubclass:instanceVariableNames: > classVariableNames:poolDictionaries:category: (in category 'subclass > creation') ----- > + variableDoubleByteSubclass: t instanceVariableNames: f > + classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a > + subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 16-bit double byte-sized nonpointer variables." > + ^ClassBuilder new > + superclass: self > + variableDoubleByteSubclass: t > + instanceVariableNames: f > + classVariableNames: d > + poolDictionaries: s > + category: cat! > > Item was added: > + ----- Method: Class>>variableDoubleByteSubclass: > uses:instanceVariableNames:classVariableNames:poolDictionaries:category: > (in category 'subclass creation') ----- > + variableDoubleByteSubclass: t uses: aTraitCompositionOrArray > instanceVariableNames: f > + classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a > + subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 16-bit double byte-sized nonpointer variables." > + > + | newClass copyOfOldClass | > + copyOfOldClass := self copy. > + newClass := self > + variableDoubleByteSubclass: t > + instanceVariableNames: f > + classVariableNames: d > + poolDictionaries: s > + category: cat. > + > + newClass setTraitComposition: aTraitCompositionOrArray > asTraitComposition. > + SystemChangeNotifier uniqueInstance > + classDefinitionChangedFrom: copyOfOldClass to: newClass. > + ^newClass! > > Item was added: > + ----- Method: Class>>variableDoubleWordSubclass:instanceVariableNames: > classVariableNames:poolDictionaries:category: (in category 'subclass > creation') ----- > + variableDoubleWordSubclass: t instanceVariableNames: f > + classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a > + subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 64-bit word-sized nonpointer variables." > + ^ClassBuilder new > + superclass: self > + variableDoubleWordSubclass: t > + instanceVariableNames: f > + classVariableNames: d > + poolDictionaries: s > + category: cat! > > Item was added: > + ----- Method: Class>>variableDoubleWordSubclass: > uses:instanceVariableNames:classVariableNames:poolDictionaries:category: > (in category 'subclass creation') ----- > + variableDoubleWordSubclass: t uses: aTraitCompositionOrArray > instanceVariableNames: f > + classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a > + subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 64-bit word-sized nonpointer variables." > + > + | newClass copyOfOldClass | > + copyOfOldClass := self copy. > + newClass := self > + variableDoubleWordSubclass: t > + instanceVariableNames: f > + classVariableNames: d > + poolDictionaries: s > + category: cat. > + > + newClass setTraitComposition: aTraitCompositionOrArray > asTraitComposition. > + SystemChangeNotifier uniqueInstance > + classDefinitionChangedFrom: copyOfOldClass to: newClass. > + ^newClass! > > Item was changed: > ----- Method: Class>>variableWordSubclass:instanceVariableNames: > classVariableNames:poolDictionaries:category: (in category 'subclass > creation') ----- > variableWordSubclass: t instanceVariableNames: f > classVariableNames: d poolDictionaries: s category: cat > "This is the standard initialization message for creating a new > class as a > subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 32-bit word-sized nonpointer variables." > + ^ClassBuilder new > - have indexable word-sized nonpointer variables." > - ^(ClassBuilder new) > superclass: self > variableWordSubclass: t > instanceVariableNames: f > classVariableNames: d > poolDictionaries: s > + category: cat! > - category: cat > - ! > > Item was changed: > ----- Method: Class>>variableWordSubclass:uses:instanceVariableNames: > classVariableNames:poolDictionaries:category: (in category 'subclass > creation') ----- > variableWordSubclass: t uses: aTraitCompositionOrArray > instanceVariableNames: f > classVariableNames: d poolDictionaries: s category: cat > "This is the standard initialization message for creating a new > class as a > subclass of an existing class (the receiver) in which the subclass > is to > + have indexable 32-bit word-sized nonpointer variables." > - have indexable word-sized nonpointer variables." > > | newClass copyOfOldClass | > copyOfOldClass := self copy. > newClass := self > variableWordSubclass: t > instanceVariableNames: f > classVariableNames: d > poolDictionaries: s > category: cat. > > newClass setTraitComposition: aTraitCompositionOrArray > asTraitComposition. > SystemChangeNotifier uniqueInstance > classDefinitionChangedFrom: copyOfOldClass to: newClass. > + ^newClass ! > - ^newClass > - ! > > Item was changed: > ----- Method: ClassBuilder>>superclass:variableByteSubclass: > instanceVariableNames:classVariableNames:poolDictionaries:category: (in > category 'public') ----- > superclass: aClass > + variableByteSubclass: t instanceVariableNames: f > - variableByteSubclass: t instanceVariableNames: f > classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a subclass of an > + existing class in which the subclass is to have indexable 8-bit > byte-sized nonpointer variables." > - "This is the standard initialization message for creating a new > class as a > - subclass of an existing class in which the subclass is to > - have indexable byte-sized nonpointer variables." > | oldClassOrNil actualType env | > + aClass instSize > 0 > - (aClass instSize > 0) > ifTrue: [^self error: 'cannot make a byte subclass of a > class with named fields']. > + (aClass isVariable and: [aClass isBytes not]) > + ifTrue: [^self error: 'cannot make an 8-bit byte subclass > of a class with 16, 32 or 64 bit fields']. > - (aClass isVariable and: [aClass isWords]) > - ifTrue: [^self error: 'cannot make a byte subclass of a > class with word fields']. > (aClass isVariable and: [aClass isPointers]) > ifTrue: [^self error: 'cannot make a byte subclass of a > class with pointer fields']. > oldClassOrNil := aClass environment at: t ifAbsent:[nil]. > actualType := (oldClassOrNil notNil > and: [oldClassOrNil typeOfClass == > #compiledMethod]) > ifTrue: [#compiledMethod] > ifFalse: [#bytes]. > env := CurrentEnvironment signal ifNil: [aClass environment]. > ^self > name: t > inEnvironment: env > subclassOf: aClass > type: actualType > instanceVariableNames: f > classVariableNames: d > poolDictionaries: s > category: cat! > > Item was added: > + ----- Method: ClassBuilder>>superclass:variableDoubleByteSubclass: > instanceVariableNames:classVariableNames:poolDictionaries:category: (in > category 'public') ----- > + superclass: aClass > + variableDoubleByteSubclass: t instanceVariableNames: f > + classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a subclass of an > + existing class in which the subclass is to have indexable > 16-bit-sized nonpointer variables." > + | oldClassOrNil env | > + aClass instSize > 0 > + ifTrue: [^self error: 'cannot make a byte subclass of a > class with named fields']. > + (aClass isVariable and: [aClass isShorts not]) > + ifTrue: [^self error: 'cannot make a 16-bit short subclass > of a class with 8, 32 or 64 bit fields']. > + (aClass isVariable and: [aClass isPointers]) > + ifTrue: [^self error: 'cannot make a byte subclass of a > class with pointer fields']. > + oldClassOrNil := aClass environment at: t ifAbsent:[nil]. > + env := CurrentEnvironment signal ifNil: [aClass environment]. > + ^self > + name: t > + inEnvironment: env > + subclassOf: aClass > + type: #shorts > + instanceVariableNames: f > + classVariableNames: d > + poolDictionaries: s > + category: cat! > > Item was added: > + ----- Method: ClassBuilder>>superclass:variableDoubleWordSubclass: > instanceVariableNames:classVariableNames:poolDictionaries:category: (in > category 'public') ----- > + superclass: aClass > + variableDoubleWordSubclass: t instanceVariableNames: f > + classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a subclass of an > + existing class in which the subclass is to have indexable > 16-bit-sized nonpointer variables." > + | oldClassOrNil env | > + aClass instSize > 0 > + ifTrue: [^self error: 'cannot make a byte subclass of a > class with named fields']. > + (aClass isVariable and: [aClass isLongs not]) > + ifTrue: [^self error: 'cannot make a 64-bit long subclass > of a class with 8, 16 or 32 bit fields']. > + (aClass isVariable and: [aClass isPointers]) > + ifTrue: [^self error: 'cannot make a byte subclass of a > class with pointer fields']. > + oldClassOrNil := aClass environment at: t ifAbsent:[nil]. > + env := CurrentEnvironment signal ifNil: [aClass environment]. > + ^self > + name: t > + inEnvironment: env > + subclassOf: aClass > + type: #longs > + instanceVariableNames: f > + classVariableNames: d > + poolDictionaries: s > + category: cat! > > Item was changed: > ----- Method: ClassBuilder>>superclass:variableWordSubclass: > instanceVariableNames:classVariableNames:poolDictionaries:category: (in > category 'public') ----- > superclass: aClass > variableWordSubclass: t instanceVariableNames: f > classVariableNames: d poolDictionaries: s category: cat > + "This is the standard initialization message for creating a new > class as a subclass of an > + existing class in which the subclass is to have indexable 32-bit > word-sized nonpointer variables." > - "This is the standard initialization message for creating a new > class as a > - subclass of an existing class in which the subclass is to > - have indexable word-sized nonpointer variables." > | env | > + aClass instSize > 0 > - (aClass instSize > 0) > ifTrue: [^self error: 'cannot make a word subclass of a > class with named fields']. > + (aClass isVariable and: [aClass isWords not]) > + ifTrue: [^self error: 'cannot make a 32-bit word subclass > of a class with 8, 16 or 64 bit fields']. > - (aClass isVariable and: [aClass isBytes]) > - ifTrue: [^self error: 'cannot make a word subclass of a > class with byte fields']. > (aClass isVariable and: [aClass isPointers]) > ifTrue: [^self error: 'cannot make a word subclass of a > class with pointer fields']. > env := CurrentEnvironment signal ifNil: [aClass environment]. > ^self > name: t > inEnvironment: env > subclassOf: aClass > type: #words > instanceVariableNames: f > classVariableNames: d > poolDictionaries: s > category: cat! > > >

2 1

Squeak Does Not Run on MAC OS Sierra
by glenpaling 13 Oct '16

13 Oct '16

I foolishly updated my Macs to the latest OS (Sierra) without checking for compatibility with Squeak. No recent (all Cog?) VMs will work. The VM launches but no window appears. The problem appears to be addressed in OpenSmalltalk macOS Sierra Support issue #39 (https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/39). It's marked as 'Closed'. Are there plans to include this fix in the official Squeak release? I see that I can download and build my own VM from the Open Smalltalk site but I've never done this before, it looks a little ominous.... Perhaps a note in Squeak News and on the Squeak website would help to warn other users that they will not be able to run Squeak if they upgrade their OS. Glen -- View this message in context: http://forum.world.st/Squeak-Does-Not-Run-on-MAC-OS-Sierra-tp4918570.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

3 3

Daily Commit Log
by commits＠source.squeak.org 12 Oct '16

12 Oct '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-October/068996.ht… Name: Kernel-eem.1045 Ancestors: Kernel-nice.1044 Add support for creating DoubleByte (isShorts) and DoubleWord (isLongs) variable classes. =============================================

1 0

The Trunk: Kernel-eem.1045.mcz
by commits＠source.squeak.org 12 Oct '16

12 Oct '16

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1045.mcz ==================== Summary ==================== Name: Kernel-eem.1045 Author: eem Time: 12 October 2016, 12:10:33.006651 pm UUID: d91d38c6-bb5b-4fcd-a28b-1bdbc867a33e Ancestors: Kernel-nice.1044 Add support for creating DoubleByte (isShorts) and DoubleWord (isLongs) variable classes. =============== Diff against Kernel-nice.1044 =============== Item was changed: ----- Method: Behavior>>isBytes (in category 'testing') ----- isBytes + "Answer whether the receiver's instances have indexed 8-bit integer instance variables. - "Answer whether the receiver has 8-bit instance variables. Above Cog Spur the class format is <5 bits inst spec><16 bits inst size> where the 5-bit inst spec is 0 = 0 sized objects (UndefinedObject True False et al) 1 = non-indexable objects with inst vars (Point et al) 2 = indexable objects with no inst vars (Array et al) 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) 4 = weak indexable objects with inst vars (WeakArray et al) 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) 6 = unused 7 = immediates (SmallInteger, Character) 8 = unused 9 = 64-bit indexable 10-11 = 32-bit indexable (Bitmap) 12-15 = 16-bit indexable 16-23 = 8-bit indexable 24-31 = compiled methods (CompiledMethod)" ^self instSpec >= 16! Item was added: + ----- Method: Behavior>>isLongs (in category 'testing') ----- + isLongs + "Answer whether the receiver's instances have indexed 64-bit integer instance variables. + Above Cog Spur the class format is + <5 bits inst spec><16 bits inst size> + where the 5-bit inst spec is + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 = unused + 7 = immediates (SmallInteger, Character) + 8 = unused + 9 = 64-bit indexable + 10-11 = 32-bit indexable (Bitmap) + 12-15 = 16-bit indexable + 16-23 = 8-bit indexable + 24-31 = compiled methods (CompiledMethod)" + ^self instSpec = 9! Item was added: + ----- Method: Behavior>>isShorts (in category 'testing') ----- + isShorts + "Answer whether the receiver's instances have indexed 16-bit integer instance variables. + Above Cog Spur the class format is + <5 bits inst spec><16 bits inst size> + where the 5-bit inst spec is + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 = unused + 7 = immediates (SmallInteger, Character) + 8 = unused + 9 = 64-bit indexable + 10-11 = 32-bit indexable (Bitmap) + 12-15 = 16-bit indexable + 16-23 = 8-bit indexable + 24-31 = compiled methods (CompiledMethod)" + ^self instSpec = 12! Item was changed: ----- Method: Behavior>>isWords (in category 'testing') ----- isWords + "Answer whether the receiver's instances have indexed 32-bit integer instance variables. + Above Cog Spur the class format is + <5 bits inst spec><16 bits inst size> + where the 5-bit inst spec is + 0 = 0 sized objects (UndefinedObject True False et al) + 1 = non-indexable objects with inst vars (Point et al) + 2 = indexable objects with no inst vars (Array et al) + 3 = indexable objects with inst vars (MethodContext AdditionalMethodState et al) + 4 = weak indexable objects with inst vars (WeakArray et al) + 5 = weak non-indexable objects with inst vars (ephemerons) (Ephemeron) + 6 = unused + 7 = immediates (SmallInteger, Character) + 8 = unused + 9 = 64-bit indexable + 10-11 = 32-bit indexable (Bitmap) + 12-15 = 16-bit indexable + 16-23 = 8-bit indexable + 24-31 = compiled methods (CompiledMethod)" + ^self instSpec = 10! - "Answer true if the receiver is made of 32-bit instance variables." - - ^self isBytes not! Item was changed: ----- Method: Class>>variableByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- variableByteSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat "This is the standard initialization message for creating a new class as a subclass of an existing class (the receiver) in which the subclass is to + have indexable 8-bit byte-sized nonpointer variables." + ^ClassBuilder new - have indexable byte-sized nonpointer variables." - ^(ClassBuilder new) superclass: self variableByteSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s + category: cat! - category: cat - ! Item was changed: ----- Method: Class>>variableByteSubclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- variableByteSubclass: t uses: aTraitCompositionOrArray instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat "This is the standard initialization message for creating a new class as a subclass of an existing class (the receiver) in which the subclass is to + have indexable 8-bit byte-sized nonpointer variables." - have indexable byte-sized nonpointer variables." | newClass copyOfOldClass | copyOfOldClass := self copy. newClass := self variableByteSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat. newClass setTraitComposition: aTraitCompositionOrArray asTraitComposition. SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass. + ^newClass! - ^newClass - ! Item was added: + ----- Method: Class>>variableDoubleByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- + variableDoubleByteSubclass: t instanceVariableNames: f + classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a + subclass of an existing class (the receiver) in which the subclass is to + have indexable 16-bit double byte-sized nonpointer variables." + ^ClassBuilder new + superclass: self + variableDoubleByteSubclass: t + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat! Item was added: + ----- Method: Class>>variableDoubleByteSubclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- + variableDoubleByteSubclass: t uses: aTraitCompositionOrArray instanceVariableNames: f + classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a + subclass of an existing class (the receiver) in which the subclass is to + have indexable 16-bit double byte-sized nonpointer variables." + + | newClass copyOfOldClass | + copyOfOldClass := self copy. + newClass := self + variableDoubleByteSubclass: t + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat. + + newClass setTraitComposition: aTraitCompositionOrArray asTraitComposition. + SystemChangeNotifier uniqueInstance + classDefinitionChangedFrom: copyOfOldClass to: newClass. + ^newClass! Item was added: + ----- Method: Class>>variableDoubleWordSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- + variableDoubleWordSubclass: t instanceVariableNames: f + classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a + subclass of an existing class (the receiver) in which the subclass is to + have indexable 64-bit word-sized nonpointer variables." + ^ClassBuilder new + superclass: self + variableDoubleWordSubclass: t + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat! Item was added: + ----- Method: Class>>variableDoubleWordSubclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- + variableDoubleWordSubclass: t uses: aTraitCompositionOrArray instanceVariableNames: f + classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a + subclass of an existing class (the receiver) in which the subclass is to + have indexable 64-bit word-sized nonpointer variables." + + | newClass copyOfOldClass | + copyOfOldClass := self copy. + newClass := self + variableDoubleWordSubclass: t + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat. + + newClass setTraitComposition: aTraitCompositionOrArray asTraitComposition. + SystemChangeNotifier uniqueInstance + classDefinitionChangedFrom: copyOfOldClass to: newClass. + ^newClass! Item was changed: ----- Method: Class>>variableWordSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- variableWordSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat "This is the standard initialization message for creating a new class as a subclass of an existing class (the receiver) in which the subclass is to + have indexable 32-bit word-sized nonpointer variables." + ^ClassBuilder new - have indexable word-sized nonpointer variables." - ^(ClassBuilder new) superclass: self variableWordSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s + category: cat! - category: cat - ! Item was changed: ----- Method: Class>>variableWordSubclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'subclass creation') ----- variableWordSubclass: t uses: aTraitCompositionOrArray instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat "This is the standard initialization message for creating a new class as a subclass of an existing class (the receiver) in which the subclass is to + have indexable 32-bit word-sized nonpointer variables." - have indexable word-sized nonpointer variables." | newClass copyOfOldClass | copyOfOldClass := self copy. newClass := self variableWordSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat. newClass setTraitComposition: aTraitCompositionOrArray asTraitComposition. SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass. + ^newClass ! - ^newClass - ! Item was changed: ----- Method: ClassBuilder>>superclass:variableByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'public') ----- superclass: aClass + variableByteSubclass: t instanceVariableNames: f - variableByteSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a subclass of an + existing class in which the subclass is to have indexable 8-bit byte-sized nonpointer variables." - "This is the standard initialization message for creating a new class as a - subclass of an existing class in which the subclass is to - have indexable byte-sized nonpointer variables." | oldClassOrNil actualType env | + aClass instSize > 0 - (aClass instSize > 0) ifTrue: [^self error: 'cannot make a byte subclass of a class with named fields']. + (aClass isVariable and: [aClass isBytes not]) + ifTrue: [^self error: 'cannot make an 8-bit byte subclass of a class with 16, 32 or 64 bit fields']. - (aClass isVariable and: [aClass isWords]) - ifTrue: [^self error: 'cannot make a byte subclass of a class with word fields']. (aClass isVariable and: [aClass isPointers]) ifTrue: [^self error: 'cannot make a byte subclass of a class with pointer fields']. oldClassOrNil := aClass environment at: t ifAbsent:[nil]. actualType := (oldClassOrNil notNil and: [oldClassOrNil typeOfClass == #compiledMethod]) ifTrue: [#compiledMethod] ifFalse: [#bytes]. env := CurrentEnvironment signal ifNil: [aClass environment]. ^self name: t inEnvironment: env subclassOf: aClass type: actualType instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat! Item was added: + ----- Method: ClassBuilder>>superclass:variableDoubleByteSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'public') ----- + superclass: aClass + variableDoubleByteSubclass: t instanceVariableNames: f + classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a subclass of an + existing class in which the subclass is to have indexable 16-bit-sized nonpointer variables." + | oldClassOrNil env | + aClass instSize > 0 + ifTrue: [^self error: 'cannot make a byte subclass of a class with named fields']. + (aClass isVariable and: [aClass isShorts not]) + ifTrue: [^self error: 'cannot make a 16-bit short subclass of a class with 8, 32 or 64 bit fields']. + (aClass isVariable and: [aClass isPointers]) + ifTrue: [^self error: 'cannot make a byte subclass of a class with pointer fields']. + oldClassOrNil := aClass environment at: t ifAbsent:[nil]. + env := CurrentEnvironment signal ifNil: [aClass environment]. + ^self + name: t + inEnvironment: env + subclassOf: aClass + type: #shorts + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat! Item was added: + ----- Method: ClassBuilder>>superclass:variableDoubleWordSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'public') ----- + superclass: aClass + variableDoubleWordSubclass: t instanceVariableNames: f + classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a subclass of an + existing class in which the subclass is to have indexable 16-bit-sized nonpointer variables." + | oldClassOrNil env | + aClass instSize > 0 + ifTrue: [^self error: 'cannot make a byte subclass of a class with named fields']. + (aClass isVariable and: [aClass isLongs not]) + ifTrue: [^self error: 'cannot make a 64-bit long subclass of a class with 8, 16 or 32 bit fields']. + (aClass isVariable and: [aClass isPointers]) + ifTrue: [^self error: 'cannot make a byte subclass of a class with pointer fields']. + oldClassOrNil := aClass environment at: t ifAbsent:[nil]. + env := CurrentEnvironment signal ifNil: [aClass environment]. + ^self + name: t + inEnvironment: env + subclassOf: aClass + type: #longs + instanceVariableNames: f + classVariableNames: d + poolDictionaries: s + category: cat! Item was changed: ----- Method: ClassBuilder>>superclass:variableWordSubclass:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category 'public') ----- superclass: aClass variableWordSubclass: t instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat + "This is the standard initialization message for creating a new class as a subclass of an + existing class in which the subclass is to have indexable 32-bit word-sized nonpointer variables." - "This is the standard initialization message for creating a new class as a - subclass of an existing class in which the subclass is to - have indexable word-sized nonpointer variables." | env | + aClass instSize > 0 - (aClass instSize > 0) ifTrue: [^self error: 'cannot make a word subclass of a class with named fields']. + (aClass isVariable and: [aClass isWords not]) + ifTrue: [^self error: 'cannot make a 32-bit word subclass of a class with 8, 16 or 64 bit fields']. - (aClass isVariable and: [aClass isBytes]) - ifTrue: [^self error: 'cannot make a word subclass of a class with byte fields']. (aClass isVariable and: [aClass isPointers]) ifTrue: [^self error: 'cannot make a word subclass of a class with pointer fields']. env := CurrentEnvironment signal ifNil: [aClass environment]. ^self name: t inEnvironment: env subclassOf: aClass type: #words instanceVariableNames: f classVariableNames: d poolDictionaries: s category: cat!

1 0

UK Smalltalk User Group Meeting - Monday, October 24th
by Giovanni Corriga 12 Oct '16

12 Oct '16

Hi, The next meeting of the UK Smalltalk User Group Meeting will be on Monday, October 24th. We'll meet at our usual venue The Counting House (http://www.the-counting- house.com/) at 7pm. If you'd like to join us, you can just show up at the pub. You can also sign up in advance at the meeting's Meetup page: https://www.meetup.com/UKSTUG/events/233683243/ . Thanks, Giovanni

1 0

Algerion does NOT work on 5.1
by william341 09 Oct '16

09 Oct '16

Installation proceeds as usual, but on activation freezes until esc is pressed. When alt+space is pressed, nothing happens. No error or screen shows. -- View this message in context: http://forum.world.st/Algerion-does-NOT-work-on-5-1-tp4918522.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

Daily Commit Log
by commits＠source.squeak.org 07 Oct '16

07 Oct '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-October/068994.ht… Name: UpdateStream-pre.8 Ancestors: UpdateStream-mt.7 Remove post method which was used in the MonticelloConfigurations tool ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-October/068995.ht… Name: EToys-eem.267 Ancestors: EToys-tfel.266 Remove an undeclared from cleanUpEtoysGarbage (make the reference to SkObject soft). =============================================

1 0

[squeak-dev] [BUG]MorphicModel2247(Object)>>doesNotUnderstand: #copyUniClassWith:
by H. Hirzel 07 Oct '16

07 Oct '16

Hello When I drop an Instance of a PasteUpMorph into the ProjectView window of another project I get the error message below. This is in a 5.1beta image but with the updates applied so that it is similar to the release image (I assume). This also happens in 6.0alpha most recent update but not allways. Any suggestions how I can fix this? Is a subclass of MorphicModel a UniClass? How can I detect a UniClass? --Hannes VM: unix - Smalltalk Image: Squeak5.1rc2 [latest update: #16535] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/user/sq5.1.beta-F/Squeak5.1beta-16420-32bit-r3397-All-in-One.app/Contents/Resources Trusted Dir /home/user/sq5.1.beta-F/Squeak5.1beta-16420-32bit-r3397-All-in-One.app/Contents/Resources/secure Untrusted Dir /home/user/sq5.1.beta-F/Squeak5.1beta-16420-32bit-r3397-All-in-One.app/Contents/Resources/My Squeak MorphicModel2247(Object)>>doesNotUnderstand: #copyUniClassWith: Receiver: a MorphicModel2247(2217950) Arguments and temporary variables: aMessage: copyUniClassWith: a DeepCopier exception: MessageNotUnderstood: MorphicModel2247>>copyUniClassWith: resumeValue: nil Receiver's instance variables: bounds: 0@0 corner: 200@100 owner: nil submorphs: #() fullBounds: nil color: Color transparent extension: a MorphExtension (2831207) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color yellow model: nil slotName: nil open: false MorphicModel2247(Object)>>veryDeepCopyWith: Receiver: a MorphicModel2247(2217950) Arguments and temporary variables: deepCopier: a DeepCopier class: MorphicModel2247 index: nil sub: nil subAss: nil new: a MorphicModel2247(3918826) uc: nil sup: nil has: nil mine: nil xx: nil xxLimiT: nil Receiver's instance variables: bounds: 0@0 corner: 200@100 owner: nil submorphs: #() fullBounds: nil color: Color transparent extension: a MorphExtension (2831207) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color yellow model: nil slotName: nil open: false MorphicModel2247(Morph)>>veryDeepCopyWith: Receiver: a MorphicModel2247(2217950) Arguments and temporary variables: deepCopier: a DeepCopier Receiver's instance variables: bounds: 0@0 corner: 200@100 owner: nil submorphs: #() fullBounds: nil color: Color transparent extension: a MorphExtension (2831207) [other: (borderStyle -> a SimpleBorder)]...etc... borderWidth: 2 borderColor: Color yellow model: nil slotName: nil open: false PasteUpMorph(Object)>>veryDeepCopyWith: Receiver: a PasteUpMorph(3556218) Arguments and temporary variables: deepCopier: a DeepCopier class: PasteUpMorph index: 10 sub: a MorphicModel2247(2217950) subAss: nil new: a PasteUpMorph(553920) uc: nil sup: PasteUpMorph has: false mine: #('presenter' 'model' 'cursor' 'padding' 'backgroundMorph' 'turtleTrailsF...etc... xx: 12 xxLimiT: 13 Receiver's instance variables: bounds: 23@48 corner: 663@528 owner: a PasteUpMorph4(3881707) [world] submorphs: {a TextMorph<Text11>(1743569) . a TextMorph<Text9>(932412) . a TextMorph...etc... fullBounds: 23@48 corner: 663@528 color: (Color r: 0.825 g: 0.825 b: 0.825) extension: a MorphExtension (2902375) [sticky] [other: (creationDate -> 26 Se...etc... borderWidth: 1 borderColor: (Color r: 0.861 g: 1 b: 0.722) presenter: nil model: a MorphicModel2247(2217950) cursor: 1 padding: 3 backgroundMorph: nil turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: nil wantsMouseOverHalos: nil worldState: nil griddingOn: nil PasteUpMorph(Morph)>>veryDeepCopyWith: Receiver: a PasteUpMorph(3556218) Arguments and temporary variables: deepCopier: a DeepCopier Receiver's instance variables: bounds: 23@48 corner: 663@528 owner: a PasteUpMorph4(3881707) [world] submorphs: {a TextMorph<Text11>(1743569) . a TextMorph<Text9>(932412) . a TextMorph...etc... fullBounds: 23@48 corner: 663@528 color: (Color r: 0.825 g: 0.825 b: 0.825) extension: a MorphExtension (2902375) [sticky] [other: (creationDate -> 26 Se...etc... borderWidth: 1 borderColor: (Color r: 0.861 g: 1 b: 0.722) presenter: nil model: a MorphicModel2247(2217950) cursor: 1 padding: 3 backgroundMorph: nil turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: nil wantsMouseOverHalos: nil worldState: nil griddingOn: nil PasteUpMorph>>veryDeepCopyWith: Receiver: a PasteUpMorph(3556218) Arguments and temporary variables: deepCopier: a DeepCopier Receiver's instance variables: bounds: 23@48 corner: 663@528 owner: a PasteUpMorph4(3881707) [world] submorphs: {a TextMorph<Text11>(1743569) . a TextMorph<Text9>(932412) . a TextMorph...etc... fullBounds: 23@48 corner: 663@528 color: (Color r: 0.825 g: 0.825 b: 0.825) extension: a MorphExtension (2902375) [sticky] [other: (creationDate -> 26 Se...etc... borderWidth: 1 borderColor: (Color r: 0.861 g: 1 b: 0.722) presenter: nil model: a MorphicModel2247(2217950) cursor: 1 padding: 3 backgroundMorph: nil turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: nil wantsMouseOverHalos: nil worldState: nil griddingOn: nil PasteUpMorph(Object)>>veryDeepCopy Receiver: a PasteUpMorph(3556218) Arguments and temporary variables: copier: a DeepCopier new: nil Receiver's instance variables: bounds: 23@48 corner: 663@528 owner: a PasteUpMorph4(3881707) [world] submorphs: {a TextMorph<Text11>(1743569) . a TextMorph<Text9>(932412) . a TextMorph...etc... fullBounds: 23@48 corner: 663@528 color: (Color r: 0.825 g: 0.825 b: 0.825) extension: a MorphExtension (2902375) [sticky] [other: (creationDate -> 26 Se...etc... borderWidth: 1 borderColor: (Color r: 0.861 g: 1 b: 0.722) presenter: nil model: a MorphicModel2247(2217950) cursor: 1 padding: 3 backgroundMorph: nil turtleTrailsForm: nil turtlePen: nil lastTurtlePositions: nil isPartsBin: nil indicateCursor: nil wantsMouseOverHalos: nil worldState: nil griddingOn: nil ProjectViewMorph>>acceptDroppingMorph:event: Receiver: a ProjectViewMorph(3378337) Arguments and temporary variables: morphToDrop: a PasteUpMorph(3556218) evt: [384@639 dropEvent] myCopy: nil smallR: nil Receiver's instance variables: bounds: 237@582 corner: 527@750 owner: a SystemWindow<Susanna>(1423013) submorphs: {an AlignmentMorph(589206)} fullBounds: 237@582 corner: 527@750 color: Color blue extension: a MorphExtension (799113) [other: (layoutFrame -> a LayoutFrame) (l...etc... image: Form(290x168x32) project: a MorphicProject4 (Susanna) in a PasteUpMorph4(722271) [world] lastProjectThumbnail: Form(237x165x32) ProjectViewMorph(Morph)>>handleDropMorph: Receiver: a ProjectViewMorph(3378337) Arguments and temporary variables: anEvent: [384@639 dropEvent] aMorph: a PasteUpMorph(3556218) localPt: 382.0(a)896.0 Receiver's instance variables: bounds: 237@582 corner: 527@750 owner: a SystemWindow<Susanna>(1423013) submorphs: {an AlignmentMorph(589206)} fullBounds: 237@582 corner: 527@750 color: Color blue extension: a MorphExtension (799113) [other: (layoutFrame -> a LayoutFrame) (l...etc... image: Form(290x168x32) project: a MorphicProject4 (Susanna) in a PasteUpMorph4(722271) [world] lastProjectThumbnail: Form(237x165x32) DropEvent>>sentTo: Receiver: [384@639 dropEvent] Arguments and temporary variables: anObject: a ProjectViewMorph(3378337) Receiver's instance variables: timeStamp: nil source: a HandMorph(3246282) position: 384@639 contents: a PasteUpMorph(3556218) wasHandled: true ProjectViewMorph(Morph)>>handleEvent: Receiver: a ProjectViewMorph(3378337) Arguments and temporary variables: anEvent: [384@639 dropEvent] filteredEvent: [384@639 dropEvent] Receiver's instance variables: bounds: 237@582 corner: 527@750 owner: a SystemWindow<Susanna>(1423013) submorphs: {an AlignmentMorph(589206)} fullBounds: 237@582 corner: 527@750 color: Color blue extension: a MorphExtension (799113) [other: (layoutFrame -> a LayoutFrame) (l...etc... image: Form(290x168x32) project: a MorphicProject4 (Susanna) in a PasteUpMorph4(722271) [world] lastProjectThumbnail: Form(237x165x32) MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [384@639 dropEvent] aHandler: a ProjectViewMorph(3378337) aMorph: a ProjectViewMorph(3378337) result: #rejected filteredEvent: [384@639 dropEvent] Receiver's instance variables: lastType: #dropEvent lastDispatch: #dispatchDropEvent:with: MorphicEventDispatcher>>dispatchDropEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [384@639 dropEvent] aMorph: a ProjectViewMorph(3378337) Receiver's instance variables: lastType: #dropEvent lastDispatch: #dispatchDropEvent:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [384@639 dropEvent] aMorph: a ProjectViewMorph(3378337) Receiver's instance variables: lastType: #dropEvent lastDispatch: #dispatchDropEvent:with: ProjectViewMorph(Morph)>>processEvent:using: Receiver: a ProjectViewMorph(3378337) Arguments and temporary variables: anEvent: [384@639 dropEvent] defaultDispatcher: a MorphicEventDispatcher filteredEvent: [384@639 dropEvent] Receiver's instance variables: bounds: 237@582 corner: 527@750 owner: a SystemWindow<Susanna>(1423013) submorphs: {an AlignmentMorph(589206)} fullBounds: 237@582 corner: 527@750 color: Color blue extension: a MorphExtension (799113) [other: (layoutFrame -> a LayoutFrame) (l...etc... image: Form(290x168x32) project: a MorphicProject4 (Susanna) in a PasteUpMorph4(722271) [world] lastProjectThumbnail: Form(237x165x32) [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Receiver: a MorphicEventDispatcher Arguments and temporary variables: <<error during printing> Receiver's instance variables: lastType: #dropEvent lastDispatch: #dispatchDropEvent:with: Array(SequenceableCollection)>>do: Receiver: {a ProjectViewMorph(3378337) . an AlignmentMorph(668587) . a TopLeftGripMorph(1687623) . a...etc... Arguments and temporary variables: aBlock: [closure] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: index: 1 indexLimiT: 10 Receiver's instance variables: {a ProjectViewMorph(3378337) . an AlignmentMorph(668587) . a TopLeftGripMorph(1687623) . a...etc... SystemWindow(Morph)>>submorphsDo: Receiver: a SystemWindow<Susanna>(1423013) Arguments and temporary variables: aBlock: [closure] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Receiver's instance variables: bounds: 232@555 corner: 532@755 owner: a PasteUpMorph4(3881707) [world] submorphs: {a ProjectViewMorph(3378337) . an AlignmentMorph(668587) . a TopLeftGripMorph...etc... fullBounds: 232@555 corner: 533@756 color: (Color r: 0.795 g: 0.795 b: 0.795) extension: a MorphExtension (1997163) [other: (layoutProperties -> a TableLayo...etc... borderWidth: 1 borderColor: (Color r: 0.495 g: 0.495 b: 0.495) model: a MorphicProject4 (Susanna) in a PasteUpMorph4(722271) [world] slotName: nil open: false labelString: 'Susanna' stripes: {a RectangleMorph(148868) . a RectangleMorph(2226645)} label: a StringMorph(407595)'Susanna' closeBox: a SystemWindowButton(3350927) collapseBox: a SystemWindowButton(3737571) paneMorphs: {a ProjectViewMorph(3378337)} paneRects: nil collapsedFrame: nil fullFrame: 232@555 corner: 532@755 isCollapsed: false isActive: true isLookingFocused: false menuBox: a SystemWindowButton(3485309) mustNotClose: false labelWidgetAllowance: 83 updatablePanes: #() allowReframeHandles: true labelArea: an AlignmentMorph(668587) expandBox: a SystemWindowButton(2744585) MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Receiver: a MorphicEventDispatcher Arguments and temporary variables: <<error during printing> Receiver's instance variables: lastType: #dropEvent lastDispatch: #dispatchDropEvent:with: --- The full stack --- MorphicModel2247(Object)>>doesNotUnderstand: #copyUniClassWith: MorphicModel2247(Object)>>veryDeepCopyWith: MorphicModel2247(Morph)>>veryDeepCopyWith: PasteUpMorph(Object)>>veryDeepCopyWith: PasteUpMorph(Morph)>>veryDeepCopyWith: PasteUpMorph>>veryDeepCopyWith: PasteUpMorph(Object)>>veryDeepCopy ProjectViewMorph>>acceptDroppingMorph:event: ProjectViewMorph(Morph)>>handleDropMorph: DropEvent>>sentTo: ProjectViewMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: MorphicEventDispatcher>>dispatchDropEvent:with: MorphicEventDispatcher>>dispatchEvent:with: ProjectViewMorph(Morph)>>processEvent:using: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: SystemWindow(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: MorphicEventDispatcher>>dispatchDropEvent:with: MorphicEventDispatcher>>dispatchEvent:with: SystemWindow(Morph)>>processEvent:using: [] in MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: Array(SequenceableCollection)>>do: PasteUpMorph4(Morph)>>submorphsDo: MorphicEventDispatcher>>dispatchEvent:toSubmorphsOf: MorphicEventDispatcher>>dispatchEvent:withHandler:withMorph: MorphicEventDispatcher>>dispatchDropEvent:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph4(Morph)>>processEvent:using: [] in PasteUpMorph4(PasteUpMorph)>>processEvent:using: BlockClosure>>ensure: PasteUpMorph4(PasteUpMorph)>>processEvent:using: PasteUpMorph4(Morph)>>processEvent: [] in [] in [] in HandMorph>>sendEvent:focus:clear: BlockClosure>>ensure: DropEvent(MorphicEvent)>>becomeActiveDuring: [] in [] in HandMorph>>sendEvent:focus:clear: BlockClosure>>ensure: HandMorph>>becomeActiveDuring: [] in HandMorph>>sendEvent:focus:clear: BlockClosure>>ensure: PasteUpMorph4(PasteUpMorph)>>becomeActiveDuring: HandMorph>>sendEvent:focus:clear: HandMorph>>sendEvent:focus: [] in HandMorph>>dropMorph:event: BlockClosure>>ensure: HandMorph>>dropMorph:event: [] in HandMorph>>dropMorphs: Array(SequenceableCollection)>>reverseDo: HandMorph(Morph)>>submorphsReverseDo: HandMorph>>dropMorphs: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph4(PasteUpMorph)>>doOneCycle -- and more not shown --

1 0

The Trunk: EToys-eem.267.mcz
by commits＠source.squeak.org 07 Oct '16

07 Oct '16

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.267.mcz ==================== Summary ==================== Name: EToys-eem.267 Author: eem Time: 7 October 2016, 9:25:48.070927 am UUID: 76f37085-fb1e-4d89-ad91-7b470d3133f6 Ancestors: EToys-tfel.266 Remove an undeclared from cleanUpEtoysGarbage (make the reference to SkObject soft). =============== Diff against EToys-tfel.266 =============== Item was changed: ----- Method: Project class>>cleanUpEtoysGarbage (in category '*Etoys-Squeakland-utilities') ----- cleanUpEtoysGarbage "Project cleanUpEtoysGarbage" "All these should eventuall go away and be fixed, but for now we have this here." Smalltalk garbageCollect. "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]. "Clear the weak dictionary on the class side that keeps node state around in the rewriter" KedamaEvaluatorNodeState initialize. "Clear the KedamaEvaluator that holds on to the last Kedama world" ScriptEditorMorph setDefaultEvaluator. "Clear the hard references to player classes, " (Smalltalk organization listAtCategoryNamed: 'UserObjects') do: [:name | Smalltalk forgetClass: (Smalltalk classNamed: name) logged: false]. Player withAllSubclasses select: [:c | c isSystemDefined not] thenDo: [:c | c superclass removeSubclass: c]. "Clear the paste buffer" HandMorph initialize. "Clear the reference to the project tree in SkObject" + Smalltalk at: #SkObject ifPresent: [:cls| cls initialize]. - SkObject initialize. PasteUpMorph allInstancesDo: [:m | m presenter ifNotNil: [:p | p flushPlayerListCache]]. + Smalltalk garbageCollect! - Smalltalk garbageCollect.!

1 0

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