Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

Monticello Public: Monticello.impl-mtf.575.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.575.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.575 Author: mtf Time: 3 October 2008, 10:15:23 pm UUID: c41000cc-8804-4eca-a90c-130f6a43af17 Ancestors: Monticello.impl-mtf.574 Uses Matthew's experimental single-pass snapshotter from PackageInfo-Base-mtf.54 =============== Diff against Monticello.impl-mtf.574 =============== Item was changed: ----- Method: MCPackage>>snapshot (in category 'as yet unclassified') ----- snapshot | definitions categories packageInfo | packageInfo := self packageInfo. definitions := OrderedCollection new. categories := packageInfo systemCategories. definitions addAll: (self orphanage orphansFor: packageInfo). definitions removeAllFoundIn: self orphanage unlinkedClasses. categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ]. - packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods... '. - - (packageInfo respondsTo: #overriddenMethods) ifTrue: - [ packageInfo overriddenMethods - do: [:ea | definitions add: - (packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition] - displayingProgress: 'Searching for overrides...']. + packageInfo + classesDo: [:ea | definitions addAll: ea classDefinitions] + methodsDo: [:ea | definitions add: ea asMethodDefinition]. - packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...'. MCScriptDefinition subclassesDo: [ :ea | ea from: packageInfo addTo: definitions ]. ^ MCSnapshot fromDefinitions: definitions !

1 0

Monticello Public: PackageInfo-Base-mtf.54.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-mtf.54.mcz ==================== Summary ==================== Name: PackageInfo-Base-mtf.54 Author: mtf Time: 3 October 2008, 9:51:40 pm UUID: 4daf537d-3753-47b1-be90-e62f52f8dea8 Ancestors: PackageInfo-Base-cds.53 Implemented PackageInfo>>classesDo:methodsDo:. This does everything needed to build a monticello snapshot in a single pass through the class heiarchy, and no unnecessary temporaries. It should be wicked-fast =============== Diff against PackageInfo-Base-cds.53 =============== Item was added: + ----- Method: PackageInfo>>methodsInClass:category:do: (in category 'single-pass') ----- + methodsInClass: aClass category: aCategory do: aBlock + "Enumerate the methods in the given class and category" + + (aClass organization listAtCategoryNamed: aCategory) do: [:selector | + aBlock value: (self referenceForMethod: selector ofClass: aClass)]! Item was added: + ----- Method: PackageInfo>>overriddenMethodsInClass:category:do: (in category 'single-pass') ----- + overriddenMethodsInClass: aClass category: aCategory do: aBlock + "Enumerate the methods in the given class and category" + + self methodsInClass: aClass category: aCategory do: [:methodRef | + (self changeRecordForOverriddenMethod: methodRef) + ifNotNilDo: [:changeRecord | aBlock value: changeRecord]]! Item was added: + ----- Method: PackageInfo>>extensionCategoriesForClass:do: (in category 'testing') ----- + extensionCategoriesForClass: aClass do: aBlock + ^ aClass organization categories + do: [:cat | (self isYourClassExtension: cat) ifTrue: [aBlock value]]! Item was added: + ----- Method: PackageInfo>>methodsInIncludedClass:do: (in category 'single-pass') ----- + methodsInIncludedClass: aClass do: aBlock + "Enumerate my methods in included class aClass" + + self methodCategoriesInClass: aClass + coreDo: [:cat | self methodsInClass: aClass category: cat do: aBlock] + extensionDo: [:cat | self methodsInClass: aClass category: cat do: aBlock] + overrideDo: [:cat | self overriddenMethodsInClass: aClass category: cat do: aBlock]! Item was added: + ----- Method: PackageInfo>>methodsInExcludedClass:do: (in category 'single-pass') ----- + methodsInExcludedClass: aClass do: aBlock + "Enumerate my methods in excluded class aClass" + + self methodCategoriesInClass: aClass + coreDo: [:cat | "nothing"] + extensionDo: [:cat | self methodsInClass: aClass category: cat do: aBlock] + overrideDo: [:cat | self overriddenMethodsInClass: aClass category: cat do: aBlock]! Item was added: + ----- Method: PackageInfo>>includedClassesDo:excludedClassesDo: (in category 'single-pass') ----- + includedClassesDo: includedBlock excludedClassesDo: excludedBlock + "Enumerates behaviors, dividing them into included and excluded" + + self + includedSystemCategoriesDo: [:cat | + (SystemOrganization listAtCategoryNamed: cat) do: [:name | + self behaviorsNamed: name do: includedBlock]] + excludedSystemCategoriesDo: [:cat | + (SystemOrganization listAtCategoryNamed: cat) do: [:name | + self behaviorsNamed: name do: excludedBlock]]! Item was added: + ----- Method: PackageInfo>>behaviorsNamed:do: (in category 'single-pass') ----- + behaviorsNamed: aSymbol do: aBlock + "Enumerates all behaviors with the given name" + + | class traitClass | + class := Smalltalk at: aSymbol ifAbsent: [^ self]. + class isBehavior ifTrue: [aBlock value: class. aBlock value: class class. ^ self]. + traitClass := Smalltalk at: #Trait ifAbsent: [^ self]. + (class isKindOf: traitClass) ifTrue: [aBlock value: class. ^ self].! Item was added: + ----- Method: PackageInfo>>methodCategoriesInClass:coreDo:extensionDo:overrideDo: (in category 'single-pass') ----- + methodCategoriesInClass: aClass + coreDo: coreBlock + extensionDo: extensionBlock + overrideDo: overrideBlock + "Enumerates all interesting categories in aClass. Core categories go to coreBlock. My extension categories and override categories go to extensionBlock. Foreign override categories go to overrideBlock. Foreign extension categories are ignored" + + aClass organization categories do: [:cat | + (self isYourClassExtension: cat) ifTrue: [extensionBlock value: cat] + ifFalse: [(self isOverrideCategory: cat) ifTrue: [overrideBlock value: cat] + ifFalse: [(self isForeignClassExtension: cat) ifFalse: [coreBlock value: cat]]]]! Item was added: + ----- Method: PackageInfo>>classesDo:methodsDo: (in category 'single-pass') ----- + classesDo: classBlock methodsDo: methodBlock + "Enumerates all non-meta classes and all methods in the package" + + self + includedClassesDo: [:class | + class isMeta ifFalse: [classBlock value: class]. + self methodsInIncludedClass: class do: methodBlock] + excludedClassesDo: [:class | + self methodsInExcludedClass: class do: methodBlock]! Item was added: + ----- Method: PackageInfo>>includedSystemCategoriesDo:excludedSystemCategoriesDo: (in category 'single-pass') ----- + includedSystemCategoriesDo: includedBlock excludedSystemCategoriesDo: excludedBlock + "Enumerate all system categories, dividing them into included and excluded" + + SystemOrganization categories do: [:ea | (self includesSystemCategory: ea) + ifTrue: [includedBlock value: ea] + ifFalse: [excludedBlock value: ea]]!

1 0

Monticello Public: PackageInfo-Base-kph.55.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-kph.55.mcz ==================== Summary ==================== Name: PackageInfo-Base-kph.55 Author: kph Time: 4 October 2008, 3:15:14 am UUID: dc9eabfb-4249-44c6-a298-d11845680828 Ancestors: PackageInfo-Base-kph.54 PackageInfo is now operating 60% faster =============== Diff against PackageInfo-Base-kph.54 =============== Item was changed: ----- Method: PackageInfo>>initialize (in category 'testing') ----- initialize + methodCategoryPrefix := nil. + systemCategories := nil. + classesAndMetaClasses := nil.! - methodCategoryPrefix := nil! Item was changed: ----- Method: PackageInfo>>externalTraits (in category 'modifying') ----- externalTraits | behaviors | ^ Array streamContents: [:s | + behaviors := self classesAndMetaClasses asSet. - behaviors := self classesAndMetaClasses. Smalltalk allTraits do: [:trait | (behaviors includes: trait) ifFalse: [s nextPut: trait]. (behaviors includes: trait classSide) ifFalse: [s nextPut: trait classSide]]]. ! Item was changed: SystemOrganization addCategory: #'PackageInfo-Base'! Item was changed: ----- Method: PackageInfo>>classesDo: (in category 'iterator versions') ----- classesDo: aBlock + ^ self classes do: aBlock! - ^ self loadedClasses do: aBlock! Item was changed: ----- Method: PackageInfo>>systemCategories (in category 'listing') ----- systemCategories + + systemCategories ifNil: [ + systemCategories := OrderedCollection new. + SystemOrganization categories do: [:cat | (self includesSystemCategory: cat) ifTrue: [ systemCategories add: cat ]]. + ]. + + ^ systemCategories! - ^ SystemOrganization categories select: [:cat | self includesSystemCategory: cat]! Item was changed: Object subclass: #PackageInfo + instanceVariableNames: 'packageName methodCategoryPrefix properties systemCategories classesAndMetaClasses' - instanceVariableNames: 'packageName methodCategoryPrefix properties' classVariableNames: '' poolDictionaries: '' category: 'PackageInfo-Base'! PackageInfo class instanceVariableNames: 'default'! !PackageInfo commentStamp: 'kph 6/2/2008 23:37' prior: 0! Subclass this class to create new Packages. ! Item was changed: ----- Method: PackageInfo>>classes (in category 'listing') ----- classes + ^ self loadedClasses! - ^ self loadedClasses asOrderedCollection! Item was changed: ----- Method: PackageInfo>>loadedClasses (in category 'iterator versions') ----- loadedClasses "returns a SortedCollection" ^(self systemCategories gather: [:cat | (SystemOrganization listAtCategoryNamed: cat) collect: [:className | Smalltalk at: className]]) + sortBy: [:a :b | a className <= b className] - asSortedCollection: [:a :b | a className <= b className] ! Item was changed: ----- Method: PackageInfo>>coreClassesAndSelectorsDo: (in category 'listing') ----- coreClassesAndSelectorsDo: aBlock + self classesAndMetaClasses do: [:class | self coreSelectorsForClass: class do: [ :sel | aBlock value: class value: sel ] ]! - self classesAndMetaClassesDo: [:class | self coreSelectorsForClass: class do: [ :sel | aBlock value: class value: sel ] ]! Item was changed: ----- Method: PackageOrganizer>>packageNamed:ifAbsent: (in category 'searching') ----- packageNamed: aString ifAbsent: errorBlock + "initialize all cached values before using" + ^ (packages at: aString ifAbsent: errorBlock) initialize! - ^ packages at: aString ifAbsent: errorBlock! Item was changed: ----- Method: PackageInfo>>classesAndMetaClasses (in category 'listing') ----- classesAndMetaClasses + + ^ classesAndMetaClasses ifNil: [ + + classesAndMetaClasses := self classes. + classesAndMetaClasses copy do: [:c | classesAndMetaClasses add: c classSide] + ].! - | baseClasses | - baseClasses := self classes. - ^baseClasses , (baseClasses collect: [:c | c classSide])! Item was changed: ----- Method: PackageInfo>>externalClasses (in category 'dependencies') ----- externalClasses | myClasses | + myClasses := self classesAndMetaClasses asSet. - myClasses := self classesAndMetaClasses. ^ Array streamContents: [:s | ProtoObject withAllSubclassesDo: [:class | (myClasses includes: class) ifFalse: [s nextPut: class]]]! Item was removed: - ----- Method: PackageInfo class>>named: (in category 'packages access') ----- - named: aString - - ^ PackageOrganizer default packageNamed: aString ifAbsent: [(self newForName: aString) register]! Item was removed: - ----- Method: PackageInfo class>>classResponsibleForName: (in category 'class selection') ----- - classResponsibleForName: aString - - PackageInfo allSubclassesDo: [ :class | - (class isResponsibleForName: aString) ifTrue: [ ^ class ]. - ]. - - ^ PackageInfo! Item was removed: - ----- Method: PackageServices class>>register: (in category 'as yet unclassified') ----- - register: aClass - ServiceClasses add: aClass! Item was removed: - ----- Method: PackageOrganizer class>>forcefullyClearCache (in category 'as yet unclassified') ----- - forcefullyClearCache - "Clear out the cache dangerously. Forgets any preambles that have been defined" - default := nil! Item was removed: - ----- Method: PackageServices class>>unregister: (in category 'as yet unclassified') ----- - unregister: aClass - ServiceClasses remove: aClass! Item was removed: - ----- Method: PackageInfoTests class>>testCategoryMatches (in category 'as yet unclassified') ----- - testCategoryMatches - - ^ #('*-Tests-*' '*-Tests') - ! Item was removed: - ----- Method: PackageList class>>open (in category 'as yet unclassified') ----- - open - ^ self new openInWorld! Item was removed: - ----- Method: PackageOrganizer class>>new (in category 'as yet unclassified') ----- - new - ^ self basicNew initialize! Item was removed: - ----- Method: PackageInfoImpl class>>testCategoryMatches (in category 'as yet unclassified') ----- - testCategoryMatches - - ^ PackageInfoTests testCategoryMatches! Item was removed: - ----- Method: PackageInfo class>>registerPackageName: (in category 'packages access') ----- - registerPackageName: aString - ^ PackageOrganizer default registerPackageNamed: aString! Item was removed: - ----- Method: PackageInfo class>>newForName: (in category 'private') ----- - newForName: aString - ^ (self classResponsibleForName: aString) basicNew - packageName: aString; - initialize; - yourself! Item was removed: - ----- Method: PackageServices class>>initialize (in category 'as yet unclassified') ----- - initialize - ServiceClasses := Set new! Item was removed: - ----- Method: PackageOrganizer class>>cleanUp (in category 'as yet unclassified') ----- - cleanUp - - self default packageInfos do: [ :pi | - - | resp | - - resp := PackageInfo classResponsibleForName: pi packageName. - - (((resp = PackageInfo) not and: [ pi class ~= resp ]) or: [ pi class isObsolete ]) - ifTrue: [ - PackageOrganizer default unregisterPackageNamed: pi packageName. - ]. - ].! Item was removed: - ----- Method: PackageOrganizer class>>default (in category 'as yet unclassified') ----- - default - ^ default ifNil: [default := self new]! Item was removed: - ----- Method: PackageInfoKernel class>>isResponsibleForName: (in category 'as yet unclassified') ----- - isResponsibleForName: aString - - ^ aString endsWith: '.kernel'! Item was removed: - ----- Method: PackageServices class>>allServices (in category 'as yet unclassified') ----- - allServices - ^ ServiceClasses gather: [:ea | ea services]! Item was removed: - ----- Method: PackageInfo class>>registerPackage: (in category 'as yet unclassified') ----- - registerPackage: aString - "for compatibility with old fileOuts" - ^ Smalltalk at: #FilePackageManager ifPresent: [:p | p registerPackage: aString]! Item was removed: - ----- Method: PackageList class>>initialize (in category 'as yet unclassified') ----- - initialize - TheWorldMenu registerOpenCommand: {'Package List'. {self. #open}}! Item was removed: - ----- Method: PackageInfoTests class>>isResponsibleForName: (in category 'as yet unclassified') ----- - isResponsibleForName: aString - - ^ aString endsWith: '.test'! Item was removed: - ----- Method: PackageInfo>>classesAndMetaClassesDo: (in category 'listing') ----- - classesAndMetaClassesDo: aBlock - - "classes and metaClasses orders the classes (sorted) first, - here the order is class followed by Metaclass" - - self classesDo: [ :ea | - - aBlock value: ea. - aBlock value: ea classSide - ]. - ! Item was removed: - ----- Method: PackageInfo class>>allPackages (in category 'packages access') ----- - allPackages - ^PackageOrganizer default packages! Item was removed: - ----- Method: PackageInfoImpl class>>isResponsibleForName: (in category 'as yet unclassified') ----- - isResponsibleForName: aString - - ^ aString endsWith: '.impl'! Item was removed: - ----- Method: PackageInfo class>>isResponsibleForName: (in category 'class selection') ----- - isResponsibleForName: aString - - ^ false!

1 0

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

04 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.123.mcz ==================== Summary ==================== Name: SystemEditor-mtf.123 Author: mtf Time: 3 October 2008, 5:01:12 pm UUID: badc72c7-0ff5-4400-873d-e879cc4099b3 Ancestors: SystemEditor-mtf.122 3.8 compatability fix =============== Diff against SystemEditor-mtf.122 =============== Item was changed: ----- Method: MethodEditor>>compileFor: (in category 'building') ----- compileFor: aClassEditor [ | node method | node := aClassEditor compilerClass new compile: source in: aClassEditor product notifying: requestor ifFail: nil. node encoder requestor: self. method := node generate: #(0 0 0 0). + (method respondsTo: #selector:) "set selector on 3.9 and above" + ifTrue: [method selector: node selector]. - method selector: node selector. ^ method ] on: SyntaxErrorNotification do: [:ex | "In 3.10, the class category needs to be set" ex instVarNamed: #category put: aClassEditor category. "Let the user install the fixed code into the system" ex outer. "Now fetch and use that code instead" source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil]. ^ aClassEditor product compiledMethodAt: self selector ]!

1 0

Monticello Public: PackageInfo-Base-kph.54.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Oct '08

04 Oct '08

A new version of PackageInfo-Base was added to project Monticello Public: http://www.squeaksource.com/mc/PackageInfo-Base-kph.54.mcz ==================== Summary ==================== Name: PackageInfo-Base-kph.54 Author: kph Time: 3 October 2008, 11:23:10 pm UUID: 895fc473-a8eb-46c3-9d63-7cb9ff848806 Ancestors: PackageInfo-Base-cds.53 refactor to avoid creating as many intermediate collections =============== Diff against PackageInfo-Base-cds.53 =============== Item was added: + ----- Method: PackageInfo>>coreSelectorsForClass:do: (in category 'iterator versions') ----- + coreSelectorsForClass: aClass do: aBlock + + | foreign | + + foreign := (self foreignExtensionSelectorsForClass: aClass) + add: #DoIt; + add: #DoItIn: ; + yourself. + + (self allSelectorsForClass: aClass do: [ :sel | (foreign includes: sel) ifFalse:[ aBlock value: sel ] ]) + ! Item was added: + ----- Method: PackageInfo>>classesDo: (in category 'iterator versions') ----- + classesDo: aBlock + + ^ self loadedClasses do: aBlock! Item was added: + ----- Method: PackageInfo>>foreignExtensionSelectorsForClass: (in category 'iterator versions') ----- + foreignExtensionSelectorsForClass: aClass + + "return a set to speed tests for inclusion" + + | set | + + set := IdentitySet new. + + (self foreignExtensionCategoriesForClass: aClass) + do: [:cat | set addAll: (aClass organization listAtCategoryNamed: cat) ]. + + ^ set! Item was changed: ----- Method: PackageInfo>>classes (in category 'listing') ----- classes + ^ self loadedClasses asOrderedCollection! - ^ self loadedClasses! Item was added: + ----- Method: PackageInfo>>allSelectorsForClass:do: (in category 'iterator versions') ----- + allSelectorsForClass: aClass do: aBlock + + "iterator version of #allMethodsForClass:" + + aClass basicLocalSelectors isNil + ifTrue: [aClass selectorsDo: aBlock ] + ifFalse: [aClass basicLocalSelectors do: aBlock ]. + ! Item was changed: + ----- Method: PackageInfo>>coreMethods (in category 'enumerating') ----- - ----- Method: PackageInfo>>coreMethods (in category 'listing') ----- coreMethods + + | methods | + + methods := OrderedCollection new. + + self coreClassesAndSelectorsDo: [ :c :s | methods add: (self referenceForMethod: s ofClass: c) ]. + + ^ methods + ! - ^ self classesAndMetaClasses gather: [:class | self coreMethodsForClass: class]! Item was changed: + ----- Method: PackageInfo>>loadedClasses (in category 'iterator versions') ----- - ----- Method: PackageInfo>>loadedClasses (in category 'listing') ----- loadedClasses + + "returns a SortedCollection" + ^(self systemCategories gather: [:cat | (SystemOrganization listAtCategoryNamed: cat) collect: [:className | Smalltalk at: className]]) + asSortedCollection: [:a :b | a className <= b className] + + ! - sortBy: [:a :b | a className <= b className]! Item was added: + ----- Method: PackageInfo>>coreClassesAndSelectorsDo: (in category 'listing') ----- + coreClassesAndSelectorsDo: aBlock + self classesAndMetaClassesDo: [:class | self coreSelectorsForClass: class do: [ :sel | aBlock value: class value: sel ] ]! Item was changed: ----- Method: PackageInfo>>methods (in category 'listing') ----- methods + ^ self coreMethods addAll: self extensionMethods; yourself + ! - ^ (self extensionMethods, self coreMethods) - select: [:method | method isValid and: [(#(DoIt DoItIn:) includes: method methodSymbol) not]]! Item was added: + ----- Method: PackageInfo>>classesAndMetaClassesDo: (in category 'listing') ----- + classesAndMetaClassesDo: aBlock + + "classes and metaClasses orders the classes (sorted) first, + here the order is class followed by Metaclass" + + self classesDo: [ :ea | + + aBlock value: ea. + aBlock value: ea classSide + ]. + ! Item was changed: + ----- Method: PackageInfo>>externalRefsSelect:thenCollect: (in category 'comparing') ----- - ----- Method: PackageInfo>>externalRefsSelect:thenCollect: (in category 'dependencies') ----- externalRefsSelect: selBlock thenCollect: colBlock + | pkgMethods dependents refs extMethods otherClasses classNames | - | pkgMethods dependents refs extMethods otherClasses otherMethods classNames | classNames := self classes collect: [:c | c name]. extMethods := self extensionMethods collect: [:mr | mr methodSymbol]. otherClasses := self externalClasses difference: self externalSubclasses. + + pkgMethods := self methods. + otherClasses do: [ :cl | self coreSelectorsForClass: cl do: [ :sel | pkgMethods remove: (self referenceForMethod: sel ofClass: cl) ifAbsent: [] ]]. + - otherMethods := otherClasses gather: [:c | c selectors]. - pkgMethods := self methods asSet collect: [:mr | mr methodSymbol]. - pkgMethods removeAllFoundIn: otherMethods. - dependents := Set new. otherClasses do: [:c | c selectorsAndMethodsDo: [:sel :compiled | (extMethods includes: sel) ifFalse: [refs := compiled literals select: selBlock thenCollect: colBlock. refs do: [:ea | + ((classNames includes: ea) or: [pkgMethods includes: (self referenceForMethod: sel ofClass: c) ]) - ((classNames includes: ea) or: [pkgMethods includes: ea]) ifTrue: [dependents add: (self referenceForMethod: sel ofClass: c) -> ea]]]]]. + ^ dependents ! - ^ dependents! Item was removed: - ----- Method: PackageInfo>>selectors (in category 'listing') ----- - selectors - ^ self methods collect: [:ea | ea methodSymbol]! Item was removed: - ----- Method: PackageInfo>>removeMethod: (in category 'modifying') ----- - removeMethod: aMethodReference!

1 0

Tasks: Tasks-Common-kph.16.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 02 Oct '08

02 Oct '08

A new version of Tasks-Common was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Common-kph.16.mcz ==================== Summary ==================== Name: Tasks-Common-kph.16 Author: kph Time: 2 October 2008, 4:00:05 pm UUID: 0c713cc2-cd9f-4065-a2e7-6fcac1ea3eec Ancestors: Tasks-Common-kph.15 added missing methods fix: fixIfUnstable: fixOneDay: =============== Diff against Tasks-Common-kph.14 =============== Item was changed: ----- Method: TasksRelease class>>string: (in category 'as yet unclassified') ----- string: aBugRef + - ^ self taskEnsureFix: aBugRef! Item was added: + ----- Method: TasksRelease class>>fixOneDay: (in category 'as yet unclassified') ----- + fixOneDay: ref + + ^ nil! Item was added: + ----- Method: TasksRelease class>>fixIfUnstable: (in category 'as yet unclassified') ----- + fixIfUnstable: ref + + ^ self isStable ifTrue: [ nil ] ifFalse: [ self taskEnsureFix: ref ].! Item was changed: SakeTask subclass: #TasksRelease + instanceVariableNames: 'isStable' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tasks-Common'! Item was changed: ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') ----- + taskEnsureFix: aFixString - taskEnsureFix: aFixNumberOrString | theBugPage theBugScript fields selector cat | + + ^ self define: [ :task | + - task action: [ "install the fix and record its details for posterity" + theBugPage := Installer mantis bug: aFixString. + theBugScript := Installer mantis bugScript: aFixString. - - theBugPage := Installer mantis bug: aFixNumberOrString. - theBugScript := Installer mantis bugScript: aFixNumberOrString. fields := self mantisFieldsFrom: theBugPage. selector := fields at: 'Summary'. selector := ('m', (selector copyFrom: 3 to: (selector size min: 40))) asLegalSelector asSymbol. cat := (fields at: 'Status') ,'-' ,(fields at: 'Resolution'). self at: selector category: cat putMethod: theBugScript doc: theBugPage. + Installer mantis ensureFix: aFixString. - Installer mantis ensureFix: aFixNumberOrString. ]. ]! Item was added: + ----- Method: TasksRelease class>>fix: (in category 'as yet unclassified') ----- + fix: ref + "abbrev" + ^ self taskEnsureFix: ref! Item was added: + ----- Method: TasksRelease class>>isStable (in category 'as yet unclassified') ----- + isStable + + self withAllSuperclassesDo: [ :ea | (ea name endsWith: 'Unstable') ifTrue: [ ^ true ] ]. + + ^ false + + ! Item was removed: - ----- Method: TasksRelease class>>fix (in category 'as yet unclassified') ----- - fix - - ^ Smalltalk at: ('TasksFix', (SystemVersion current majorMinorVersion copyWithout: $.)) asSymbol!

1 0

Installer: Installer-Core-kph.232.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 02 Oct '08

02 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.232.mcz ==================== Summary ==================== Name: Installer-Core-kph.232 Author: kph Time: 2 October 2008, 1:44:35 pm UUID: 86105908-96e5-4490-bcea-91a1f4fe13c4 Ancestors: Installer-Core-kph.231 fix =============== Diff against Installer-Core-kph.231 =============== Item was changed: ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- webFindUrlToDownload + | delay retry | - | delay | delay := 0. self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). + [ retry := false. pageDataStream := self urlGet: potentialUrl ] - [ pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ (pageDataStream notNil and: [ pageDataStream size > 0 ]) ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') + ifTrue: [ retry := true ] ifFalse: [ pageDataStream reset. ^ potentialUrl ] ]. (Delay forSeconds: (delay := delay + 5)) wait. + retry ]]. - true]]. ^nil !

1 0

Installer: Installer-Core-kph.231.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 02 Oct '08

02 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.231.mcz ==================== Summary ==================== Name: Installer-Core-kph.231 Author: kph Time: 2 October 2008, 3:13:31 am UUID: c05966fb-5bd9-42fa-b0a3-b411686da891 Ancestors: Installer-Core-stephane.ducasse.230 an ever increasing delay when pbwiki complains =============== Diff against Installer-Core-stephane.ducasse.230 =============== Item was changed: ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- webFindUrlToDownload + | delay | + delay := 0. self class webSearchPath do: [ :pathSpec | | potentialUrl readPathSpec | readPathSpec := pathSpec value readStream. potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). [ pageDataStream := self urlGet: potentialUrl ] doWhileTrue: [ (pageDataStream notNil and: [ pageDataStream size > 0 ]) ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') ifFalse: [ pageDataStream reset. ^ potentialUrl ] ]. + (Delay forSeconds: (delay := delay + 5)) wait. - (Delay forSeconds: 2) wait. true]]. ^nil !

1 0

Tasks: Tasks-Squeak310-kph.12.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 02 Oct '08

02 Oct '08

A new version of Tasks-Squeak310 was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Squeak310-kph.12.mcz ==================== Summary ==================== Name: Tasks-Squeak310-kph.12 Author: kph Time: 2 October 2008, 1:26:29 am UUID: c704d722-9b6a-45d4-bc30-74975ae995b4 Ancestors: Tasks-Squeak310-kph.11 latest organising bug fixes =============== Diff against Tasks-Squeak310-kph.10 =============== Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfUIGraphicalOffByOneReports (in category 'as yet unclassified') ----- + fixesMotherOfUIGraphicalOffByOneReports + "Mother Page: http://bugs.squeak.org/view.php?id=6511 " + + ^ self dependingOn: { }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfMethodFinderIssues (in category 'as yet unclassified') ----- + fixesMotherOfMethodFinderIssues + + "Mother Page: http://bugs.squeak.org/view.php?id=7110 " + + ^ self dependingOn: { }! Item was changed: ----- Method: ReleaseAfterSqueak310 class>>taskBugFixes (in category 'as yet unclassified') ----- taskBugFixes ^ self define: [ :task | + task dependsOn: { - - task dependsOn: { '6466 LazyListMorph-listChanged'. + self fixesMotherOfKernel. + self fixesMotherOfNetwork. + self fixesMotherOfDocumentation. + self fixesFromCroquet. + self fixesNicolasCellier. + self fixesMotherOfUIMorphicCleanUp. + self fixesMasashiUmezawa. + self fixesOthers. + + } ]! - '474 Millisecond clock'. - '6805 Seconds as fraction'. - }. - ].! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMasashiUmezawa (in category 'as yet unclassified') ----- + fixesMasashiUmezawa + "Masashi Umezawa umejava(a)mars.dti.ne.jp" + + "4 so far" + ^ self dependingOn: { + + " http://bugs.squeak.org/view.php?id=6894 " + self fixIfUnstable: '6894 StartUpList order is broken due to the Delay patch'. + + " http://bugs.squeak.org/view.php?id=6893 " + self fixIfUnstable: '6893 "Do it" log cannot be parsed if it includes leading spaces and multybyte string'. + + " http://bugs.squeak.org/view.php?id=6892 " + self fixIfUnstable: '6892 Choosing default browser menu is not translated'. + + " http://bugs.squeak.org/view.php?id=6861 " + self fixIfUnstable: '6861: Services menus/buttons are not translated'. + + } ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfKernel (in category 'as yet unclassified') ----- + fixesMotherOfKernel + + ^ self dependingOn: { + + self fixesKernelChronology. + + }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfRoundoffAndTruncationErrors (in category 'as yet unclassified') ----- + fixesMotherOfRoundoffAndTruncationErrors. + + "Mother Page: http://bugs.squeak.org/view.php?id=7152 " + + ^ self dependingOn: { }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesFromCroquet (in category 'as yet unclassified') ----- + fixesFromCroquet + + "https://lists.duke.edu/sympa/arc/croquet-dev/2007-05/msg00035.html" + + ^ self dependingOn: {}! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfUIAnnoyances (in category 'as yet unclassified') ----- + fixesMotherOfUIAnnoyances + "Mother Page: http://bugs.squeak.org/view.php?id=6635 " + + ^ self dependingOn: { + + self fixIfUnstable: '7181 improve HandMorph>>shadowForm'. + self fixesMotherOfUITargetingFixes. + } + + ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfIntervalIssues (in category 'as yet unclassified') ----- + fixesMotherOfIntervalIssues + + "Mother Page: http://bugs.squeak.org/view.php?id=7002 " + + ^ self dependingOn: { }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesKernelClasses (in category 'as yet unclassified') ----- + fixesKernelClasses + + ^ self dependingOn: { + + self fix: '7156 Behavior-initialize sends superclass: which can cause VM crash'. + + }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfUIMorphicCleanUp (in category 'as yet unclassified') ----- + fixesMotherOfUIMorphicCleanUp + "Mother Page: http://bugs.squeak.org/view.php?id=6567 " + + ^ self dependingOn: { + self fixesMotherOfUIMorphicWitler. + self fixesMotherOfUIAnnoyances. + self fixesMotherOfUIGraphicalOffByOneReports. + self fixesMotherOfUIBalloonHelpIssues. + } ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesKernelStreams (in category 'as yet unclassified') ----- + fixesKernelStreams + + ^ self dependingOn: { + + self fixOneDay: '0007167: ReadWriteStream opened with on: aCollection always has readLimit 0'. + + }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesOthers (in category 'as yet unclassified') ----- + fixesOthers + ^ self dependingOn: { + + "Matthew Fulmer" + + " http://bugs.squeak.org/view.php?id=1780 " + '1780: Stay up menus have a confusing and dangerous behavior when obscured.'. + "kph: not sure this works as intended, menus cease to work at all if partially obscured" + + " http://bugs.squeak.org/view.php?id=7059 " + '7059 In the Object Explorer, the menu item explore pointers is broken'. + + "Tom Phoenix" + + " http://bugs.squeak.org/view.php?id=6870 " + '6870 MessageCatcher considered harmful'. + + "proposer Andreas" + + " http://bugs.squeak.org/view.php?id=6980 " + '6980 recreate special objects array'. + + "proposer laza" + + " http://bugs.squeak.org/view.php?id=6834 " + '6834 Delay class-#timeoutSemaphore:afterMSecs: doesnt'. + + "proposer klaus" "this is already in kernel-extensions" + " http://bugs.squeak.org/view.php?id=6937 " + '6937 OrderedCollection-removeAll'. + + "Keith Hodges" + " http://bugs.squeak.org/view.php?id=6868 " + '6868: System Navigation-#obsoleteBehaviours chokes on ProtoObjects'. + + " http://bugs.squeak.org/view.php?id=6869 " + '6869: fixObsoleteReferences redundancy'. + + " http://bugs.squeak.org/view.php?id=7177 " + '7177 removeAll fails for Dictionaries'. + + "proposer: Damien Cassou" + " http://bugs.squeak.org/view.php?id=6846 " + '6846 MenuMorphs can drop mouse focus'. + + "proposer: Zulq" + " http://bugs.squeak.org/view.php?id=6859 " + '6859: Integer-parseFromString:base:ifFail:'. + + "proposer: Göran Krampe" + " http://bugs.squeak.org/view.php?id=6843 " + '6843: Trivial fix in SMTPClient-#encodeString: exclude NULL chars'. + + "proposer: philb" + " http://bugs.squeak.org/view.php?id=7196 " + '7196 HTTPSocket User Agent hard-coded'. + + "proposer: keith" + " http://bugs.squeak.org/view.php?id=7199 " + '7199: Expose Socket timeout to ProtocolClients'. + } + ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfUITargetingFixes (in category 'as yet unclassified') ----- + fixesMotherOfUITargetingFixes + "Mother Page: http://bugs.squeak.org/view.php?id=6530 " + + ^ self dependingOn: { + + " http://bugs.squeak.org/view.php?id=6521 " + self fixIfUnstable: '6521: Target setting doesnt work for buttons and sliders'. + + } ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfUIBalloonHelpIssues (in category 'as yet unclassified') ----- + fixesMotherOfUIBalloonHelpIssues + + "Mother Page: http://bugs.squeak.org/view.php?id=6688 " + + ^ self dependingOn: { }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfRandomNumberGenerator (in category 'as yet unclassified') ----- + fixesMotherOfRandomNumberGenerator + "Mother Page: http://bugs.squeak.org/view.php?id=7192 " + + ^ self dependingOn: { }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfNetwork (in category 'as yet unclassified') ----- + fixesMotherOfNetwork + + ^ self dependingOn: { + + self fix: '7199 Expose Socket timeout to ProtocolClients'. + self fixIfUnstable: '7196 HTTPSocket User Agent hard-coded'. + } + + ! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfFontIssues (in category 'as yet unclassified') ----- + fixesMotherOfFontIssues + + "Mother Page: http://bugs.squeak.org/view.php?id=6570 " + + ^ self dependingOn: { + + self fixIfUnstable: '7071: Key values from Input Method are not converted correctly on new Unicode Windows VM'. + + }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfUIMorphicWitler (in category 'as yet unclassified') ----- + fixesMotherOfUIMorphicWitler + "Mother Page: http://bugs.squeak.org/view.php?id=6593 " + + ^self dependingOn: { }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesMotherOfDocumentation (in category 'fixes - documentation') ----- + fixesMotherOfDocumentation + + ^ self dependingOn: { + + '0007191: Add class comments to TParseNode and TMethod'. + + }! Item was added: + ----- Method: ReleaseAfterSqueak310 class>>fixesNicolasCellier (in category 'as yet unclassified') ----- + fixesNicolasCellier + "nicolas cellier (nice) ncellier(a)ifrance.com" + + "36 so far" + ^ 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=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>>fixesKernelChronology (in category 'as yet unclassified') ----- + fixesKernelChronology + + ^ self dependingOn: { + + '474 Millisecond clock'. + '6805 Seconds as fraction'. + + }! Item was removed: - ----- Method: ReleaseAfterSqueak310Unstable class>>taskBugFixesOthers (in category 'as yet unclassified') ----- - taskBugFixesOthers - ^ self define: [ :task | - task dependsOn: { - - "Matthew Fulmer" - - " http://bugs.squeak.org/view.php?id=1780 " - '1780: Stay up menus have a confusing and dangerous behavior when obscured.'. - "kph: not sure this works as intended, menus cease to work at all if partially obscured" - - " http://bugs.squeak.org/view.php?id=7059 " - '7059 In the Object Explorer, the menu item explore pointers is broken'. - - "Tom Phoenix" - - " http://bugs.squeak.org/view.php?id=6870 " - '6870 MessageCatcher considered harmful'. - - "proposer Andreas" - - " http://bugs.squeak.org/view.php?id=6980 " - '6980 recreate special objects array'. - - "proposer laza" - - " http://bugs.squeak.org/view.php?id=6834 " - '6834 Delay class-#timeoutSemaphore:afterMSecs: doesnt'. - - "proposer klaus" "this is already in kernel-extensions" - " http://bugs.squeak.org/view.php?id=6937 " - '6937 OrderedCollection-removeAll'. - - "Keith Hodges" - " http://bugs.squeak.org/view.php?id=6868 " - '6868: System Navigation-#obsoleteBehaviours chokes on ProtoObjects'. - - " http://bugs.squeak.org/view.php?id=6869 " - '6869: fixObsoleteReferences redundancy'. - - " http://bugs.squeak.org/view.php?id=7177 " - '7177 removeAll fails for Dictionaries'. - - "proposer: Damien Cassou" - " http://bugs.squeak.org/view.php?id=6846 " - '6846 MenuMorphs can drop mouse focus'. - - "proposer: Zulq" - " http://bugs.squeak.org/view.php?id=6859 " - '6859: Integer-parseFromString:base:ifFail:'. - - "proposer: Göran Krampe" - " http://bugs.squeak.org/view.php?id=6843 " - '6843: Trivial fix in SMTPClient-#encodeString: exclude NULL chars'. - - "proposer: philb" - " http://bugs.squeak.org/view.php?id=7196 " - '7196 HTTPSocket User Agent hard-coded'. - - "proposer: keith" - " http://bugs.squeak.org/view.php?id=7199 " - '7199: Expose Socket timeout to ProtocolClients'. - } ] - ! Item was removed: - ----- Method: ReleaseAfterSqueak310Unstable class>>taskBugFixesMasashiUmezawa (in category 'as yet unclassified') ----- - taskBugFixesMasashiUmezawa - "Masashi Umezawa umejava(a)mars.dti.ne.jp" - - "4 so far" - ^ self define: [ :task | - task dependsOn: { - - " http://bugs.squeak.org/view.php?id=6894 " - '6894 StartUpList order is broken due to the Delay patch'. - - " http://bugs.squeak.org/view.php?id=6893 " - '6893 "Do it" log cannot be parsed if it includes leading spaces and multybyte string'. - - " http://bugs.squeak.org/view.php?id=6892 " - '6892 Choosing default browser menu is not translated'. - - " http://bugs.squeak.org/view.php?id=6861 " - '6861: Services menus/buttons are not translated'. - - } ]! Item was removed: - ----- Method: ReleaseAfterSqueak310Unstable class>>taskBugFixesFromCroquet (in category 'as yet unclassified') ----- - taskBugFixesFromCroquet - - "https://lists.duke.edu/sympa/arc/croquet-dev/2007-05/msg00035.html" - - ^ self define: [ :task | - ]! Item was removed: - ----- Method: ReleaseAfterSqueak310Unstable class>>taskBugFixesNicolasCellier (in category 'as yet unclassified') ----- - taskBugFixesNicolasCellier - "nicolas cellier (nice) ncellier(a)ifrance.com" - - "36 so far" - ^ self define: [ :task | - task dependsOn: { - - " 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 removed: - ----- Method: ReleaseAfterSqueak310Unstable class>>taskBugFixes (in category 'as yet unclassified') ----- - taskBugFixes - - ^ self define: [ :task | - task dependsOn: { - super taskBugFixes. - self taskBugFixesFromCroquet. - self taskBugFixesNicolasCellier. - self taskBugFixesMasashiUmezawa. - self taskBugFixesOthers. - - } ]!

1 0

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

01 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.122.mcz ==================== Summary ==================== Name: SystemEditor-mtf.122 Author: mtf Time: 1 October 2008, 10:07:51 am UUID: cc361021-990a-4f0d-9b76-f4d39c3b36f2 Ancestors: SystemEditor-mtf.121 fixed a bug in syntax error dialogs in 3.10 =============== Diff against SystemEditor-mtf.121 =============== Item was changed: ----- Method: MethodEditor>>compileFor: (in category 'building') ----- compileFor: aClassEditor [ | node method | node := aClassEditor compilerClass new compile: source in: aClassEditor product notifying: requestor ifFail: nil. node encoder requestor: self. method := node generate: #(0 0 0 0). method selector: node selector. ^ method ] on: SyntaxErrorNotification do: [:ex | + "In 3.10, the class category needs to be set" + ex instVarNamed: #category put: aClassEditor category. "Let the user install the fixed code into the system" + ex outer. - ex defaultAction. "Now fetch and use that code instead" source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil]. ^ aClassEditor product compiledMethodAt: self selector ]!

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