The Trunk: EToys-tcj.324.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: EToys-tcj.324.mcz

commits-2
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@row) extent: paneExtent)].
  col := col + 1].
  row := row + 1].
 
  window firstSubmorph color: paneColor.
  window updatePaneColors.
  window openInWorld!