Packages February 2020

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Trunk: Tests-mt.425.mcz
by commits＠source.squeak.org 25 Feb '20

25 Feb '20

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.425.mcz ==================== Summary ==================== Name: Tests-mt.425 Author: mt Time: 25 February 2020, 9:35:24.814786 am UUID: e02eff8e-8fa6-3d4f-885e-bbe3dfd1dea0 Ancestors: Tests-mt.424 We removed a dependency. Yay! :-) =============== Diff against Tests-mt.424 =============== Item was changed: ----- Method: PackageDependencyTest>>testCollections (in category 'tests') ----- testCollections self testPackage: #Collections dependsExactlyOn: #( #'Chronology-Core' Compiler Kernel Files Graphics Multilingual #'ToolBuilder-Kernel' - Tools ).!

1 0

The Trunk: SystemReporter-mt.42.mcz
by commits＠source.squeak.org 24 Feb '20

24 Feb '20

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-mt.42.mcz ==================== Summary ==================== Name: SystemReporter-mt.42 Author: mt Time: 24 February 2020, 3:20:21.174903 pm UUID: bb593140-0aec-7b4d-a7c2-079a794d6db1 Ancestors: SystemReporter-eem.40 Makes "Image Preferences" work again in the system reporter tool by ignoring Deprecation warnings. This is only a quickfix for the release. We might want to think about whether to mark deprecated preferences visually or maybe even skip them in the report. =============== Diff against SystemReporter-eem.40 =============== Item was changed: ----- Method: SystemReporter>>reportPreferences: (in category 'reporting') ----- reportPreferences: aStream | booleanPrefs prefs valuePrefs attribute falseTA trueTA | prefs := Preferences dictionaryOfPreferences. booleanPrefs := prefs select: [:each | each type = #Boolean]. valuePrefs := prefs select: [:each | each type = #Number or: [each type = #String]]. trueTA := TextColor black. falseTA := TextColor gray. booleanPrefs := booleanPrefs sorted: [:a :b | a name <= b name]. self header: 'Boolean Preferences' on: aStream. + booleanPrefs do: [:each | | prefValue | + [prefValue := each preferenceValue] + on: Deprecation do: [:ex | ex resume]. + attribute := prefValue ifTrue: [trueTA] ifFalse: [falseTA]. - booleanPrefs do: [:each | - attribute := each preferenceValue ifTrue: [trueTA] ifFalse: [falseTA]. aStream withAttribute: attribute do: [ aStream nextPutAll: each name; tab; + nextPutAll: prefValue printString; - nextPutAll: each preferenceValue printString; cr]]. aStream cr. self header: 'Value Preferences' on: aStream. + valuePrefs do: [:each | | prefValue | + [prefValue := each preferenceValue] + on: Deprecation do: [:ex | ex resume]. - valuePrefs do: [:each | aStream nextPutAll: each name; tab; + nextPutAll: prefValue printString; - nextPutAll: each preferenceValue printString; cr]. !

1 0

The Trunk: MorphicTests-mt.59.mcz
by commits＠source.squeak.org 24 Feb '20

24 Feb '20

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.59.mcz ==================== Summary ==================== Name: MorphicTests-mt.59 Author: mt Time: 24 February 2020, 2:03:14.962031 pm UUID: a1efbe2f-4b54-e943-a8e3-ec53ce984fc8 Ancestors: MorphicTests-mt.58 Adds a test for #containsPoint: in PolygonMorph. See the discussion on the mailing list: http://forum.world.st/Bug-in-PolygonMorph-gt-gt-filledForm-td5112218.html =============== Diff against MorphicTests-mt.58 =============== Item was changed: + ----- Method: PolygonMorphTest>>testBoundsBug1035 (in category 'tests') ----- - ----- Method: PolygonMorphTest>>testBoundsBug1035 (in category 'bounds') ----- testBoundsBug1035 "This is a non regression test for http://bugs.squeak.org/view.php?id=1035 PolygonMorph used to position badly when container bounds were growing" | submorph aMorph | submorph := (PolygonMorph vertices: {0@0. 100@0. 0@100} color: Color red borderWidth: 0 borderColor: Color transparent) color: Color red. submorph bounds. "0@0 corner: 100@100" aMorph := Morph new color: Color blue; layoutPolicy: ProportionalLayout new; addMorph: submorph fullFrame: (LayoutFrame fractions: (0.1 @ 0.1 corner: 0.9 @ 0.9)). submorph bounds. "0@0 corner: 100@100 NOT YET UPDATED" aMorph fullBounds. "0@0 corner: 50@40. CORRECT" submorph bounds. "5@4 corner: 45@36 NOW UPDATED OK" aMorph extent: 100@100. submorph bounds. "5@4 corner: 45@36 NOT YET UPDATED" aMorph fullBounds. "-10@-14 corner: 100@100 WRONG" submorph bounds. "-10@-14 corner: 70@66 NOW WRONG POSITION (BUT RIGHT EXTENT)" self assert: aMorph fullBounds = (0 @ 0 extent: 100@100). self assert: submorph bounds = (10 @ 10 corner: 90@90). ! Item was added: + ----- Method: PolygonMorphTest>>testContainsPoint (in category 'tests') ----- + testContainsPoint + "See http://forum.world.st/Bug-in-PolygonMorph-gt-gt-filledForm-td5112218.html" + + | polygon offset | + offset := 100@100. + polygon := PolygonMorph new + borderWidth: 0; + setVertices: {0@0. 200@0. 200@200. 0@ 200} + offset; + yourself. + + 0 to: polygon width - 1 do: [:x | + 0 to: polygon height - 1 do: [:y | + self assert: (polygon containsPoint: (x@y) + offset)]].!

1 0

The Trunk: SUnit-mt.121.mcz
by commits＠source.squeak.org 24 Feb '20

24 Feb '20

Marcel Taeumel uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-mt.121.mcz ==================== Summary ==================== Name: SUnit-mt.121 Author: mt Time: 24 February 2020, 1:51:00.898031 pm UUID: 3bdfea7b-5f14-9d4a-9fd5-6caae4be5ed1 Ancestors: SUnit-mt.120 Clean up the test history during release building (and aggressive clean-up in general). =============== Diff against SUnit-mt.120 =============== Item was added: + ----- Method: TestCase class>>cleanUp: (in category 'initialize-release') ----- + cleanUp: aggressive + + aggressive ifTrue: [ + self withAllSubclassesDo: [:testCaseClass | + testCaseClass resetHistory]].!

1 0

The Trunk: SUnitGUI-mt.79.mcz
by commits＠source.squeak.org 24 Feb '20

24 Feb '20

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.79.mcz ==================== Summary ==================== Name: SUnitGUI-mt.79 Author: mt Time: 24 February 2020, 1:47:43.366031 pm UUID: d06b4c53-dec3-7b42-b5f3-6966b2b1b230 Ancestors: SUnitGUI-cmm.78 Considering the more descriptive labels in the test runner, fixes a bug that shows too many tests in a case's text label. We don't have *that many* tests. :-) (We might want to introduce #actualTestSelectors or something in the future.) =============== Diff against SUnitGUI-cmm.78 =============== Item was changed: ----- Method: TestRunner>>classList (in category 'accessing-classes') ----- classList | helper | classes isEmpty ifTrue: [ ^ classes ]. helper := Browser new. ^ helper flattenHierarchyTree: (helper createHierarchyTreeOf: classes) on: OrderedCollection new indent: '' by: ' ' format: [:class | class isAbstract ifTrue: [class name asText addAttribute: TextEmphasis italic; yourself] ifFalse: [ (class history notNil and: [class history includesKey: #duration]) + ifFalse: ['{1} ({2} tests)' format: { + class name. + (class shouldInheritSelectors + ifTrue: [class allTestSelectors] + ifFalse: [class testSelectors]) size}] - ifFalse: ['{1} ({2} tests)' format: {class name. class allTestSelectors size}] ifTrue: [ | duration | duration := (class history at: #duration). '{1} ({2} tests, {3})' format: { class name. + (class shouldInheritSelectors + ifTrue: [class allTestSelectors] + ifFalse: [class testSelectors]) size. - class allTestSelectors size. duration = 0 ifTrue: ['< 1 ms'] ifFalse: [ duration < 1000 ifTrue: [duration asString, ' ms'] ifFalse: [ (duration / 1000) rounded asString, ' secs']]}]]] !

1 0

The Trunk: Kernel-mt.1304.mcz
by commits＠source.squeak.org 21 Feb '20

21 Feb '20

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1304.mcz ==================== Summary ==================== Name: Kernel-mt.1304 Author: mt Time: 21 February 2020, 5:11:43.939367 pm UUID: 537e696d-35de-d44e-9f51-8c11ef2dd73c Ancestors: Kernel-mt.1303 Fix that debugger output of the ObjectTracer. =============== Diff against Kernel-mt.1303 =============== Item was changed: ----- Method: ObjectTracer>>doesNotUnderstand: (in category 'very few messages') ----- doesNotUnderstand: aMessage "Present a debugger before proceeding to re-send the message" "All external messages (those not caused by the re-send) get trapped here" + Processor activeProcess + debugWithTitle: 'Object Tracer (', self identityHash, ')' + full: false + contents: ('On an instance of\ {1} ({2})\\About to perform\ {3}\\Using the following arguments\ {4}' translated withCRs + format: { + thisContext objectClass: tracedObject. + tracedObject identityHash. + aMessage selector storeString. + aMessage arguments printString}). + - Warning signal: ('About to perform: {1}' translated format: {aMessage selector storeString}). ^ aMessage sendTo: tracedObject!

1 0

The Trunk: ToolBuilder-Morphic-ct.253.mcz
by commits＠source.squeak.org 21 Feb '20

21 Feb '20

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-ct.253.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ct.253 Author: ct Time: 24 January 2020, 9:27:31.738262 pm UUID: e0810ef0-e633-2047-bdda-a69a7c14f9a9 Ancestors: ToolBuilder-Morphic-mt.251 Fix a regression in ListMultipleChooser that led to missing invalidations of the PluggableListMorphOfMany. Probably introduced by the recent refactoring of list morphs. To reproduce, run the following snippet and select multiple items (but don't move the cursor after clicking): Project uiManager chooseMultipleFrom: #(foo bar) Only the first selection event triggered a #change before. =============== Diff against ToolBuilder-Morphic-mt.251 =============== Item was changed: ----- Method: ListMultipleChooser>>selectionAt:put: (in category 'accessing') ----- selectionAt: index put: boolean self selection at: index put: boolean. + self changed: #selectionAt:! - self changed: #selectedIndex!

1 0

The Trunk: ToolBuilder-Kernel-ct.136.mcz
by commits＠source.squeak.org 21 Feb '20

21 Feb '20

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-ct.136.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-ct.136 Author: ct Time: 24 January 2020, 6:38:19.896574 pm UUID: fcf254ff-5458-1c42-9499-d460f46e1ec8 Ancestors: ToolBuilder-Kernel-mt.134 Fixes a defect in UIManager's fallback implementation of #chooseFromOrAddTo:lines:title:: If we prepend an item to aList, we need to increment linesArray. =============== Diff against ToolBuilder-Kernel-mt.134 =============== Item was changed: ----- Method: UIManager>>chooseFromOrAddTo:lines:title: (in category 'ui requests') ----- chooseFromOrAddTo: aList lines: linesArray title: aString + | index | + index := self + chooseFrom: {'new...'}, aList + lines: linesArray + 1 + title: aString. - index := self chooseFrom: {'new...'}, aList lines: linesArray title: aString. index = 0 ifTrue: [^ nil]. - index = 1 ifTrue: [^ self request: 'Please type new value' initialAnswer: '']. - ^ aList at: index - 1!

1 0

The Trunk: System-ct.1132.mcz
by commits＠source.squeak.org 21 Feb '20

21 Feb '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1132.mcz ==================== Summary ==================== Name: System-ct.1132 Author: ct Time: 18 January 2020, 3:57:40.447813 pm UUID: 252e88e7-b8dc-7048-9fb7-78bf5dc98138 Ancestors: System-cmm.1129 Fix & refactor ChangeSet >> #scanVersionsOf:class:meta:category:selector: Bug was: (Context changeRecordsAt: #methodClass) collect: #category as: Array Output before: #(accessing accessing accessing) Output after: #('accessing' 'debugger access' 'debugger access') =============== Diff against System-cmm.1129 =============== Item was changed: ----- Method: ChangeSet class>>scanVersionsOf:class:meta:category:selector: (in category 'scanning') ----- + scanVersionsOf: method class: class meta: meta category: category selector: selector + + | changeList cat position sourceFilesCopy file | - scanVersionsOf: method class: class meta: meta category: cat selector: selector - | position prevPos prevFileIndex preamble tokens sourceFilesCopy stamp changeList file | changeList := OrderedCollection new. + cat := category ifNil: ['']. position := method filePosition. + sourceFilesCopy := SourceFiles collect: [:x | + x ifNotNil: [x readOnlyCopy]]. + method fileIndex isZero ifTrue: [^ nil]. - sourceFilesCopy := SourceFiles collect:[:x | x ifNotNil:[x readOnlyCopy]]. - method fileIndex = 0 ifTrue: [^ nil]. file := sourceFilesCopy at: method fileIndex. + [position notNil and: [file notNil]] whileTrue: [ + | preamble prevFileIndex prevPos stamp tokens | - [position notNil & file notNil] whileTrue:[ preamble := method getPreambleFrom: file at: (0 max: position - 3). + "Preamble is likely a linked method preamble, if we're in a changes file (not the sources file). + Try to parse it for prior source position and file index." - "Preamble is likely a linked method preamble, if we're in - a changes file (not the sources file). Try to parse it - for prior source position and file index" prevPos := nil. stamp := ''. + tokens := (preamble findString: 'methodsFor:' startingAt: 1) > 0 + ifTrue: [[Scanner new scanTokens: preamble] ifError: [#()]] + ifFalse: [#() "ie cant be back ref"]. - (preamble findString: 'methodsFor:' startingAt: 1) > 0 - ifTrue: [tokens := [Scanner new scanTokens: preamble] on: Error do:[#()]] - ifFalse: [tokens := Array new "ie cant be back ref"]. ((tokens size between: 7 and: 8) + and: [(tokens at: tokens size - 5) = #methodsFor:]) + ifTrue: [ + (tokens at: tokens size - 3) = #stamp: + ifTrue: [ "New format gives change stamp and unified prior pointer" + stamp := tokens at: tokens size - 2. + prevPos := tokens last. + prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos. + prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos] + ifFalse: [ "Old format gives no stamp; prior pointer in two parts" + prevPos := tokens at: tokens size - 2. + prevFileIndex := tokens last]. + cat := tokens at: tokens size - 4. + (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil]]. - and: [(tokens at: tokens size-5) = #methodsFor:]) ifTrue:[ - (tokens at: tokens size-3) = #stamp: ifTrue:[ - "New format gives change stamp and unified prior pointer" - stamp := tokens at: tokens size-2. - prevPos := tokens last. - prevFileIndex := sourceFilesCopy fileIndexFromSourcePointer: prevPos. - prevPos := sourceFilesCopy filePositionFromSourcePointer: prevPos. - ] ifFalse: ["Old format gives no stamp; prior pointer in two parts" - prevPos := tokens at: tokens size-2. - prevFileIndex := tokens last. - ]. - (prevPos = 0 or: [prevFileIndex = 0]) ifTrue: [prevPos := nil] - ]. ((tokens size between: 5 and: 6) + and: [(tokens at: tokens size - 3) = #methodsFor:]) + ifTrue: [ + (tokens at: tokens size - 1) = #stamp: + ifTrue: [ "New format gives change stamp and unified prior pointer" + stamp := tokens at: tokens size]. + cat := tokens at: tokens size - 2]. + changeList add: (ChangeRecord new + file: file position: position type: #method + class: class name category: cat meta: meta stamp: stamp). - and: [(tokens at: tokens size-3) = #methodsFor:]) ifTrue:[ - (tokens at: tokens size-1) = #stamp: ifTrue: [ - "New format gives change stamp and unified prior pointer" - stamp := tokens at: tokens size. - ] - ]. - changeList add: (ChangeRecord new file: file position: position type: #method - class: class name category: cat meta: meta stamp: stamp). position := prevPos. + prevPos ifNotNil: [file := sourceFilesCopy at: prevFileIndex]]. + sourceFilesCopy do: [:x | x ifNotNil: [x close]]. self flag: #ct "ensure?". + ^ changeList! - prevPos notNil ifTrue:[file := sourceFilesCopy at: prevFileIndex]. - ]. - sourceFilesCopy do: [:x | x ifNotNil:[x close]]. - ^changeList!

1 0

The Trunk: System-ct.1134.mcz
by commits＠source.squeak.org 21 Feb '20

21 Feb '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1134.mcz ==================== Summary ==================== Name: System-ct.1134 Author: ct Time: 4 February 2020, 6:38:39.919206 pm UUID: 0647af40-0e6e-5840-ade4-19807926743c Ancestors: System-cmm.1129 Fixes dangling reference in common request strings. =============== Diff against System-cmm.1129 =============== Item was changed: ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') ----- initializeCommonRequestStrings "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu." CommonRequestStrings := StringHolder new contents: 'Utilities emergencyCollapse. Utilities closeAllDebuggers. RecentMessages default revertMostRecent. - MCFileBasedRepository flushAllCaches - Sensor keyboard. ParagraphEditor abandonChangeText. Cursor normal show. - CommandHistory resetAllHistory. Project allInstancesDo: [:p | p displayDepth: 16]. ScriptingSystem inspectFormDictionary. Form fromUser bitEdit. Display border: (0@0 extent: 640@480) width: 2. - Undeclared inspect. Undeclared removeUnreferencedKeys; inspect. Transcript clear. + GIFReadWriter grabScreenAndSaveOnDisk. - Utilities grabScreenAndSaveOnDisk. FrameRateMorph new openInHand. - Utilities reconstructTextWindowsFromFileNamed: ''TW''. Utilities storeTextWindowContentsToFileNamed: ''TW''. ChangeSet removeEmptyUnnamedChangeSets. ChangesOrganizer reorderChangeSets. - ActiveWorld installVectorVocabulary. ActiveWorld abandonVocabularyPreference.' "Utilities initializeCommonRequestStrings"!

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2020