Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

SystemEditor: TraitEditor-mtf.13.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 30 Oct '08

30 Oct '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.13.mcz ==================== Summary ==================== Name: TraitEditor-mtf.13 Author: mtf Time: 29 October 2008, 11:00:10 pm UUID: b8c20879-a3f0-48a1-9a19-72fe7fce711d Ancestors: TraitEditor-mtf.12 filled in more about TraitComposition building =============== Diff against TraitEditor-mtf.12 =============== Item was added: + ----- Method: TraitCompositionEditor>>assertValidUser: (in category 'reflecting') ----- + assertValidUser: anEditor + "Assert that this trait composition set for aBehavior + does not introduce a cycle." + + self allTraitsOrEditorsDo: [:trait | trait == anEditor ifTrue: [ + TraitCompositionException signal: 'Cycle in compositions: The composition (in)directly includes this trait!!']]! Item was added: + ----- Method: TraitCompositionDecorator>>traitComposition (in category 'accessing') ----- + traitComposition + ^ editor traitComposition! Item was changed: ----- Method: PureBehaviorEditor>>traitComposition: (in category '*TraitEditor') ----- traitComposition: aTraitCompositionOrCollection + self edInvalidateTrait. - self decorateWith: TraitCompositionDecorator. self propertyAt: #traitComposition put: aTraitCompositionOrCollection! Item was added: + ----- Method: TraitTransformationEditor class>>from: (in category 'instance creation') ----- + from: aTraitTransformation + ^ self new from: aTraitTransformation! Item was changed: ----- Method: ClassEditor>>subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category '*TraitEditor') ----- subclass: aSymbol uses: traitComposition instanceVariableNames: instString classVariableNames: classString poolDictionaries: poolString category: categoryString ^ self subclass: aSymbol instanceVariableNames: instString classVariableNames: classString poolDictionaries: poolString category: categoryString; + setTraitCompositionFrom: traitComposition; - traitComposition: traitComposition; yourself ! Item was added: + ----- Method: PureBehaviorEditor>>setTraitCompositionFrom: (in category '*TraitEditor') ----- + setTraitCompositionFrom: aTraitCompositionExpression + self setTraitComposition: aTraitCompositionExpression asTraitCompositionEditor! Item was added: + AbstractEditor subclass: #TraitTransformationEditor + instanceVariableNames: 'transformation' + classVariableNames: '' + poolDictionaries: '' + category: 'TraitEditor'! + + !TraitTransformationEditor commentStamp: 'mtf 10/24/2008 21:43' prior: 0! + I am a minimal wrapper around a TraitTransformation to support building. I have no subject! Item was changed: ----- Method: TraitEditor class>>named:uses:category:env: (in category 'instance creation') ----- named: aName uses: aTraitCompositionOrCollection category: aCategory env: anEnvironment ^ (self named: aName for: anEnvironment) + setTraitCompositionFrom: aTraitCompositionOrCollection; - traitComposition: aTraitCompositionOrCollection; category: aCategory; yourself! Item was added: + ----- Method: TraitCompositionEditor>>allTraitsOrEditorsDo: (in category 'accessing') ----- + allTraitsOrEditorsDo: aBlock + transformations do: [:transformation | | trait | + trait := self system classOrEditorFor: transformation trait. + aBlock value: trait. + trait hasTraitComposition + ifTrue: [trait traitComposition allTraitsOrEditorsDo: aBlock]]! Item was added: + ----- Method: TraitCompositionEditor>>from: (in category 'accessing') ----- + from: aTraitComposition + "Initializes my transformations from aTraitComposition" + transformations := aTraitComposition transformations + collect: [:ea | ea copyTraitExpression]! Item was added: + ----- Method: TraitTransformationEditor>>from: (in category 'initialize-release') ----- + from: aTraitTransformation + transformation := aTraitTransformation copyTraitExpression! Item was changed: ----- Method: TraitCompositionDecorator>>edBuild (in category 'building') ----- edBuild + editor product traitComposition: self traitComposition edBuild. + self traitComposition edApplyChanges. + self applyChangesOfNewTraitCompositionReplacing: self subject.! - ^ self traitCompositionDo: [:comp | comp edBuild]! Item was added: + ----- Method: TraitCompositionDecorator>>validate (in category 'validating') ----- + validate + ^ self traitComposition assertValidUser: editor! Item was added: + ----- Method: PureBehaviorEditor>>edInvalidateTrait (in category '*TraitEditor') ----- + edInvalidateTrait + "Mark myself as having had a trait modified" + + self decorateWith: TraitCompositionDecorator! Item was changed: ----- Method: TraitTransformation>>asTraitCompositionEditor (in category '*TraitEditor') ----- asTraitCompositionEditor + ^TraitCompositionEditor with: (TraitTransformationEditor from: self)! - ^TraitCompositionEditor with: self! Item was added: + ----- Method: TraitDescriptionEditor>>edExpand (in category 'building') ----- + edExpand + | users | + users := self users collect: [:ea | ea theNonMetaClass]. + users do: [:ea | ea edInvalidateTrait]. + ^ users! Item was changed: ----- Method: PureBehaviorEditor>>traitComposition (in category '*TraitEditor') ----- traitComposition "Answers an editor on my traitComposition, creating it if necessary" ^ self propertyAt: #traitComposition + ifAbsentPut: [self edInvalidateTrait. - ifAbsentPut: [self decorateWith: TraitCompositionDecorator. TraitCompositionEditor on: (self subject ifNotNil: [self subject traitComposition]) for: self]! Item was changed: ----- Method: PureBehaviorEditor>>setTraitComposition: (in category '*TraitEditor') ----- setTraitComposition: aTraitComposition | oldComposition | (self hasTraitComposition not and: [aTraitComposition isEmpty]) ifTrue: [^self]. - aTraitComposition assertValidUser: self. + aTraitComposition + setSubject: (self subject ifNotNil: [self subject traitComposition]) + parent: self. - oldComposition := self traitComposition. self traitComposition: aTraitComposition. - self applyChangesOfNewTraitCompositionReplacing: oldComposition. oldComposition traits do: [:each | each removeUser: self]. aTraitComposition traits do: [:each | each addUser: self]! Item was removed: - ----- Method: TraitDescriptionEditor>>edExpandEditors (in category 'building') ----- - edExpandEditors - | users | - users := self users collect: [:ea | ea theNonMetaClass]. - users do: [:ea | ea edTraitModified]. - ^ users! Item was removed: - ----- Method: TraitDescriptionEditor>>validate (in category 'validating') ----- - validate - "Nothing to validate. Do nothing"! Item was removed: - ----- Method: PureBehaviorEditor>>edTraitModified (in category '*TraitEditor') ----- - edTraitModified - "Mark myself as having had a trait modified" - - self decorateWith: TraitCompositionDecorator!

