'From etoys3.0 of 24 February 2008 [latest update: #2100] on 27 August 2008 at 2:30:19 pm'! "Change Set: NatLangExtraInfo-yo Date: 27 August 2008 Author: Yoshiki Ohshima Generated .pot file contains extra rendering help information."! !GetTextExporter2 methodsFor: 'private' stamp: 'yo 8/27/2008 14:26'! createExtraInformation | extras | extras := OrderedCollection new. #( 'Language name as you''d like it to appear in the Languages menu' ' Language-Name' 'Scale to apply to font size (2 for twice as large)' 'Font-Scale' 'Directionality of language' 'Language-Direction' 'Use this if you do not want any of the text to be bolded, for legibility' 'Suppress-Bold' 'Font to use on a Windows system' 'Win-Font' 'Font to use on a Mac system' 'Mac-Font' 'Font to use on a Linux system' 'Linux-Font') pairsDo: [:first :second | extras add: (Array with: '' with: first with: second). ]. ^ extras! ! !GetTextExporter2 methodsFor: 'private' stamp: 'yo 8/27/2008 14:25'! exportInformation: anOrderedCollection anOrderedCollection do: [:each | self exportRecordHeader: each second. self exportPhrase: each third translation: '']. stream cr.! ! !GetTextExporter2 methodsFor: 'private' stamp: 'yo 8/27/2008 14:23'! export: literals translator: translator domain: domainName | fileName | "Export a gettext file in a category. literals is a dictionary of keyword -> #(MethodReference...) in the textDomain." fileName := self dirNameDomain: domainName translator: translator. [stream := FileStream forceNewFileNamed: fileName. stream lineEndConvention: #lf. stream converter: UTF8TextConverter new. self exportHeader: domainName. self exportInformation: self createExtraInformation. self exportBody: literals translator: translator] ensure: [stream close]! !