Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: Graphics-mt.512.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.512.mcz ==================== Summary ==================== Name: Graphics-mt.512 Author: mt Time: 21 April 2022, 12:49:56.027671 pm UUID: 979e8e5d-eb07-fb47-9aef-e77c9cd11bbc Ancestors: Graphics-mt.511 In Color, complement #setRGB: and #setRgb:alpha: with #setAlpha: for consistency and STON compatibility. =============== Diff against Graphics-mt.511 =============== Item was added: + ----- Method: TranslucentColor>>setAlpha: (in category 'private') ----- + setAlpha: alphaValue + + alpha := (255.0 * alphaValue) asInteger min: 255 max: 0.!

1 0

The Trunk: Graphics-mt.511.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.511.mcz ==================== Summary ==================== Name: Graphics-mt.511 Author: mt Time: 21 April 2022, 12:46:46.247671 pm UUID: a87224f9-b95c-c14a-b370-6b8aff31ab70 Ancestors: Graphics-tpr.510 In Color, complement #named:put: with #named:, which is also beneficial for STON compatibility. Note that #fromString: is still more powerful as it supports hex notation and rgb tuples. =============== Diff against Graphics-tpr.510 =============== Item was added: + ----- Method: Color class>>named: (in category 'instance creation') ----- + named: colorName + + | colorSym result | + (colorSym := Symbol lookup: colorName) ifNil: [^ nil]. + result := (self class canUnderstand: colorSym) + ifTrue: [self perform: colorSym] + ifFalse: [self classPool at: colorSym ifAbsent: nil]. + ^ result isColor ifTrue: [result]!

1 0

The Trunk: MonticelloConfigurations-mt.177.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.177.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.177 Author: mt Time: 21 April 2022, 10:18:16.293598 am UUID: 2723a40f-c5dd-6f4d-8e43-1cf7b39b173d Ancestors: MonticelloConfigurations-mt.176 And another one ... :-) Basically all #chooseFrom:values: sends with arrays of literal strings as argument. =============== Diff against MonticelloConfigurations-mt.176 =============== Item was changed: ----- Method: MCConfigurationBrowser>>updateMenu (in category 'actions') ----- updateMenu | action | + action := Project uiManager + chooseOptionFrom: #('update all from image' 'update all from repositories') - action := UIManager default - chooseFrom: #('update all from image' 'update all from repositories') values: #(#updateFromImage #updateFromRepositories). action ifNotNil: [self perform: action].!

1 0

The Trunk: Multilingual-mt.281.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.281.mcz ==================== Summary ==================== Name: Multilingual-mt.281 Author: mt Time: 21 April 2022, 10:15:38.495598 am UUID: 42da5799-62aa-0447-9f91-3fae6009f2da Ancestors: Multilingual-mt.280 Integrate TextConverter re-initialization in the #cleanUp: protocol. Also see https://github.com/squeak-smalltalk/squeak-object-memory/issues/6 =============== Diff against Multilingual-mt.280 =============== Item was added: + ----- Method: CompoundTextConverter class>>initializeLatin1MapAndEncodings (in category 'class initialization') ----- + initializeLatin1MapAndEncodings + "Ignore."! Item was added: + ----- Method: TextConverter class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + aggressive ifTrue: [ + self allSubclassesDo: [:converterClass | + converterClass initializeTables]].! Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'TextConverter cleanUp: true. "Initialize all uninitialized latin-1 tables... issue #6"'! - (PackageInfo named: 'Multilingual') postscript: 'Latin2TextConverter initializeTables.'!

1 0