1 0

SystemEditor: SystemEditor-mtf.150.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 30 Oct '08

30 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.150.mcz ==================== Summary ==================== Name: SystemEditor-mtf.150 Author: mtf Time: 29 October 2008, 10:42:16 pm UUID: 4ecd5671-b3c8-43e3-892b-067d830f25fc Ancestors: SystemEditor-mtf.149, SystemEditor-mtf.147 - added edPostLoad hook to editors and decorators - stubbed out the hooks available to ClassDecorators - moved subclass list maintainance out of ClassExporter and into a decorator, where it won't bother traits - made subclass list maintainance a part of editor expansion stage - gave SystemEditor>>edExpandEditors true recursion detection =============== Diff against SystemEditor-mtf.149 =============== Item was added: + ----- Method: SubclassListDecorator>>for: (in category 'initialize-release') ----- + for: aClassEditor + parent := aClassEditor. + additions := IdentitySet new. + removals := IdentitySet new.! Item was changed: ----- Method: SystemEditor>>commit (in category 'building') ----- commit | migration export | showProgress ifNil: [showProgress := false]. self validate. self edExpandEditors. migration := MigrationTransaction new. self edPrepareMigration: migration. export := ClassExporter on: subject. self edPrepareExport: export. showProgress ifTrue: [(1 to: 2) do: [:ea | ] displayingProgress: 'Committing...']. [migration commit. export commit. + self edPostLoad. self edCommitRemovals. self edRecategorize.] valueUnpreemptively. ^ true! Item was added: + ----- Method: SystemEditor>>edPostLoad (in category 'building') ----- + edPostLoad + additions do: [:ea | ea edPostLoad]! Item was added: + ----- Method: ClassEditor>>edExpandSubclasses (in category 'building') ----- + edExpandSubclasses + "Make sure my subclasses get recompiled if my bindings have changed" + | subclasses | + self edRequiresSubclassRebuild ifFalse: [^ #()]. + subclasses := self subclasses. + subclasses do: [:ea | ea edInvalidateSuperclass]. + ^ subclasses! Item was added: + ----- Method: ClassEditor>>edExpandSuperclass (in category 'building') ----- + edExpandSuperclass + "Fix up subclass references to myself in my old and new superclasses" + + | newSuperclass oldSuperclass newSupereditor oldSupereditor | + newSuperclass := self superclassOrEditor. + newSuperclass edIsEditor ifTrue: [newSuperclass := newSuperclass subject]. + oldSuperclass := self subject ifNotNil: [self subject superclass]. + oldSuperclass == newSuperclass ifTrue: [^ #()]. + + newSupereditor := self environment edEditorFor: newSuperclass. + newSupereditor addSubclass: self. + oldSuperclass ifNil: [^ Array with: newSupereditor]. + + oldSupereditor := self environment edEditorFor: oldSuperclass. + oldSupereditor removeSubclass: self. + ^ Array with: oldSupereditor with: newSupereditor! Item was added: + ----- Method: ClassDecorator>>validate (in category 'validating') ----- + validate + "Raise an error if the build should not proceed"! Item was added: + ClassDecorator subclass: #SubclassListDecorator + instanceVariableNames: 'parent additions removals' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Editors'! + + !SubclassListDecorator commentStamp: 'mtf 10/29/2008 13:56' prior: 0! + I remember what subclasses were added to or removed from my parent. Since the subclass list can be nil at times, I cannot migrate it, so I work in edPostLoad! Item was added: + ----- Method: ClassEditor>>removeSubclass: (in category 'reflecting') ----- + removeSubclass: aClassEditor + (self decorateWith: SubclassListDecorator) removeSubclass: aClassEditor! Item was added: + ----- Method: SubclassListDecorator>>edPostLoad (in category 'building') ----- + edPostLoad + | product | + product := parent product. + removals do: [:ea | product removeSubclass: ea product]. + additions do: [:ea | product addSubclass: ea product].! Item was added: + ----- Method: ClassDecorator>>edRequiresRecompile (in category 'building') ----- + edRequiresRecompile + "Answer true if I require my client and all subclasses to be recompiled" + ^ false! Item was changed: ----- Method: SystemEditor>>edExpandEditors (in category 'building') ----- edExpandEditors + | queue editor remembered | + remembered := IdentitySet new. - | queue editor | queue := additions values asOrderedCollection. + [queue isEmpty] whileFalse: [editor := queue removeFirst. + (remembered includes: editor) ifFalse: [ + remembered add: editor. + queue addAll: editor edExpand]] - [queue isEmpty] whileFalse: - [editor := queue removeFirst. - editor subject ifNotNil: [ - queue addAll: editor edExpand]] ! Item was added: + ----- Method: SubclassListDecorator>>removeSubclass: (in category 'accessing') ----- + removeSubclass: aClassEditor + removals add: aClassEditor. + additions remove: aClassEditor ifAbsent: [].! Item was added: + ----- Method: ClassDecorator>>edBuild (in category 'building') ----- + edBuild + "Build what needs to be built into my client's product"! Item was added: + ----- Method: ClassDecorator>>edPostLoad (in category 'building') ----- + edPostLoad + "Do something after the migration is finished"! Item was added: + ----- Method: ClassEditor>>addSubclass: (in category 'reflecting') ----- + addSubclass: aClassEditor + (self decorateWith: SubclassListDecorator) addSubclass: aClassEditor! Item was added: + ----- Method: ClassDecorator>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + "Answer true if I need my client to be built afresh" + ^ false! Item was changed: ----- Method: ClassEditor>>edExpand (in category 'building') ----- edExpand + ^ self edExpandSubclasses, self edExpandSuperclass! - | subclasses | - self edRequiresSubclassRebuild ifFalse: [^ #()]. - subclasses := self subclasses. - subclasses do: [:ea | ea edInvalidateSuperclass]. - ^ subclasses! Item was changed: ----- Method: ClassEditor>>edBuild (in category 'building') ----- edBuild | meta | meta := self class edBuild. product := subject ifNil: [meta new] ifNotNil: [meta adoptInstance: subject from: subject class]. product superclass: self edSuperclass; setFormat: self format; setName: self name; setInstVarNames: self instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization edBuild. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" product methodDictionary: MethodDictionary new. + self decoratorsDo: [:ea | ea edBuild]. - self name == #NSByteStream ifTrue: [self halt]. - self decoratorsDo: [:ea | self halt. ea edBuild]. "Class methods should be compiled before instance methods, since #compilerClass may be among the class methods. Class methods should be compiled after installing class and pool variables" product class methodDictionary: (self class methods buildFor: self class). product methodDictionary: (self methods buildFor: self). ^product! Item was changed: ----- Method: ClassExporter>>export: (in category 'private') ----- export: aClass - ((aClass isBehavior) and: [aClass superclass notNil] - "Don't add aClass as subclass if a subclass exists that will become: aClass. - This can be checked by comparing the names. Otherwise, redundent - subclass entries appear, which makes - SystemNavigation>>allBehaviorsDo: find classes twice" - and: [aClass superclass subclasses noneSatisfy: [:ea | ea name = aClass name]]) - ifTrue: [aClass superclass addSubclass: aClass]. (environment includesKey: aClass name) ifTrue: [self replace: aClass] ifFalse: [environment at: aClass name put: aClass]! Item was added: + ----- Method: SubclassListDecorator>>addSubclass: (in category 'accessing') ----- + addSubclass: aClassEditor + additions add: aClassEditor. + removals remove: aClassEditor ifAbsent: [].! Item was added: + ----- Method: ClassEditor>>edPostLoad (in category 'building') ----- + edPostLoad + self decoratorsDo: [:ea | ea edPostLoad]! Item was added: + ----- Method: ClassDecorator>>edPrepareMigration: (in category 'building') ----- + edPrepareMigration: txn + "Prepare a migration, if necessary"! Item was changed: Object subclass: #ClassExporter instanceVariableNames: 'environment classes oldClasses newClasses' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! + + !ClassExporter commentStamp: 'mtf 10/28/2008 18:55' prior: 0! + This class does a few things. + - The second step (becomeForward:)of ClassBuilder>>update:to: + - add each class to its superclass's subclasses list + - add each class to the SystemDictionary Smalltalk! Item was removed: - ----- Method: ClassDecorator class>>decoratorsFor: (in category 'as yet unclassified') ----- - decoratorsFor: anEditor - ^ self allSubclasses - collect: [:class | class for: anEditor] - thenSelect: [:ea | ea notNil]!

1 0

SystemEditor: SystemEditor-mtf.149.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 29 Oct '08

29 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.149.mcz ==================== Summary ==================== Name: SystemEditor-mtf.149 Author: mtf Time: 29 October 2008, 12:25:24 am UUID: 0478240a-8371-49a1-bae0-8dbbe08a6271 Ancestors: SystemEditor-mtf.148 invalidate classes who's superclass changed, rather than check the superclass every time edRequiresBuild is called =============== Diff against SystemEditor-mtf.148 =============== Item was added: + ----- Method: ClassDescriptionEditor>>edInvalidateSuperclass (in category 'building') ----- + edInvalidateSuperclass + "Note that I require a rebuild due to a superclass change" + self superclass: self superclass! Item was changed: ----- Method: ClassDescriptionEditor>>edRequiresRecompile (in category 'building') ----- edRequiresRecompile instVarNames ifNotNil: [^ true]. self decoratorsDo: [:ea | ea edRequiresRecompile ifTrue: [^ true]]. + ^ false! - ^ self edSuperclassRequiresRecompile! Item was changed: ----- Method: ClassEditor>>edExpand (in category 'building') ----- edExpand + | subclasses | + self edRequiresSubclassRebuild ifFalse: [^ #()]. + subclasses := self subclasses. + subclasses do: [:ea | ea edInvalidateSuperclass]. + ^ subclasses! - ^ self edRequiresSubclassRebuild - ifTrue: [self subclasses] - ifFalse: [#()]! Item was removed: - ----- Method: ClassDescriptionEditor>>edSuperclassRequiresRecompile (in category 'building') ----- - edSuperclassRequiresRecompile - ^ self superclassOrEditor edIsEditor and: [self superclassOrEditor edRequiresRecompile]!

1 0

SystemEditor: SystemEditor-mtf.148.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Oct '08

28 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.148.mcz ==================== Summary ==================== Name: SystemEditor-mtf.148 Author: mtf Time: 28 October 2008, 11:30:57 pm UUID: cada6390-3950-4ad8-9af0-1bdbec36e2b1 Ancestors: SystemEditor-mtf.146 fixed a potential bug where a class organization may not get rebuilt. Did a little code reformatting in the process =============== Diff against SystemEditor-mtf.146 =============== Item was added: + ----- Method: PureBehaviorEditor>>edInvalidateOrganization (in category 'building') ----- + edInvalidateOrganization + "Mark my organization as requiring a rebuild, by setting it non-nil" + self organization! Item was changed: ----- Method: MethodDictionaryEditor>>remove: (in category 'editing') ----- + remove: aSymbol + classEditor edInvalidateOrganization. - remove: aSymbol additions removeKey: aSymbol ifAbsent: []. removals add: aSymbol! Item was changed: ----- Method: MethodDictionaryEditor>>edPrepareMigration:for: (in category 'building') ----- edPrepareMigration: txn for: aClassEditor + txn addMigrator: (ObjectMigrator + origin: self subject + destination: (self buildFor: aClassEditor))! - txn addMigrator: (ObjectMigrator - origin: self subject - destination: (self buildFor: aClassEditor)). - (additions isEmpty and: [removals isEmpty]) ifFalse: [aClassEditor organization].! Item was changed: ----- Method: MethodDictionaryEditor>>add: (in category 'editing') ----- + add: aModifiedMethod + classEditor edInvalidateOrganization. - add: aModifiedMethod ^ additions at: aModifiedMethod selector put: aModifiedMethod! Item was changed: ----- Method: PureBehaviorEditor>>edPrepareMigration: (in category 'building') ----- edPrepareMigration: txn self subject ifNil: [^ self]. + self decoratorsDo: [:ea | ea edPrepareMigration: txn]. methods ifNotNil: [methods edPrepareMigration: txn for: self]. organization ifNotNil: [organization edPrepareMigration: txn]. + ! - self decoratorsDo: [:ea | ea edPrepareMigration: txn]!

1 0

SystemEditor: SystemEditor-mtf.147.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Oct '08

28 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.147.mcz ==================== Summary ==================== Name: SystemEditor-mtf.147 Author: mtf Time: 28 October 2008, 10:33 pm UUID: ef6cea33-6b13-4f5b-aea5-86ab35bb4320 Ancestors: SystemEditor-mtf.146 An idea to simplify ClassExporter by having each editor implement edPostLoad. I don't think it will work, since after the atomic swap, the old instances should not be available. I plan on persuing a different route to make ClassExporter not so tied to ClassEditor =============== Diff against SystemEditor-mtf.146 =============== Item was added: + ----- Method: SystemEditor>>edPostLoad (in category 'building') ----- + edPostLoad + additions do: [:ea | ea edPostLoad]! Item was changed: ----- Method: ClassExporter>>export: (in category 'private') ----- export: aClass - ((aClass isBehavior) and: [aClass superclass notNil] - "Don't add aClass as subclass if a subclass exists that will become: aClass. - This can be checked by comparing the names. Otherwise, redundent - subclass entries appear, which makes - SystemNavigation>>allBehaviorsDo: find classes twice" - and: [aClass superclass subclasses noneSatisfy: [:ea | ea name = aClass name]]) - ifTrue: [aClass superclass addSubclass: aClass]. (environment includesKey: aClass name) + ifTrue: [self replace: aClass]! - ifTrue: [self replace: aClass] - ifFalse: [environment at: aClass name put: aClass]! Item was added: + ----- Method: ClassEditor>>edPostLoad (in category 'building') ----- + edPostLoad + self product superclass ifNotNil: [self product superclass addSubclass: self product]. + self environment subject at: self product name put: self product. + self decoratorsDo: [:ea | ea edPostLoad]! Item was changed: Object subclass: #ClassExporter instanceVariableNames: 'environment classes oldClasses newClasses' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! + + !ClassExporter commentStamp: 'mtf 10/28/2008 18:55' prior: 0! + This class does a few things. + - The second step (becomeForward:)of ClassBuilder>>update:to: + - add each class to its superclass's subclasses list + - add each class to the SystemDictionary Smalltalk!

1 0

Tasks: Tasks-Squeak310-nice.14.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Oct '08

28 Oct '08

A new version of Tasks-Squeak310 was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Squeak310-nice.14.mcz ==================== Summary ==================== Name: Tasks-Squeak310-nice.14 Author: nice Time: 28 October 2008, 10:30:34 pm UUID: 3a94faaa-30f7-4436-a265-2fa9335fc113 Ancestors: Tasks-Squeak310-nice.13 add fixes for mantis issues 7007 1035 =============== Diff against Tasks-Squeak310-nice.13 =============== Item was changed: ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellierMisc (in category 'as yet unclassified') ----- fixesNicolasCellierMisc "nicolas cellier (nice) ncellier(a)ifrance.com" ^ self dependingOn: { " http://bugs.squeak.org/view.php?id=6726 " '6726 REQ: <raw>CompiledMethod</raw> print enhancement'. " http://bugs.squeak.org/view.php?id=6732 " '6732 Undo polygon painting cause drawing not functioning anymore'. " http://bugs.squeak.org/view.php?id=6584 " '6584 Symbol allInstances doesn''t work anymore'. + + " http://bugs.squeak.org/view.php?id=1035 " + '1035 Strange behavior polygon morph added to a rectangle morph with proportional layout'. } ! Item was changed: ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellierTools (in category 'as yet unclassified') ----- fixesNicolasCellierTools "nicolas cellier (nice) ncellier(a)ifrance.com" ^ self dependingOn: { " http://bugs.squeak.org/view.php?id=6812 " '6812 Inspecting a changing WeakSet will raise a Debugger'. + + " http://bugs.squeak.org/view.php?id=7007 " + '7007 toggle break on entry from method list pane does not work'. } !

1 0

Tasks: Tasks-Squeak310-nice.13.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Oct '08

28 Oct '08

A new version of Tasks-Squeak310 was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Squeak310-nice.13.mcz ==================== Summary ==================== Name: Tasks-Squeak310-nice.13 Author: nice Time: 28 October 2008, 10:23:07 pm UUID: 78dbf62a-84e7-4d15-ad27-fc20a3742423 Ancestors: Tasks-Squeak310-kph.12 Split NicolasCellier Fixes into sub-tasks (36 is just too many for a single method) =============== Diff against Tasks-Squeak310-kph.12 =============== Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellierMisc (in category 'as yet unclassified') ----- + fixesNicolasCellierMisc + "nicolas cellier (nice) ncellier(a)ifrance.com" + + ^ self dependingOn: { + " http://bugs.squeak.org/view.php?id=6726 " + '6726 REQ: <raw>CompiledMethod</raw> print enhancement'. + + " http://bugs.squeak.org/view.php?id=6732 " + '6732 Undo polygon painting cause drawing not functioning anymore'. + + " http://bugs.squeak.org/view.php?id=6584 " + '6584 Symbol allInstances doesn''t work anymore'. + } ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellierTools (in category 'as yet unclassified') ----- + fixesNicolasCellierTools + "nicolas cellier (nice) ncellier(a)ifrance.com" + + ^ self dependingOn: { + " http://bugs.squeak.org/view.php?id=6812 " + '6812 Inspecting a changing WeakSet will raise a Debugger'. + } ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellierNumbers (in category 'as yet unclassified') ----- + fixesNicolasCellierNumbers + "nicolas cellier (nice) ncellier(a)ifrance.com" + + ^ self dependingOn: { + " http://bugs.squeak.org/view.php?id=6781 " + '6781: 0.0 raisedTo: -1.0 unexpected result'. + + " http://bugs.squeak.org/view.php?id=6782 " + '6782: 1.0 / (FloatArray with: 2.0) unexpected result'. + + " http://bugs.squeak.org/view.php?id=6729 " + '6729: -Infinity closeTo: Infinity'. + + " http://bugs.squeak.org/view.php?id=6796 " + '6796 A ScaledDecimal is a literal but not isLiteral'. + + " http://bugs.squeak.org/view.php?id=6797 " + '6797 Compiler reduce ScaledDecimal with different scales to a single literal'. + + " http://bugs.squeak.org/view.php?id=4378 " + '4378 ScaledDecimal storeString uses printOn: and looses exactness'. + + " http://bugs.squeak.org/view.php?id=7169 " + '7169 SqNumberParser does not parse ScaledDecimal with trailing zeros correctly'. + + " http://bugs.squeak.org/view.php?id=6779 " + '6779 ScaledDecimal readFrom: ''5.3'' would not answer a ScaledDecimal'. + + " http://bugs.squeak.org/view.php?id=6482 " + '6482 Interval storeOn: Incorrect for some ScaledDecimal'. + + " http://bugs.squeak.org/view.php?id=6696 " + '6696 ScaledDecimal can read in base 16 but cannot print in base 16'. + + " http://bugs.squeak.org/view.php?id=6695 " + '6695 Float storeStringBase: does not store the radix'. + + " http://bugs.squeak.org/view.php?id=6697 " + '6697 Number>>storeOn:base: default implementation is wrong'. + + " http://bugs.squeak.org/view.php?id=6873 " + '6873 [BUG] isPowerOfTwo incorrect for some LargeNegativeInteger'. + + " http://bugs.squeak.org/view.php?id=6456 " + '6456 [BUG] Interval of Float do: infinite loop'. + + " http://bugs.squeak.org/view.php?id=6990 " + '6990 0.0 significandAsInteger is too big'. + + " http://bugs.squeak.org/view.php?id=5640 " + '5640 Number-i-printShowingDecimalPlaces:'. + + " http://bugs.squeak.org/view.php?id=7114 " + '7114 [BUG] SmallInteger minVal highBitOfMagnitude'. + + " http://bugs.squeak.org/view.php?id=7134 " + '7134 Float rounded is inexact'. + } ! Item was changed: ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellier (in category 'as yet unclassified') ----- fixesNicolasCellier "nicolas cellier (nice) ncellier(a)ifrance.com" + "Too many fixes here (>36). It is necessary to split in sub-tasks" - "36 so far" ^ self dependingOn: { + self fixesNicolasCellierCollectionsAndStreams. + self fixesNicolasCellierNumbers. + self fixesNicolasCellierTools. + self fixesNicolasCellierMisc. + }! - " http://bugs.squeak.org/view.php?id=6812 " - '6812 Inspecting a changing WeakSet will raise a Debugger'. - - " http://bugs.squeak.org/view.php?id=6781 " - '6781: 0.0 raisedTo: -1.0 unexpected result'. - - " http://bugs.squeak.org/view.php?id=6782 " - '6782: 1.0 / (FloatArray with: 2.0) unexpected result'. - - " http://bugs.squeak.org/view.php?id=6729 " - '6729: -Infinity closeTo: Infinity'. - - " http://bugs.squeak.org/view.php?id=6796 " - '6796 A ScaledDecimal is a literal but not isLiteral'. - - " http://bugs.squeak.org/view.php?id=6797 " - '6797 Compiler reduce ScaledDecimal with different scales to a single literal'. - - " http://bugs.squeak.org/view.php?id=4378 " - '4378 ScaledDecimal storeString uses printOn: and looses exactness'. - - " http://bugs.squeak.org/view.php?id=7169 " - '7169 SqNumberParser does not parse ScaledDecimal with trailing zeros correctly'. - - " http://bugs.squeak.org/view.php?id=6779 " - '6779 ScaledDecimal readFrom: ''5.3'' would not answer a ScaledDecimal'. - - " http://bugs.squeak.org/view.php?id=6482 " - '6482 Interval storeOn: Incorrect for some ScaledDecimal'. - - " http://bugs.squeak.org/view.php?id=6696 " - '6696 ScaledDecimal can read in base 16 but cannot print in base 16'. - - " http://bugs.squeak.org/view.php?id=6695 " - '6695 Float storeStringBase: does not store the radix'. - - " http://bugs.squeak.org/view.php?id=6697 " - '6697 Number>>storeOn:base: default implementation is wrong'. - - " http://bugs.squeak.org/view.php?id=6778 " - '6778 SkipList copy is shallow...'. - - " http://bugs.squeak.org/view.php?id=6777 " - '6777 CharacterSet copy is shallow...'. - - " http://bugs.squeak.org/view.php?id=6366 " - '6366 [BUG] WideString findString:startingAt: and other matchTable problems'. - - " http://bugs.squeak.org/view.php?id=6367 " - '6367 WideString substrings broken'. - - " http://bugs.squeak.org/view.php?id=3574 " - '3574 (Wide)String-findFirstInString:inSet:startingAt: broke if last char'. - - " http://bugs.squeak.org/view.php?id=5331 " - '5331 "abc" beginsWith: "ab" asWideString (returns wrong result)'. - - " http://bugs.squeak.org/view.php?id=6726 " - '6726 REQ: <raw>CompiledMethod</raw> print enhancement'. - - " http://bugs.squeak.org/view.php?id=6732 " - '6732 Undo polygon painting cause drawing not functioning anymore'. - - " http://bugs.squeak.org/view.php?id=6873 " - '6873 [BUG] isPowerOfTwo incorrect for some LargeNegativeInteger'. - - " http://bugs.squeak.org/view.php?id=2701 " - '2701 DependentsArray might potentially be misused'. - - " http://bugs.squeak.org/view.php?id=6584 " - '6584 Symbol allInstances doesn''t work anymore'. - - " http://bugs.squeak.org/view.php?id=6456 " - '6456 [BUG] Interval of Float do: infinite loop'. - - " http://bugs.squeak.org/view.php?id=1602 " - '1602 [ENH] Interval method indexOf:'. - - " http://bugs.squeak.org/view.php?id=6933 " - '6933 MultiByteFileStream>>upTo: fails for binary'. - - " http://bugs.squeak.org/view.php?id=6990 " - '6990 0.0 significandAsInteger is too big'. - - " http://bugs.squeak.org/view.php?id=5640 " - '5640 Number-i-printShowingDecimalPlaces:'. - - " http://bugs.squeak.org/view.php?id=6535 " - "'6535 keyBlock and sortBlock are lost when creating a collection of the same species.'. - hangs when loading" - - " http://bugs.squeak.org/view.php?id=7095 " - '7095 Dictionary>>collect: answers OrderedCollection not Dictionary'. - - " http://bugs.squeak.org/view.php?id=7114 " - '7114 [BUG] SmallInteger minVal highBitOfMagnitude'. - - " http://bugs.squeak.org/view.php?id=7121 " - '7121 add:beforeIndex: and add:afterIndex: do not work as advertised'. - - " http://bugs.squeak.org/view.php?id=7134 " - '7134 Float rounded is inexact'. - - " http://bugs.squeak.org/view.php?id=7136 " - '7136 [BUG] LinkedList add:after: fails to update lastLink'. - - " http://bugs.squeak.org/view.php?id=7175 " - '7175 CharacterSetComplement cannot printString'. - } ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellierCollectionsAndStreams (in category 'as yet unclassified') ----- + fixesNicolasCellierCollectionsAndStreams + "nicolas cellier (nice) ncellier(a)ifrance.com" + + ^ self dependingOn: { + " http://bugs.squeak.org/view.php?id=6778 " + '6778 SkipList copy is shallow...'. + + " http://bugs.squeak.org/view.php?id=6777 " + '6777 CharacterSet copy is shallow...'. + + " http://bugs.squeak.org/view.php?id=6366 " + '6366 [BUG] WideString findString:startingAt: and other matchTable problems'. + + " http://bugs.squeak.org/view.php?id=6367 " + '6367 WideString substrings broken'. + + " http://bugs.squeak.org/view.php?id=3574 " + '3574 (Wide)String-findFirstInString:inSet:startingAt: broke if last char'. + + " http://bugs.squeak.org/view.php?id=5331 " + '5331 "abc" beginsWith: "ab" asWideString (returns wrong result)'. + + " http://bugs.squeak.org/view.php?id=2701 " + '2701 DependentsArray might potentially be misused'. + + " http://bugs.squeak.org/view.php?id=1602 " + '1602 [ENH] Interval method indexOf:'. + + " http://bugs.squeak.org/view.php?id=6933 " + '6933 MultiByteFileStream>>upTo: fails for binary'. + + " http://bugs.squeak.org/view.php?id=6535 " + "'6535 keyBlock and sortBlock are lost when creating a collection of the same species.'. + hangs when loading" + + " http://bugs.squeak.org/view.php?id=7095 " + '7095 Dictionary>>collect: answers OrderedCollection not Dictionary'. + + " http://bugs.squeak.org/view.php?id=7121 " + '7121 add:beforeIndex: and add:afterIndex: do not work as advertised'. + + " http://bugs.squeak.org/view.php?id=7136 " + '7136 [BUG] LinkedList add:after: fails to update lastLink'. + + " http://bugs.squeak.org/view.php?id=7175 " + '7175 CharacterSetComplement cannot printString'. + } !

