Packages August 2021

packages@lists.squeakfoundation.org

1 participants
77 discussions

The Trunk: MorphicTests-mt.80.mcz
by commits＠source.squeak.org 31 Aug '21

31 Aug '21

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.80.mcz ==================== Summary ==================== Name: MorphicTests-mt.80 Author: mt Time: 31 August 2021, 9:23:56.218122 am UUID: 755b0aad-ae9f-1742-8e40-19116f863c43 Ancestors: MorphicTests-mt.79 Complements Morphic-mt.1779 =============== Diff against MorphicTests-mt.79 =============== Item was changed: ----- Method: MorphTest>>test11NamedLayers (in category 'tests - submorphs - layers') ----- test11NamedLayers #( frontmostLayer balloonLayer haloLayer menuLayer - progressLayer - dialogLayer + + progressLayer navigatorLayer windowLayer defaultLayer backmostLayer ) overlappingPairsDo: [:a :b | self assert: (Morph perform: a) <= (Morph perform: b)]!

1 0

The Trunk: Morphic-mt.1779.mcz
by commits＠source.squeak.org 31 Aug '21

31 Aug '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1779.mcz ==================== Summary ==================== Name: Morphic-mt.1779 Author: mt Time: 31 August 2021, 9:22:41.823122 am UUID: d02d8f6a-8c77-e04f-b577-7bd697503768 Ancestors: Morphic-cmm.1778 Swap layer numbers of progress bar and dialog window after way to many incidents where users did not notice the input request (dialog), looking at a not-changing progress bar (e.g., from Metacello code loading). Thankts to Christoph (ct) for pointing this out repeatedly! =============== Diff against Morphic-cmm.1778 =============== Item was changed: ----- Method: Morph class>>dialogLayer (in category 'layer names') ----- dialogLayer "For morphs that request user input." + ^ self progressLayer + (2 * self menuLayer) // 3 + ! - ^ self windowLayer + self menuLayer // 2! Item was changed: ----- Method: Morph class>>navigatorLayer (in category 'layer names') ----- navigatorLayer "For morphs that float above all (tool) windows and provide quick access to other tools. Examples include docking bars and flaps." + ^ self progressLayer + self windowLayer // 2! - ^ self dialogLayer + self windowLayer // 2! Item was changed: ----- Method: Morph class>>progressLayer (in category 'layer names') ----- progressLayer "For morphs that help the user understand why a certain operation has not finished yet." + ^ self windowLayer + self menuLayer // 2! - ^ self dialogLayer + (2 * self menuLayer) // 3! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'SystemProgressMorph reset. "New layer number"'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances..'!

1 0

The Trunk: Collections-dtl.954.mcz
by commits＠source.squeak.org 26 Aug '21

26 Aug '21

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-dtl.954.mcz ==================== Summary ==================== Name: Collections-dtl.954 Author: dtl Time: 26 August 2021, 5:06:44.899886 pm UUID: 62e50672-2876-46a2-8959-6d6eea2cc1e8 Ancestors: Collections-eem.953 Add SOH (start of heading) to the list of recognized separator characters, per follow up disscussion from Collections-pre.857. Rationale explained in http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-October/204555.… =============== Diff against Collections-eem.953 =============== Item was changed: ----- Method: Character class>>separators (in category 'instance creation') ----- separators "Answer a collection of the standard ASCII separator characters." + ^ { Character value: 32. "space" + Character value: 13. "cr" + Character value: 9. "tab" + Character value: 10. "line feed" + Character value: 12. "form feed" + Character value: 1. "start of heading" + } as: String! - ^ #(32 "space" - 13 "cr" - 9 "tab" - 10 "line feed" - 12 "form feed") - collect: [:v | Character value: v] as: String! Item was changed: ----- Method: Character>>isSeparator (in category 'testing') ----- isSeparator "Answer whether the receiver is one of the separator characters--space, cr, tab, line feed, or form feed." | integerValue | (integerValue := self asInteger) > 32 ifTrue: [ ^false ]. integerValue caseOf: { [ 32 "space" ] -> [ ^true ]. [ 9 "tab" ] -> [ ^true ]. [ 13 "cr"] -> [ ^true ]. [ 10 "line feed" ] -> [ ^true ]. + [ 12 "form feed"] -> [ ^true ]. + [ 1 "start of heading"] -> [ ^true ] } - [ 12 "form feed"] -> [ ^true ] } otherwise: [ ^false ]!

1 0

The Trunk: ToolBuilder-Kernel-mt.146.mcz
by commits＠source.squeak.org 25 Aug '21

