etoys-dev May 2010

etoys-dev@lists.squeakfoundation.org

19 participants
192 discussions

New Etoys committers
by Bert Freudenberg 28 May '10

28 May '10

I just gave Korakurider commit access to the main Etoys repository. Welcome to the team! :) I'm really happy about that - earlier this week we got Ricardo, now Korakurider. Yay! Still, it would be great if some more people could help out. It would even be okay to have two from the same country ;) So far we have 4 committers, one each from Sweden, Argentina, Japan, and Germany - click on "Groups" at source.squeak.org to see. If you (as in "one of the 190 subscribers to this list") want to get involved, start by committing fixes to the Etoys inbox. One of the committers can then take this and merge or move it into the main repository. We operate under an "optimistic" development model: Everyone of the core team usually commits to the main repository directly. The others see the commit notice on this list, and can follow up with a correction if needed. This is in contrast to the "pessimistic" model we used previously, which required every change to be reviewed first. While that would be "safer", with such a small team as ours it's just unrealistic. If we are really unsure about a change we can still submit it to the inbox first for review, but hopefully this is not necessary for the majority of fixes. Anyway, thanks everyone for their work! :) - Bert -

2 1

Re: [etoys-dev] Etoys: GetText-Richo.9.mcz
by Bert Freudenberg 28 May '10

28 May '10

On 27.05.2010, at 21:34, commits(a)source.squeak.org wrote: > > Ricardo Moran uploaded a new version of GetText to project Etoys: > http://source.squeak.org/etoys/GetText-Richo.9.mcz > > ==================== Summary ==================== > > Name: GetText-Richo.9 > Author: Richo > Time: 27 May 2010, 6:34:46 pm > UUID: d15d7b2c-583b-7c48-8866-03cc2627b3ed > Ancestors: GetText-KR.8 > > * Changed #translated to return self if the current locale is English. Then we should get rid of the en.po, right? - Bert -

3 7

Etoys: GetText-Richo.11.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

Ricardo Moran uploaded a new version of GetText to project Etoys: http://source.squeak.org/etoys/GetText-Richo.11.mcz ==================== Summary ==================== Name: GetText-Richo.11 Author: Richo Time: 28 May 2010, 10:40:13 am UUID: 5e4f71b5-dbf7-5a44-94f1-a14fc4d84fbf Ancestors: GetText-Richo.10 * Removed #translated "optimization" for english locale =============== Diff against GetText-Richo.10 =============== Item was changed: ----- Method: String>>translated (in category '*gettext') ----- translated "answer the receiver translated to the default language" | translation | - Locale current isoLanguage = 'en' ifTrue: [^self]. translation := self translatedTo: LocaleID current inDomain: (TextDomainManager domainOfMethod: thisContext sender method). self == translation ifTrue: [^self translatedInAllDomains]. ^translation!

1 0

Process for submitting contribution via Monticello?
by Korakurider 28 May '10

28 May '10

Hi, All I 've noticed that recently subject of MC notification mail sent to list was changed from 'Etoys: ..' to 'Etoys Inbox: ..'. I imagine the new process we will follow looks like squeak trunk project though I don't know detail. Could anyone explain it or provide pointer to good description? (Or should I wait for the latest chat log? :-) Thanks in advance. /Korakurider

3 5

Etoys Inbox: Morphic-KR.10.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

