'From Squeakland.396-Nihongo7.29 of 18 March 2005 [latest update: #98] on 5 June 2005 at 5:21:38 pm'!

!Utilities class methodsFor: 'tailoring system' stamp: 'tak 6/5/2005 17:21'!
makeMetatoysImage
	"Utilities makeMetatoysImage"
	| server |
	World removeAllMorphs.
	self makeNihongoFinalSetting.
	World color: (Color r:0.937 g: 0.937 b: 0.937).
"	Preferences userLevel: #beginner."
	CommandHistory resetAllHistory.
	Smalltalk garbageCollect.
	"Locale currentPlatform: (Locale isoLanguage: 'en'). 
	Locale switchToID: (LocaleID isoLanguage: 'en')."
	SuperPartsBin openAsTab.
	ServerDirectory resetServers.
	SuperPartsBin initialize.

	ServerDirectory resetLocalProjectDirectories.
	ServerDirectory parseServerEntryFrom: '
name:   KandaiProjects
directory:        P:\kita\SqueakKandai\Projects
type:     file
' readStream

"
	server := SuperSwikiServer new type: #http;
				 server: 'squeakland.jp';
				 directory: '/super/SuperSwikiProj';
				 acceptsUploads: true.
	ServerDirectory servers at: 'Squeakland.JP' put: server
"! !