Packages March 2021

packages@lists.squeakfoundation.org

1 participants
89 discussions

The Trunk: Morphic-mt.1733.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1733.mcz ==================== Summary ==================== Name: Morphic-mt.1733 Author: mt Time: 4 March 2021, 3:36:21.510661 pm UUID: 6c985504-3f57-4349-9f09-1476a647e3a3 Ancestors: Morphic-mt.1732 Rudimentary support for dropping source-code artifacts into the world. Just attach #sourceCode as #dragTransferType during a drag operation to trigger the code path. =============== Diff against Morphic-mt.1732 =============== Item was changed: ----- Method: PasteUpMorph>>acceptDroppingMorph:event: (in category 'dropping/grabbing') ----- acceptDroppingMorph: dropped event: evt "The supplied morph, known to be acceptable to the receiver, is now to be assimilated; the precipitating event is supplied" | aMorph | + (self isWorldMorph and: [dropped isTransferMorph]) ifTrue: [ + dropped dragTransferType = #filesAndDirectories + ifTrue: [^ self dropFiles: dropped passenger event: evt]. + dropped dragTransferType = #sourceCode + ifTrue: [^ self dropSourceCode: dropped passenger event: evt]]. - (self isWorldMorph and: - [dropped isTransferMorph and: - [dropped dragTransferType = #filesAndDirectories]]) ifTrue: - [^ self dropFiles: dropped passenger event: evt]. aMorph := self morphToDropFrom: dropped. self isWorldMorph ifFalse: [super acceptDroppingMorph: aMorph event: evt] ifTrue: ["Add the given morph to this world and start stepping it if it wants to be." aMorph isInWorld ifFalse: [aMorph position: evt position]. self addMorphFront: aMorph. (aMorph fullBounds intersects: self viewBox) ifFalse: [Beeper beep. aMorph position: self bounds center]]. aMorph submorphsDo: [:m | (m isKindOf: HaloMorph) ifTrue: [m delete]]. aMorph allMorphsDo: "Establish any penDown morphs in new world" [:m | | tfm mm | m player ifNotNil: [m player getPenDown ifTrue: [((mm := m player costume) notNil and: [(tfm := mm owner transformFrom: self) notNil]) ifTrue: [self noteNewLocation: (tfm localPointToGlobal: mm referencePosition) forPlayer: m player]]]]. self isPartsBin ifTrue: [aMorph isPartsDonor: true. aMorph stopSteppingSelfAndSubmorphs. aMorph suspendEventHandler] ifFalse: [self world startSteppingSubmorphsOf: aMorph]. " self presenter morph: aMorph droppedIntoPasteUpMorph: self." self showingListView ifTrue: [self sortSubmorphsBy: (self valueOfProperty: #sortOrder). self currentWorld abandonAllHalos]. self bringTopmostsToFront.! Item was added: + ----- Method: PasteUpMorph>>dropSourceCode:event: (in category 'event handling') ----- + dropSourceCode: anObject event: evt + + anObject isCompiledMethod + ifTrue: [ + | tool window | + tool := CodeHolder new + setClass: anObject methodClass + selector: anObject selector. + window := ToolBuilder open: tool. + window center: evt position. + window bounds: (window bounds translatedToBeWithin: self bounds)]. + + anObject isString + ifTrue: [anObject edit].! Item was changed: ----- Method: PasteUpMorph>>wantsDroppedTransferMorph: (in category 'dropping/grabbing') ----- wantsDroppedTransferMorph: transferMorph ^ self hasTransferMorphConverter + or: [transferMorph dragTransferType = #filesAndDirectories] + or: [transferMorph dragTransferType = #sourceCode]! - or: [transferMorph dragTransferType = #filesAndDirectories]!

1 0

