Packages October 2020

packages@lists.squeakfoundation.org

1 participants
168 discussions

The Trunk: System-mt.1182.mcz
by commits＠source.squeak.org 23 Oct '20

23 Oct '20

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1182.mcz ==================== Summary ==================== Name: System-mt.1182 Author: mt Time: 23 October 2020, 11:38:38.259209 am UUID: 9ac892f7-a8df-d342-a4d7-36023435e3b1 Ancestors: System-eem.1181 Adds Stephan Lutz (stlu) as contributor. =============== Diff against System-eem.1181 =============== Item was changed: ----- Method: SystemNavigation class>>privateAuthorsRaw (in category 'class initialization') ----- (excessive size, no diff calculated) Item was changed: + (PackageInfo named: 'System') postscript: 'SystemNavigation initializeAuthors.'! - (PackageInfo named: 'System') postscript: 'UserInterfaceTheme cleanUpAndReset.'!

1 0

The Trunk: 60Deprecated-mt.82.mcz
by commits＠source.squeak.org 23 Oct '20

23 Oct '20

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.82.mcz ==================== Summary ==================== Name: 60Deprecated-mt.82 Author: mt Time: 23 October 2020, 11:17:56.931975 am UUID: 8d2b06eb-e1e5-1040-a27a-64bb36ee2562 Ancestors: 60Deprecated-mt.81 Complements Graphics-mt.441 =============== Diff against 60Deprecated-mt.81 =============== Item was added: + ----- Method: CompositeTransform>>offset (in category '*60Deprecated-accessing') ----- + offset + self deprecated: 'Use #localPointToGlobal: instead. Behavior of #offset can vary between transform types.'. + ^ (self localPointToGlobal: 0@0) negated! Item was added: + ----- Method: IdentityTransform>>offset (in category '*60Deprecated-accessing') ----- + offset + self deprecated: 'Use #localPointToGlobal: instead. Behavior of #offset can vary between transform types.'. + ^0@0!

1 0

The Trunk: Morphic-mt.1706.mcz
by commits＠source.squeak.org 23 Oct '20

23 Oct '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1706.mcz ==================== Summary ==================== Name: Morphic-mt.1706 Author: mt Time: 23 October 2020, 11:17:24.216975 am UUID: bccea572-5cda-db4d-a72a-63f5a8f4e49d Ancestors: Morphic-eem.1705 Complements Graphics-mt.441 =============== Diff against Morphic-eem.1705 =============== Item was changed: ----- Method: ColorPatchCanvas>>transformBy:clippingTo:during:smoothing: (in category 'drawing-support') ----- transformBy: aDisplayTransform clippingTo: aClipRect during: aBlock smoothing: cellSize "Note: This method has been originally copied from TransformationMorph." | innerRect patchRect sourceQuad warp start subCanvas | + aDisplayTransform isPureTranslation ifTrue: [ + ^ self + translateBy: (aDisplayTransform localPointToGlobal: 0@0) truncated + clippingTo: aClipRect + during: aBlock]. - (aDisplayTransform isPureTranslation) ifTrue:[ - subCanvas := self copyOffset: aDisplayTransform offset negated truncated - clipRect: aClipRect. - aBlock value: subCanvas. - foundMorph := subCanvas foundMorph. - ^self - ]. "Prepare an appropriate warp from patch to innerRect" innerRect := aClipRect. patchRect := aDisplayTransform globalBoundsToLocal: (self clipRect intersect: innerRect). sourceQuad := (aDisplayTransform sourceQuadFor: innerRect) collect: [:p | p - patchRect topLeft]. warp := self warpFrom: sourceQuad toRect: innerRect. warp cellSize: cellSize. "Render the submorphs visible in the clipping rectangle, as patchForm" start := (self depth = 1 and: [self isShadowDrawing not]) "If this is true B&W, then we need a first pass for erasure." ifTrue: [1] ifFalse: [2]. start to: 2 do: [:i | "If i=1 we first make a shadow and erase it for opaque whites in B&W" subCanvas := ColorPatchCanvas extent: patchRect extent depth: self depth. subCanvas stopMorph: stopMorph. subCanvas foundMorph: foundMorph. subCanvas doStop: doStop. i=1 ifTrue: [subCanvas shadowColor: Color black. warp combinationRule: Form erase] ifFalse: [self isShadowDrawing ifTrue: [subCanvas shadowColor: self shadowColor]. warp combinationRule: Form paint]. subCanvas translateBy: patchRect topLeft negated during: aBlock. i = 2 ifTrue:[foundMorph := subCanvas foundMorph]. warp sourceForm: subCanvas form; warpBits. warp sourceForm: nil. subCanvas := nil "release space for next loop"] !

