Torsten Bergmann uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-tbn.1112.mcz
==================== Summary ====================
Name: Kernel-tbn.1112
Author: tbn
Time: 30 August 2017, 11:21:46.282311 pm
UUID: a4399bb0-13e7-7a4f-a0a1-d78bfbd3012e
Ancestors: Kernel-nice.1111
Cleanup pinning protocols
- isPinned moves from "system primitive" to "pinning"
- pin moves from "system primitive" to "pinning"
- unpin moves from "system primitive" to "pinning"
- setPinned: moves from "system primitive" to "private" (as this should not be part of the public API, people should use pin/unpin methods)
(similar to https://github.com/pharo-project/pharo/pull/224 for Pharo)
=============== Diff against Kernel-nice.1111 ===============
Item was changed:
+ ----- Method: Object>>isPinned (in category 'pinning') -----
- ----- Method: Object>>isPinned (in category 'system primitives') -----
isPinned
"Answer if the receiver is pinned. The VM's garbage collector routinely moves
objects as it reclaims and compacts memory. But it can also pin an object so
that it will not be moved, which can make it easier to pass objects out through
the FFI."
<primitive: 183 error: ec>
^self primitiveFailed!
Item was changed:
+ ----- Method: Object>>pin (in category 'pinning') -----
- ----- Method: Object>>pin (in category 'system primitives') -----
pin
"The VM's garbage collector routinely moves objects as it reclaims and compacts
memory. But it can also pin an object so that it will not be moved, which can make
it easier to pass objects out through the FFI. Objects are unpinnned when created.
This method ensures an object is pinned, and answers whether it was already pinned."
^self setPinned: true!
Item was changed:
+ ----- Method: Object>>setPinned: (in category 'private') -----
- ----- Method: Object>>setPinned: (in category 'system primitives') -----
setPinned: aBoolean
"The VM's garbage collector routinely moves objects as it reclaims and compacts
memory. But it can also pin an object so that it will not be moved, which can make
it easier to pass objects out through the FFI. Objects are unpinnned when created.
This primitive either pins or unpins an object, and answers if it was already pinned."
<primitive: 184 error: ec>
^self primitiveFailed!
Item was changed:
+ ----- Method: Object>>unpin (in category 'pinning') -----
- ----- Method: Object>>unpin (in category 'system primitives') -----
unpin
"The VM's garbage collector routinely moves objects as it reclaims and compacts
memory. But it can also pin an object so that it will not be moved, which can make
it easier to pass objects out through the FFI. Objects are unpinnned when created.
This method ensures an object is unpinned, and answers whether it was pinned."
^self setPinned: false!
Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.113.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-eem.113
Author: eem
Time: 11 August 2017, 10:36:57.824967 am
UUID: f594fcf4-ca8e-4fbe-a9b9-3e5abdacf467
Ancestors: ToolBuilder-Kernel-eem.112
chooseFont:for:setSelector:getSelector: should be subclassResponsibility (both MorphicUIManager and MVCUIManager implement it).
=============== Diff against ToolBuilder-Kernel-eem.112 ===============
Item was changed:
----- Method: UIManager>>chooseFont:for:setSelector:getSelector: (in category 'ui requests') -----
chooseFont: titleString for: aModel setSelector: setSelector getSelector: getSelector
+ "Open a font-chooser for the given model"
+ ^self subclassResponsibility!
- "Open a font-chooser for the given model"!
Eliot Miranda uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-eem.112.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-eem.112
Author: eem
Time: 11 August 2017, 10:30:08.686663 am
UUID: b38646b5-66a2-44ad-a70e-145a77054677
Ancestors: ToolBuilder-Kernel-nice.111
chooseFromOrAddTo:lines:title: should use self, not UIManager default, since self is already a UIManager.
=============== Diff against ToolBuilder-Kernel-nice.111 ===============
Item was changed:
----- Method: UIManager>>chooseFromOrAddTo:lines:title: (in category 'ui requests') -----
chooseFromOrAddTo: aList lines: linesArray title: aString
-
| index |
+ index := self chooseFrom: {'new...'}, aList lines: linesArray title: aString.
- index := (UIManager default chooseFrom: {'new...'}, aList lines: linesArray title: aString).
index = 0 ifTrue: [^ nil].
+ index = 1 ifTrue:
+ [^ self request: 'Please type new value' initialAnswer: ''].
- index = 1 ifTrue: [
- ^ self request: 'Please type new value' initialAnswer: ''].
^ aList at: index - 1!
tim Rowledge uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-tpr.50.mcz
==================== Summary ====================
Name: Nebraska-tpr.50
Author: tpr
Time: 7 August 2017, 6:38:27.598699 pm
UUID: 633f7da3-da1d-44ee-8bdc-3f417d8db1ec
Ancestors: Nebraska-tpr.49
Fix a dumb-thumb in the prior update
=============== Diff against Nebraska-tpr.49 ===============
Item was changed:
----- Method: NebraskaCommunicatorMorph>>textEntryFieldNamed:with:help: (in category 'as yet unclassified') -----
textEntryFieldNamed: aSymbol with: aString help: helpString
| f col |
f := (StringMorph new contents: aString; font: Preferences standardEToysFont; yourself)
setBalloonText: helpString;
on: #mouseUp send: #editEvent:for: to: self.
self field: aSymbol is: f.
+ col := (self inAColumn: {f}) color: Color white; hResizing: #shrinkWrap.
- col _ (self inAColumn: {f}) color: Color white; hResizing: #shrinkWrap.
^col!