The Trunk: Tools-mt.1028.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1028.mcz ==================== Summary ==================== Name: Tools-mt.1028 Author: mt Time: 4 March 2021, 3:33:48.778661 pm UUID: ac105d50-b9ae-9f48-9233-3c4e5bdd741f Ancestors: Tools-mt.1027 Makes CodeHolder useful by itself. It can easily be used to show and edit a single compiled method. Compilation logic extracted from Browser. =============== Diff against Tools-mt.1027 =============== Item was changed: + ----- Method: CodeHolder>>aboutToStyle: (in category 'code pane') ----- - ----- Method: CodeHolder>>aboutToStyle: (in category 'contents') ----- aboutToStyle: aStyler - "This is a notification that aStyler is about to re-style its text. - The default is to answer false to veto the styling" + currentCompiledMethod ifNil: [^ false]. + aStyler classOrMetaClass: self selectedClassOrMetaClass. + ^ true! - ^false! Item was added: + ----- Method: CodeHolder>>compileMessage:notifying: (in category 'code pane') ----- + compileMessage: aString notifying: aController + "Compile the code that was accepted by the user, placing the compiled method into an appropriate message category. Return true if the compilation succeeded, else false." + + | selectedMessageName selector category selectedClassOrMetaClass | + selectedMessageName := self selectedMessageName. + selectedClassOrMetaClass := self selectedClassOrMetaClass. + contents := nil. + selector := (selectedClassOrMetaClass newParser parseSelector: aString). + (self metaClassIndicated + and: [(selectedClassOrMetaClass includesSelector: selector) not + and: [Metaclass isScarySelector: selector]]) + ifTrue: ["A frist-time definition overlaps the protocol of Metaclasses" + (self confirm: ((selector , ' is used in the existing class system. + Overriding it could cause serious problems. + Is this really what you want to do?') asText makeBoldFrom: 1 to: selector size)) + ifFalse: [^nil]]. + category := self selectedMessageCategoryName. + selector := selectedClassOrMetaClass + compile: aString + classified: category + notifying: aController. + selector == nil ifTrue: [^ nil]. + contents := aString copy. + currentCompiledMethod := selectedClassOrMetaClass compiledMethodAt: selector. + ^ true! Item was added: + ----- Method: CodeHolder>>contents:notifying: (in category 'accessing') ----- + contents: input notifying: aController + "The retrieved information has changed and its source must now be updated. Answer the result of updating the source." + + self changed: #annotation. + + ^ self okayToAccept + ifFalse: [false] + ifTrue: [self compileMessage: input asText notifying: aController].! Item was added: + ----- Method: CodeHolder>>defaultBrowserTitle (in category 'initialize-release') ----- + defaultBrowserTitle + + ^ 'Source Code'! Item was added: + ----- Method: CodeHolder>>labelString (in category 'initialize-release') ----- + labelString + + | label | + label := self defaultBrowserTitle. + currentCompiledMethod ifNotNil: [ + label := label, (': {1} >> #{2} ({3})' format: { + self selectedClassOrMetaClass name. + self selectedMessageName. + self selectedMessageCategoryName })]. + ^ label! Item was added: + ----- Method: CodeHolder>>metaClassIndicated (in category 'accessing') ----- + metaClassIndicated + + ^ self selectedClassOrMetaClass isMeta! Item was added: + ----- Method: CodeHolder>>selectedClass (in category 'accessing') ----- + selectedClass + + ^ self selectedClassOrMetaClass ifNotNil: [:cls | cls theNonMetaClass]! Item was added: + ----- Method: CodeHolder>>selectedClassOrMetaClass (in category 'accessing') ----- + selectedClassOrMetaClass + + ^ currentCompiledMethod ifNotNil: [:method | method methodClass]! Item was added: + ----- Method: CodeHolder>>selectedMessageName (in category 'accessing') ----- + selectedMessageName + + ^ currentCompiledMethod + ifNil: [super selectedMessageName] + ifNotNil: [:method | method selector]! Item was added: + ----- Method: CodeHolder>>setClass:selector: (in category 'initialize-release') ----- + setClass: aBehavior selector: aSymbol + + contents := nil. + currentCompiledMethod := aBehavior compiledMethodAt: aSymbol. + self changed: #relabel. + self contentsChanged. + self decorateButtons.!

1 0

The Trunk: ToolBuilder-Morphic-mt.274.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.274.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.274 Author: mt Time: 4 March 2021, 3:26:12.332661 pm UUID: 7491b055-3449-2a40-925a-75174efc5215 Ancestors: ToolBuilder-Morphic-mt.273 Complements ToolBuilder-Kernel-mt.139 =============== Diff against ToolBuilder-Morphic-mt.273 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'widgets required') ----- buildPluggableList: aSpec | widget listClass getIndex setIndex | aSpec getSelected ifNil:[ listClass := self listClass. getIndex := aSpec getIndex. setIndex := aSpec setIndex. ] ifNotNil:[ listClass := self listByItemClass. getIndex := aSpec getSelected. setIndex := aSpec setSelected. ]. widget := listClass on: aSpec model list: aSpec list selected: getIndex changeSelected: setIndex menu: aSpec menu keystroke: aSpec keyPress. self register: widget id: aSpec name. widget dragItemSelector: aSpec dragItem; dropItemSelector: aSpec dropItem; wantsDropSelector: aSpec dropAccept; + dragStartedSelector: aSpec dragStarted; + dragTypeSelector: aSpec dragType. - dragStartedSelector: aSpec dragStarted. self setListPropertiesFor: widget spec: aSpec. ^widget!

