[squeak-dev] The Trunk: Morphic-mt.1587.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Nov 13 11:09:55 UTC 2019


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

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

Name: Morphic-mt.1587
Author: mt
Time: 13 November 2019, 12:09:47.029043 pm
UUID: b7dc0d3e-bd9b-ca4d-b9f6-c326c522380b
Ancestors: Morphic-mt.1586

Two minor layout fixes.

=============== Diff against Morphic-mt.1586 ===============

Item was changed:
  ----- Method: Morph>>inAScrollPane (in category 'initialization') -----
  inAScrollPane
  	"Answer a scroll pane that allows the user to scroll the receiver in either direction.  It will have permanent scroll bars unless you take some special action."
  
  	| widget |
  	widget := ScrollPane new.
  	widget borderWidth: 0.
  
  	widget scroller addMorph: self.
  	self position: 0 at 0.
  
  	widget
  		hScrollBarPolicy: #whenNeeded;
  		vScrollBarPolicy: #whenNeeded;
+ 		fit;
+ 		extent: (widget width min: 300 max: 100) @ (widget height min: 150 max: 100).
- 		extent: (self width min: 300 max: 100) @ (self height min: 150 max: 100).
  
  	widget color: self color darker darker.
  	^ widget!

Item was changed:
  ----- Method: Morph>>openInWindowLabeled:inWorld: (in category 'initialization') -----
  openInWindowLabeled: aString inWorld: aWorld
  
  	| window extent |
  
  	window := (SystemWindow labelled: aString) model: nil.
  	window 
  		" guess at initial extent"
  		bounds:  (RealEstateAgent initialFrameFor: window initialExtent: self fullBounds extent world: aWorld);
  		addMorph: self frame: (0 at 0 extent: 1 at 1);
  		updatePaneColors.
  	" calculate extent after adding in case any size related attributes were changed.  Use
  	fullBounds in order to trigger re-layout of layout morphs"
+ 	extent := self fullBounds extent
+ 		+ (window extent - window layoutBounds extent).
- 	extent := self fullBounds extent + 
- 			(window borderWidth at window labelHeight) + window borderWidth.
  	window extent: extent.
  	aWorld addMorph: window.
  	window beKeyWindow.
  	aWorld startSteppingSubmorphsOf: window.
  	^window
  !



More information about the Squeak-dev mailing list