Packages March 2012

packages@lists.squeakfoundation.org

1 participants
189 discussions

The Trunk: GetText-cmm.19.mcz
by commits＠source.squeak.org 28 Mar '12

28 Mar '12

Chris Muller uploaded a new version of GetText to project The Trunk: http://source.squeak.org/trunk/GetText-cmm.19.mcz ==================== Summary ==================== Name: GetText-cmm.19 Author: cmm Time: 27 March 2012, 6:38:29.89 pm UUID: ae7baa63-049b-4172-b7c8-e5d3546d0bb6 Ancestors: GetText-edc.18 Fix String DNU directoryNamed:. =============== Diff against GetText-edc.18 =============== Item was changed: ----- Method: InternalTranslator class>>loadAvailableExternalLocales (in category 'private loading') ----- loadAvailableExternalLocales "private - register locales IDs based on the content of the <prefs>/locale/ directory" | localeDir | localeDir := self localeDirCreate: false. localeDir ifNil: [^ #()]. localeDir directoryNames do: [:langDirName | | langDir | langDir := localeDir directoryNamed: langDirName. (langDir fileNamesMatching: '*.' , self translationSuffix) ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: nil]. langDir directoryNames do: [:countryDirName | | countryDir | + countryDir := langDir directoryNamed: countryDirName. - countryDir := langDirName directoryNamed: countryDirName. (countryDir fileNamesMatching: '*.' , self translationSuffix) ifNotEmpty: [self loadTranslatorForIsoLanguage: langDirName isoCountry: countryDirName] ] ]. !

1 0

The Trunk: Tools-nice.399.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.399.mcz ==================== Summary ==================== Name: Tools-nice.399 Author: nice Time: 25 March 2012, 12:48:16.254 pm UUID: 1b7cabc7-f138-4304-bf9f-0b628d9457f2 Ancestors: Tools-nice.398 When an Error occurs while printing the selected field, the Text describing the field holds an error message in red ink. When a field without error is then selected, the ink did remain red. Correct this and let it turn black again. I see your red error and want to paint it black, no colors anymore I want'em to turn black, etc... =============== Diff against Tools-nice.398 =============== Item was changed: ----- Method: Inspector>>selectionPrintString (in category 'selecting') ----- selectionPrintString | text | + selectionUpdateTime := [text := [(self selection printStringLimitedTo: 5000) asText] - selectionUpdateTime := [text := [self selection printStringLimitedTo: 5000] on: Error do: [text := self printStringErrorText. text addAttribute: TextColor red from: 1 to: text size. text]] timeToRun. ^ text!

1 0

The Trunk: Tools-nice.399.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

1 0

The Trunk: Tools-nice.399.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

1 0

The Trunk: Tools-nice.398.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.398.mcz ==================== Summary ==================== Name: Tools-nice.398 Author: nice Time: 25 March 2012, 12:37:20.911 pm UUID: 2349865d-d8dc-4673-bc73-94f30174a1b5 Ancestors: Tools-bf.397 Improve Inspector>>printStringErrorText It will display: <error in printString: evaluate "(self at: 2) printString" to debug> instead of: <error in printString: evaluate "2 printString" to debug> =============== Diff against Tools-bf.397 =============== Item was changed: ----- Method: Inspector>>printStringErrorText (in category 'private') ----- printStringErrorText | nm | nm := self selectionIndex < 3 ifTrue: ['self'] ifFalse: [self selectedSlotName]. + ^(nm first isDigit + ifTrue: ['<error in printString: evaluate "(self at: ' , nm , ') printString" to debug>'] + ifFalse: ['<error in printString: evaluate "' , nm , ' printString" to debug>']) asText.! - ^ ('<error in printString: evaluate "' , nm , ' printString" to debug>') asText.!

1 0

The Trunk: Tools-nice.398.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

1 0

The Trunk: Tools-nice.398.mcz
by commits＠source.squeak.org 25 Mar '12

25 Mar '12

1 0

The Trunk: System-bf.473.mcz
by commits＠source.squeak.org 24 Mar '12

24 Mar '12