1 0

Installer: InstallerAll-stephane.ducasse.2.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 27 Oct '08

27 Oct '08

Stéphane Ducasse uploaded a new version of InstallerAll to project Installer: http://www.squeaksource.com/Installer/InstallerAll-stephane.ducasse.2.mcz ==================== Summary ==================== Name: InstallerAll-stephane.ducasse.2 Author: stephane.ducasse Time: 27 October 2008, 8:09:33 pm UUID: e1dddcaa-d2a5-497f-b9ce-354fe7a5205d Ancestors: InstallerAll-md.1 after the refactoring of matthew. The excellent refactoring! =============== Diff against InstallerAll-md.1 ===============

1 0

Sake : Sake-Core-kph.65.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.65.mcz ==================== Summary ==================== Name: Sake-Core-kph.65 Author: kph Time: 26 October 2008, 8:55:12 pm UUID: 1187e550-2ae2-4c22-9db1-fcf083cea5f5 Ancestors: Sake-Core-kph.64 + SakeMeta storeOn: =============== Diff against Sake-Core-kph.64 =============== Item was added: + ----- Method: SakeTask class>>preferencePresortTasks (in category 'as yet unclassified') ----- + preferencePresortTasks + + ^ false! Item was changed: ----- Method: SakeTask>>runInteractively (in category 'running') ----- runInteractively runLevel ifNil: [ runLevel := #runInteractively ]. + ^ self class preferencePresortTasks + ifFalse: [ self privateRunRakeOrdering: (self withAllPriorTasks) ] + ifTrue: [ self privateRunAllOrdered ]! - ^ self class preferenceUseRakeOrdering - ifTrue: [ self privateRunRakeOrdering: (self withAllPriorTasks) ] - ifFalse: [ self privateRunAllOrdered ]! Item was removed: - ----- Method: SakeTask class>>preferenceUseRakeOrdering (in category 'as yet unclassified') ----- - preferenceUseRakeOrdering - - "Rake ordering simply does the tasks in order and for each task does its prior tasks." - - ^ true!

1 0

Sake : Sake-Core-kph.64.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Oct '08

26 Oct '08

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.64.mcz ==================== Summary ==================== Name: Sake-Core-kph.64 Author: kph Time: 26 October 2008, 7:40:22 pm UUID: 02a589ed-b980-4c03-8c9d-31e5cc1ce4dc Ancestors: Sake-Core-kph.63 + SakeMeta storeOn: =============== Diff against Sake-Core-kph.63 =============== Item was changed: Dictionary subclass: #SakeMeta instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Sake-Core'! + + !SakeMeta commentStamp: 'kph 10/26/2008 17:50' prior: 0! + | s | + s := ReadWriteStream on: String new. + (self new a: 1; b: 2; yourself) storeOn: s. + s reset fileIn! Item was added: + ----- Method: SakeMeta>>storeOn: (in category 'as yet unclassified') ----- + storeOn: aStream + + "writes metadata in a user readable format - oh for an ordered dictionary" + + | noneYet | + aStream nextPutAll: '('. + aStream nextPutAll: self class name. + aStream nextPutAll: ' new'; cr. + noneYet := true. + self associationsDo: + [:each | + noneYet + ifTrue: [noneYet := false] + ifFalse: [aStream nextPut: $;; cr]. + aStream nextPutAll: ' at: '. + aStream store: each key. + aStream nextPutAll: ' put: '. + aStream store: each value. + ]. + noneYet ifFalse: [aStream nextPut: $;; cr; nextPutAll: 'yourself']. + aStream nextPut: $)!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008