Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-jl.222.mcz
==================== Summary ====================
Name: EToys-jl.222
Author: jl
Time: 31 August 2016, 1:32:30.460376 pm
UUID: e71a0d5f-8d2c-0f42-a000-d248ad8b871d
Ancestors: EToys-tfel.221
tfel fixed reduceOnStack
=============== Diff against EToys-tfel.221 ===============
Item was changed:
----- Method: EToyExpressionTransformer2>>reduceOnStack (in category 'all') -----
reduceOnStack
| list left sel right m |
list := stack removeLast: 3.
left := list at: 1.
sel := list at: 2.
+ self flag: #tfel.
+ sel isSymbol ifFalse: [sel := sel key].
right := list at: 3.
m := MessageNode new
receiver: left
+ selector: sel
- selector: sel key
arguments: (Array with: right)
precedence: (sel precedence)
from: encoder
sourceRange: nil.
stack addLast: m.
!
A new version of EToys was added to project The Inbox:
http://source.squeak.org/inbox/EToys-jl.222.mcz
==================== Summary ====================
Name: EToys-jl.222
Author: jl
Time: 31 August 2016, 1:32:30.460376 pm
UUID: e71a0d5f-8d2c-0f42-a000-d248ad8b871d
Ancestors: EToys-tfel.221
tfel fixed reduceOnStack
=============== Diff against EToys-tfel.221 ===============
Item was changed:
----- Method: EToyExpressionTransformer2>>reduceOnStack (in category 'all') -----
reduceOnStack
| list left sel right m |
list := stack removeLast: 3.
left := list at: 1.
sel := list at: 2.
+ self flag: #tfel.
+ sel isSymbol ifFalse: [sel := sel key].
right := list at: 3.
m := MessageNode new
receiver: left
+ selector: sel
- selector: sel key
arguments: (Array with: right)
precedence: (sel precedence)
from: encoder
sourceRange: nil.
stack addLast: m.
!
Tim Felgentreff uploaded a new version of Nebraska to project The Trunk:
http://source.squeak.org/trunk/Nebraska-tfel.47.mcz
==================== Summary ====================
Name: Nebraska-tfel.47
Author: tfel
Time: 31 August 2016, 11:50:24.726793 am
UUID: a1098db7-626c-db4e-91a1-8966f1e3b9bb
Ancestors: Nebraska-tfel.46
workaround. at least the PartsBin should work
=============== Diff against Nebraska-tfel.46 ===============
Item was changed:
----- Method: NebraskaFridgeMorph>>groupToggleButton (in category 'as yet unclassified') -----
groupToggleButton
+ self flag: #todo.
-
^(self inAColumn: {
(ThreePhaseButtonMorph checkBox)
target: self;
actionSelector: #toggleChoice:;
arguments: {'group'};
+ "getSelector: #getChoice:;"
- getSelector: #getChoice:;
setBalloonText: 'Changes between group mode and individuals' translated;
step
}) hResizing: #shrinkWrap
!
Tim Felgentreff uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-tfel.195.mcz
==================== Summary ====================
Name: MorphicExtras-tfel.195
Author: tfel
Time: 31 August 2016, 11:49:55.843793 am
UUID: f9f29860-1341-e745-b3d4-9446283a1c8c
Ancestors: MorphicExtras-tfel.194
Show the FrameRateMorph in the supplies tab
=============== Diff against MorphicExtras-tfel.194 ===============
Item was changed:
----- Method: FrameRateMorph class>>registerInFlapsRegistry (in category 'class initialization') -----
registerInFlapsRegistry
"Register the receiver in the system's flaps registry"
self environment
at: #Flaps
+ ifPresent: [:cl |
+ cl registerQuad: {
+ #FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop.
+ 'An indicator of how fast your system is running' translatedNoop}
+ forFlapNamed: 'Widgets'.
+ cl registerQuad: {
+ #FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop.
+ 'An indicator of how fast your system is running' translatedNoop}
+ forFlapNamed: 'Supplies']!
- ifPresent: [:cl | cl registerQuad: {#FrameRateMorph. #authoringPrototype. 'Frame Rate' translatedNoop. 'An indicator of how fast your system is running' translatedNoop}
- forFlapNamed: 'Widgets']!
Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.219.mcz
==================== Summary ====================
Name: EToys-tfel.219
Author: tfel
Time: 31 August 2016, 11:10:42.577793 am
UUID: 67ea8fba-c3dd-ca4c-8b22-4abf7e60e6ba
Ancestors: EToys-tfel.218
pasteUpMorph is usually nil at this point, ask the world
=============== Diff against EToys-tfel.218 ===============
Item was changed:
----- Method: EtoysPresenter>>drawingJustCompleted: (in category 'misc') -----
drawingJustCompleted: aSketchMorph
"The user just finished drawing. Now maybe put up a viewer"
| aWorld |
self flushPlayerListCache. "Because a new drawing already created one, thus obviating #assuredPlayer kicking in with its invalidation"
aWorld := associatedMorph world.
(aWorld hasProperty: #automaticFlapViewing)
ifTrue:
[^ aWorld presenter viewMorph: aSketchMorph].
+ (aWorld hasProperty: #automaticViewing)
- (aSketchMorph pasteUpMorph hasProperty: #automaticViewing)
ifTrue:
[self viewMorph: aSketchMorph]!