The Trunk: Monticello-mt.777.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.777.mcz ==================== Summary ==================== Name: Monticello-mt.777 Author: mt Time: 21 April 2022, 10:11:41.082461 am UUID: 0f0e6b4d-512a-7c46-9650-8faa10e47de0 Ancestors: Monticello-mt.776 Fixes regression in edit-scripts dialog. =============== Diff against Monticello-mt.776 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>editLoadScripts (in category 'morphic ui') ----- editLoadScripts | arg | self hasWorkingCopy ifFalse: [^self]. + arg := Project uiManager + chooseOptionFrom: #('edit preamble' 'edit postscript' 'edit preambleOfRemoval' 'edit postscriptOfRemoval') - arg := UIManager default - chooseFrom: #('edit preamble' 'edit postscript' 'edit preambleOfRemoval' 'edit postscriptOfRemoval') values: #(#preamble #postscript #preambleOfRemoval #postscriptOfRemoval). arg ifNotNil: [ self editScript: arg].!

1 0

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

21 Apr '22

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1458.mcz ==================== Summary ==================== Name: Kernel-mt.1458 Author: mt Time: 21 April 2022, 10:02:59.674461 am UUID: f6c653af-39cf-6a4b-adb8-532953ba4c77 Ancestors: Kernel-tpr.1457 Fixes regerssion in choose-var dialog. Use list not buttons bc. there can be quite many instVars in a class. =============== Diff against Kernel-tpr.1457 =============== Item was changed: ----- Method: ClassDescription>>chooseVarThenDo: (in category 'instance variables') ----- chooseVarThenDo: aBlock "Put up a menu of all the instance variables in the receiver, and when the user chooses one, evaluate aBlock with the chosen variable as its parameter." | lines labelStream allVars index | (self allInstVarNames size + self theNonMetaClass allClassVarNames size) = 0 ifTrue: [ ^ self inform: 'There are no variables.' ]. allVars := OrderedCollection new. lines := OrderedCollection new. labelStream := WriteStream on: (String new: 200). self withAllSuperclasses do: [ : class | | vars | vars := class instVarNames , class theNonMetaClass classVarNames. vars do: [ : var | labelStream nextPutAll: var ; cr. allVars add: var ]. vars isEmpty ifFalse: [ lines add: allVars size ] ]. labelStream skip: -1. "cut last CR" (lines size > 0 and: [ lines last = allVars size ]) ifTrue: [ lines removeLast ]. "dispense with inelegant line beneath last item" index := Project uiManager + chooseFrom: (labelStream contents lines) - chooseOptionFrom: (labelStream contents lines) lines: lines title: 'Variables in ' , self name. index = 0 ifTrue: [ ^ self ]. aBlock value: (allVars at: index)!

1 0

The Trunk: Collections-ul.1001.mcz
by commits＠source.squeak.org 21 Apr '22

21 Apr '22

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.1001.mcz ==================== Summary ==================== Name: Collections-ul.1001 Author: ul Time: 29 March 2022, 12:00:19.112855 pm UUID: ed96df47-774b-4db9-88e9-24926cd4a290 Ancestors: Collections-ul.1000, Collections-ct.999 - merged =============== Diff against Collections-ul.1000 ===============

1 0

The Trunk: System-mt.1344.mcz
by commits＠source.squeak.org 20 Apr '22

