'From Moshi of 3 March 2007 [latest update: #1533] on 3 September 2010 at 6:22:48 pm'!
"Change Set:		WindowBeBox-yo
Date:			3 September 2010
Author:			Yoshiki Ohshima

Just a little cosmetic so that when worldState is nil, LWindow behaves exactly like LBox."!


!LWindow methodsFor: 'initialization' stamp: 'yo 9/3/2010 18:19'!
initializeAsWorld: extentPoint
	"Initialize the receiver as an Lesserphic 'world' of the given extent."

	parts removeAll.
	worldState := LWorldState new.
	self initializeShape: extentPoint.
	self addAsParts: worldState hand.
	worldState installTo: self.
	worldState valueAnnouncersList add: self.
	self clipping: true.
	self name: 'LWindow'.
	self ensureObjectsPool.
	self acquireUniqueNameIn: self! !

!LWindow methodsFor: 'initialization' stamp: 'yo 9/3/2010 18:19'!
initializeShape: extentPoint

	self shape: (LBoxShape new extent: extentPoint fill: (GeziraFill gradient: {0->Color veryLightGray. 1->Color white} direction: 0@extentPoint y offset: 0))! !

!LWindow methodsFor: 'initialization' stamp: 'yo 9/3/2010 18:20'!
openAsMorph

	| ww |
	ww := LesserphicMorph new.
	self initializeShape: 400@300.
	ww instVarNamed: 'window' put: self.
	ww extent: self extent.
	self initializeAsWorld: self extent.
	ww openInWorld.
	^ ww.
! !

!LWindow methodsFor: 'drawing' stamp: 'yo 9/3/2010 18:22'!
fullDrawingBounds

	worldState ifNotNil: [self setProperty: #layoutChanged toValue: true].
	^ super fullDrawingBounds.! !

!LWindow methodsFor: 'user actions' stamp: 'yo 9/3/2010 18:21'!
delete

	worldState ifNotNil: [self quit] ifNil: [super delete].! !


!LWindow reorganize!
('initialization' initializeAsWorld: initializeShape: openAsMorph)
('accessing' worldState worldState:)
('drawing' fullDrawingBounds invalidRect:from:)
('events' receive:from:)
('user actions' delete hostingMorph preferredPositionForMenu:event: quit)
('worlds-accessors' wiv666worldState wiv666worldState:)
!