Bert Freudenberg uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-bf.473.mcz ==================== Summary ==================== Name: System-bf.473 Author: bf Time: 24 March 2012, 12:58:14.567 am UUID: 7cbf3ed3-b852-44ca-ba5e-8a2579ed3aff Ancestors: System-eem.472 Fix mapping classes that changed shape when loading from an ImageSegment. Apart from correcting the source formatting in comeFullyUpOnReload:, the real addition is "aFake becomeForward: aReal" causing the imported classes to be mapped to the actual classes. Before, only the instances were remapped to the actual classes. Also, prevent doIts from entering the system. =============== Diff against System-eem.472 =============== Item was changed: ----- Method: ImageSegment>>comeFullyUpOnReload: (in category 'fileIn/Out') ----- comeFullyUpOnReload: smartRefStream + "fix up the objects in the segment that changed size. An object in the segment is the wrong size for the modern version of the class. Construct a fake class that is the old size. Replace the modern class with the old one in outPointers. Load the segment. Traverse the instances, making new instances by copying fields, and running conversion messages. Keep the new instances. Bulk forward become the old to the new. Let go of the fake objects and classes. + After the install (below), arrayOfRoots is filled in. Globalize new classes. Caller may want to do some special install on certain objects in arrayOfRoots. - "fix up the objects in the segment that changed size. An - object in the segment is the wrong size for the modern version of the - class. Construct a fake class that is the old size. Replace the - modern class with the old one in outPointers. Load the segment. - Traverse the instances, making new instances by copying fields, and - running conversion messages. Keep the new instances. Bulk forward - become the old to the new. Let go of the fake objects and classes. - After the install (below), arrayOfRoots is filled in. - Globalize new classes. Caller may want to do some special install on - certain objects in arrayOfRoots. May want to write the segment out to disk in its new form." + | mapFakeClassesToReal ccFixups receiverClasses rootsToUnhiberhate myProject forgetDoItsClasses | - | mapFakeClassesToReal ccFixups receiverClasses rootsToUnhiberhate myProject | + forgetDoItsClasses := Set new. + RecentlyRenamedClasses := nil. "in case old data hanging around" - RecentlyRenamedClasses := nil. "in case old data - hanging around" mapFakeClassesToReal := smartRefStream reshapedClassesIn: outPointers. + "Dictionary of just the ones that change shape. Substitute them in outPointers." - "Dictionary of just the ones that change shape. - Substitute them in outPointers." ccFixups := self remapCompactClasses: mapFakeClassesToReal refStrm: smartRefStream. + ccFixups ifFalse: [^ self error: 'A class in the file is not compatible']. - ccFixups ifFalse: [^ self error: 'A class in the file is not - compatible']. endMarker := segment nextObject. "for enumeration of objects" endMarker == 0 ifTrue: [endMarker := 'End' clone]. self fixCapitalizationOfSymbols. arrayOfRoots := self loadSegmentFrom: segment outPointers: outPointers. "Can't use install. Not ready for rehashSets" mapFakeClassesToReal isEmpty ifFalse: [ + self reshapeClasses: mapFakeClassesToReal refStream: smartRefStream - self reshapeClasses: mapFakeClassesToReal refStream: - smartRefStream ]. + "When a Project is stored, arrayOfRoots has all objects in the project, except those in outPointers" - "When a Project is stored, arrayOfRoots has all objects in - the project, except those in outPointers" arrayOfRoots do: [:importedObject | | existing | ((importedObject isMemberOf: WideString) or: [importedObject isMemberOf: WideSymbol]) ifTrue: [ importedObject mutateJISX0208StringToUnicode. importedObject class = WideSymbol ifTrue: [ "self halt." + Symbol hasInterned: importedObject asString ifTrue: [:multiSymbol | + multiSymbol == importedObject ifFalse: [ + importedObject becomeForward: multiSymbol. - Symbol hasInterned: - importedObject asString ifTrue: [:multiSymbol | - multiSymbol == importedObject - ifFalse: [ - importedObject - becomeForward: multiSymbol. ]. ]. ]. ]. (importedObject isKindOf: TTCFontSet) ifTrue: [ + existing := TTCFontSet familyName: importedObject familyName + pointSize: importedObject pointSize. "supplies default" + existing == importedObject ifFalse: [importedObject becomeForward: existing]. - existing := TTCFontSet familyName: - importedObject familyName - pointSize: - importedObject pointSize. "supplies default" - existing == importedObject ifFalse: - [importedObject becomeForward: existing]. ]. ]. + "Smalltalk garbageCollect. MultiSymbol rehash. These take time and are not urgent, so don't to them. In the normal case, no bad MultiSymbols will be found." - "Smalltalk garbageCollect. MultiSymbol rehash. These take - time and are not urgent, so don't to them. In the normal case, no - bad MultiSymbols will be found." receiverClasses := self restoreEndianness. "rehash sets" smartRefStream checkFatalReshape: receiverClasses. "Classes in this segment." arrayOfRoots do: [:importedObject | + importedObject class class == Metaclass ifTrue: [ + forgetDoItsClasses add: importedObject. + self declare: importedObject]]. - importedObject class class == Metaclass ifTrue: [self - declare: importedObject]]. arrayOfRoots do: [:importedObject | (importedObject isKindOf: CompiledMethod) ifTrue: [ + importedObject sourcePointer > 0 ifTrue: [importedObject zapSourcePointer]]. - importedObject sourcePointer > 0 ifTrue: - [importedObject zapSourcePointer]]. (importedObject isKindOf: Project) ifTrue: [ myProject := importedObject. importedObject ensureChangeSetNameUnique. Project addingProject: importedObject. importedObject restoreReferences. self dependentsRestore: importedObject]]. rootsToUnhiberhate := arrayOfRoots select: [:importedObject | importedObject respondsTo: #unhibernate "ScriptEditors and ViewerFlapTabs" ]. myProject ifNotNil: [ + myProject world setProperty: #thingsToUnhibernate toValue: rootsToUnhiberhate asArray. - myProject world setProperty: #thingsToUnhibernate - toValue: rootsToUnhiberhate ]. mapFakeClassesToReal isEmpty ifFalse: [ + mapFakeClassesToReal keysAndValuesDo: [:aFake :aReal | + aFake indexIfCompact > 0 ifTrue: [aFake becomeUncompact]. + aFake removeFromSystemUnlogged. + aFake becomeForward: aReal]. - mapFakeClassesToReal keys do: [:aFake | - aFake indexIfCompact > 0 ifTrue: [aFake - becomeUncompact]. - aFake removeFromSystemUnlogged]. SystemOrganization removeEmptyCategories]. + forgetDoItsClasses do: [:c | c forgetDoIts]. "^ self" !

1 0

The Trunk: System-bf.473.mcz
by commits＠source.squeak.org 24 Mar '12

24 Mar '12

1 0

The Trunk: System-bf.473.mcz
by commits＠source.squeak.org 24 Mar '12

24 Mar '12

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
19
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2012