20 Apr '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1344.mcz ==================== Summary ==================== Name: System-mt.1344 Author: mt Time: 20 April 2022, 11:40:05.183902 am UUID: b547fabb-160c-0040-adf1-71588f5fdc72 Ancestors: System-tpr.1343 Complements ToolBuilder-Kernel-mt.158 =============== Diff against System-tpr.1343 =============== Item was changed: ----- Method: DefaultExternalDropHandler>>chooseServiceFrom: (in category 'private') ----- chooseServiceFrom: aCollection "private - choose a service from aCollection asking the user if needed" ^ aCollection size = 1 ifTrue: [aCollection anyOne] + ifFalse: [Project uiManager + chooseOptionFrom: (aCollection collect: [:each | each label]) - ifFalse: [UIManager default - chooseFrom: (aCollection collect: [:each | each label]) values: aCollection title: 'You dropped a file. Please choose a service:' translated withCRs].! Item was changed: ----- Method: ExternalDropHandler class>>chooseServiceFrom: (in category 'private') ----- chooseServiceFrom: aCollection "private - choose a service from aCollection asking the user if needed" ^aCollection size = 1 ifTrue: [aCollection anyOne] + ifFalse:[Project uiManager + chooseOptionFrom: (aCollection collect:[:each| each label]) - ifFalse:[UIManager default - chooseFrom: (aCollection collect:[:each| each label]) values: aCollection title: 'You dropped a file. Please choose a service:' translated withCRs].! Item was changed: ----- Method: FilePackage>>askForDoits (in category 'fileIn/fileOut') ----- askForDoits | choice choices | choices := #('do not process' 'at the beginning' 'at the end' 'cancel'). choice := nil. [choices includes: choice] whileFalse: [ + choice := Project uiManager chooseOptionFrom: choices values: choices title: - choice := UIManager default chooseFrom: choices values: choices title: 'The package contains unprocessed doIts. When would like to process those?']. ^choices indexOf: choice! Item was changed: ----- Method: SystemNavigation>>confirmAndRemoveClass: (in category 'ui') ----- confirmAndRemoveClass: aClass | allCalls subclasses hasForeignCalls className numberOfMethods allChoices yourChoice remove browse| allCalls := self allCallsOnClass: aClass. subclasses := aClass subclasses. hasForeignCalls := allCalls anySatisfy: [:ea | ea actualClass ~= aClass]. className := aClass name. numberOfMethods := aClass methodDict size + aClass class methodDict size. allChoices := OrderedDictionary new. allChoices at: 'Yes, remove it' translated put: [remove := true. browse := false]. (allCalls notEmpty or: [subclasses notEmpty]) ifTrue: [ allChoices at: 'Yes, remove it, then browse references' translated put: [remove := true. browse := true]. allChoices at: 'No, don''t remove it, but browse references' translated put: [remove := false. browse := true]]. allChoices at: 'No, don''t remove it' translated put: [remove := false. browse := false]. yourChoice := Project uiManager + chooseOptionFromLabeledValues: allChoices - chooseFromLabeledValues: allChoices title: ('Are you sure that you want to remove the class\\ {1}\\and all its {2} methods? Maybe save your image before doing this.{3}{4}' translated withCRs asText format: { className asText allBold. numberOfMethods asString asText allBold. hasForeignCalls ifFalse: [''] ifTrue: [ '\\(There are {1} references to this class.)' translated withCRs asText format: { allCalls size asString asText allBold }]. subclasses ifEmpty: [''] ifNotEmpty: [ '\\(There are {1} subclasses, whose superclass must be updated manually after this.)' translated withCRs asText format: { subclasses size asString asText allBold }] }). remove := browse := false. "Defaults" yourChoice value. "Supports nil because of defaults above." remove ifTrue: [ aClass removeFromSystem]. browse ifTrue: [ hasForeignCalls ifTrue: [ self browseAllCallsOnClass: aClass]. subclasses ifNotEmpty: [ self browseMessageList: (subclasses collect: [:subclass | MethodReference class: subclass selector: #Definition environment: self environment]) name: ('Subclasses of {1}' translated format: {className}) autoSelect: className]]. ^ remove! Item was changed: ----- Method: SystemNavigation>>confirmAndRemoveSelector:class: (in category 'ui') ----- confirmAndRemoveSelector: selector class: aClass | method allCalls remove browse | method := MethodReference class: aClass selector: selector environment: self environment. allCalls := self allCallsOn: selector. (allCalls anySatisfy: [:ea | ea ~= method]) ifFalse: [remove := true. browse := false] ifTrue: [ | allChoices yourChoice | allChoices := OrderedDictionary new. allChoices at: 'Yes, remove it' translated put: [remove := true. browse := false]. allChoices at: 'Yes, remove it, then browse senders' translated put: [remove := true. browse := true]. allChoices at: 'No, don''t remove it, but browse senders' translated put: [remove := false. browse := true]. allChoices at: 'No, don''t remove it' translated put: [remove := false. browse := false]. yourChoice := Project uiManager + chooseOptionFromLabeledValues: allChoices - chooseFromLabeledValues: allChoices title: ('Are you sure that you want to remove the message {1} from {2}?\\The message has {3} senders.' translated withCRs asText format: { selector asText allBold. aClass name asText allBold. allCalls size asString asText allBold }). remove := browse := false. "Defaults" yourChoice value. "Supports nil because of defaults above."]. remove ifTrue: [ aClass removeSelector: selector]. browse ifTrue: [ self headingAndAutoselectForLiteral: selector do: [ :label :autoSelect | self browseMessageList: allCalls name: label autoSelect: autoSelect]]. ^ remove!

