etoys-dev May 2010

etoys-dev@lists.squeakfoundation.org

19 participants
192 discussions

Etoys Inbox: 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 Inbox: http://source.squeak.org/etoysinbox/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: GetText-Richo.10.mcz
by commits＠source.squeak.org 27 May '10

27 May '10

Ricardo Moran uploaded a new version of GetText to project Etoys: http://source.squeak.org/etoys/GetText-Richo.10.mcz ==================== Summary ==================== Name: GetText-Richo.10 Author: Richo Time: 27 May 2010, 6:46:09 pm UUID: bb859108-fe0c-0e42-afb0-43d6317ac652 Ancestors: GetText-Richo.9 * Fixed a stupid mistake in my last commit :P =============== Diff against GetText-Richo.9 =============== 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]. - 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

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

27 May '10

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. =============== Diff against GetText-KR.8 =============== 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

Etoys: System-Richo.18.mcz
by commits＠source.squeak.org 27 May '10

27 May '10

Ricardo Moran uploaded a new version of System to project Etoys: http://source.squeak.org/etoys/System-Richo.18.mcz ==================== Summary ==================== Name: System-Richo.18 Author: Richo Time: 27 May 2010, 6:31:59 pm UUID: 2f9e1afd-1359-bf4c-93f7-cd9364fd18cc Ancestors: System-Richo.17 * Reverted Project>>#chooseNaturalLanguage to old version. The source is the same, I just want to preserve the version info. =============== Diff against System-Richo.17 =============== Item was changed: ----- Method: Project>>chooseNaturalLanguage (in category 'language') ----- chooseNaturalLanguage "Put up a menu allowing the user to choose the natural language for the project" | aMenu availableLanguages item | Cursor wait showWhile: [ aMenu _ MenuMorph new defaultTarget: self. aMenu addTitle: 'choose language' translated. aMenu lastItem setBalloonText: 'This controls the human language in which tiles should be viewed. It is potentially extensible to be a true localization mechanism, but initially it only works in the classic tile scripting system. Each project has its own private language choice' translated. Preferences noviceMode ifFalse:[aMenu addStayUpItem. ]. Preferences eToyFriendly ifFalse:[aMenu addUpdating: #useLocaleString action: #toggleUseLocale. aMenu addLine]. availableLanguages := NaturalLanguageTranslator availableLanguageLocaleIDs asSortedCollection:[:x :y | x displayName < y displayName]. availableLanguages do: [:localeID | item _ aMenu addUpdating: #stringForLanguageNameIs: target: Locale selector: #switchAndInstallFontToID:gently: argumentList: {localeID. true} extraIcon: (Locale localeID: localeID) iconForNativeLanguage. item wordingArgument: localeID.]. ]. aMenu popUpInWorld "Project current chooseNaturalLanguage"!

1 0

A new Die morph artifact
by Hilaire Fernandes 27 May '10

27 May '10

