[squeak-dev] The Trunk: EToys-mt.385.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 5 08:07:27 UTC 2020

Marcel Taeumel uploaded a new version of EToys to project The Trunk:

==================== 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') -----
  	"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
  			[scrollAreaWidth := 600]
  			[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!

More information about the Squeak-dev mailing list