'From Squeak3.7alpha of ''11 September 2003'' [latest update: #5545] on 14
November 2003 at 10:36:16 am'!
"Change Set:		RecreateDefaultWindows-dgd
Date:			14 November 2003
Author:			Diego Gomez Deck <DiegoGomezDeck at ConsultAr.com>

- recreate the default windows so the new look is used

"


| titles oldWindows newLabel newPaneColor oldPreference |

titles := #('ReadMe.txt' 'Welcome to...' 'A Word of Caution...' ).

oldWindows := SystemWindow
			windowsIn: World
			satisfying: [:each | titles includes: each label].

oldWindows
	do: [:each |
		each isCollapsed
				ifTrue: [each expand].
		each submorphs first accept.
		newLabel := each label.
		newPaneColor := each paneColor.
		(Workspace new contents: each model contents)
			openLabel: newLabel.
		(SystemWindow
			windowsIn: World
			satisfying: [:eachNewWindow | eachNewWindow label =
newLabel])
			do: [:eachNewWindow | eachNewWindow paneColor:
newPaneColor]].

oldWindows
	do: [:each | each delete].

oldPreference := Preferences collapseWindowsInPlace.

Preferences disable: #collapseWindowsInPlace.

(SystemWindow
	windowsIn: World
	satisfying: [:each | (titles includes: each label)
			and: [each isCollapsed not]])
	do: [:each | each collapseOrExpand].

oldPreference ifTrue:[Preferences enable: #collapseWindowsInPlace].

World displayWorld.
!



-------------- next part --------------
A non-text attachment was scrubbed...
Name: RecreateDefaultWindows-dgd.1.cs.gz
Type: application/x-gzip-compressed
Size: 600 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20031114/817f74c3/RecreateDefaultWindows-dgd.1.cs.bin