I have added a new Die Morph artifact in the LearningArtifacts repository (http://www.squeaksource.com/LearningArtifacts) Once load, instantiate one Die with the execution of 'DieMorph new openInWorld' from a Workspace. It is Etoys scriptable with specific tiles. So far the artifacts does not show up in the Object Catalog, I will fix that. Idea about category titles to use in the Object Catalog is welcome. Hilaire

2 3

Etoys: GetText-KR.8.mcz
by commits＠source.squeak.org 27 May '10

27 May '10

A new version of GetText was added to project Etoys: http://source.squeak.org/etoys/GetText-KR.8.mcz ==================== Summary ==================== Name: GetText-KR.8 Author: KR Time: 28 May 2010, 1:16:58 am UUID: c3293c66-7afd-b94d-9178-f6110e74b811 Ancestors: GetText-Richo.7 + Fix class comment of GetTextExporter. + To modify structure of POs/PO that GetTextExporter creates to: po/ <lang>/ <domain>.po templates/ <domain>.pot =============== Diff against GetText-Richo.7 =============== Item was changed: ----- Method: GetTextExporter>>dirNameDomain:translator: (in category 'exporting') ----- dirNameDomain: domain translator: translator "Answer a file name for the domain. Make one if it is not exist yet. Make template file name if translator is nil" "self new dirNameDomain: 'etoys' translator: NaturalLanguageTranslator current" "self new dirNameDomain: 'etoys' translator: nil" | fileName dirName pathName | "safeCategory := category copyReplaceAll: ' ' with: '_'." + fileName := domain, + (translator + ifNil: ['.pot'] + ifNotNil: ['.po']). + dirName := 'po', FileDirectory slash, + (translator + ifNil: ['templates'] + ifNotNil: [translator localeID posixName]). - fileName := translator - ifNil: [domain , '.pot'] - ifNotNil: [translator localeID posixName , '.po']. - dirName := 'po', FileDirectory slash, domain. pathName := dirName , FileDirectory slash , fileName. (FileDirectory default directoryNamed: dirName) assureExistence. ^ pathName! Item was changed: Object subclass: #GetTextExporter instanceVariableNames: 'stream' classVariableNames: '' poolDictionaries: '' category: 'GetText-Editor'! !GetTextExporter commentStamp: '<historical>' prior: 0! Export translations to gettext format divided into categories. "Export gettext template files" + GetTextExporter new exportTemplate. - GetTextExporter2 new exportTemplate. "Export translation files for current locale" + GetTextExporter new exportTranslator: (InternalTranslator newLocaleID: LocaleID current). - GetTextExporter2 new exportTranslator: (InternalTranslator newLocaleID: LocaleID current). "Export all gettext template and po files." + GetTextExporter exportAll. - GetTextExporter2 exportAll. + ! - "To register a class category as a new domain" - TextDomainManager registerClassCategory: 'Morphic-Books' domain: 'Book'. - "Remove a class category" - TextDomainManager unregisterClassCategory: 'Morphic-Books'.!

1 0

Why are these strings processed with translatedInAllDomains?
by Korakurider 27 May '10

27 May '10

Hi, Richo Seeing transcript, I noticed some strings are translated with #translatedInAllDomains wrongly. For an instance, in #browseMethodsWithString:matchCase: , '(case insensitive)' translated emits that transcript message. It should be translated in System domain. Could you look into this? /Korakurider (I am using dev image)

2 1

Etoys Inbox: GetText-KR.8.mcz
by commits＠source.squeak.org 27 May '10

27 May '10

A new version of GetText was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/GetText-KR.8.mcz ==================== Summary ==================== Name: GetText-KR.8 Author: KR Time: 28 May 2010, 1:16:58 am UUID: c3293c66-7afd-b94d-9178-f6110e74b811 Ancestors: GetText-Richo.7 + Fix class comment of GetTextExporter. + To modify structure of POs/PO that GetTextExporter creates to: po/ <lang>/ <domain>.po templates/ <domain>.pot =============== Diff against GetText-Richo.7 =============== Item was changed: ----- Method: GetTextExporter>>dirNameDomain:translator: (in category 'exporting') ----- dirNameDomain: domain translator: translator "Answer a file name for the domain. Make one if it is not exist yet. Make template file name if translator is nil" "self new dirNameDomain: 'etoys' translator: NaturalLanguageTranslator current" "self new dirNameDomain: 'etoys' translator: nil" | fileName dirName pathName | "safeCategory := category copyReplaceAll: ' ' with: '_'." + fileName := domain, + (translator + ifNil: ['.pot'] + ifNotNil: ['.po']). + dirName := 'po', FileDirectory slash, + (translator + ifNil: ['templates'] + ifNotNil: [translator localeID posixName]). - fileName := translator - ifNil: [domain , '.pot'] - ifNotNil: [translator localeID posixName , '.po']. - dirName := 'po', FileDirectory slash, domain. pathName := dirName , FileDirectory slash , fileName. (FileDirectory default directoryNamed: dirName) assureExistence. ^ pathName! Item was changed: Object subclass: #GetTextExporter instanceVariableNames: 'stream' classVariableNames: '' poolDictionaries: '' category: 'GetText-Editor'! !GetTextExporter commentStamp: '<historical>' prior: 0! Export translations to gettext format divided into categories. "Export gettext template files" + GetTextExporter new exportTemplate. - GetTextExporter2 new exportTemplate. "Export translation files for current locale" + GetTextExporter new exportTranslator: (InternalTranslator newLocaleID: LocaleID current). - GetTextExporter2 new exportTranslator: (InternalTranslator newLocaleID: LocaleID current). "Export all gettext template and po files." + GetTextExporter exportAll. - GetTextExporter2 exportAll. + ! - "To register a class category as a new domain" - TextDomainManager registerClassCategory: 'Morphic-Books' domain: 'Book'. - "Remove a class category" - TextDomainManager unregisterClassCategory: 'Morphic-Books'.!

1 0

Extracted PO/POT structure
by Korakurider 27 May '10

27 May '10

Hello. Pootle's requirement on po directory structure is po/ <lang>/ <module>.po templates/ <module>.pot While output structure that GetTextExporter (renamed from GetTextExporter2) creates is po/ <module>/ <lang>.po <module>.pot Having many packages/POs now, I think modifying our exporter to adopt the output structure to Pootle's would make sense. How do you think? /Korakurider

2 1

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

26 May '10

Ricardo Moran uploaded a new version of GetText to project Etoys: http://source.squeak.org/etoys/GetText-Richo.7.mcz ==================== Summary ==================== Name: GetText-Richo.7 Author: Richo Time: 26 May 2010, 11:21:06 am UUID: 6d28b3fc-fcf2-bb4a-896b-a90a3215e7c8 Ancestors: GetText-Richo.6 * Fixed formatting in two methods. * Changed #= for #== in String>>translated =============== Diff against GetText-Richo.6 =============== Item was changed: ----- Method: String>>translatedInAllDomains (in category '*gettext') ----- translatedInAllDomains + | translation | + Transcript show: self printString, ' translatedInAllDomains'; cr. + TextDomainManager allKnownDomains do: [:domain | + translation := self translatedInDomain: domain. + self = translation ifFalse: [^translation] + ]. + ^self! - | translation | - Transcript show: self printString, ' translatedInAllDomains'; cr. - TextDomainManager allKnownDomains do: [:domain | - translation := self translatedInDomain: domain. - self = translation ifFalse: [^translation] - ]. - ^self! Item was changed: ----- Method: MOFile>>translationFor: (in category 'public') ----- translationFor: aString | | aString size = 0 ifTrue: [^ '']. "Gettext header" + ^ (self searchByDictionary: aString) ifNil: [aString] - ^ (self searchByDictionary: aString) ifNil: [ - "file := (fileName subStrings: '\'). - Transcript show: aString printString, ' not found in ', (file last); cr." - ^aString] ! Item was changed: ----- Method: String>>translated (in category '*gettext') ----- translated "answer the receiver translated to the default language" | translation | translation := self translatedTo: LocaleID current inDomain: (TextDomainManager domainOfMethod: thisContext sender method). + self == translation ifTrue: [^self translatedInAllDomains]. - self = translation ifTrue: [^self translatedInAllDomains]. ^translation!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
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