1 0

The Trunk: Graphics-mt.441.mcz
by commits＠source.squeak.org 23 Oct '20

23 Oct '20

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.441.mcz ==================== Summary ==================== Name: Graphics-mt.441 Author: mt Time: 23 October 2020, 11:16:33.855975 am UUID: f361d2b2-6806-6147-a702-9ae9b4a6f9ec Ancestors: Graphics-mt.440 Some clean up around DisplayTransform. Thanks to Stephan Lutz (stlu)! =============== Diff against Graphics-mt.440 =============== Item was changed: ----- Method: CompositeTransform>>asMorphicTransform (in category 'converting') ----- asMorphicTransform "Squash a composite transform down to a simple one" + ^ MorphicTransform + offset: (self localPointToGlobal: 0@0) negated + angle: self angle + scale: self scale! - ^ MorphicTransform offset: self offset angle: self angle scale: self scale! Item was removed: - ----- Method: CompositeTransform>>offset (in category 'accessing') ----- - offset - ^ (self localPointToGlobal: 0@0) negated! Item was removed: - ----- Method: IdentityTransform>>offset (in category 'accessing') ----- - offset - ^0@0! Item was changed: ----- Method: MatrixTransform2x3>>offset (in category 'accessing') ----- offset + "The translation applied to all transformed points." + "Note: While other transform types also implement this method their actual behavior can differ. Only use it if you know what kind of transform you have on hand. Otherwise, use #localPointToGlobal: instead." ^self a13 @ self a23! Item was changed: ----- Method: MorphicTransform class>>offset:angle:scale: (in category 'instance creation') ----- + offset: aPoint angle: radians scale: factor - offset: aPoint angle: a scale: s + ^ self basicNew setOffset: aPoint angle: radians scale: factor! - ^ self basicNew setOffset: aPoint angle: a scale: s! Item was changed: ----- Method: MorphicTransform>>offset (in category 'accessing') ----- offset + "The translation applied to the transformed coordinate system's origin." + "Note: While other transform types also implement this method their actual behavior can differ. Only use it if you know what kind of transform you have on hand. Otherwise, use #localPointToGlobal: instead." ^ offset !

1 0

The Trunk: Compiler-tobe.448.mcz
by commits＠source.squeak.org 21 Oct '20

21 Oct '20

Marcel Taeumel uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-tobe.448.mcz ==================== Summary ==================== Name: Compiler-tobe.448 Author: tobe Time: 17 October 2020, 9:11:04.555834 am UUID: 0827d6fb-39db-4734-8440-9c0af90b39e5 Ancestors: Compiler-eem.447 Report pc for closureCreationNodes of full blocks See BlockNode>>#emitCodeForValue:encoder: for the analogous call without full blocks =============== Diff against Compiler-eem.447 =============== Item was changed: ----- Method: BlockNode>>emitCodeForFullBlockValue:encoder: (in category 'code generation') ----- emitCodeForFullBlockValue: stack encoder: encoder copiedValues do: [:copiedValue| copiedValue emitCodeForValue: stack encoder: encoder]. + closureCreationNode pc: encoder nextPC. encoder genPushFullClosure: closureCreationNode index numCopied: copiedValues size. stack pop: copiedValues size; push: 1!

