'From Squeak3.1alpha of 28 February 2001 [latest update: #4016] on 11 May 2001 at 11:49:45 pm'! "Change Set: SysWndOpen-ar Date: 11 May 2001 Author: Andreas Raab Provide #openAsIsIn: method for SystemWindow and make various methods using this."! !SystemWindow methodsFor: 'open/close' stamp: 'ar 5/11/2001 23:46'! openAsIs ^self openAsIsIn: self currentWorld ! ! !SystemWindow methodsFor: 'open/close' stamp: 'ar 5/11/2001 23:46'! openAsIsIn: aWorld "This msg and its callees result in the window being activeOnlyOnTop" aWorld addMorph: self. self activate. aWorld startSteppingSubmorphsOf: self. ! ! !SystemWindow methodsFor: 'open/close' stamp: 'ar 5/11/2001 23:47'! openInWorld: aWorld "This msg and its callees result in the window being activeOnlyOnTop" self bounds: (RealEstateAgent initialFrameFor: self world: aWorld). ^self openAsIsIn: aWorld! ! !SystemWindow methodsFor: 'open/close' stamp: 'ar 5/11/2001 23:47'! openInWorld: aWorld extent: extent "This msg and its callees result in the window being activeOnlyOnTop" self position: (RealEstateAgent initialFrameFor: self world: aWorld) topLeft; extent: extent. ^self openAsIsIn: aWorld! ! !NewWorldWindow methodsFor: 'as yet unclassified' stamp: 'ar 5/11/2001 23:48'! openInWorld: aWorld | xxx | "This msg and its callees result in the window being activeOnlyOnTop" xxx _ RealEstateAgent initialFrameFor: self world: aWorld. "Bob say: 'opening in ',xxx printString,' out of ',aWorld bounds printString. 6 timesRepeat: [Display flash: xxx andWait: 300]." self bounds: xxx. ^self openAsIsIn: aWorld.! ! !WorldWindow methodsFor: 'as yet unclassified' stamp: 'ar 5/11/2001 23:48'! openInWorld: aWorld "This msg and its callees result in the window being activeOnlyOnTop" self bounds: (RealEstateAgent initialFrameFor: self world: aWorld). self firstSubmorph position: (self left + 1) @ (self top + self labelHeight). ^self openAsIsIn: aWorld! !