'From etoys3.0 of 24 February 2008 [latest update: #2146] on 15 September 2008 at 4:31:55 pm'!
"Change Set:		sqLandNavBarHeight-yo
Date:			15 September 2008
Author:			Yoshiki Ohshima

Even In the Squeakland setting, the bar height should be 75 when the screen size is comparable to XO."!


!SugarNavigatorBar methodsFor: 'morphic interaction' stamp: 'yo 9/15/2008 16:01'!
checkForResize

	| shouldResize h worldBounds inset |

	shouldResize _ false.
	worldBounds _ self world bounds.
	(self layoutInset ~= (inset _ SugarLauncher isRunningInSugar ifTrue: [75@0] ifFalse: [0@0]))
		ifTrue: [self layoutInset: inset].
	worldBounds width ~= self width ifTrue: [shouldResize _ true].
	Preferences useArtificialSweetenerBar ifTrue: [
		h _ submorphs first submorphs first height.
		(worldBounds extent x >= 1200 and: [worldBounds extent y >= 900]) ifTrue: [
			h = 40 ifTrue: [self naviHeight: 75. shouldResize _ true]]
		ifFalse: [h = 75 ifTrue: [self naviHeight: 40. shouldResize _ true]]].
	(h _ submorphs first submorphs first height) ~= self height ifTrue: [shouldResize _ true].
	(owner notNil and: [owner isFlapTab]) ifTrue: [
		owner edgeToAdhereTo == #top ifTrue: [
			self topLeft ~= worldBounds topLeft ifTrue: [shouldResize _ true].
		]. 
		owner edgeToAdhereTo == #bottom ifTrue: [
			self bottomLeft ~= worldBounds bottomLeft ifTrue: [shouldResize _ true].
		]. 
		shouldResize ifTrue: [
			owner edgeToAdhereTo == #top ifTrue: [
				self bounds: (0@0 corner: (worldBounds width@h)).
			].
			owner edgeToAdhereTo == #bottom ifTrue: [
				self bounds: (0@(worldBounds height - h) corner: (worldBounds bottomRight)).
			].
			self resizeProjectNameField.
			owner layoutChanged.
		].
	].! !