'From Squeak3.8-Nihongo of 25 February 2005 [latest update: #22] on 6 March 2005 at 12:14:26 am'!
"Change Set:		TranslateUnnamed
Date:			6 March 2005
Author:			Yoshiki Ohshima

translate Unnamed."!


!ChangeSorter class methodsFor: 'removing' stamp: 'yo 3/6/2005 00:09'!
removeEmptyUnnamedChangeSets
	"Remove all change sets that are empty, whose names start with Unnamed,
		and which are not nailed down by belonging to a Project."
	"ChangeSorter removeEmptyUnnamedChangeSets"
	| toGo |
	(toGo _ (self changeSetsNamedSuchThat: [:csName | csName beginsWith: 'Unnamed' translated])
		select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]])
		do: [:cs | self removeChangeSet: cs].
	self inform: toGo size printString, ' change set(s) removed.'! !


!LanguageEditor methodsFor: 'gui methods' stamp: 'yo 3/6/2005 00:11'!
codeSelectedTranslationAsMimeString
	| keys code tmpStream s2 gzs cont |
	keys := selectedTranslations
				collect: [:key | self translations at: key].
	code := String
				streamContents: [:aStream | self translator fileOutOn: aStream keys: keys].

	tmpStream _ MultiByteBinaryOrTextStream on: ''.
	tmpStream converter: UTF8TextConverter new.
	tmpStream nextPutAll: code.
	s2 _ RWBinaryOrTextStream on: ''.
	gzs := GZipWriteStream on: s2.
	tmpStream reset.
	gzs nextPutAll: (tmpStream binary contentsOfEntireFile asString) contents.
	gzs close.
	s2 reset.

	cont _ String streamContents: [:strm |
		strm nextPutAll: 'NaturalLanguageTranslator loadForLocaleIsoString: '.
		strm nextPut: $'.
		strm nextPutAll: translator localeID isoString.
		strm nextPut: $'.
		strm nextPutAll: ' fromGzippedMimeLiteral: '.
		strm nextPut: $'.
		strm nextPutAll: (Base64MimeConverter mimeEncode: s2) contents.
		strm nextPutAll: '''.'.
		strm cr.
	].
	
	(StringHolder new contents: cont)
		openLabel: 'exported codes in Gzip+Base64 encoding'! !


!Project methodsFor: 'menu messages' stamp: 'yo 3/6/2005 00:09'!
doWeWantToRename

	| want |

	self hasBadNameForStoring ifTrue: [^true].
	(self name beginsWith: 'Unnamed' translated) ifTrue: [^true].
	want _ world valueOfProperty: #SuperSwikiRename ifAbsent: [false].
	world removeProperty: #SuperSwikiRename.
	^want

! !

"Postscript:
"
NaturalLanguageTranslator loadForLocaleIsoString: 'ja' fromGzippedMimeLiteral: 'H4sIAAAAAAAAAC2OsW7CMBiEnyDvcFGHPwxUwYiKeuhUIVUCFmCqGP4mJpgmNnXsoWMlViQ2
Zp4NVbxGXZHpPulOd0dLx6at2WtrUOriX9l9U5rQxNkGi6+g+HP4OO7P9daaysJuIEaYqA8X
YhAiz0d4jwWq9Qj7MoLEgxBrxMInzNgV23uIPQZCDnI5fAY3cSFJszn74LiesqkCV2rZnbEO
tS24Vm+vEtm0Q+jWLrzTppKgHVOvlyYZrYzhRpXUf6Hf0/F2uFx/zhSdNPkDZfXoa9wAAAA='.!