The Trunk: EToys-mt.385.mcz

Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.385.mcz

==================== Summary ====================

Name: EToys-mt.385
Author: mt
Time: 5 March 2020, 9:07:20.219327 am
UUID: 940d62a0-8c84-a642-b6ff-b449e679723c
Ancestors: EToys-nice.384

Removes more deprecated message sends.

=============== Diff against EToys-nice.384 ===============

Item was changed:
  ----- Method: EventRollMorph>>formulate (in category 'processing') -----
  formulate
  "Given that all my relevant inst vars are now filled,build the structures that constitute the tool."
 
  "Replace the parts of the tool that change"
 
  | outer scrollAreaWidth |
  submorphs size  > 1
  ifFalse:
  [scrollAreaWidth := 600]
  ifTrue:
  [scrollAreaWidth := submorphs second width].
 
  [submorphs size > 1] whileTrue: [submorphs last delete].
 
  actualRoll := EventTimeline new extent: ( (self totalDuration / millisecondsPerPixel) @ 160).
  actualRoll color: Color yellow muchLighter.
  actualRoll beSticky.
  outer := ScrollPane new extent: scrollAreaWidth @ 160.
  outer model: self.
  outer useRoundedCorners.
  outer scrollBarOnLeft: false.
  outer scroller addMorph: actualRoll.
  outer retractable: false.
+ outer vScrollBarPolicy: #never.
+ outer hScrollBarPolicy: #always.
- outer hideVScrollBarIndefinitely: true.
- outer alwaysShowHScrollBar: true.
 
  self addMorphBack: outer.
 
  self setMouseEventMorphs.
  self setKeyboardEventMorphs.
  self setMediaEventMorphs.
  self setTimeIndicators.
 
  actualRoll addMorphFront: eventPlaybackCursor.
  eventPlaybackCursor  bounds: (actualRoll topLeft extent: (2 @ actualRoll height)).
 
  self setVerticalGrid: (1000/millisecondsPerPixel)  rounded  backgroundColor: Color blue veryMuchLighter lineColor: Color gray darker.
 
  self updateScrollbar!