25 Aug '21

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.146.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.146 Author: mt Time: 25 August 2021, 2:53:53.639976 pm UUID: d9a0214c-de09-9446-9347-17ecc4246eb9 Ancestors: ToolBuilder-Kernel-nice.145 Clarify commentary of openToolsAttachedToMouseCursor preference. =============== Diff against ToolBuilder-Kernel-nice.145 =============== Item was changed: ----- Method: UIManager class>>openToolsAttachedToMouseCursor (in category 'preferences') ----- openToolsAttachedToMouseCursor <preference: 'Open Tools Attached to Mouse Cursor' categoryList: #(Tools mouse) + description: 'If enabled, new tool windows will be attached to the mouse cursor to be positioned on screen with an additional click-drag. Only occurs if a mouse event triggered that tool opening to not interfere with keyboard-based interaction.' - description: 'If enabled, new tool windows will be attached to the mouse cursor to be positioned on screen with an additional click. Only occurs if a mouse event triggered that tool opening.' type: #Boolean> ^ OpenToolsAttachedToMouseCursor ifNil: [false]!

1 0

The Trunk: System-mt.1241.mcz
by commits＠source.squeak.org 25 Aug '21

25 Aug '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1241.mcz ==================== Summary ==================== Name: System-mt.1241 Author: mt Time: 25 August 2021, 2:20:46.973495 pm UUID: 969fdd6d-dc9e-2b42-aa0b-fb1c8e40d63a Ancestors: System-mt.1240 Fixes issue in space tally for SharedPool pools. =============== Diff against System-mt.1240 =============== Item was changed: ----- Method: SpaceTally>>spaceForPoolsOf:depth:seen: (in category 'class analysis') ----- spaceForPoolsOf: aClass depth: anInteger seen: seenObjects | pools objects total | pools := {aClass classPool}, aClass sharedPools. + objects := Array streamContents: [:stream | + pools do: [:pool | pool bindingsDo: [:binding | stream nextPut: binding value]]]. - objects := pools gather: [:pool | pool values]. objects isEmpty ifTrue: [^#(0 0)]. total := 0. objects do: [:each | total := total + (self spaceForInstance: each depth: anInteger seen: seenObjects)]. ^{ total. objects size }!

1 0

The Trunk: Services-Base-mt.71.mcz
by commits＠source.squeak.org 25 Aug '21

25 Aug '21

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk: http://source.squeak.org/trunk/Services-Base-mt.71.mcz ==================== Summary ==================== Name: Services-Base-mt.71 Author: mt Time: 25 August 2021, 2:13:10.495495 pm UUID: 0ba2fb29-a329-8d44-b2c4-725c06581afc Ancestors: Services-Base-mt.70 Make "create new service"-service not raise a syntax error when cancelled. Remove it from the method-list menu. =============== Diff against Services-Base-mt.70 =============== Item was changed: ----- Method: BasicRequestor>>getString (in category 'generic requests') ----- getString | result | + result := Project uiManager request: caption initialAnswer: answer contents. - result := UIManager default request:caption initialAnswer:answer contents. self newCaption. + result isEmptyOrNil ifTrue: [ServiceCancelled signal]. - result isEmpty |result isNil ifTrue:[ServiceCancelled signal]. ^ result! Item was removed: - ----- Method: WorldMenuProvider>>browserMethodMenucreateNewService (in category 'saved preferences') ----- - browserMethodMenucreateNewService - ^ #(#'Items in browserMethodMenu:' #createNewService 1 )! Item was changed: ----- Method: WorldMenuProvider>>createNewService (in category 'services') ----- createNewService + ^ ServiceAction text: 'Create new service' button: 'new service' description: 'Define a new service provided by this package' action: [:r | | s p | s := r caption: 'enter service identifier'; getSymbol. + s isEmptyOrNil ifFalse: [ + p := r getPackageProvider. + p compile: s, ' - p := r getPackageProvider. - p compile: s, ' ^ ServiceAction "Open the service browser to set the menu position and the keyboard shortcut" text: ''fill menu label'' button: ''short button text'' description: ''longer text for balloon help'' action: [:r | "action block"] condition: [:r | "optional condition block"]' classified: 'services'. + r getBrowser browseReference: (MethodReference class: p selector: s)]]! - r getBrowser browseReference: (MethodReference class: p selector: s)]! Item was added: + (PackageInfo named: 'Services-Base') postscript: '(ServiceRegistry current serviceWithId: #browserMethodMenu) services + removeAllSuchThat: [:service | service id = #createNewService].'!

1 0

The Trunk: Monticello-mt.751.mcz
by commits＠source.squeak.org 25 Aug '21