1 0

The Trunk: ToolBuilder-Kernel-mt.139.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.139.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.139 Author: mt Time: 4 March 2021, 3:25:37.860661 pm UUID: a8f8f119-901d-0045-b619-a7d25e0530ef Ancestors: ToolBuilder-Kernel-mt.138 Makes the transfer type for drag-and-drop configurable. =============== Diff against ToolBuilder-Kernel-mt.138 =============== Item was changed: PluggableWidgetSpec subclass: #PluggableListSpec + instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dragType dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted helpItem filterableList clearFilterAutomatically itemAlignment itemPadding' - instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted helpItem filterableList clearFilterAutomatically itemAlignment itemPadding' classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Kernel'! !PluggableListSpec commentStamp: 'ar 7/15/2005 11:54' prior: 0! A single selection list element. Instance variables: list <Symbol> The selector to retrieve the list elements. getIndex <Symbol> The selector to retrieve the list selection index. setIndex <Symbol> The selector to set the list selection index. getSelected <Symbol> The selector to retrieve the list selection. setSelected <Symbol> The selector to set the list selection. menu <Symbol> The selector to offer (to retrieve?) the context menu. keyPress <Symbol> The selector to invoke for handling keyboard shortcuts. autoDeselect <Boolean> Whether the list should allow automatic deselection or not. dragItem <Symbol> Selector to initiate a drag action on an item dropItem <Symbol> Selector to initiate a drop action of an item dropAccept <Symbol> Selector to determine whether a drop would be accepted! Item was added: + ----- Method: PluggableListSpec>>dragType (in category 'accessing - drag and drop') ----- + dragType + "Answer the selector to determine the type that can be used configure the drop." + + ^ dragType! Item was added: + ----- Method: PluggableListSpec>>dragType: (in category 'accessing - drag and drop') ----- + dragType: aSymbol + "Answer the selector to determine the type that can be used configure the drop." + + dragType := aSymbol.!

1 0

