[squeak-dev] The Trunk: MorphicExtras-mt.272.mcz

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


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 at 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.
  	].
  !



More information about the Squeak-dev mailing list