25 Aug '21

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.751.mcz ==================== Summary ==================== Name: Monticello-mt.751 Author: mt Time: 25 August 2021, 2:10:46.685495 pm UUID: 2b8f812c-fa9e-2240-bd68-92cff0f7015a Ancestors: Monticello-ct.750 Removes dependecy from Services package. Implement "browse revisions" hooks via simple menu extensions in CodeHolder. =============== Diff against Monticello-ct.750 =============== Item was removed: - ----- Method: BrowserRequestor>>browseMcClassRevisions (in category '*monticello-revisions') ----- - browseMcClassRevisions - "Open a browser on all versions of this class available in the MC repository for this package." - self getClass - ifNil: [ UIManager inform: 'No class selected' ] - ifNotNilDo: - [ : theClass | theClass theNonMetaClass mcModel - ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support browsing Monticello revisions.' ] - ifNotNil: - [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]! Item was removed: - ----- Method: BrowserRequestor>>browseMcMethodRevisions (in category '*monticello-revisions') ----- - browseMcMethodRevisions - "Open a browser on all versions of this method available in the MC repository for this package." - self selectedMethodReference - ifNil: [ UIManager inform: 'No method selected' ] - ifNotNilDo: - [ : methodReference | methodReference mcModel - ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support browsing Monticello revisions.' ] - ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]! Item was removed: - ----- Method: BrowserRequestor>>selectedMethodReference (in category '*monticello-revisions') ----- - selectedMethodReference - ^ MethodReference - class: self getClass - selector: self getBrowser selectedMessageName! Item was added: + ----- Method: ClassReference>>mcModel (in category '*monticello') ----- + mcModel + + ^ self actualClass theNonMetaClass mcModel! Item was added: + ----- Method: ClassReference>>mcPatchOperations (in category '*monticello') ----- + mcPatchOperations + + ^ self actualClass theNonMetaClass mcPatchOperations! Item was added: + ----- Method: CodeHolder>>classListMenuMonticello: (in category '*monticello-revisions') ----- + classListMenuMonticello: aMenu + <classListMenu> + <menuPriority: 140> + + | selectedClassReference | + selectedClassReference := self selectedClassOrMetaClass + ifNotNil: [:class | ClassReference class: class ]. + selectedClassReference ifNil: [^ aMenu]. + aMenu + add: 'browse revisions' translated + target: MCRepository + selector: #browseClassRevisionsOf: + argument: selectedClassReference. + ^ aMenu! Item was added: + ----- Method: CodeHolder>>messageListMenuMonticello: (in category '*monticello-revisions') ----- + messageListMenuMonticello: aMenu + <messageListMenu> + <menuPriority: 140> + + | selectedMethodReference | + selectedMethodReference := self selectedClassOrMetaClass + ifNotNil: [:class | self selectedMessageName ifNotNil: [:selector | + MethodReference class: class selector: selector]]. + selectedMethodReference ifNil: [^ aMenu]. + aMenu + add: 'browse revisions' translated + target: MCRepository + selector: #browseMethodRevisionsOf: + argument: selectedMethodReference. + ^ aMenu! Item was removed: - ----- Method: MCHttpRepository class>>initialize (in category 'class initialization') ----- - initialize - self unload. - (ServiceRegistry current serviceWithId: #browserMethodMenu) services add: self browseMethodRevisionsService. - (ServiceRegistry current serviceWithId: #browserClassMenu) services add: self browseClassRevisionsService! Item was removed: - ----- Method: MCHttpRepository class>>unload (in category 'class initialization') ----- - unload - | methodMenuServiceCategory classMenuServiceCategory | - methodMenuServiceCategory := ServiceRegistry current serviceWithId: #browserMethodMenu. - methodMenuServiceCategory services copy do: - [ : each | (#(#browseMcMethodRevisions #browseMcMethodOrigin ) includes: each id) ifTrue: [ methodMenuServiceCategory services remove: each ] ]. - classMenuServiceCategory := ServiceRegistry current serviceWithId: #browserClassMenu. - classMenuServiceCategory services copy do: - [ : each | (#(#browseMcClassRevisions #browseMcClassOrigin ) includes: each id) ifTrue: [ classMenuServiceCategory services remove: each ] ]! Item was added: + ----- Method: MCRepository class>>browseClassRevisionsOf: (in category 'ui-support') ----- + browseClassRevisionsOf: classReference + + classReference ifNil: [ Project uiManager inform: 'No class selected' ]. + + classReference mcModel + ifNil: [ Project uiManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support browsing Monticello revisions.' ] + ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ classReference mcPatchOperations ])) browse ] ! Item was removed: - ----- Method: MCRepository class>>browseClassRevisionsService (in category 'ui-support') ----- - browseClassRevisionsService - ^ ServiceAction - id: #browseMcClassRevisions - text: 'browse revisions' - button: 'mc' - description: 'Browse revisions of this class definition from the first-listed HTTP repository of this package.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcClassRevisions ] - condition: - [ : aBrowserRequestor | true ]! Item was added: + ----- Method: MCRepository class>>browseMethodRevisionsOf: (in category 'ui-support') ----- + browseMethodRevisionsOf: methodReference + + methodReference ifNil: [ ^ Project uiManager inform: 'No method selected' ]. + + methodReference mcModel + ifNil: [ Project uiManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support browsing Monticello revisions.' ] + ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ].! Item was removed: - ----- Method: MCRepository class>>browseMethodRevisionsService (in category 'ui-support') ----- - browseMethodRevisionsService - ^ ServiceAction - id: #browseMcMethodRevisions - text: 'browse revisions' - button: 'mc' - description: 'Browse revisions of this method from the first-listed HTTP repository of this package.' - action: - [ : aBrowserRequestor | aBrowserRequestor browseMcMethodRevisions ] - condition: - [ : aBrowserRequestor | true ]! Item was added: + (PackageInfo named: 'Monticello') postscript: '(ServiceRegistry current serviceWithId: #browserMethodMenu) services + removeAllSuchThat: [:service | #(browseMcMethodRevisions browseMcMethodOrigin) includes: service id]. + (ServiceRegistry current serviceWithId: #browserClassMenu) services + removeAllSuchThat: [:service | #(browseMcClassRevisions browseMcClassOrigin) includes: service id].'!

