'From Cuis 1.0 of 31 July 2009 [latest update: #250] on 4 August 2009 at 6:11:45 pm'!

!SystemWindow class methodsFor: 'instance creation' stamp: 'jmv 8/4/2009 18:06'!
closeBoxImage
	"Supplied here because we don't necessarily have ComicBold"

	CloseBoxImage ifNil: [
		CloseBoxImage _ (Form
			extent: 9@9
			depth: 16
			fromArray: #( 65537 0 0 1 65536 65537 65536 0 65537 65536 1 65537 1 65537 0 0 65537 65537 65536 0 0 1 65537 0 0 0 65537 65537 65536 0 1 65537 1 65537 0 65537 65536 0 65537 65536 65537 0 0 1 65536)
			offset: 0@0)].
	CloseBoxImage _ (CloseBoxImage asFormOfDepth: 32) fixAlpha.
	^CloseBoxImage! !

!SystemWindow class methodsFor: 'instance creation' stamp: 'jmv 8/4/2009 18:06'!
collapseBoxImage
	"Supplied here because we don't necessarily have ComicBold"

	CollapseBoxImage ifNil: [
		CollapseBoxImage _ (Form
			extent: 10@10
			depth: 16
			fromArray: #( 0 131074 131074 131074 0 2 131074 131074 131074 131072 131074 131072 0 2 131074 131074 0 0 0 131074 131074 0 0 0 131074 131074 0 0 0 131074 131074 0 0 0 131074 131074 131072 0 2 131074 2 131074 131074 131074 131072 0 131074 131074 131074 0)
			offset: 0@0)].
	CollapseBoxImage _ (CollapseBoxImage asFormOfDepth: 32) fixAlpha.
	^CollapseBoxImage! !

!SystemWindow class methodsFor: 'class initialization' stamp: 'jmv 8/4/2009 18:10'!
recreateBoxes
	CollapseBoxImage _ nil.
	CloseBoxImage _ nil! !


!SystemWindow class reorganize!
('accessing' classVersion)
('instance creation' closeBoxImage collapseBoxImage includeInNewMorphMenu labelled:)
('top window' closeTopWindow noteTopWindowIn: sendTopWindowToBack wakeUpTopWindowUponStartup windowsIn:satisfying:)
('class initialization' recreateBoxes)
!

"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."
SystemWindow recreateBoxes.
FormsAndHelpsRepository 
	saveForm: ((FormsAndHelpsRepository formAtKey: 'expandBox') asFormOfDepth: 32) fixAlpha
	atKey: 'expandBox'!

