Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1336.mcz
==================== Summary ====================
Name: Morphic-mt.1336
Author: mt
Time: 10 May 2017, 10:13:26.142647 am
UUID: 4d60356c-2429-724c-9d45-4fe22cd330fc
Ancestors: Morphic-ul.1335
Quick fix to avoid accidential drops of system windows into the world main docking bar.
Actually, we should think about the necessity of having the preference #systemWindowEmbedOK, which is set to "true" in current images. Setting that preference to "false" would have also solved the issue but committing state (other than code) via Monticello is cumbersome.
I think that that preference origins from the time when we could manage worlds in worlds and also MVC windows having Morphic worlds. Much of that code was removed in the course of clean-up since MVC and Morphic are quite different in their basic event processing and drawing methods.
=============== Diff against Morphic-ul.1335 ===============
Item was changed:
----- Method: SystemWindow>>wantsToBeDroppedInto: (in category 'events') -----
wantsToBeDroppedInto: aMorph
"Return true if it's okay to drop the receiver into aMorph"
+ ^ (aMorph isWorldMorph or:[Preferences systemWindowEmbedOK])
+ and: [aMorph isDockingBar not]!
- ^aMorph isWorldMorph or:[Preferences systemWindowEmbedOK]!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.1103.mcz
==================== Summary ====================
Name: Kernel-nice.1103
Author: nice
Time: 5 May 2017, 10:24:07.170429 pm
UUID: a912e534-9ced-4538-9f16-cba0c76fbc28
Ancestors: Kernel-eem.1102, Kernel-nice.1102
Merge
Kernel-eem.1102:
Delete obsolete binding and block machinery now unused by the Compiler.
Kernel-nice.1102:
Nuke pre-v3 closureCopy:copiedValues: method. No such message has been sent for a long long time.
Simplify the BlockStartLocator, because there is no need to handle pre-v3 closure anymore.
=============== Diff against Kernel-eem.1102 ===============
Item was changed:
InstructionClient subclass: #BlockStartLocator
+ instanceVariableNames: ''
- instanceVariableNames: 'nextJumpIsAroundBlock'
classVariableNames: ''
poolDictionaries: ''
category: 'Kernel-Methods'!
Item was removed:
- ----- Method: BlockStartLocator>>initialize (in category 'initialize-release') -----
- initialize
- nextJumpIsAroundBlock := false!
Item was removed:
- ----- Method: BlockStartLocator>>jump: (in category 'instruction decoding') -----
- jump: offset
- "If this jump is around a block answer the size of that block."
-
- nextJumpIsAroundBlock ifTrue:
- [nextJumpIsAroundBlock := false.
- ^offset]!
Item was removed:
- ----- Method: BlockStartLocator>>send:super:numArgs: (in category 'instruction decoding') -----
- send: selector super: supered numArgs: numberArguments
- nextJumpIsAroundBlock := #closureCopy:copiedValues: == selector
- "Don't use
- nextJumpIsAroundBlock := #(blockCopy: closureCopy:copiedValues:) includes: selector
- since BlueBook BlockContexts do not have their own temps."!
Item was removed:
- ----- Method: Context>>closureCopy:copiedValues: (in category 'controlling') -----
- closureCopy: numArgs copiedValues: anArray
- "Distinguish a block of code from its enclosing method by
- creating a BlockClosure for that block. The compiler inserts into all
- methods that contain blocks the bytecodes to send the message
- closureCopy:copiedValues:. Do not use closureCopy:copiedValues: in code that you write!! Only the
- compiler can decide to send the message closureCopy:copiedValues:. Fail if numArgs is
- not a SmallInteger. Optional. No Lookup. See Object documentation
- whatIsAPrimitive."
-
- <primitive: 200>
- ^BlockClosure outerContext: self startpc: pc + 2 numArgs: numArgs copiedValues: anArray!
Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.754.mcz
==================== Summary ====================
Name: Collections-nice.754
Author: nice
Time: 5 May 2017, 10:19:34.289321 pm
UUID: 5845f4e7-535d-4be0-9579-e925731e8dab
Ancestors: Collections-ul.753, Collections-nice.753
Merge
Collections-ul.753:
- minor tweaks for String class >> #compare:with:collated: and String >> #findSubstring:in:startingAt:matchTable:
Collections-nice.753:
Nuke obsolete brace constructs used by compiler long long ago.
Since encoder v3 (plus closures) there is a dedicated byte code for constructing those arrays dynamically, so the #braceWith: like messages are not sent for a while and won't be used anymore in foreseeable future.
=============== Diff against Collections-ul.753 ===============
Item was removed:
- ----- Method: Array class>>braceWith: (in category 'brace support') -----
- braceWith: a
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 1.
- array at: 1 put: a.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWith:with: (in category 'brace support') -----
- braceWith: a with: b
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 2.
- array at: 1 put: a.
- array at: 2 put: b.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWith:with:with: (in category 'brace support') -----
- braceWith: a with: b with: c
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 3.
- array at: 1 put: a.
- array at: 2 put: b.
- array at: 3 put: c.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWith:with:with:with: (in category 'brace support') -----
- braceWith: a with: b with: c with: d
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 4.
- array at: 1 put: a.
- array at: 2 put: b.
- array at: 3 put: c.
- array at: 4 put: d.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWithNone (in category 'brace support') -----
- braceWithNone
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- ^ self new: 0!
Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.1102.mcz
==================== Summary ====================
Name: Kernel-nice.1102
Author: nice
Time: 27 April 2017, 12:07:32.099435 am
UUID: 5049a01f-53bd-4e40-a6a3-a906a14631ad
Ancestors: Kernel-nice.1101
Nuke pre-v3 closureCopy:copiedValues: method. No such message has been sent for a long long time.
Simplify the BlockStartLocator, because there is no need to handle pre-v3 closure anymore.
=============== Diff against Kernel-nice.1101 ===============
Item was changed:
InstructionClient subclass: #BlockStartLocator
+ instanceVariableNames: ''
- instanceVariableNames: 'nextJumpIsAroundBlock'
classVariableNames: ''
poolDictionaries: ''
category: 'Kernel-Methods'!
Item was removed:
- ----- Method: BlockStartLocator>>initialize (in category 'initialize-release') -----
- initialize
- nextJumpIsAroundBlock := false!
Item was removed:
- ----- Method: BlockStartLocator>>jump: (in category 'instruction decoding') -----
- jump: offset
- "If this jump is around a block answer the size of that block."
-
- nextJumpIsAroundBlock ifTrue:
- [nextJumpIsAroundBlock := false.
- ^offset]!
Item was removed:
- ----- Method: BlockStartLocator>>send:super:numArgs: (in category 'instruction decoding') -----
- send: selector super: supered numArgs: numberArguments
- nextJumpIsAroundBlock := #closureCopy:copiedValues: == selector
- "Don't use
- nextJumpIsAroundBlock := #(blockCopy: closureCopy:copiedValues:) includes: selector
- since BlueBook BlockContexts do not have their own temps."!
Item was removed:
- ----- Method: Context>>closureCopy:copiedValues: (in category 'controlling') -----
- closureCopy: numArgs copiedValues: anArray
- "Distinguish a block of code from its enclosing method by
- creating a BlockClosure for that block. The compiler inserts into all
- methods that contain blocks the bytecodes to send the message
- closureCopy:copiedValues:. Do not use closureCopy:copiedValues: in code that you write!! Only the
- compiler can decide to send the message closureCopy:copiedValues:. Fail if numArgs is
- not a SmallInteger. Optional. No Lookup. See Object documentation
- whatIsAPrimitive."
-
- <primitive: 200>
- ^BlockClosure outerContext: self startpc: pc + 2 numArgs: numArgs copiedValues: anArray!
Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.753.mcz
==================== Summary ====================
Name: Collections-nice.753
Author: nice
Time: 26 April 2017, 11:56:06.826092 pm
UUID: 5f5b9a99-afa3-40f2-8fb5-a9a6183d10b5
Ancestors: Collections-nice.752
Nuke obsolete brace constructs used by compiler long long ago.
Since encoder v3 (plus closures) there is a dedicated byte code for constructing those arrays dynamically, so the #braceWith: like messages are not sent for a while and won't be used anymore in foreseeable future.
=============== Diff against Collections-nice.752 ===============
Item was removed:
- ----- Method: Array class>>braceWith: (in category 'brace support') -----
- braceWith: a
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 1.
- array at: 1 put: a.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWith:with: (in category 'brace support') -----
- braceWith: a with: b
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 2.
- array at: 1 put: a.
- array at: 2 put: b.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWith:with:with: (in category 'brace support') -----
- braceWith: a with: b with: c
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 3.
- array at: 1 put: a.
- array at: 2 put: b.
- array at: 3 put: c.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWith:with:with:with: (in category 'brace support') -----
- braceWith: a with: b with: c with: d
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- | array |
- array := self new: 4.
- array at: 1 put: a.
- array at: 2 put: b.
- array at: 3 put: c.
- array at: 4 put: d.
- ^ array!
Item was removed:
- ----- Method: Array class>>braceWithNone (in category 'brace support') -----
- braceWithNone
- "This method is used in compilation of brace constructs.
- It MUST NOT be deleted or altered."
-
- ^ self new: 0!