The Trunk: System-mt.1220.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1220.mcz ==================== Summary ==================== Name: System-mt.1220 Author: mt Time: 4 March 2021, 1:35:25.601178 pm UUID: d5324489-3128-a944-a52b-faf8d4c8ef23 Ancestors: System-mt.1219 Squeak was migrated from travis-ci.org to travis-ci.com. The former will be shutting down soon. =============== Diff against System-mt.1219 =============== Item was changed: ----- Method: SystemVersion>>ciStatusBadgeUrl (in category 'continuous integration') ----- ciStatusBadgeUrl | branch | branch := 'squeak-{1}{2}{3}' format: { self isRelease ifTrue: [self majorVersionNumber] ifFalse: ['']. self isRelease ifTrue: ['.'] ifFalse: ['trunk']. self isRelease ifTrue: [self minorVersionNumber] ifFalse: [''] }. + ^ 'https://api.travis-ci.com/squeak-smalltalk/squeak-app.png?branch=', branch! - ^ 'https://api.travis-ci.org/squeak-smalltalk/squeak-app.png?branch=', branch! Item was changed: ----- Method: SystemVersion>>ciStatusPageUrl (in category 'continuous integration') ----- ciStatusPageUrl "In a release image, let the user see the overview of branches to choose from. I am not aware of a permanent link for a specific branch. In a trunk image, just let Travis report the state of the main branch, which is usually for trunk builds." + ^ 'http://travis-ci.com/squeak-smalltalk/squeak-app{1}' format: { - ^ 'http://travis-ci.org/squeak-smalltalk/squeak-app{1}' format: { self isRelease ifFalse: [''] ifTrue: ['/branches'] }!

1 0

The Trunk: MorphicTests-mt.73.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.73.mcz ==================== Summary ==================== Name: MorphicTests-mt.73 Author: mt Time: 4 March 2021, 9:04:20.359869 am UUID: 51b5fae1-e96f-9045-9bc9-2a7561c0cacb Ancestors: MorphicTests-mt.72 Adds test for owner-changed handler, which is a simple layout hook that does not require a layout policy. Fixes a name in a grid-layout test. =============== Diff against MorphicTests-mt.72 =============== Item was added: + ----- Method: GridLayoutTest>>test05AdhereToEdge (in category 'tests') ----- + test05AdhereToEdge + "The grid should be ignored for morphs that snap to their owner's edges." + + | m | + m := Morph new color: Color random; extent: 10@10; yourself. + container addMorph: m. + + "1) Manual adhere-to-edge will not work." + m position: 0@(100 - 10). + container fullBounds. + self assert: 0@100 equals: m position. + + "2) Use adhere-to-edge property." + m setToAdhereToEdge: #bottom. + container fullBounds. + self assert: 0@(100 - 10) equals: m position.! Item was removed: - ----- Method: GridLayoutTest>>test05SnapToEdge (in category 'tests') ----- - test05SnapToEdge - "The grid should be ignored for morphs that snap to their owner's edges." - - | m | - m := Morph new color: Color random; extent: 10@10; yourself. - container addMorph: m. - - "1) Manual snap-to-edge will not work." - m position: 0@(100 - 10). - container fullBounds. - self assert: 0@100 equals: m position. - - "2) Use snap-to-edge property." - m setToAdhereToEdge: #bottom. - container fullBounds. - self assert: 0@(100 - 10) equals: m position.! Item was added: + ----- Method: MorphLayoutTest>>makeYellow: (in category 'helper') ----- + makeYellow: aMorph + + aMorph color: Color yellow.! Item was added: + ----- Method: MorphLayoutTest>>testOwnerChangedHandler (in category 'tests') ----- + testOwnerChangedHandler + + | m1 m2 | + m1 := Morph new extent: 100@100; yourself. + m2 := Morph new extent: 10@10; yourself. + + m1 addMorph: m2. + self ensureLayout: m1. + self assert: 10@10 equals: m2 extent. + + m2 ownerChangedHandler: [:m | m extent: m owner extent]. + self ensureLayout: m1. + self assert: 100@100 equals: m2 extent. + + m2 color: Color red. + m2 ownerChangedHandler: (MessageSend receiver: self selector: #makeYellow:). + self assert: Color red equals: m2 color. + self ensureLayout: m1. + self assert: Color yellow equals: m2 color. + + m2 ownerChangedHandler: #delete. + self assert: m1 hasSubmorphs. + self ensureLayout: m1. + self deny: m1 hasSubmorphs.!

1 0

The Trunk: Collections-nice.928.mcz
by commits＠source.squeak.org 03 Mar '21

03 Mar '21

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.928.mcz ==================== Summary ==================== Name: Collections-nice.928 Author: nice Time: 3 March 2021, 3:29:05.70662 pm UUID: ef9658c8-ef7e-a943-8ffc-de7546b29f2f Ancestors: Collections-nice.927, Collections-nice.634 Merge Collections-nice.634 (Implement replace: in Dictionary) =============== Diff against Collections-nice.927 =============== Item was added: + ----- Method: Dictionary>>replace: (in category 'enumerating') ----- + replace: aBlock + "Destructively replace the values in this Dictionary by applying aBlock, keeping the same keys. + Implementation note: subclasses not storing the key-value pairs as a list of Associations shall refine this method." + tally = 0 ifTrue: [ ^self]. + 1 to: array size do: [ :index | + (array at: index) ifNotNil: [ :element | + element value: (aBlock value: element value) ] ]! Item was added: + ----- Method: OrderedDictionary>>replace: (in category 'enumerating') ----- + replace: aBlock + "Like super, but iterate in order." + + order from: 1 to: tally do: [:each | each value: (aBlock value: each value)]! Item was added: + ----- Method: WeakKeyDictionary>>replace: (in category 'enumerating') ----- + replace: aBlock + "Like super except that aBlock shouldn't be invoked for any reclaimed (nil) key." + + tally = 0 ifTrue: [ ^self]. + 1 to: array size do: [ :index | + (array at: index) ifNotNil: [ :association | + association key ifNotNil: [ :key | "Don't let the key go away." + association value: (aBlock value: association value) ] ] ]!

1 0

The Trunk: CollectionsTests-nice.354.mcz
by commits＠source.squeak.org 03 Mar '21

03 Mar '21

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.354.mcz ==================== Summary ==================== Name: CollectionsTests-nice.354 Author: nice Time: 3 March 2021, 3:26:41.90262 pm UUID: 497e2be2-d971-624c-8e34-6ef22558b53e Ancestors: CollectionsTests-nice.353, CollectionsTests-nice.244 Merge CollectionsTests-nice.244 (test Dictionary replace:) =============== Diff against CollectionsTests-nice.353 =============== Item was added: + ----- Method: DictionaryTest>>testReplace (in category 'testing') ----- + testReplace + | dict expected | + {Dictionary. IdentityDictionary} do: [:class | + dict := class newFromPairs:{ + #first. 1. + #second. 2. + #third. 3. + #fourth. 4. + #fifth. 5. + }. + dict replace: [:each | each asWords]. + expected := class newFromPairs:{ + #first. 'one'. + #second. 'two'. + #third. 'three'. + #fourth. 'four'. + #fifth. 'five'. + }. + self assert: dict = expected].! Item was added: + ----- Method: OrderedDictionaryTest>>testReplace (in category 'tests') ----- + testReplace + | dict expected k | + dict := OrderedDictionary newFromPairs:{ + #first. 13. + #second. 12. + #third. 11. + #fourth. 15. + #fifth. 14. + }. + k := 0. + dict replace: [:each | k := k + 1]. + expected := OrderedDictionary newFromPairs:{ + #first. 1. + #second. 2. + #third. 3. + #fourth. 4. + #fifth. 5. + }. + self assert: dict = expected.!

1 0

The Trunk: Collections-nice.634.mcz
by commits＠source.squeak.org 03 Mar '21

03 Mar '21

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.634.mcz ==================== Summary ==================== Name: Collections-nice.634 Author: nice Time: 6 May 2015, 11:08:55.927 pm UUID: 4d2e458d-25c3-4b58-8df0-858fd2a6e84e Ancestors: Collections-ul.633 Implement replace: in Dictionary =============== Diff against Collections-ul.633 =============== Item was added: + ----- Method: Dictionary>>replace: (in category 'enumerating') ----- + replace: aBlock + "Destructively replace the values in this Dictionary by applying aBlock, keeping the same keys. + Implementation note: subclasses not storing the key-value pairs as a list of Associations shall refine this method." + tally = 0 ifTrue: [ ^self]. + 1 to: array size do: [ :index | + (array at: index) ifNotNil: [ :element | + element value: (aBlock value: element value) ] ]! Item was added: + ----- Method: OrderedDictionary>>replace: (in category 'enumerating') ----- + replace: aBlock + "Like super, but iterate in order." + + order from: 1 to: tally do: [:each | each value: (aBlock value: each value)]! Item was added: + ----- Method: WeakKeyDictionary>>replace: (in category 'enumerating') ----- + replace: aBlock + "Like super except that aBlock shouldn't be invoked for any reclaimed (nil) key." + + tally = 0 ifTrue: [ ^self]. + 1 to: array size do: [ :index | + (array at: index) ifNotNil: [ :association | + association key ifNotNil: [ :key | "Don't let the key go away." + association value: (aBlock value: association value) ] ] ]!

1 0

The Trunk: CollectionsTests-nice.244.mcz
by commits＠source.squeak.org 03 Mar '21

03 Mar '21

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-nice.244.mcz ==================== Summary ==================== Name: CollectionsTests-nice.244 Author: nice Time: 6 May 2015, 11:09:57.558 pm UUID: 57fdcf9f-1ab0-45ee-873b-7117f527efbc Ancestors: CollectionsTests-mt.243 Test Dictionary replace: =============== Diff against CollectionsTests-mt.243 =============== Item was added: + ----- Method: DictionaryTest>>testReplace (in category 'testing') ----- + testReplace + | dict expected | + {Dictionary. IdentityDictionary} do: [:class | + dict := class newFromPairs:{ + #first. 1. + #second. 2. + #third. 3. + #fourth. 4. + #fifth. 5. + }. + dict replace: [:each | each asWords]. + expected := class newFromPairs:{ + #first. 'one'. + #second. 'two'. + #third. 'three'. + #fourth. 'four'. + #fifth. 'five'. + }. + self assert: dict = expected].! Item was added: + ----- Method: OrderedDictionaryTest>>testReplace (in category 'tests') ----- + testReplace + | dict expected k | + dict := OrderedDictionary newFromPairs:{ + #first. 13. + #second. 12. + #third. 11. + #fourth. 15. + #fifth. 14. + }. + k := 0. + dict replace: [:each | k := k + 1]. + expected := OrderedDictionary newFromPairs:{ + #first. 1. + #second. 2. + #third. 3. + #fourth. 4. + #fifth. 5. + }. + self assert: dict = expected.!

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 March 2021