Packages April 2021

packages@lists.squeakfoundation.org

1 participants
226 discussions

The Trunk: Tools-mt.1051.mcz
by commits＠source.squeak.org 30 Apr '21

30 Apr '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1051.mcz ==================== Summary ==================== Name: Tools-mt.1051 Author: mt Time: 30 April 2021, 9:31:31.368936 am UUID: 732ccab4-19fe-3e4d-aebd-ee970b44661b Ancestors: Tools-mt.1050 Removes unnecessary codes duplication. (I am not sure why ChangeSetBrowser exists. It just has a different window menu and some different context menus...) =============== Diff against Tools-mt.1050 =============== Item was removed: - ----- Method: ChangeSorter>>buildCodePaneWith: (in category 'toolbuilder') ----- - buildCodePaneWith: builder - - | textSpec | - textSpec := builder pluggableCodePaneSpec new. - textSpec - model: self; - getText: #contents; - setText: #contents:notifying:; - selection: #contentsSelection; - menu: #codePaneMenu:shifted:. - ^ textSpec! Item was added: + ----- Method: ChangeSorter>>wantsAnnotationPane (in category 'code pane') ----- + wantsAnnotationPane + + ^ false!

1 0

The Trunk: Tools-mt.1050.mcz
by commits＠source.squeak.org 30 Apr '21

