Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.111.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.111
Author: mt
Time: 1 April 2015, 4:34:47.411 pm
UUID: df7f741e-5af0-c14f-b019-03ed2d822fc9
Ancestors: ToolBuilder-Morphic-mt.110
Fixed should background-styling to update text morph runs only from within the morphic UI process.
=============== Diff against ToolBuilder-Morphic-mt.110 ===============
Item was changed:
----- Method: PluggableTextMorphPlus>>stylerStyledInBackground: (in category 'styling') -----
stylerStyledInBackground: styledCopyOfText
"Sent after the styler completed styling of the text"
"It is possible that the text string has changed since the styling began. Disregard the styles if styledCopyOfText's string differs with the current textMorph contents string"
+ Project current addDeferredUIMessage: [
+ textMorph contents string = styledCopyOfText string
+ ifTrue: [self stylerStyled: styledCopyOfText]].!
- textMorph contents string = styledCopyOfText string
- ifTrue: [self stylerStyled: styledCopyOfText]!
Tobias Pape uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-topa.916.mcz
==================== Summary ====================
Name: Kernel-topa.916
Author: topa
Time: 1 April 2015, 2:00:39.799 pm
UUID: 8f05add4-c132-40ad-a4cc-a6131ec098f3
Ancestors: Kernel-topa.915
(same as before)
Fix arguments access in WeakMessageSend
=============== Diff against Kernel-topa.915 ===============
Item was changed:
----- Method: WeakMessageSend>>withEnsuredReceiverAndArgumentsDo:otherwise: (in category 'private') -----
withEnsuredReceiverAndArgumentsDo: aBlock otherwise: altBlock
"Grab real references to receiver and arguments. If they still exist, evaluate aBlock."
"Return if my receiver has gone away"
| r a |
r := self receiver.
r ifNil: [ ^altBlock value ].
"Make sure that my arguments haven't gone away"
+ a := Array withAll: self arguments.
- a := Array withAll: arguments.
a with: shouldBeNil do: [ :arg :flag |
arg ifNil: [ flag ifFalse: [ ^altBlock value ]]
].
^aBlock value: r value: a!
Tobias Pape uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-topa.916.mcz
==================== Summary ====================
Name: Kernel-topa.916
Author: topa
Time: 1 April 2015, 2:00:39.799 pm
UUID: 8f05add4-c132-40ad-a4cc-a6131ec098f3
Ancestors: Kernel-topa.915
(same as before)
Fix arguments access in WeakMessageSend
=============== Diff against Kernel-topa.915 ===============
Item was changed:
----- Method: WeakMessageSend>>withEnsuredReceiverAndArgumentsDo:otherwise: (in category 'private') -----
withEnsuredReceiverAndArgumentsDo: aBlock otherwise: altBlock
"Grab real references to receiver and arguments. If they still exist, evaluate aBlock."
"Return if my receiver has gone away"
| r a |
r := self receiver.
r ifNil: [ ^altBlock value ].
"Make sure that my arguments haven't gone away"
+ a := Array withAll: self arguments.
- a := Array withAll: arguments.
a with: shouldBeNil do: [ :arg :flag |
arg ifNil: [ flag ifFalse: [ ^altBlock value ]]
].
^aBlock value: r value: a!
Tobias Pape uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-topa.916.mcz
==================== Summary ====================
Name: Kernel-topa.916
Author: topa
Time: 1 April 2015, 2:00:39.799 pm
UUID: 8f05add4-c132-40ad-a4cc-a6131ec098f3
Ancestors: Kernel-topa.915
(same as before)
Fix arguments access in WeakMessageSend
=============== Diff against Kernel-topa.915 ===============
Item was changed:
----- Method: WeakMessageSend>>withEnsuredReceiverAndArgumentsDo:otherwise: (in category 'private') -----
withEnsuredReceiverAndArgumentsDo: aBlock otherwise: altBlock
"Grab real references to receiver and arguments. If they still exist, evaluate aBlock."
"Return if my receiver has gone away"
| r a |
r := self receiver.
r ifNil: [ ^altBlock value ].
"Make sure that my arguments haven't gone away"
+ a := Array withAll: self arguments.
- a := Array withAll: arguments.
a with: shouldBeNil do: [ :arg :flag |
arg ifNil: [ flag ifFalse: [ ^altBlock value ]]
].
^aBlock value: r value: a!