The Trunk: MorphicExtras-mt.272.mcz

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

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

Name: MorphicExtras-mt.272
Author: mt
Time: 5 March 2020, 9:08:23.933327 am
UUID: 9405455d-b08e-8747-97f3-7a3e3614ed26
Ancestors: MorphicExtras-mt.271

Removes more deprecated message sends.

=============== Diff against MorphicExtras-mt.271 ===============

Item was changed:
  ----- Method: BookPageSorterMorph>>book:morphsToSort: (in category 'initialization') -----
  book: aBookMorph morphsToSort: morphList
 
  | innerBounds scrollPane newHeight |
  book := aBookMorph.
  newHeight := self currentWorld height.
  pageHolder removeAllMorphs.
  pageHolder addAllMorphs: morphList.
  pageHolder extent: pageHolder width@pageHolder fullBounds height.
  innerBounds := Rectangle merging: (morphList collect: [:m | m bounds]).
  pageHolder extent: innerBounds extent + pageHolder borderWidth + 6.
  (pageHolder height > newHeight) ifTrue: [
  scrollPane := ScrollPane new.
 
  self height: newHeight.
  scrollPane model: pageHolder.
  scrollPane extent: pageHolder width@(newHeight - aBookMorph submorphs first height - 28).
  self addMorph: scrollPane inFrontOf: pageHolder.
  scrollPane scroller addMorph: pageHolder.
  scrollPane scrollBarOnLeft: false.
  scrollPane retractable: false.
+ scrollPane hScrollBarPolicy: #never.
- scrollPane hideHScrollBarIndefinitely: true.
  scrollPane borderWidth: 1; borderColor: Color gray.
  ].
  !