30 Apr '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1050.mcz ==================== Summary ==================== Name: Tools-mt.1050 Author: mt Time: 30 April 2021, 9:19:14.010936 am UUID: c1a1da37-9117-f548-b3a3-f910d6ae2c4c Ancestors: Tools-mt.1049 Refactors buildWith: in ChangeSorter to match the implementation in other tools (such as MessageSet and Browser). Complements Kernel-mt.1396 =============== Diff against Tools-mt.1049 =============== Item was added: + ----- Method: ChangeSorter>>buildChangeSetListWith: (in category 'toolbuilder') ----- + buildChangeSetListWith: builder + + | listSpec | + listSpec := builder pluggableListSpec new. + listSpec + model: self; + list: #changeSetList; + getSelected: #currentCngSet; + setSelected: #showChangeSetNamed:; + menu: #changeSetMenu:shifted:; + keyPress: #changeSetListKey:from:; + dragItem: #dragChangeSet:; + autoDeselect: false. + ^ listSpec! Item was added: + ----- Method: ChangeSorter>>buildClassListWith: (in category 'toolbuilder') ----- + buildClassListWith: builder + + | listSpec | + listSpec := builder pluggableListSpec new. + listSpec + model: self; + list: #classList; + getSelected: #currentClassName; + setSelected: #currentClassName:; + menu: #classListMenu:shifted:; + keyPress: #classListKey:from:; + dragItem: #dragClass:. + ^ listSpec! Item was added: + ----- Method: ChangeSorter>>buildCodePaneWith: (in category 'toolbuilder') ----- + buildCodePaneWith: builder + + | textSpec | + textSpec := builder pluggableCodePaneSpec new. + textSpec + model: self; + getText: #contents; + setText: #contents:notifying:; + selection: #contentsSelection; + menu: #codePaneMenu:shifted:. + ^ textSpec! Item was added: + ----- Method: ChangeSorter>>buildMessageListWith: (in category 'toolbuilder') ----- + buildMessageListWith: builder + + | listSpec | + listSpec := builder pluggableListSpec new. + listSpec + model: self; + list: #messageList; + getSelected: #currentSelector; + setSelected: #currentSelector:; + menu: #messageMenu:shifted:; + keyPress: #messageListKey:from:; + dragItem: #dragMessage:. + ^ listSpec! Item was changed: ----- Method: ChangeSorter>>buildWith: (in category 'toolbuilder') ----- buildWith: builder + + ^ builder build: + (self + buildWith: builder + in: (self buildWindowWith: builder) + rect: (0@0 extent: 1@1))! - " - ToolBuilder open: ChangeSorter. - " - | windowSpec | - windowSpec := builder pluggableWindowSpec new. - windowSpec label: 'Change Sorter'. - windowSpec model: self. - windowSpec children: OrderedCollection new. - windowSpec label: #labelString. - self buildWith: builder in: windowSpec rect: (0@0 extent: 1@1). - ^builder build: windowSpec! Item was changed: ----- Method: ChangeSorter>>buildWith:in:rect: (in category 'toolbuilder') ----- buildWith: builder in: window rect: rect - | csListHeight msgListHeight csMsgListHeight listSpec textSpec | - contents := ''. - csListHeight := 0.25. - msgListHeight := 0.25. - csMsgListHeight := csListHeight + msgListHeight. + | windowSpec offset factor | + offset := rect origin. + factor := rect extent. + windowSpec := self buildWindow: window with: builder specs: (({ + (0.0(a)0.0 corner: 0.5(a)0.25) -> [self buildChangeSetListWith: builder]. + (0.5(a)0.0 corner: 1.0(a)0.25) -> [self buildClassListWith: builder]. + (0.0(a)0.25 corner: 1.0(a)0.5) -> [self buildMessageListWith: builder]. + (0.0(a)0.5 corner: 1.0(a)1.0) -> [self buildCodePaneWith: builder] }) + collect: [:spec | ((spec key scaleBy: factor) translateBy: offset) -> spec value]). + ^ builder build: windowSpec! - listSpec := builder pluggableListSpec new. - listSpec - model: self; - list: #changeSetList; - getSelected: #currentCngSet; - setSelected: #showChangeSetNamed:; - menu: #changeSetMenu:shifted:; - keyPress: #changeSetListKey:from:; - dragItem: #dragChangeSet:; - autoDeselect: false; - frame: (((0@0 extent: 0.5@csListHeight) - scaleBy: rect extent) translateBy: rect origin). - window children add: listSpec. - - listSpec := builder pluggableListSpec new. - listSpec - model: self; - list: #classList; - getSelected: #currentClassName; - setSelected: #currentClassName:; - menu: #classListMenu:shifted:; - keyPress: #classListKey:from:; - dragItem: #dragClass:; - frame: (((0.5@0 extent: 0.5@csListHeight) - scaleBy: rect extent) translateBy: rect origin). - window children add: listSpec. - - listSpec := builder pluggableListSpec new. - listSpec - model: self; - list: #messageList; - getSelected: #currentSelector; - setSelected: #currentSelector:; - menu: #messageMenu:shifted:; - keyPress: #messageListKey:from:; - dragItem: #dragMessage:; - frame: (((0@csListHeight extent: 1@msgListHeight) - scaleBy: rect extent) translateBy: rect origin). - window children add: listSpec. - - textSpec := builder pluggableCodePaneSpec new. - textSpec - model: self; - getText: #contents; - setText: #contents:notifying:; - selection: #contentsSelection; - menu: #codePaneMenu:shifted:; - frame: (((0@csMsgListHeight corner: 1@1) scaleBy: rect extent) translateBy: rect origin). - window children add: textSpec. - ^window! Item was changed: ----- Method: DualChangeSorter>>buildWith: (in category 'toolbuilder') ----- buildWith: builder | windowSpec window | leftCngSorter := ChangeSorter new myChangeSet: ChangeSet current. leftCngSorter parent: self. rightCngSorter := ChangeSorter new myChangeSet: ChangeSet secondaryChangeSet. rightCngSorter parent: self. + windowSpec := self buildWindowWith: builder. - windowSpec := builder pluggableWindowSpec new. - windowSpec model: self. - windowSpec label: 'Change Sorter'. - windowSpec children: OrderedCollection new. - windowSpec label: #labelString. leftCngSorter buildWith: builder in: windowSpec rect: (0@0 extent: 0.5@1). rightCngSorter buildWith: builder in: windowSpec rect: (0.5@0 extent: 0.5@1). window := builder build: windowSpec. leftCngSorter addDependent: window. "so it will get changed: #relabel" rightCngSorter addDependent: window. "so it will get changed: #relabel" ^window!

1 0

The Trunk: Kernel-mt.1396.mcz
by commits＠source.squeak.org 30 Apr '21

