[Pkg] The Trunk: EToys-tcj.324.mcz

[commits at source.squeak.org]

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

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

Name: EToys-tcj.324
Author: tcj
Time: 9 April 2018, 12:33:26.80885 pm
UUID: 4cdd717b-002f-4dc1-96e4-b32bb0452038
Ancestors: EToys-nice.323

Replace deprecated (and removed) 3.8-era message sends with contemporary equivalents.  Note:  now that this works again, it exposes two sends of #isThisEverCalled.

=============== Diff against EToys-nice.323 ===============

Item was changed:
  ----- Method: PDA>>openMonthView (in category 'initialization') -----
  openMonthView
  	| row month col paneExtent window paneColor nRows |
  	month := date notNil
  		ifTrue: [date month]
  		ifFalse: ["But... it's here somewhere..."
  				((self dependents detect: [:m | m isKindOf: PDAMorph])
  					findA: MonthMorph) month].
  	window := SystemWindow labelled: month printString.
  	paneColor := Color transparent.
  	window color: (Color r: 0.968 g: 1.0 b: 0.355).
+ 	nRows := 0.  month weeksDo: [:w | nRows := nRows + 1].
- 	nRows := 0.  month eachWeekDo: [:w | nRows := nRows + 1].
  	paneExtent := ((1.0/7) @ (1.0/nRows)).
  	row := 0.
+ 	month weeksDo:
- 	month eachWeekDo:
  		[:week | col := 0.
+ 		week datesDo:
- 		week do:
  			[:day | day month = month ifTrue:
  				[window addMorph: ((PluggableListMorph on: self list: nil
  						selected: nil changeSelected: nil menu: nil keystroke: nil)
  							list: {(day dayOfMonth printString , '  ' , day weekday) asText allBold}
  								, (self scheduleListForDay: day))
  					frame: (paneExtent * (col at row) extent: paneExtent)].
  			col := col + 1].
  		row := row + 1].
  
  	window firstSubmorph color: paneColor.
  	window updatePaneColors.
  	window openInWorld!