1 0

The Trunk: Sound-mt.89.mcz
by commits＠source.squeak.org 20 Apr '22

20 Apr '22

Marcel Taeumel uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-mt.89.mcz ==================== Summary ==================== Name: Sound-mt.89 Author: mt Time: 20 April 2022, 11:39:39.081902 am UUID: 9ae530a1-a45a-974e-8cde-2fabc26a4be7 Ancestors: Sound-ct.88 Complements ToolBuilder-Kernel-mt.158 =============== Diff against Sound-ct.88 =============== Item was changed: ----- Method: AbstractSound class>>storeFiledInSound:named: (in category 'sound library-file in/out') ----- storeFiledInSound: snd named: sndName "Store the given sound in the sound library. Use the given name if it isn't in use, otherwise ask the user what to do." | choice i | (Sounds includesKey: sndName) ifFalse: [ "no name clash" Sounds at: sndName put: snd. ^ self]. (Sounds at: sndName) == UnloadedSnd ifTrue: [ "re-loading a sound that was unloaded to save space" Sounds at: sndName put: snd. ^ self]. "the given sound name is already used" + choice := Project uiManager + chooseOptionFrom: #('replace the existing sound' 'rename the new sound' 'skip it') - choice := UIManager default - chooseFrom: #('replace the existing sound' 'rename the new sound' 'skip it') values: #('replace the existing sound' 'rename the new sound' 'skip it') title: '"', sndName, '" has the same name as an existing sound'. (choice beginsWith: 'replace') ifTrue: [ Sounds at: sndName put: snd. ^ self]. (choice beginsWith: 'rename') ifTrue: [ i := 2. [Sounds includesKey: (sndName, ' v', i printString)] whileTrue: [i := i + 1]. Sounds at: (sndName, ' v', i printString) put: snd]. !

1 0

The Trunk: ReleaseBuilder-mt.233.mcz
by commits＠source.squeak.org 20 Apr '22

20 Apr '22

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.233.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.233 Author: mt Time: 20 April 2022, 11:39:24.328902 am UUID: 04844e48-97f1-824a-965a-2fd08492ba08 Ancestors: ReleaseBuilder-tpr.232 Complements ToolBuilder-Kernel-mt.158 =============== Diff against ReleaseBuilder-tpr.232 =============== Item was changed: ----- Method: ReleaseBuilder class>>requestNextReleaseVersion (in category 'manual') ----- requestNextReleaseVersion "self requestNextReleaseVersion" | nextMinor nextMajor current next | current := { SystemVersion current majorVersionNumber. SystemVersion current minorVersionNumber}. nextMinor := { current first. current second + 1}. nextMajor := { current first + 1. 0}. next := Project uiManager + chooseOptionFromLabeledValues: (OrderedDictionary new - chooseFromLabeledValues: (OrderedDictionary new at: ('{1}.{2}' format: {nextMinor first. nextMinor second}) put: nextMinor; at: ('{1}.{2}' format: {nextMajor first. nextMajor second}) put: nextMajor; yourself) title: 'Please Choose Next Version' translated. next ifNil: [^ self requestNextReleaseVersion]. NextMajorVersion := next first. NextMinorVersion := next second.!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
19
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 April 2022