Hi all,


Change Set:		SysWin-visible
Date:			31 May 2000
Author:			Michael Rueger

This change set works around a bug in SystemWindow causing windows to be
repositioned randomly on a Squeak (native) window collapse and restore.

Michael
-------------- next part --------------
'From Squeak2.8alpha of 19 January 2000 [latest update: #2145] on 30 May 2000 at 5:21:25 pm'!
"Change Set:		SysWin-visible
Date:			31 May 2000
Author:			Michael Rueger

This change set works around a bug in SystemWindow causing windows to be repositioned on a Squeak (native) window collapse and restore."!

!SystemWindow methodsFor: 'drawing' stamp: 'mir 5/30/2000 17:20'!
makeMeVisible 

	self world bounds extent > (0 at 0)
		ifFalse: [^self].
	((self world bounds insetBy: (0 at 0 corner: self labelHeight asPoint))
		containsPoint: self position) ifTrue: [^ self "OK -- at least my top left is visible"].

	"window not on screen (probably due to reframe) -- move it now"
	self isCollapsed
		ifTrue: [self position: (RealEstateAgent assignCollapsePointFor: self)]
		ifFalse: [self position: (RealEstateAgent initialFrameFor: self initialExtent: self extent) topLeft].

! !