Squeak-dev September 2015

squeak-dev@lists.squeakfoundation.org

40 participants
134 discussions

Criteria For Plugin Compatibility
by Chris Cunnington 11 Sep '15

11 Sep '15

I had the idea that a plugin from one VM could be dragged into another VM's directory and that it could be used just by starting up the image. I've done a little experimenting and it seems more of an idea of a reality. The functionality is there, but VM developers over the years have not seen this as a priority. Typically plugins and their VMs are compiled together. Or a person adds one by recompiling a VM compilation rig they already have. As I had a rig for the Interpreter VM I decided to compile a plugin and see if I could drag it around to other VM directories for use. Most times it didn't work. I compiled a TheUniversalAnswer plugin which returns 42. I moved it from a 4.14.1-3430 VM to a 4.14.1-3414 VM. I could get it to work if I did not use the squeak.sh start script. That is, I dragged so.vm-sound-null, so.TheUniversalAnswer and so.vm-display-X11 into the same directory as the VM binary. That worked. The only way to see the external plugins is with #listLoadedModules. But, irritatingly, modules are loaded as needed, so once you have proof of using the primitive from the plugin, yea, it will appear as a result of that Smalltalk listLoadedModules message. So, it's not that useful. I dragged so.TheUniversalAnswer around to other VMs such as 4.0.3-2202 and 4.13.10-3268 without success. And the unload selectors #forgetModule: and unloadModule:, which both use primitive 571 don't appear to work on my Ubuntu 15.04. So, I don't know if a community of plugins passed around is in the offing. What I have learned is that many of the answers are in sqUnixExternalPrims.c. The issues are really where does the VM look for primitives and what does it do when it finds one. It appears to me, after reading both the non-Cog and Cog versions of that file, that this an interesting area poorly documented that VM developers alter in haste to get on to something else. It's pretty important stuff, though. Do you start the VM with the binary on the path? Do you use squeak.sh? Where is the VM looking for stuff. Where will FFI look for stuff. And so on. Chris

4 3

Daily Commit Log
by commits＠source.squeak.org 10 Sep '15

10 Sep '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-September/008961.… Name: Morphic-mt.1005 Ancestors: Morphic-mt.1004 Fixes a memory leak that occurs when handling drop events and an error occurs. Primarily, this is related to step messages holding strong references to their receivers. Stepping will only stop if #delete is called on a morph. =============================================

1 0

The Trunk: Morphic-mt.1005.mcz
by commits＠source.squeak.org 10 Sep '15

10 Sep '15

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1005.mcz ==================== Summary ==================== Name: Morphic-mt.1005 Author: mt Time: 10 September 2015, 2:40:42.838 pm UUID: d77f85b5-c861-d347-93c6-fb0bce9283b9 Ancestors: Morphic-mt.1004 Fixes a memory leak that occurs when handling drop events and an error occurs. Primarily, this is related to step messages holding strong references to their receivers. Stepping will only stop if #delete is called on a morph. =============== Diff against Morphic-mt.1004 =============== Item was changed: ----- Method: HandMorph>>dropMorph:event: (in category 'grabbing/dropping') ----- dropMorph: aMorph event: anEvent "Drop the given morph which was carried by the hand" | event dropped | (anEvent isMouseUp and:[aMorph shouldDropOnMouseUp not]) ifTrue:[^self]. "Note: For robustness in drag and drop handling we remove the morph BEFORE we drop him, but we keep his owner set to the hand. This prevents system lockups when there is a problem in drop handling (for example if there's an error in #wantsToBeDroppedInto:). THIS TECHNIQUE IS NOT RECOMMENDED FOR CASUAL USE." self privateRemove: aMorph. aMorph privateOwner: self. dropped := aMorph. (dropped hasProperty: #addedFlexAtGrab) ifTrue:[dropped := aMorph removeFlexShell]. event := DropEvent new setPosition: self position contents: dropped hand: self. + + [ "In case of an error, ensure that the morph-to-be-dropped will be disposed. Otherwise it may confuse garbage handler. See the sends of #privateRemove: and #privateOwner: above." + self sendEvent: event focus: nil. + event wasHandled ifFalse: [aMorph rejectDropMorphEvent: event] ] + ensure: [ aMorph owner == self ifTrue: [aMorph delete] ]. + - self sendEvent: event focus: nil. - event wasHandled ifFalse:[aMorph rejectDropMorphEvent: event]. - aMorph owner == self ifTrue:[aMorph delete]. self mouseOverHandler processMouseOver: anEvent.!

