'From Cuis 6.0 [latest update: #5105] on 13 April 2022 at 1:13:46 pm'!

!LayoutSpec methodsFor: 'accessing' stamp: 'KenD 4/13/2022 13:13:31'!
proportionalHeight: aNumberOrNil minimum: otherNumberOrNil
	"Alternatives: same as in #proportionalWidth:minimum:, see comment there"
	"Avoid future divide by zero"
	proportionalHeight _ (aNumberOrNil ifNil: [nil] ifNotNil: [ :h | h max: 0.01]).
	fixedHeight _ (otherNumberOrNil ifNil: [nil] ifNotNil: [ :h | h max: 2])! !

!LayoutSpec methodsFor: 'accessing' stamp: 'KenD 4/13/2022 13:13:25'!
proportionalWidth: aNumberOrNil minimum: otherNumberOrNil
	"Alternatives:
		- proportionalWidth notNil, fixedWidth notNil 	->		Use fraction of available space, take fixedWidth as minimum desired width
		- proportionalWidth isNil, fixedWidth isNil  	->		Use current morph width
		- proportionalWidth isNil, fixedWidth notNil 	->		Use fixedWidth
		- proportionalWidth notNil, fixedWidth isNil 	->		NOT VALID"
	"Avoid future divide by zero"
	proportionalWidth _ (aNumberOrNil ifNil: [nil] ifNotNil: [ :w | w max: 0.01]).
	fixedWidth _ (otherNumberOrNil ifNil: [nil] ifNotNil: [ :w | w max: 2])
! !