A new version of Morphic was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Morphic-KR.10.mcz ==================== Summary ==================== Name: Morphic-KR.10 Author: KR Time: 28 May 2010, 7:39:39 pm UUID: c4bb977a-6bad-dd4b-a669-d041488cc16a Ancestors: Morphic-KR.9 For SQ-562: Introduce catalog for QuickGuides to translate display of index and control display order. + the catalog file "catalog.txt" is placed to where QG contents reside Format is like this: :NavBar/Navigator <--- categoryName/title of category PaintBrushes/Brushes <--- guideName/title of guide PaintColorPalette/Color Palette Order of guides in some category can be specified in this file. Titles for categories and guides can be translated. The file has to be UTF8 encoded. File name for each guide contents is assumed as <guideName>.sexp.data.gz. <guideName> should be named only with ascii characters for portability among various filename encodings. + Template of catalog file can be generated by evaluating this: QuickGuideMorph buildDefaultCatalog. QuickGuideMorph saveCatalog. TODO: +wiki/html/sexp generation functionalities haven't been adopted to this change. +Buttons on index page are hard coded so aren't affected by translation in catalog. =============== Diff against Morphic-KR.9 =============== Item was added: + ----- Method: QuickGuideMorph>>loadPages (in category 'initialization') ----- + loadPages + | pageCount newPages page unusedPages | + pageCount := PagesForCategory inject: 0 into: [:arg :each | arg + (each size)]. + newPages _ OrderedCollection new: pageCount. + + page _ pages detect: [:p | (p hasProperty: #quickGuideHolder) and: [p knownName = 'index']] ifNone: [nil]. + page ifNil: [ + page _ QuickGuideHolderMorph new. + page guideName: 'index'. + page setProperty: #transitionSpec toValue: (Array with: 'silence' with: #none with: #none). + ]. + newPages add: page. + + Categories do: [:categoryRec | | catKey | + catKey := categoryRec first. + (PagesForCategory at: catKey) do: [: rec || guideName guideTitle | + guideName := rec first. + guideTitle := rec second. + page _ pages detect: [:p | (p hasProperty: #quickGuideHolder) and: [p knownName = guideName]] ifNone: [nil]. + page ifNil: [ + page _ QuickGuideHolderMorph new. + page guideName: guideName. + page guideNameInWords: guideTitle. + page setProperty: #transitionSpec toValue: (Array with: 'silence' with: #none with: #none). + ]. + newPages add: page. + ]. + ]. + + unusedPages _ pages reject: [:e | (newPages includes: e)]. + self newPages: (newPages, unusedPages) currentIndex: 1.! Item was added: + ----- Method: QuickGuideMorph classSide>>buildDefaultCatalog (in category 'initialization') ----- + buildDefaultCatalog + PagesForCategory := self defaultCatalog. + Categories := OrderedCollection new. + self suggestedCategoryOrder + do: [:cat | |rec| + Categories add: {cat. cat}. + ]. + + ! Item was added: + ----- Method: QuickGuideMorph classSide>>categoryTitleOf: (in category 'initialization') ----- + categoryTitleOf: catName + |catTitle| + Categories do: [:catRec | + (catRec first = catName ) + ifTrue: [ + catTitle := catRec second. + catTitle isNil ifTrue: [^catName] + ifFalse: [^catTitle]. + ]. + ]. + ^nil! Item was changed: BookMorph subclass: #QuickGuideMorph instanceVariableNames: 'control order' + classVariableNames: 'Categories Colors Descriptions HTMLJumpTo IndexPage IndexPageMimeString PagesForCategory Thumbnails' - classVariableNames: 'Colors Descriptions HTMLJumpTo IndexPage IndexPageMimeString Thumbnails' poolDictionaries: '' category: 'Morphic-Books'! !QuickGuideMorph commentStamp: 'tk 12/7/2007 15:15' prior: 0! A BookMorph that holds QuickGuides. World an AlignementMorph (the flap) an AlignementMorph a QuickGuideMorph (one page per guide, 54 pages. Page may be a stub if guide not in) a QuickGuideHolderMorph a BookMorph (4 pages) a PasteUpMorph (a page)! Item was changed: ----- Method: QuickGuideMorph>>showDescriptionMenu: (in category 'menu actions') ----- showDescriptionMenu: evt "The Jump To menu. Choose a guide to see next" | aMenu categories subMenu aWorld pos | aMenu _ MenuMorph new defaultTarget: self. aMenu addTitle: 'Quick Guides' translated. categories _ self class suggestedCategoryOrder. categories do: [:catName | subMenu _ self makeCategoryMenu: catName. + subMenu items ifNotEmpty: [ + aMenu add: (self class categoryTitleOf: catName) + subMenu: subMenu]]. - subMenu items ifNotEmpty: [aMenu add: catName translated subMenu: subMenu]]. aMenu add: 'Index' translated action: #goToIndex. aWorld _ aMenu currentWorld. pos _ aWorld primaryHand position - (aMenu fullBounds extent) + (-2@30). aMenu popUpAt: pos forHand: aWorld primaryHand in: aWorld. ! Item was added: + ----- Method: QuickGuideMorph classSide>>saveCatalog (in category 'initialization') ----- + saveCatalog + |stream | + stream := FileStream forceNewFileNamed: 'catalog.txt'. + stream lineEndConvention: #lf. + stream converter: UTF8TextConverter new. + [ + Categories + do: [:catRecord | + stream nextPut: $:. + stream nextPutAll: catRecord first. "category key" + (catRecord second ) = (catRecord first) + ifFalse:[ + stream nextPut: $/. + stream nextPutAll: catRecord second. "category title (translated)" + ]. + stream cr. + + (PagesForCategory at: (catRecord first)) + do: [:rec | + stream nextPutAll: rec first. "guideName" + stream nextPut: $/. + stream nextPutAll: rec second. "guide title (translated)" + stream cr. + ] + ] + ] ensure: [stream close].! Item was added: + ----- Method: QuickGuideMorph classSide>>getWordyName:forCategory: (in category 'initialization') ----- + getWordyName: guideName forCategory: guideCategory + "With guideName and category already filled in, make a name in words. Remove the cat name, and trailing digits. Separate words at capital letters. NavBarHowToUse3 -> 'How To Use' " + + | gn mm tt | + gn _ guideName allButFirst: guideCategory size. + gn _ gn withoutTrailingDigits. + mm _ gn size. + gn reversed doWithIndex: [:cc :ind | + ind < mm ifTrue: [ + cc isUppercase ifTrue: [ + tt _ mm + 1 - ind. + gn _ (gn copyFrom: 1 to: tt-1), ' ', (gn copyFrom: tt to: gn size)]. + cc == $- ifTrue: [ + tt _ mm + 1 - ind. + gn at: tt put: $ ]. "convert dash to space" + ]]. + ^ gn! Item was changed: ----- Method: QuickGuideMorph>>showMenuCategory: (in category 'menu actions') ----- showMenuCategory: catName "put up a menu with all guides in this category" | subMenu | subMenu _ self makeCategoryMenu: catName. + subMenu addTitle: (self class categoryTitleOf: catName). - subMenu addTitle: catName translated. subMenu popUpInWorld.! Item was changed: ----- Method: QuickGuideHolderMorph>>guideName: (in category 'accessing') ----- guideName: aString guideName _ aString. - self setGuideWordyName. self setNamePropertyTo: aString. ! Item was added: + ----- Method: QuickGuideMorph classSide>>defaultCatalog (in category 'initialization') ----- + defaultCatalog + | catalog | + catalog := Dictionary new. + self suggestedCategoryOrder + do: [:catKey| |articles| + articles := OrderedCollection new. + (self defaultOrderIn: catKey) + do: [:guideName | | guideTitle | + guideTitle := self getWordyName: guideName forCategory: catKey. + articles add: {guideName. guideTitle}. + ]. + catalog at: catKey put: articles. + ]. + ^catalog.! Item was changed: ----- Method: QuickGuideMorph>>makeCategoryMenu: (in category 'menu actions') ----- makeCategoryMenu: catName "return a menu with all guides in this category. No title" | subMenu | subMenu _ MenuMorph new defaultTarget: self. + (PagesForCategory at: catName) + do: [:articleRec | + subMenu add: (articleRec second) + target: self + selector: #goToCardNamed: + argument: (articleRec first)]. - pages do: [:pp | - pp guideCategory = catName ifTrue: [ - subMenu add: pp guideNameInWords translated target: self - selector: #goToCardNamed: argument: pp guideName]]. ^ subMenu! Item was added: + ----- Method: QuickGuideMorph classSide>>loadCatalog (in category 'initialization') ----- + loadCatalog + | st line rec categoryRec catKey catTitle guideName guideTitle| + Categories := OrderedCollection new. + PagesForCategory := Dictionary new. + st := FileStream readOnlyFileNamed: QuickGuideMorph guidePath, ( FileDirectory slash), 'catalog.txt'. + st text. + [st atEnd] whileFalse: [ + + line := (st upTo: Character linefeed) withoutTrailingBlanks. + (line first = $: ) ifTrue: [ "Category" + rec := line subStrings: '/'. + catKey := ((rec at: 1) subStrings: ':') at: 1. + rec size = 2 + ifTrue: [ catTitle := rec second] + ifFalse:[ catTitle := catKey]. + categoryRec := {catKey. catTitle}. + Categories add: categoryRec. + + PagesForCategory at: catKey put: OrderedCollection new. + ] ifFalse: [ + rec := line subStrings: '/'. + guideName := rec first. + rec size = 2 + ifTrue: [ + guideTitle := rec second] + ifFalse: [ + guideTitle := self class getWordyName: guideName forCategory: catKey]. + (PagesForCategory at: catKey ) add: {guideName. guideTitle}. + ] + ].! Item was removed: - ----- Method: QuickGuideHolderMorph>>setGuideWordyName (in category 'initialization') ----- - setGuideWordyName - "With guideName and category already filled in, make a name in words. Remove the cat name, and trailing digits. Separate words at capital letters. NavBarHowToUse3 -> 'How To Use' " - - | gn mm tt | - guideCategory _ QuickGuideMorph categoryOf: guideName. - gn _ guideName allButFirst: guideCategory size. - gn _ gn withoutTrailingDigits. - mm _ gn size. - gn reversed doWithIndex: [:cc :ind | - ind < mm ifTrue: [ - cc isUppercase ifTrue: [ - tt _ mm + 1 - ind. - gn _ (gn copyFrom: 1 to: tt-1), ' ', (gn copyFrom: tt to: gn size)]. - cc == $- ifTrue: [ - tt _ mm + 1 - ind. - gn at: tt put: $ ]. "convert dash to space" - ]]. - ^ guideNameInWords _ gn translated!

1 0

Re: [etoys-dev] Etoys: GetText-Richo.1.mcz
by Korakurider 28 May '10

28 May '10

On Sun, May 23, 2010 at 10:31 PM, <commits(a)source.squeak.org> wrote: > A new version of GetText was added to project Etoys: > http://source.squeak.org/etoys/GetText-Richo.1.mcz > > ==================== Summary ==================== > > Name: GetText-Richo.1 > Author: Richo > Time: 22 May 2010, 4:28:05 pm > UUID: 1e89ed45-cf0d-8b4e-a1cd-675553957717 > Ancestors: > > * I moved all the translation stuff into this package following Hilaire's project for Pharo. I think moving even core i18n classes to GetText package is overkill and make it difficult to apply the package to trunk image. I think following classes should be under original category (System-Localization) ISOLanguageDefinition Locale LocaleID NaturalLanguageFormTranslator NaturalLangaugeTranslator InternalTranslator I think we could drop LanguageEditor as it will not be used anymore. When I created GetTextExporter2 as experiment GetTextExporter existed already. Now we could drop old GetTextTextExporter and even rename the stable GetTextExporter2 to GetTextExporter. I think GetTextInterchange isn't used and we could drop it. /Korakurider <snip> BTW this commit message is too heavy !

3 7

Etoys: Multilingual-KR.6.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

A new version of Multilingual was added to project Etoys: http://source.squeak.org/etoys/Multilingual-KR.6.mcz ==================== Summary ==================== Name: Multilingual-KR.6 Author: KR Time: 28 May 2010, 4:16:17 pm UUID: ce04fea3-0067-7646-a291-e5a3381eed12 Ancestors: Multilingual-Richo.5 fix SQ-539 "Cannot copy & paste Japanese external texts on Windows platform" =============== Diff against Multilingual-Richo.5 =============== Item was changed: ----- Method: JapaneseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | platformName := SmalltalkImage current platformName. osVersion := SmalltalkImage current getSystemAttribute: 1002. (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^NoConversionClipboardInterpreter]. + platformName = 'Win32' + ifTrue: [^self win32VMUsesUnicode + ifTrue: [UTF8JPClipboardInterpreter] + ifFalse: [WinShiftJISClipboardInterpreter]]. - platformName = 'Win32' ifTrue: [^WinShiftJISClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [ ^('4.*' match: (SmalltalkImage current macVmMajorMinorBuildVersionString)) ifTrue: [MacUTF8ClipboardInterpreter] ifFalse: [MacShiftJISClipboardInterpreter]]. ^platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [MacShiftJISClipboardInterpreter] ifFalse: [UnixJPClipboardInterpreter]] ifFalse: [ NoConversionClipboardInterpreter ]!

1 0

Etoys: Morphic-KR.9.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

A new version of Morphic was added to project Etoys: http://source.squeak.org/etoys/Morphic-KR.9.mcz ==================== Summary ==================== Name: Morphic-KR.9 Author: KR Time: 28 May 2010, 2:16:04 pm UUID: 6d5b26bc-2963-1448-817f-4cef8e622fd4 Ancestors: Morphic-bf.8 SQ-297: localized QuickGuides contents could be placed in "<imagePath>/locale/<lang>/QuickGuides". if the directory doesn't exist, fallback to default one "<imagePath>/QuickGuides" =============== Diff against Morphic-bf.8 =============== Item was added: + ----- Method: QuickGuideMorph classSide>>guidePath (in category 'defaults') ----- + guidePath + | sepa defaultPath langPath| + sepa := FileDirectory slash. + defaultPath := Smalltalk imagePath, sepa, 'QuickGuides'. + langPath := Smalltalk imagePath, sepa, 'locale', sepa, (LocaleID current posixName). + ((FileDirectory on: langPath ) directoryExists: 'QuickGuides') + ifTrue: [^ langPath, sepa, 'QuickGuides' ] + ifFalse: [^defaultPath]. + ! Item was changed: ----- Method: QuickGuideMorph classSide>>defaultOrderIn: (in category 'defaults') ----- defaultOrderIn: helpCategory | dir baseNames suggestedOrder ret cat last | + dir _ FileDirectory on: QuickGuideMorph guidePath. - dir _ (FileDirectory on: (Smalltalk imagePath)) directoryNamed: 'QuickGuides'. baseNames _ ((dir fileNames select: [:f | f endsWith: '.sexp.data.gz']) collect: [:f | f copyFrom: 1 to: f size - '.sexp.data.gz' size]) asSet. suggestedOrder _ self suggestedOrder. helpCategory ifNotNil: [ suggestedOrder _ suggestedOrder select: [:e | e beginsWith: helpCategory]. baseNames _ baseNames select: [:e | e beginsWith: helpCategory]]. ret _ OrderedCollection new. baseNames _ baseNames collect: [:bb | bb withoutTrailingDigits]. suggestedOrder do: [:e | (baseNames includes: e) ifTrue: [ baseNames remove: e. ret add: e. ]. ]. baseNames ifNotEmpty: [ baseNames asArray do: [:e | cat _ self categoryOf: e. + last _ ret reverse detect: [:b | b beginsWith: cat] + ifNone: [ret ifNotEmpty: [ret last]]. + last ifNil: [ret add: e] + ifNotNil: [ret add: e after: last]. - last _ ret reverse detect: [:b | b beginsWith: cat] ifNone: [ret last]. - ret add: e after: last. ]. ]. ^ ret asArray. ! Item was changed: ----- Method: QuickGuideHolderMorph>>load (in category 'file in/file out') ----- load "If 'guide.00x.pr' is present, take the one with the largest x. If only '.sexp.data.gz', then use it" | dir m fileName f unzipped zipped ours proj | self submorphs size > 0 ifTrue: [^ self]. + dir _ FileDirectory on: QuickGuideMorph guidePath. - dir _ (FileDirectory on: (Smalltalk imagePath)) directoryNamed: 'QuickGuides'. "#('xxx.001.pr' 'xxx.035.pr' 'xxx.sexp.data.gz') asSortedCollection ('xxx.001.pr' 'xxx.035.pr' 'xxx.sexp.data.gz')" ours _ dir fileNames select: [:fName | (fName beginsWith: guideName) and: [(fName endsWith: '.pr') or: [fName endsWith: '.sexp.data.gz']]]. ours _ ours asSortedCollection. ours size = 0 ifTrue: [^ self]. fileName _ ours size > 1 ifTrue: [ours at: (ours size - 1) "most recent .pr file"] ifFalse: [ours last "sexp"]. proj _ fileName endsWith: '.pr'. Cursor wait showWhile: [ proj ifFalse: [ unzipped _ WriteStream on: ByteArray new. f _ dir readOnlyFileNamed: fileName. zipped _ GZipReadStream on: f. unzipped nextPutAll: zipped contents. m _ BookMorph bookFromPagesInSISSFormat: (DataStream on: (ReadStream on: (unzipped contents))) next. f close]. proj ifTrue: [ m _ self loadPR: fileName dir: dir. m ifNil: [^ self]]. m position: 0@0. self position: 0@0. self extent: m extent. m setNamePropertyTo: guideName. m beSticky. self translateGuide: m. self addMorph: m. ]. ! Item was changed: ----- Method: QuickGuideMorph>>preloadIndex (in category 'initialization') ----- preloadIndex "At system build time, load the Guide Index from file 'preload-index.sexp.data.gz'. Save in IndexPage." | dir firstPage | + dir _ FileDirectory on: QuickGuideMorph guidePath. - dir _ (FileDirectory on: Smalltalk imagePath) directoryNamed: 'QuickGuides'. (dir fileExists: 'index.pr') ifTrue: [ self inform: 'Raw index.pr is not supposed to be in QuickGuides during a build. I will delete it now'. dir deleteFileNamed: 'index.pr']. (dir fileExists: 'preload-index.sexp.data.gz') ifFalse: [ ^ self error: 'could not find QuickGuides/preload-index.sexp.data.gz']. firstPage _ pages first. firstPage guideName: 'preload-index'. firstPage guideCategory: ''. firstPage load. "allow index.sexp.data.gz" firstPage guideName: 'index'. self class indexPage: firstPage submorphs first. "the goal, sets name" IndexPageMimeString _ ''. "remove old" self class purgeIndexProjects. ^ true ! Item was changed: ----- Method: QuickGuideMorph>>checkForIndexOnDisk (in category 'transition') ----- checkForIndexOnDisk "For debugging only, Look on disk every time for a new Index as a .pr file. Must be named index.pr. Overwrite IndexPage if found." | dir firstPage | + dir _ FileDirectory on: QuickGuideMorph guidePath. - dir _ (FileDirectory on: Smalltalk imagePath) directoryNamed: 'QuickGuides'. (dir fileExists: 'index.pr') ifFalse: [ (dir fileExists: 'index.sexp.data.gz') ifFalse: [^ false]]. firstPage _ pages first. firstPage guideName: 'index'. firstPage guideCategory: ''. firstPage load. "allow index.sexp.data.gz" IndexPage _ firstPage submorphs first. ^ true " IndexPage _ QuickGuideHolderMorph new loadPR: 'index.pr' dir: dir. " !

1 0

Etoys Inbox: Multilingual-KR.6.mcz
by commits＠source.squeak.org 28 May '10

28 May '10

A new version of Multilingual was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Multilingual-KR.6.mcz ==================== Summary ==================== Name: Multilingual-KR.6 Author: KR Time: 28 May 2010, 4:16:17 pm UUID: ce04fea3-0067-7646-a291-e5a3381eed12 Ancestors: Multilingual-Richo.5 fix SQ-539 "Cannot copy & paste Japanese external texts on Windows platform" =============== Diff against Multilingual-Richo.5 =============== Item was changed: ----- Method: JapaneseEnvironment class>>clipboardInterpreterClass (in category 'subclass responsibilities') ----- clipboardInterpreterClass | platformName osVersion | platformName := SmalltalkImage current platformName. osVersion := SmalltalkImage current getSystemAttribute: 1002. (platformName = 'Win32' and: [osVersion = 'CE']) ifTrue: [^NoConversionClipboardInterpreter]. + platformName = 'Win32' + ifTrue: [^self win32VMUsesUnicode + ifTrue: [UTF8JPClipboardInterpreter] + ifFalse: [WinShiftJISClipboardInterpreter]]. - platformName = 'Win32' ifTrue: [^WinShiftJISClipboardInterpreter]. platformName = 'Mac OS' ifTrue: [ ^('4.*' match: (SmalltalkImage current macVmMajorMinorBuildVersionString)) ifTrue: [MacUTF8ClipboardInterpreter] ifFalse: [MacShiftJISClipboardInterpreter]]. ^platformName = 'unix' ifTrue: [(ShiftJISTextConverter encodingNames includes: X11Encoding getEncoding) ifTrue: [MacShiftJISClipboardInterpreter] ifFalse: [UnixJPClipboardInterpreter]] ifFalse: [ NoConversionClipboardInterpreter ]!

1 0

Question about LocaleID>>#displayName
by Ricardo Moran 28 May '10

28 May '10

Hi, I've found this method: ---------------------------------------------------- LocaleID>>displayName | magicPhrase translatedMagicPhrase | magicPhrase := '<language display name>'. translatedMagicPhrase := NaturalLanguageTranslator translateWithoutLoading: magicPhrase toLocaleID: self. ^ translatedMagicPhrase = magicPhrase ifTrue: [self displayLanguage] ifFalse: [translatedMagicPhrase] ---------------------------------------------------- Shouldn't magicPhrase be 'Language-Name' as it is in the po file? Also, this string doesn't seem to be translated in any file, is that correct? Richo

3 6

← Newer
1
2
3
4
5
6
7
8
...
20
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

etoys-dev May 2010