30 Apr '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1396.mcz ==================== Summary ==================== Name: Kernel-mt.1396 Author: mt Time: 30 April 2021, 9:16:44.415936 am UUID: d1ca8229-01e5-b548-9660-5018841eea20 Ancestors: Kernel-nice.1395 Adds support for composition of tool-builder specs such as through DualChangeSorter. There, we need to share the windowSpec. =============== Diff against Kernel-nice.1395 =============== Item was added: + ----- Method: Model>>buildWindow:with:specs: (in category 'toolbuilder') ----- + buildWindow: windowSpec with: builder specs: specs + + specs do:[:assoc| + | rect action widgetSpec | + rect := assoc key. + action := assoc value. + widgetSpec := action value. + widgetSpec ifNotNil:[ + widgetSpec frame: rect. + windowSpec children add: widgetSpec]]. + ^ windowSpec! Item was changed: ----- Method: Model>>buildWindowWith:specs: (in category 'toolbuilder') ----- buildWindowWith: builder specs: specs + + ^ self + buildWindow: (self buildWindowWith: builder) + with: builder + specs: specs! - | windowSpec | - windowSpec := self buildWindowWith: builder. - specs do:[:assoc| - | rect action widgetSpec | - rect := assoc key. - action := assoc value. - widgetSpec := action value. - widgetSpec ifNotNil:[ - widgetSpec frame: rect. - windowSpec children add: widgetSpec]]. - ^windowSpec!

1 0

The Trunk: Tests-nice.459.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.459.mcz ==================== Summary ==================== Name: Tests-nice.459 Author: nice Time: 29 April 2021, 10:30:03.551961 pm UUID: 67799656-9640-e447-b665-6f74573e3716 Ancestors: Tests-nice.458 For some reason, ImageSegmentTest>>testContextsShouldBeWritableToaFile interact badly with progress bar, resulting in a context that cannotReturn: Workaround by temporarily suppressing progress. =============== Diff against Tests-nice.458 =============== Item was changed: ----- Method: ImageSegmentTest>>testContextsShouldBeWritableToaFile (in category 'tests') ----- testContextsShouldBeWritableToaFile "This should not throw an exception" + [NativeImageSegment new - NativeImageSegment new copyFromRoots: {thisContext. thisContext copyStack} sizeHint: 100; extract; writeToFile: 'ContextChain'; + yourself] on: ProgressInitiationException do: [:e | e resumeSuppressingProgress] - yourself "TODO: write assertions showing that something meaningful actually happened." "TODO: bring them back in again"!

1 0

The Trunk: Kernel-nice.1395.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1395.mcz ==================== Summary ==================== Name: Kernel-nice.1395 Author: nice Time: 29 April 2021, 8:18:50.78844 pm UUID: f62a6682-e4e0-404a-8b5a-f25b60cad832 Ancestors: Kernel-nice.1394 Clean-up scories from previous fix for nested exception handling. No need to resume from within defaultAction. If anySatisfy: does the job, don't you inline it! =============== Diff against Kernel-nice.1394 =============== Item was removed: - ----- Method: Context>>reactivateHandlers (in category 'private-exceptions') ----- - reactivateHandlers - "Private - exception handling - do nothing, this method is only here for smooth transition. - It shall be removed at next update map." - - ^self! Item was removed: - ----- Method: Context>>rearmHandlersWhich:upTo: (in category 'private-exceptions') ----- - rearmHandlersWhich: selectBlock upTo: aHandlerContext - "Private - sent to exception handler context only (on:do:). - Rearm the inner handlers into the chain, up to, but not including, aHandlerContext, that satisfy the selectBlock predicate" - - self == aHandlerContext ifTrue: [^self]. - (selectBlock value: self) ifTrue: [self rearmHandler]. - self nextHandlerContext rearmHandlersWhich: selectBlock upTo: aHandlerContext! Item was removed: - ----- Method: Exception>>reactivateHandlers (in category 'priv handling') ----- - reactivateHandlers - "Private - exception handling - do nothing, this method is only here for smooth transition. - It shall be removed at next update map." - - ^self! Item was changed: ----- Method: ExceptionSet>>handles: (in category 'exceptionSelector') ----- handles: anException "Determine whether an exception handler will accept a signaled exception." + ^exceptions anySatisfy: [:ex | ex handles: anException]! - exceptions do: - [:ex | - (ex handles: anException) - ifTrue: [^true]]. - ^false! Item was changed: ----- Method: InMidstOfFileinNotification>>defaultAction (in category 'handling') ----- defaultAction + ^false! - self resume: false! Item was removed: - ----- Method: UndefinedObject>>rearmHandlersWhich:upTo: (in category 'bottom context') ----- - rearmHandlersWhich: selectBlock upTo: aHandlerContext - - ^ self!