1 0

ByteArray accessors - questions about some of the accessors
by Chris Cunningham 10 Sep '15

10 Sep '15

Hi. First and foremost, this is not about an issue caused by the recent enhancements to the ByteArray accessors for 64-bit manipulation, but rather a series of questions that has been brewing in my mind during the discussions. I notice that I can't pass negative numbers to the various #unsigned..At:put:bigEndian: methods. While this may be on purpose (since they are UNSIGNED), it is still annoying. I happen to know that our numbers are stored roughly two-complement, meaning that -1 is the same as 16rFF, 16rFFFF, 16rFFFFFFFF, etc - whatever size I choose (since our digits are never end - we essentially have a infinite length twos compliment negative numbers). Yet I can't store them with the unsigned, getting an improper store each time I try. All of these fail: ba at: 1 put: -1 ba unsignedShortAt: 1 put: -1 bigEndian: false ba unsignedLongAt: 1 put: -1 bigEndian: false ba unsignedLong64At: 1 put: -1 bigEndian: false Is this intentional, and I should stop trying to abuse the methods? If so, I'll stop. Still: ba at: 1 put: -1 ba shortAt: 1 put: -1 bigEndian: false ba longAt: 1 put: -1 bigEndian: false ba long64At: 1 put: -1 bigEndian: false Only the second and third of the above work- we haven't yet added the fourth one, and apparently we signed byte access has never been there. (And there are uses of signed bytes out there - google it - but I have not personally needed it. Still, we could/should be complete.) The other issue found (by accident) is that #longAt:put:bigEndian and #unsignedLongAt:put:bigEndian: allow for arbitrarily large numbers to be passed to them - way bigger than 32 bits - and stores the end 32 bits off of them to the array. (Except you can't pass SOME negative numbers like -1 to #unsignedLongAt:put:bigEndian: - go figure). This should be fixed - but it is a very long-standing bug. -cbc

3 3

ByteArray accessors for 64-bit manipulation
by Chris Cunningham 10 Sep '15

10 Sep '15

Hi. I've committed a change to the inbox with changes to allow getting/putting 64bit values to ByteArrays (similar to 32 and 16 bit accessors). Could this be added to trunk? Also, first time I used the selective commit function - very nice! the changes I didn't want committed didn't, in fact, get commited. Just the desirable bits! -cbc

6 15

Daily Commit Log
by commits＠source.squeak.org 09 Sep '15

09 Sep '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-September/008959.… Name: CollectionsTests-ul.250 Ancestors: CollectionsTests-ul.249 ByteArrayTest>>verifyPlatformIndepentendIntegerAccessorsMatch:for:setter:getter:storageBits:bigEndian: checks all possible index ranges of the given ByteArray. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008960.… Name: Collections-ul.655 Ancestors: Collections-ul.654 - 64-bit compatible and faster ByteArray>>unsignedLong64At:put:bigEndian: - faster ByteArray>>unsignedLong64At:bigEndian: =============================================

1 0

The Trunk: Collections-ul.655.mcz
by commits＠source.squeak.org 09 Sep '15