1 0

The Trunk: Morphic-cmm.1778.mcz
by commits＠source.squeak.org 24 Aug '21

24 Aug '21

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.1778.mcz ==================== Summary ==================== Name: Morphic-cmm.1778 Author: cmm Time: 23 August 2021, 5:10:22.507528 pm UUID: 17be2087-83c6-465d-9055-bb0c37b5ff62 Ancestors: Morphic-mt.1777 Make cloning an Explorer window a UI operation only, don't clone the underlying domain object. =============== Diff against Morphic-mt.1777 =============== Item was changed: Model subclass: #AbstractHierarchicalList + instanceVariableNames: 'currentSelection' - instanceVariableNames: 'currentSelection myBrowser' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Explorer'! !AbstractHierarchicalList commentStamp: '<historical>' prior: 0! Contributed by Bob Arning as part of the ObjectExplorer package. ! Item was added: + ----- Method: AbstractHierarchicalList>>veryDeepInner: (in category 'copying') ----- + veryDeepInner: aDeepCopier + "This method required to avoid copying my 'currentSelection'. See Object>>#veryDeepCopyWith:." + super veryDeepInner: aDeepCopier!

1 0

The Trunk: Tools-cmm.1062.mcz
by commits＠source.squeak.org 24 Aug '21

24 Aug '21

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.1062.mcz ==================== Summary ==================== Name: Tools-cmm.1062 Author: cmm Time: 23 August 2021, 5:07:56.632056 pm UUID: 6fc1f85b-719c-49c9-8451-00e580ce5bd1 Ancestors: Tools-mt.1061 Make cloning an Inspector or Explorer window only a UI operation, don't clone the underlying domain object. =============== Diff against Tools-mt.1061 =============== Item was added: + ----- Method: Inspector>>veryDeepInner: (in category 'copying') ----- + veryDeepInner: aDeepCopier + super veryDeepInner: aDeepCopier. + expression := expression veryDeepCopyWith: aDeepCopier. + contentsTyped := contentsTyped veryDeepCopyWith: aDeepCopier! Item was added: + ----- Method: ObjectExplorer>>veryDeepInner: (in category 'copying') ----- + veryDeepInner: aDeepCopier + super veryDeepInner: aDeepCopier. + inspector := inspector veryDeepCopyWith: aDeepCopier. + monitorList := monitorList veryDeepCopyWith: aDeepCopier. + expression := expression veryDeepCopyWith: aDeepCopier!

1 0

FFI: FFI-Pools-mt.38.mcz
by commits＠source.squeak.org 23 Aug '21

23 Aug '21

Marcel Taeumel uploaded a new version of FFI-Pools to project FFI: http://source.squeak.org/FFI/FFI-Pools-mt.38.mcz ==================== Summary ==================== Name: FFI-Pools-mt.38 Author: mt Time: 23 August 2021, 9:50:54.358089 am UUID: 7225833b-5cf8-b841-a9f8-8931f8292404 Ancestors: FFI-Pools-mt.37 Complements FFI-Kernel-mt.219 =============== Diff against FFI-Pools-mt.37 =============== Item was changed: ----- Method: ExternalTypePool class>>update (in category 'housekeeping') ----- update " self update " self reset. + ExternalAtomicType initializeAtomicTypeAccessors. + ExternalType initializeStructureTypeAccessors. "Re-generate struct-TYPE accessors" + ExternalStructure defineAllFields. "Re-generate struct-FIELD accessors" - ExternalType allTypesDo: [:type | type generateTypeAccessor]. - ExternalStructure defineAllFields. "Re-generate struct-field accessors" self cleanUp.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2021