1 0

The Trunk: EToys-nice.447.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Nicolas Cellier uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-nice.447.mcz ==================== Summary ==================== Name: EToys-nice.447 Author: nice Time: 29 April 2021, 8:15:33.42044 pm UUID: f9ab3ef1-aa15-5f44-819c-cb04b18577f0 Ancestors: EToys-mt.446 No need to resume: from within defaultAction. The sender of defaultAction will resume: See UndefinedObject>>handleSignal: =============== Diff against EToys-mt.446 =============== Item was changed: ----- Method: RequestAlternateSyntaxSetting>>defaultAction (in category 'as yet unclassified') ----- defaultAction + ^ Preferences printAlternateSyntax! - self resume: Preferences printAlternateSyntax!

1 0

The Trunk: Monticello-nice.745.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-nice.745.mcz ==================== Summary ==================== Name: Monticello-nice.745 Author: nice Time: 29 April 2021, 8:14:50.06744 pm UUID: b9fd885b-31b0-fe4b-b0da-da4b02c9e580 Ancestors: Monticello-ct.744 No need to resume: from within defaultAction. The sender of defaultAction will resume: See UndefinedObject>>handleSignal: =============== Diff against Monticello-ct.744 =============== Item was changed: ----- Method: MCProxyMaterialization>>defaultAction (in category 'handling') ----- defaultAction + ^proxy materializeInfo! - self resume: proxy materializeInfo!

1 0

The Trunk: System-nice.1232.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.1232.mcz ==================== Summary ==================== Name: System-nice.1232 Author: nice Time: 29 April 2021, 8:13:00.64144 pm UUID: 9bba2398-62e1-bd4f-90ba-5960a05f6ec8 Ancestors: System-mt.1231 No need to resume: from within defaultAction. The sender of defaultAction will resume: See UndefinedObject>>handleSignal: =============== Diff against System-mt.1231 =============== Item was removed: - ----- Method: ProgressTargetRequestNotification>>defaultAction (in category 'handling') ----- - defaultAction - - self resume: nil! Item was changed: ----- Method: ProjectEntryNotification>>defaultAction (in category 'handling') ----- defaultAction + ^projectToEnter enter! - self resume: projectToEnter enter! Item was changed: ----- Method: ProjectPasswordNotification>>defaultAction (in category 'handling') ----- defaultAction + ^''! - self resume: ''! Item was changed: ----- Method: ProjectViewOpenNotification>>defaultAction (in category 'handling') ----- defaultAction + ^true! - self resume: true!

1 0

The Trunk: Monticello-ct.744.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Nicolas Cellier uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-ct.744.mcz ==================== Summary ==================== Name: Monticello-ct.744 Author: ct Time: 29 April 2021, 2:59:16.605035 pm UUID: b1e2068c-07c6-624b-8da3-098968e9364c Ancestors: Monticello-mt.743 Fixes invalid category of MCPostscriptDefinition>>#wantsToBeOutermost =============== Diff against Monticello-mt.743 =============== Item was changed: + ----- Method: MCPostscriptDefinition>>wantsToBeOutermost (in category 'testing') ----- - ----- Method: MCPostscriptDefinition>>wantsToBeOutermost (in category 'nil') ----- wantsToBeOutermost ^ true!

1 0

The Trunk: Compiler-nice.458.mcz
by commits＠source.squeak.org 29 Apr '21

29 Apr '21

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.458.mcz ==================== Summary ==================== Name: Compiler-nice.458 Author: nice Time: 29 April 2021, 7:48:52.29844 pm UUID: 354afee1-3aba-4d40-b36c-0000b2e10a93 Ancestors: Compiler-nice.457 Restore newSource which is still used by MethodAddition >> #createCompiledMethod. No need to resume: from within defaultAction. The sender of defaultAction will resume: See UndefinedObject>>handleSignal: =============== Diff against Compiler-nice.457 =============== Item was changed: ----- Method: OutOfScopeNotification>>defaultAction (in category 'as yet unclassified') ----- defaultAction + ^false! - self resume: false! Item was added: + ----- Method: SyntaxErrorNotification>>newSource (in category 'accessing') ----- + newSource + ^newSource!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2021