'From Squeak3.8-Nihongo of 14 March 2005 [latest update: #27] on 14 March 2005 at 6:32:08 pm'!

!Utilities class methodsFor: 'tailoring system' stamp: 'tak 3/14/2005 16:21'!
makeNihongoImage

	"self makeNihongoImage"
	Utilities emptyScrapsBook.

	Display setExtent: 960@720 depth: 16.
	World color: (Color r: 0.935 g: 0.935 b: 0.935).

	Preferences takanawa.
	Preferences setPreference: #magicHalos toValue: false.
	Preferences setPreference: #magicHalos toValue: true.
	Preferences setPreference: #mouseOverHalos toValue: false.
	Preferences setPreference: #mouseOverHalos toValue: true.

	Player abandonUnnecessaryUniclasses.
	Player freeUnreferencedSubclasses.
	Player removeUninstantiatedSubclassesSilently.

	PartsBin initialize.
	Flaps disableGlobalFlaps: false.
	Flaps addAndEnableEToyFlaps.
	ActiveWorld addGlobalFlaps.
	Flaps sharedFlapsAlongBottom.

	Locale currentPlatform: (Locale isoLanguage: 'ja').
	Locale switchToID: (LocaleID isoLanguage: 'ja').
	Preferences restoreDefaultFonts.
	StrikeFont setupDefaultFallbackFont.
	Project current updateLocaleDependents.

	"Dump all projects"
	ChangeSet  newChanges: ChangeSet new.
	Project allSubInstancesDo:[:prj| prj == Project current ifFalse:[Project deletingProject: prj]].
	ChangeSet current clear.
	ChangeSet current name: 'Unnamed' translated.
	self makeNihongoUpdateStream.
	Smalltalk garbageCollect.


! !

!Utilities class methodsFor: 'tailoring system' stamp: 'tak 3/14/2005 13:22'!
makeNihongoSqueaklandRelease
	"self makeNihongoSqueaklandRelease"
	Smalltalk makeSqueaklandRelease.
	self makeNihongoSuperSwikiSetting.
	Utilities updateUrlLists
		removeAllSuchThat: [:each | true].
	self makeNihongoUpdateStream! !

!Utilities class methodsFor: 'tailoring system' stamp: 'tak 3/14/2005 13:20'!
makeNihongoSuperSwikiSetting
	| server |
	server := SuperSwikiServer new type: #http;
				 server: 'squeakland.jp';
				 directory: '/super/SuperSwikiProj';
				 acceptsUploads: true.
	ServerDirectory servers at: 'Squeakland.JP' put: server! !

!Utilities class methodsFor: 'tailoring system' stamp: 'tak 3/14/2005 13:22'!
makeNihongoUpdateStream
	"SystemVersion newVersion: 'Squeak3.8-Nihongo'. 
	SystemVersion current resetHighestUpdate."
	"self makeNihongoUpdateStream"
	| server serverName |
	server := ServerDirectory new type: #ftp.
	serverName := 'squeakalpha.org'.
	server directory: 'external/updates';
		 server: 'squeakalpha.org';
		 user: 'nihongo7';
		 groupName: 'Nihongo 7 Updates';
		 altUrl: 'http://squeakalpha.org/nihongo7/external/';
		 yourself.
	ServerDirectory addServer: server named: serverName.
	Utilities updateUrlLists addFirst: {'Nihongo 7 Updates'. {'squeakalpha.org/nihongo7/external/'}}! !