1 0

The Trunk: MonticelloConfigurations-mt.163.mcz
by commits＠source.squeak.org 21 Oct '20

21 Oct '20

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.163.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.163 Author: mt Time: 21 October 2020, 6:02:57.952951 pm UUID: 18789ac3-9476-9a40-aeea-a6dcfc3a5b32 Ancestors: MonticelloConfigurations-mt.162 Restore default name for update map to be 'update'. Not sure whether this one should also be ensured in ReleaseBuilder. =============== Diff against MonticelloConfigurations-mt.162 =============== Item was changed: ----- Method: MCMcmUpdater class>>updateMapName (in category 'preferences') ----- updateMapName "The default update map name" <preference: 'Update map name' category: 'updates' description: 'Base name for the update maps' type: #String> + ^DefaultUpdateMap ifNil: ['update']! - ^DefaultUpdateMap ifNil:['']!

1 0

The Trunk: Tools-eem.1005.mcz
by commits＠source.squeak.org 20 Oct '20

20 Oct '20

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1005.mcz ==================== Summary ==================== Name: Tools-eem.1005 Author: eem Time: 19 October 2020, 9:36:40.011366 pm UUID: d9422010-74b2-478d-9313-84e1ecc5c5ec Ancestors: Tools-eem.1004 Have the Workspace thang deal with both ,text and .txt =============== Diff against Tools-eem.1004 =============== Item was changed: ----- Method: FileList>>viewContentsInWorkspace (in category 'own services') ----- viewContentsInWorkspace "View the contents of my selected file in a new workspace" | aFileStream aName lineConversion w | aFileStream := (directory readOnlyFileNamed: self fullName) setConverterForCode. aFileStream wantsLineEndConversion: true. lineConversion := aFileStream detectLineEndConvention. aName := aFileStream localName. + w := UIManager default - w:= UIManager default edit: ([aFileStream contentsOfEntireFile] ensure: [aFileStream close]) label: ((aName includesSubstring: 'Workspace') + ifTrue: [#('.text' '.txt') inject: aName into: [:name :ext| (name endsWith: ext) ifTrue: [name allButLast: ext size] ifFalse: [name]]] - ifTrue: [(aName endsWith: '.text') ifTrue: [aName allButLast: 5] ifFalse: [aName]] ifFalse: ['Workspace from ', aName]). w setProperty: #lineConversion toValue: lineConversion. directory ~= FileDirectory default ifTrue: [w setProperty: #myDir toValue: directory]!

1 0

The Trunk: Morphic-eem.1705.mcz
by commits＠source.squeak.org 20 Oct '20

20 Oct '20

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1705.mcz ==================== Summary ==================== Name: Morphic-eem.1705 Author: eem Time: 19 October 2020, 5:56:07.299121 pm UUID: bc2b5ee7-0019-4440-8a9e-0ff595cde4ff Ancestors: Morphic-eem.1704 ...and remember to track the target directory if it is changed. =============== Diff against Morphic-eem.1704 =============== Item was changed: ----- Method: TextEditor>>saveContentsInFile (in category 'menu messages') ----- saveContentsInFile "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." + | stringToSave parentWindow labelToUse suggestedName fileName | + (stringToSave := paragraph text string) isEmpty ifTrue: + [^self inform: 'nothing to save.']. + parentWindow := model dependents + detect: [:dep | dep isSystemWindow] + ifNone: [self error: 'could not find parent window']. + labelToUse := (parentWindow valueOfProperty: #myDir) + ifNil: [parentWindow label] + ifNotNil: [:dir| dir fullNameFor: parentWindow label]. - | fileName stringToSave parentWindow labelToUse suggestedName dir | - stringToSave := paragraph text string. - stringToSave size = 0 ifTrue: [^self inform: 'nothing to save.']. - parentWindow := model dependents - detect: [:dep | dep isKindOf: SystemWindow] - ifNone: [nil]. - dir := parentWindow valueOfProperty: #myDir. - labelToUse := - parentWindow - ifNil: ['Untitled'] - ifNotNil: [ - dir ifNil: [parentWindow label] - ifNotNil:[dir fullNameFor: parentWindow label]]. suggestedName := nil. + "can add more here..." + #(('Decompressed contents of: ' '.gz')) do: + [:pair | + [:leader :trailer| + (labelToUse beginsWith: leader) ifTrue: + [suggestedName := labelToUse allButFirst: leader size. + (labelToUse endsWith: trailer) + ifTrue: + [suggestedName := suggestedName allButLast: trailer size] + ifFalse: + [| lastIndex | + lastIndex := suggestedName lastIndexOf: $. ifAbsent: [0]. + lastIndex > 1 ifTrue: + [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]] + valueWithArguments: pair]. + suggestedName ifNil: + [suggestedName := (labelToUse includes: $.) + ifTrue: [labelToUse] + ifFalse: [labelToUse, '.text']]. + fileName := UIManager default request: 'File name?' initialAnswer: suggestedName. + fileName isEmptyOrNil ifTrue: [^self]. + ((MultiByteFileStream newFileNamed: fileName) + lineEndConvention: (parentWindow valueOfProperty: #lineConversion); "nil is fine here..." + nextPutAll: stringToSave; + close; + directory) ifNotNil: + [:dir| + dir = FileDirectory default + ifTrue: [parentWindow removeProperty: #myDir] + ifFalse: [parentWindow setProperty: #myDir toValue: dir]. + fileName := dir localNameFor: fileName]. + suggestedName ~= fileName ifTrue: + [parentWindow label: ((fileName endsWith: '.text') ifTrue: [fileName allButLast: 5] ifFalse: [fileName])]. + self morph hasUnacceptedEdits: false! - #(#('Decompressed contents of: ' '.gz')) do: - [:leaderTrailer | | lastIndex | - "can add more here..." - - (labelToUse beginsWith: leaderTrailer first) - ifTrue: - [suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 - to: labelToUse size. - (labelToUse endsWith: leaderTrailer last) - ifTrue: - [suggestedName := suggestedName copyFrom: 1 - to: suggestedName size - leaderTrailer last size] - ifFalse: - [lastIndex := suggestedName lastIndexOf: $. ifAbsent: [0]. - (lastIndex = 0 or: [lastIndex = 1]) - ifFalse: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. - suggestedName ifNil: [suggestedName := labelToUse. - (labelToUse includesSubstring: '.') ifFalse: [suggestedName := suggestedName , '.text']]. - fileName := UIManager default request: 'File name?' - initialAnswer: suggestedName. - fileName isEmptyOrNil - ifFalse: - [ |ns| - ns := MultiByteFileStream newFileNamed: fileName. - ns lineEndConvention: (parentWindow valueOfProperty: #lineConversion). - ns nextPutAll: stringToSave; - close. - suggestedName ~= fileName ifTrue:[parentWindow label: fileName]. - self morph hasUnacceptedEdits: false. - ]!

1 0

The Trunk: Morphic-eem.1704.mcz
by commits＠source.squeak.org 20 Oct '20

20 Oct '20

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1704.mcz ==================== Summary ==================== Name: Morphic-eem.1704 Author: eem Time: 19 October 2020, 5:18:43.145396 pm UUID: 1889aef2-4bb4-45ee-a4c9-75c721103c1e Ancestors: Morphic-mt.1703 Integrate Javier Diaz-Reinoso's kindly contributed improvement to Workspace file editing. =============== Diff against Morphic-mt.1703 =============== Item was changed: ----- Method: TextEditor>>saveContentsInFile (in category 'menu messages') ----- saveContentsInFile "Save the receiver's contents string to a file, prompting the user for a file-name. Suggest a reasonable file-name." + | fileName stringToSave parentWindow labelToUse suggestedName dir | - | fileName stringToSave parentWindow labelToUse suggestedName | stringToSave := paragraph text string. stringToSave size = 0 ifTrue: [^self inform: 'nothing to save.']. parentWindow := model dependents detect: [:dep | dep isKindOf: SystemWindow] ifNone: [nil]. + dir := parentWindow valueOfProperty: #myDir. + labelToUse := + parentWindow + ifNil: ['Untitled'] + ifNotNil: [ + dir ifNil: [parentWindow label] + ifNotNil:[dir fullNameFor: parentWindow label]]. - labelToUse := parentWindow ifNil: ['Untitled'] - ifNotNil: [parentWindow label]. suggestedName := nil. #(#('Decompressed contents of: ' '.gz')) do: [:leaderTrailer | | lastIndex | "can add more here..." (labelToUse beginsWith: leaderTrailer first) ifTrue: [suggestedName := labelToUse copyFrom: leaderTrailer first size + 1 to: labelToUse size. (labelToUse endsWith: leaderTrailer last) ifTrue: [suggestedName := suggestedName copyFrom: 1 to: suggestedName size - leaderTrailer last size] ifFalse: + [lastIndex := suggestedName lastIndexOf: $. ifAbsent: [0]. + (lastIndex = 0 or: [lastIndex = 1]) + ifFalse: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. + suggestedName ifNil: [suggestedName := labelToUse. + (labelToUse includesSubstring: '.') ifFalse: [suggestedName := suggestedName , '.text']]. + fileName := UIManager default request: 'File name?' - [lastIndex := suggestedName lastIndexOf: $.. - lastIndex > 1 - ifTrue: [suggestedName := suggestedName copyFrom: 1 to: lastIndex - 1]]]]. - suggestedName ifNil: [suggestedName := labelToUse , '.text']. - fileName := UIManager default saveFilenameRequest: 'File name?' initialAnswer: suggestedName. fileName isEmptyOrNil ifFalse: + [ |ns| + ns := MultiByteFileStream newFileNamed: fileName. + ns lineEndConvention: (parentWindow valueOfProperty: #lineConversion). + ns nextPutAll: stringToSave; + close. + suggestedName ~= fileName ifTrue:[parentWindow label: fileName]. + self morph hasUnacceptedEdits: false. + ]! - [(FileStream newFileNamed: fileName) - nextPutAll: stringToSave; - close]!

1 0

The Trunk: Tools-eem.1004.mcz
by commits＠source.squeak.org 20 Oct '20

20 Oct '20

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.1004.mcz ==================== Summary ==================== Name: Tools-eem.1004 Author: eem Time: 19 October 2020, 5:17:08.08257 pm UUID: 8680e986-a863-4369-bc29-967b005c4851 Ancestors: Tools-eem.1003 Integrate Javier Diaz-Reinoso;s kindly contributed improvement to Workspace file editing. =============== Diff against Tools-eem.1003 =============== Item was changed: ----- Method: FileList>>viewContentsInWorkspace (in category 'own services') ----- viewContentsInWorkspace "View the contents of my selected file in a new workspace" + | aFileStream aName lineConversion w | + aFileStream := (directory readOnlyFileNamed: self fullName) setConverterForCode. + aFileStream wantsLineEndConversion: true. + lineConversion := aFileStream detectLineEndConvention. - | aString aFileStream aName | - aString := (aFileStream := directory readOnlyFileNamed: self fullName) setConverterForCode contentsOfEntireFile. aName := aFileStream localName. + w:= UIManager default + edit: ([aFileStream contentsOfEntireFile] ensure: [aFileStream close]) + label: ((aName includesSubstring: 'Workspace') + ifTrue: [(aName endsWith: '.text') ifTrue: [aName allButLast: 5] ifFalse: [aName]] + ifFalse: ['Workspace from ', aName]). + w setProperty: #lineConversion toValue: lineConversion. + directory ~= FileDirectory default ifTrue: [w setProperty: #myDir toValue: directory]! - aFileStream close. - UIManager default edit: aString withSqueakLineEndings label: 'Workspace from ', aName!

1 0

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2020