09 Sep '15

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.655.mcz ==================== Summary ==================== Name: Collections-ul.655 Author: ul Time: 9 September 2015, 8:30:27.564 pm UUID: 179eb75e-eb8d-4c16-8934-158921d1ff81 Ancestors: Collections-ul.654 - 64-bit compatible and faster ByteArray>>unsignedLong64At:put:bigEndian: - faster ByteArray>>unsignedLong64At:bigEndian: =============== Diff against Collections-ul.654 =============== Item was changed: ----- Method: ByteArray>>longAt:bigEndian: (in category 'platform independent access') ----- longAt: index bigEndian: bigEndian "Return a 32-bit integer quantity starting from the given byte index. Use #normalize where necessary to ensure compatibility with non-30-bit SmallIntegers." | byte result | bigEndian ifFalse: [ (byte := self at: index + 3) <= 16r7F ifTrue: [ "Is the result non-negative?" byte <= 16r3F ifTrue: [ ^(((byte bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index) ]. ^(LargePositiveInteger new: 4) replaceFrom: 1 + to: 4 + with: self + startingAt: index; - to: 4 - with: self - startingAt: index; normalize ]. "Negative" byte >= 16rC0 ifTrue: [ ^-1 - (((((byte bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitXor: 16rFFFFFF) bitShift: 8) + ((self at: index) bitXor: 16rFF)) ]. (result := LargeNegativeInteger new: 4) digitAt: 4 put: ((self at: index + 3) bitXor: 16rFF); digitAt: 3 put: ((self at: index + 2) bitXor: 16rFF); digitAt: 2 put: ((self at: index + 1) bitXor: 16rFF). (byte := ((self at: index) bitXor: 16rFF) + 1) <= 16rFF ifTrue: [ ^result digitAt: 1 put: byte; normalize ]. ^result digitAt: 1 put: 16rFF; + - 1 "It's tempting to do the subtraction in a loop to avoid the LargeInteger creation, but it's actually slower than this." ]. - - 1 "It's tempting to do the subtraction in a loop, to avoid the LargeInteger creation, but it's actually slower than this." ]. (byte := self at: index) <= 16r7F ifTrue: [ "Is the result non-negative?" byte <= 16r3F ifTrue: [ ^(((byte bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 3) ]. ^(LargePositiveInteger new: 4) digitAt: 1 put: (self at: index + 3); digitAt: 2 put: (self at: index + 2); digitAt: 3 put: (self at: index + 1); digitAt: 4 put: byte; normalize ]. "Negative" 16rC0 <= byte ifTrue: [ ^-1 - (((((byte bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index + 2) bitXor: 16rFFFFFF) bitShift: 8) + ((self at: index + 3) bitXor: 16rFF)) ]. (result := LargeNegativeInteger new: 4) digitAt: 4 put: (byte bitXor: 16rFF); digitAt: 3 put: ((self at: index + 1) bitXor: 16rFF); digitAt: 2 put: ((self at: index + 2) bitXor: 16rFF). (byte := ((self at: index + 3) bitXor: 16rFF) + 1) <= 16rFF ifTrue: [ ^result digitAt: 1 put: byte; normalize ]. ^result digitAt: 1 put: 16rFF; + - 1 "It's tempting to do the subtraction in a loop to avoid the LargeInteger creation, but it's actually slower than this."! - - 1 "It's tempting to do the subtraction in a loop, to avoid the LargeInteger creation, but it's actually slower than this."! Item was changed: ----- Method: ByteArray>>unsignedLong64At:bigEndian: (in category 'platform independent access') ----- unsignedLong64At: index bigEndian: bigEndian "Return a 64-bit unsigned integer quantity starting from the given byte index. Use #normalize where necessary to ensure compatibility with non-30-bit SmallIntegers." | v | bigEndian ifFalse: [ (v := self at: index + 7) = 0 ifFalse: [ ^(LargePositiveInteger new: 8) + replaceFrom: 1 + to: 8 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: (self at: index + 4); - digitAt: 6 put: (self at: index + 5); - digitAt: 7 put: (self at: index + 6); - digitAt: 8 put: v; normalize ]. (v := self at: index + 6) = 0 ifFalse: [ ^(LargePositiveInteger new: 7) + replaceFrom: 1 + to: 7 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: (self at: index + 4); - digitAt: 6 put: (self at: index + 5); - digitAt: 7 put: v; normalize ]. (v := self at: index + 5) = 0 ifFalse: [ ^(LargePositiveInteger new: 6) + replaceFrom: 1 + to: 6 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: (self at: index + 4); - digitAt: 6 put: v; normalize ]. (v := self at: index + 4) = 0 ifFalse: [ ^(LargePositiveInteger new: 5) + replaceFrom: 1 + to: 5 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: (self at: index + 3); - digitAt: 5 put: v; normalize ]. (v := self at: index + 3) <= 16r3F ifFalse: [ ^(LargePositiveInteger new: 4) + replaceFrom: 1 + to: 4 + with: self + startingAt: index; - digitAt: 1 put: (self at: index); - digitAt: 2 put: (self at: index + 1); - digitAt: 3 put: (self at: index + 2); - digitAt: 4 put: v; normalize ]. ^(((v bitShift: 8) + (self at: index + 2) bitShift: 8) + (self at: index + 1) bitShift: 8) + (self at: index) ]. (v := self at: index) = 0 ifFalse: [ ^(LargePositiveInteger new: 8) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: (self at: index + 2); digitAt: 7 put: (self at: index + 1); digitAt: 8 put: v; normalize ]. (v := self at: index + 1) = 0 ifFalse: [ ^(LargePositiveInteger new: 7) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: (self at: index + 2); digitAt: 7 put: v; normalize ]. (v := self at: index + 2) = 0 ifFalse: [ ^(LargePositiveInteger new: 6) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: (self at: index + 3); digitAt: 6 put: v; normalize ]. (v := self at: index + 3) = 0 ifFalse: [ ^(LargePositiveInteger new: 5) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: (self at: index + 4); digitAt: 5 put: v; normalize ]. (v := self at: index + 4) <= 16r3F ifFalse: [ ^(LargePositiveInteger new: 4) digitAt: 1 put: (self at: index + 7); digitAt: 2 put: (self at: index + 6); digitAt: 3 put: (self at: index + 5); digitAt: 4 put: v; normalize ]. ^(((v bitShift: 8) + (self at: index + 5) bitShift: 8) + (self at: index + 6) bitShift: 8) + (self at: index + 7)! Item was changed: ----- Method: ByteArray>>unsignedLong64At:put:bigEndian: (in category 'platform independent access') ----- unsignedLong64At: index put: value bigEndian: bigEndian "Store a 64-bit unsigned integer quantity starting from the given byte index" + | i j | + value isLarge ifTrue: [ + i := value digitLength. + bigEndian ifFalse: [ - value isLarge - ifTrue: [ - | i size | - size := value digitLength. - bigEndian ifFalse: [ - self - replaceFrom: index - to: index + size - 1 - with: value - startingAt: 1; - replaceFrom: index + size - to: index + 7 - with: #[0 0 0 0] - startingAt: 1. - ^value ]. - i := 1. - [ i <= size ] whileTrue: [ - self at: index + 8 - i put: (value digitAt: i). - i := i + 1 ]. - [ i <= 8 ] whileTrue: [ - self at: index + 8 - i put: 0. - i := i + 1 ] ] - ifFalse: [ - bigEndian ifFalse: [ - self - at: index put: (value bitAnd: 16rFF); - at: index + 1 put: ((value bitShift: -8) bitAnd: 16rFF); - at: index + 2 put: ((value bitShift: -16) bitAnd: 16rFF); - at: index + 3 put: (value bitShift: -24); - replaceFrom: index + 4 - to: index + 7 - with: #[0 0 0 0] - startingAt: 1. - ^value ]. self replaceFrom: index + to: index + i - 1 + with: value - to: index + 3 - with: #[0 0 0 0] startingAt: 1; + replaceFrom: index + i + to: index + 7 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1. + ^value ]. + j := index + 8. + i <= 7 ifTrue: [ + self + replaceFrom: index + to: j - i - 1 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1 ]. + [ 1 <= i ] whileTrue: [ + self at: j - i put: (value digitAt: i). + i := i - 1 ]. + ^value ]. + bigEndian ifFalse: [ + j := index - 1. + i := value. + [ 1 <= i ] whileTrue: [ + self at: (j := j + 1) put: (i bitAnd: 16rFF). + i := i bitShift: -8 ]. + self replaceFrom: j + 1 + to: index + 7 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1. + ^value ]. + j := index + 8. + i := value. + [ 1 <= i ] whileTrue: [ + self at: (j := j - 1) put: (i bitAnd: 16rFF). + i := i bitShift: -8 ]. + self replaceFrom: index + to: j - 1 + with: #[0 0 0 0 0 0 0 0] + startingAt: 1. - at: index + 4 put: (value bitShift: -24); - at: index + 5 put: ((value bitShift: -16) bitAnd: 16rFF); - at: index + 6 put: ((value bitShift: -8) bitAnd: 16rFF); - at: index + 7 put: (value bitAnd: 16rFF) ]. ^value!

1 0

The Trunk: CollectionsTests-ul.250.mcz
by commits＠source.squeak.org 09 Sep '15

09 Sep '15

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.250.mcz ==================== Summary ==================== Name: CollectionsTests-ul.250 Author: ul Time: 9 September 2015, 8:33:02.788 pm UUID: eab1e808-8b9c-4d1e-beaa-d6476b070026 Ancestors: CollectionsTests-ul.249 ByteArrayTest>>verifyPlatformIndepentendIntegerAccessorsMatch:for:setter:getter:storageBits:bigEndian: checks all possible index ranges of the given ByteArray. =============== Diff against CollectionsTests-ul.249 =============== Item was changed: ----- Method: ByteArrayTest>>verifyPlatformIndepentendIntegerAccessorsAtBitBordersSetter:getter:unsigned:storageBits: (in category 'testing - platform independent access') ----- verifyPlatformIndepentendIntegerAccessorsAtBitBordersSetter: setter getter: getter unsigned: unsigned storageBits: storageBits | byteArray minValue maxValue baseValues | + byteArray := ByteArray new: storageBits // 8 * 2. - byteArray := ByteArray new: storageBits // 8. unsigned ifTrue: [ minValue := 0. maxValue := 1 << storageBits - 1. baseValues := #(0 1) ] ifFalse: [ minValue := -1 << (storageBits - 1). maxValue := 1 << (storageBits - 1) - 1. baseValues := #(-1 0 1) ]. #(true false) do: [ :bigEndian | 0 to: storageBits - 1 do: [ :bits | baseValues do: [ :baseValue | | centerValue | centerValue := baseValue << bits. centerValue - 1 to: centerValue + 1 do: [ :value | (value between: minValue and: maxValue) ifTrue: [ self verifyPlatformIndepentendIntegerAccessorsMatch: byteArray for: value setter: setter getter: getter storageBits: storageBits bigEndian: bigEndian ] ] ] ] ] ! Item was changed: ----- Method: ByteArrayTest>>verifyPlatformIndepentendIntegerAccessorsMatch:for:setter:getter:storageBits:bigEndian: (in category 'testing - platform independent access') ----- verifyPlatformIndepentendIntegerAccessorsMatch: byteArray for: value setter: setter getter: getter storageBits: storageBits bigEndian: bigEndian + | expectedSetterResult getterResult bytes | - | expectedSetterResult getterResult | expectedSetterResult := self byteArrayFor: value bits: storageBits bigEndian: bigEndian. + bytes := storageBits // 8. + 1 to: byteArray size - bytes + 1 do: [ :index | + byteArray + perform: setter + with: index + with: value + with: bigEndian. + 1 to: bytes do: [ :byteIndex | + self + assert: (expectedSetterResult at: byteIndex) + equals: (byteArray at: index + byteIndex - 1) ]. + getterResult := byteArray + perform: getter + with: index + with: bigEndian. + self assert: value equals: getterResult ]! - byteArray perform: setter with: 1 with: value with: bigEndian. - self assert: expectedSetterResult equals: byteArray. - getterResult := byteArray perform: getter with: 1 with: bigEndian. - self assert: value equals: getterResult! Item was changed: ----- Method: ByteArrayTest>>verifyPlatformIndepentendIntegerAccessorsWithRandomValuesSetter:getter:unsigned:storageBits:random: (in category 'testing - platform independent access') ----- verifyPlatformIndepentendIntegerAccessorsWithRandomValuesSetter: setter getter: getter unsigned: unsigned storageBits: storageBits random: random | byteArray randomMax randomOffset | + byteArray := ByteArray new: storageBits // 8 * 2. - byteArray := ByteArray new: storageBits // 8. randomMax := 1 << storageBits. randomOffset := unsigned ifTrue: [ -1 ] ifFalse: [ -1 << (storageBits - 1) - 1 ]. 10000 timesRepeat: [ | value | value := (random nextInt: randomMax) + randomOffset. #(true false) do: [ :bigEndian | self verifyPlatformIndepentendIntegerAccessorsMatch: byteArray for: value setter: setter getter: getter storageBits: storageBits bigEndian: bigEndian ] ]!

1 0

Socket tests may choke
by Tobias Pape 09 Sep '15

09 Sep '15

Hi all I'm just debugging strange things on a jenkins slave (thanks Tony!) and found that some socket tests choke because: - localhost there is 127.0.0.1 - BUT the local host name (squeak-debian32, but irrelevant) is 127.0.1.1 This is documented for debian systems[1]. Yet, in SocketTest, there's a testRemoteAddress, that uses a listenerSocket (that on that system will listen on 127.0.1.1) but once it accepts a client connection (from 127.0.1.1), the serverSocket (that gets initalized via the listenerSocket) reports 127.0.0.1 for its remote address, and hence the test fails. Similar for testLocalAddress, when connecting to 127.0.1.1, the clients local address reports 127.0.0.1. Is primitiveSocketLocalAddress broken? Best regards -Tobias [1]: https://www.debian.org/doc/manuals/debian-reference/ch05.en.html#_the_hostn…

2 1

Daily Commit Log
by commits＠source.squeak.org 08 Sep '15

08 Sep '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-September/008957.… Name: NetworkTests-topa.38 Ancestors: NetworkTests-fbs.37 - Getting peer names can take some time. - Looking up 'localhost' directly is more reliable to return a consistent address upon connect-to than localHostName. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-September/008958.… Name: Tests-topa.331 Ancestors: Tests-topa.330 Since the annotation pane fixes, the Tests are no longer sure which TextMorph to query for the results. Help by reducing the number of TextMorphs by temporarily disable the annotation panes during testing. =============================================

1 0

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

Jump to page: