Packages July 2022

packages@lists.squeakfoundation.org

1 participants
59 discussions

The Trunk: Installer-Core-eem.450.mcz
by commits＠source.squeak.org 28 Jul '22

28 Jul '22

Eliot Miranda uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-eem.450.mcz ==================== Summary ==================== Name: Installer-Core-eem.450 Author: eem Time: 28 July 2022, 3:56:34.407702 pm UUID: bfcca845-0aad-41e5-a0d3-33485f0a4bc8 Ancestors: Installer-Core-mt.449 Add https to the schemes understood by InstallerMonticello. Use https for source.squeak.org and squeaksource.com. Remove the explicit scheme from senders of http: =============== Diff against Installer-Core-mt.449 =============== Item was changed: ----- Method: Installer class>>defaultLocalRepository (in category 'repository-overrides') ----- defaultLocalRepository "Check for a personal, Magma-indexed SqueakSource server first, if none running, the the 'mc' directory in the current directory." | localSqueaksource | + localSqueaksource := Installer monticello http: 'localhost:8079'. - localSqueaksource := Installer monticello http: 'http://localhost:8079'. ^ localSqueaksource mc isIndexed ifTrue: [localSqueaksource] ifFalse: [self localMcDir]! Item was changed: ----- Method: Installer class>>gemsource (in category 'repositories') ----- gemsource + ^ self monticello http: 'seaside.gemtalksystems.com/ss'! - ^ self monticello http: 'http://seaside.gemtalksystems.com/ss'! Item was changed: ----- Method: Installer class>>krestianstvo (in category 'repositories') ----- krestianstvo "Krestianstvo SDK code repository." + ^ self monticello http: 'sdk.krestianstvo.org/sdk/'! - ^ self monticello http: 'http://sdk.krestianstvo.org/sdk/'! Item was changed: ----- Method: Installer class>>lukas (in category 'repositories') ----- lukas + ^ self monticello http: 'source.lukas-renggli.ch'! - ^ self monticello http: 'http://source.lukas-renggli.ch'! Item was changed: ----- Method: Installer class>>squeak (in category 'repositories') ----- squeak + ^self monticello https: 'source.squeak.org'! - ^self monticello http: 'source.squeak.org'! Item was changed: ----- Method: Installer class>>squeaksource (in category 'repositories') ----- squeaksource + ^ self monticello https: 'www.squeaksource.com'! - ^ self monticello http: 'https://www.squeaksource.com'! Item was changed: ----- Method: Installer class>>squeaksource3 (in category 'repositories') ----- squeaksource3 + ^ self monticello http: 'ss3.gemtalksystems.com/ss/'! - ^ self monticello http: 'http://ss3.gemtalksystems.com/ss/'! Item was changed: ----- Method: Installer class>>swasource (in category 'repositories') ----- swasource "Visit: https://www.hpi.uni-potsdam.de/hirschfeld/trac/SqueakCommunityProjects Installer swasource project: 'MetacelloRepository'; open. Installer swasource project: 'SwaUtilities'; open. " + ^ self monticello https: 'www.hpi.uni-potsdam.de/hirschfeld/squeaksource'! - ^ self monticello http: 'https://www.hpi.uni-potsdam.de/hirschfeld/squeaksource'! Item was changed: ----- Method: Installer class>>wiresong (in category 'repositories') ----- wiresong + ^ self monticello http: 'source.wiresong.ca'! - ^ self monticello http: 'http://source.wiresong.ca'! Item was changed: ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') ----- http: aUrl user: name password: secret + self setRepositoryFor: aUrl scheme: #http user: name password: secret! - | url | - url := (aUrl includesSubstring: '://') - ifTrue: [aUrl] - ifFalse: ['http://', aUrl]. - mc := self classMCHttpRepository location: url user: name password: secret. - root := mc locationWithTrailingSlash - ! Item was added: + ----- Method: InstallerMonticello>>https: (in category 'instance creation') ----- + https: aUrl + + self https: aUrl user: '' password: '' + + ! Item was added: + ----- Method: InstallerMonticello>>https:user:password: (in category 'instance creation') ----- + https: aUrl user: name password: secret + self setRepositoryFor: aUrl scheme: #https user: name password: secret! Item was added: + ----- Method: InstallerMonticello>>setRepositoryFor:scheme:user:password: (in category 'private') ----- + setRepositoryFor: aUrl scheme: scheme user: name password: secret + | url | + url := (aUrl includesSubstring: '://') + ifTrue: [aUrl] + ifFalse: [scheme, '://', aUrl]. + mc := self classMCHttpRepository location: url user: name password: secret. + root := mc locationWithTrailingSlash!

1 0

The Trunk: Sound-eem.90.mcz
by commits＠source.squeak.org 27 Jul '22

27 Jul '22

Eliot Miranda uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-eem.90.mcz ==================== Summary ==================== Name: Sound-eem.90 Author: eem Time: 27 July 2022, 11:04:08.439551 am UUID: d2a3fba6-3061-4ffc-bfcf-125f6bfdbafc Ancestors: Sound-mt.89 Add interfaces for enumerating the sound player and recorder devices and setting the current device. =============== Diff against Sound-mt.89 =============== Item was added: + ----- Method: SoundPlayer class>>defaultPlayer (in category 'accessing') ----- + defaultPlayer + "Answer the deviceName of the default device to be used as the next player (output) device to be opened." + ^self primDefaultPlayer! Item was added: + ----- Method: SoundPlayer class>>defaultPlayer: (in category 'accessing') ----- + defaultPlayer: deviceName + self primDefaultPlayer: deviceName! Item was added: + ----- Method: SoundPlayer class>>numberOfPlayerDevices (in category 'accessing') ----- + numberOfPlayerDevices + "Answer the number of player (output) devices. See #playerDeviceNameOf:." + <primitive: 'primitiveGetNumberOfSoundPlayerDevices' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>playerDeviceNameOfIndex: (in category 'private') ----- + playerDeviceNameOfIndex: deviceNumber + "Answer the name of the nth player (output) device, or nil. + The device number must range from 1 to the #numberOfPlayerDevices." + <primitive: 'primitiveGetSoundPlayerDeviceName' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>playerDevices (in category 'accessing') ----- + playerDevices + "Answer a sortable collection of available values for use with #defaultPlayer:." + ^(1 to: self numberOfPlayerDevices) collect: + [:index | self playerDeviceNameOfIndex: index]! Item was added: + ----- Method: SoundPlayer class>>primDefaultPlayer (in category 'private') ----- + primDefaultPlayer + "Answer the deviceName of the default device to be used as the next player (output) device to be opened." + <primitive: 'primitiveGetDefaultSoundPlayer' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundPlayer class>>primDefaultPlayer: (in category 'private') ----- + primDefaultPlayer: deviceName + "Set deviceName as the default device to be used as the next player (output) device to be opened." + <primitive: 'primitiveSetDefaultSoundPlayer' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>defaultRecorder (in category 'accessing') ----- + defaultRecorder + "Get deviceName of the default device to be used as the next recorder (input) device to be opened." + ^self primDefaultRecorder! Item was added: + ----- Method: SoundRecorder class>>defaultRecorder: (in category 'accessing') ----- + defaultRecorder: deviceName + "Set deviceName as the default device to be used as the next recorder (input) device to be opened. + The initial listing setup (self recorderDevices) should be called prior to doing this; + if it returns NULL, then no devices are to be considered." + self primDefaultRecorder: deviceName! Item was added: + ----- Method: SoundRecorder class>>numberOfRecorderDevices (in category 'accessing') ----- + numberOfRecorderDevices + "Answer the number of recorder (input) devices. See #recorderDeviceNameOf:." + <primitive: 'primitiveGetNumberOfSoundRecorderDevices' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>primDefaultRecorder (in category 'private') ----- + primDefaultRecorder + "Get deviceName of the default device to be used as the next recorder (input) device to be opened." + <primitive: 'primitiveGetDefaultSoundRecorder' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>primDefaultRecorder: (in category 'private') ----- + primDefaultRecorder: deviceName + "Set deviceName as the default device to be used as the next recorder (input) device to be opened." + <primitive: 'primitiveSetDefaultSoundRecorder' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>recorderDeviceNameOfIndex: (in category 'private') ----- + recorderDeviceNameOfIndex: deviceNumber + "Answer the name of the nth recorder (input) device, or nil. + The device number must range from 1 to the #numberOfRecorderDevices." + <primitive: 'primitiveGetSoundRecorderDeviceName' module: 'SoundPlugin'> + ^self primitiveFailed! Item was added: + ----- Method: SoundRecorder class>>recorderDevices (in category 'accessing') ----- + recorderDevices + "Answer a sortable collection of available values for use with #defaultRecorder:." + ^(1 to: self numberOfRecorderDevices) collect: + [:index | self recorderDeviceNameOfIndex: index]!

1 0

FFI: FFI-Kernel-eem.226.mcz
by commits＠source.squeak.org 27 Jul '22

27 Jul '22

Eliot Miranda uploaded a new version of FFI-Kernel to project FFI: http://source.squeak.org/FFI/FFI-Kernel-eem.226.mcz ==================== Summary ==================== Name: FFI-Kernel-eem.226 Author: eem Time: 27 July 2022, 10:21:22.93735 am UUID: 5c47c335-b61d-40a2-befc-64f62f2f1d34 Ancestors: FFI-Kernel-mt.225 Robustness in the type framework. In at least one case of loading old code an ExternalUnknownType was created whose referentClass is a class, not a class name symbol. =============== Diff against FFI-Kernel-mt.225 =============== Item was changed: ----- Method: ExternalUnknownType>>typeName (in category 'accessing') ----- typeName + referentClass isBehavior ifTrue: + [^referentClass name]. - self assert: [referentClass isSymbol]. ^ referentClass "Usually just the name of the class."!

1 0

The Trunk: Morphic-eem.2021.mcz
by commits＠source.squeak.org 26 Jul '22

26 Jul '22

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.2021.mcz ==================== Summary ==================== Name: Morphic-eem.2021 Author: eem Time: 26 July 2022, 12:01:10.585585 pm UUID: 3cae6374-47d3-49e9-99a8-8c59697058d1 Ancestors: Morphic-eem.2020 Tiny reliability tweak. =============== Diff against Morphic-eem.2020 =============== Item was changed: ----- Method: TextMorph>>minHeight (in category 'layout') ----- minHeight | result | result := (paragraph ifNil: [self minCompositionHeight] + ifNotNil: [:para| para lines first lineHeight]) - ifNotNil: [paragraph lines first lineHeight]) + (self borderWidth*2). margins ifNil: [^ result]. ^ margins isRectangle ifTrue: [result + margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [result + margins y + margins y] ifFalse: [result + (2*margins)]]!

1 0

The Trunk: Kernel-eem.1488.mcz
by commits＠source.squeak.org 26 Jul '22

26 Jul '22

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1488.mcz ==================== Summary ==================== Name: Kernel-eem.1488 Author: eem Time: 26 July 2022, 11:59:44.968962 am UUID: fb63409e-0be1-4ab5-a3e6-98d7313bc5d7 Ancestors: Kernel-ct.1487 Fix the formatting of BlockClosure>>forkAt:named: =============== Diff against Kernel-ct.1487 =============== Item was changed: ----- Method: BlockClosure>>forkAt:named: (in category 'scheduling') ----- forkAt: priority named: name - "Create and schedule a Process running the code in the receiver at the + given priority and having the given name. Answer the newly created + process. was svp 6/23/2003 10:59" - given priority and having the given name. Answer the newly created - - process." - - - | forkedProcess | - forkedProcess := self newProcess. - forkedProcess priority: priority. - forkedProcess name: name. - ^ forkedProcess resume!

1 0

The Trunk: Graphics-eem.529.mcz
by commits＠source.squeak.org 26 Jul '22

26 Jul '22

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.529.mcz ==================== Summary ==================== Name: Graphics-eem.529 Author: eem Time: 26 July 2022, 11:58:24.028857 am UUID: e9d779b9-578e-4eea-9d2a-b68fffc5c366 Ancestors: Graphics-mt.528 Add the new primitivePixelValueAtPut primitive, which is included in 6.x VMs. =============== Diff against Graphics-mt.528 =============== Item was added: + ----- Method: Form>>primPixelValueAtX:y:put: (in category 'pixel access') ----- + primPixelValueAtX: x y: y put: pixelValue + "Set the raw pixel value at the given point. Answer the previous value of the pixel. + This pixel value depends on the receiver's depth. Typical clients use colorAt: to get a Color. Make sure the colorMap is nil for ColorForms " + + <primitive: 'primitivePixelValueAtPut' module:'BitBltPlugin' error: ec> + | oldValue | + oldValue := self primPixelValueAtX: x y: y. + (BitBlt bitPokerToForm: self) pixelAt: x@y put: pixelValue. + ^oldValue!

1 0

The Trunk: Kernel-ct.1487.mcz
by commits＠source.squeak.org 25 Jul '22

25 Jul '22

Christoph Thiede uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1487.mcz ==================== Summary ==================== Name: Kernel-ct.1487 Author: ct Time: 23 July 2022, 5:04:54.100611 pm UUID: 7b5df1b4-09a6-cd43-a466-9984c0bf96fb Ancestors: Kernel-eem.1486 Fixes a bug in simulation of primitive 188. The nested #doPrimitive:... send must be passed the methodArg that was passed along with primitive 188, not the the original method that has called the primitive. This seems to be a regression from Kernel-eem.1205. =============== Diff against Kernel-eem.1486 =============== Item was changed: ----- Method: Context>>doPrimitive:method:receiver:args: (in category 'private') ----- doPrimitive: primitiveIndex method: meth receiver: receiver args: arguments "Simulate a primitive method whose index is primitiveIndex. The simulated receiver and arguments are given as arguments to this message. If successful, push result and return resuming context, else ^ {errCode, PrimitiveFailToken}. Any primitive which provokes execution needs to be intercepted and simulated to avoid execution running away." | value | "Judicious use of primitive 19 (a null primitive that doesn't do anything) prevents the debugger from entering various run-away activities such as spawning a new process, etc. Injudicious use results in the debugger not being able to debug interesting code, such as the debugger itself. Hence use primitive 19 with care :-)" "SystemNavigation new browseAllSelect: [:m| m primitive = 19]" primitiveIndex = 19 ifTrue: [ [self notify: ('The code being simulated is trying to control a process ({1}). Process controlling cannot be simulated. If you proceed, things may happen outside the observable area of the simulator.' translated format: {meth reference})] ifCurtailed: [self push: nil "Cheap fix of the context's internal state"]]. ((primitiveIndex between: 201 and: 222) and: [(self objectClass: receiver) includesBehavior: BlockClosure]) ifTrue: [(primitiveIndex = 206 or: [primitiveIndex = 208]) ifTrue: "[Full]BlockClosure>>valueWithArguments:" [^receiver simulateValueWithArguments: arguments first caller: self]. ((primitiveIndex between: 201 and: 209) "[Full]BlockClosure>>value[:value:...]" or: [primitiveIndex between: 221 and: 222]) ifTrue: "[Full]BlockClosure>>valueNoContextSwitch[:]" [^receiver simulateValueWithArguments: arguments caller: self]]. primitiveIndex = 83 ifTrue: "afr 9/11/1998 19:50" "Object>>perform:[with:...]" [| selector | selector := arguments at: 1 ifAbsent: [^ self class primitiveFailTokenFor: #'bad argument']. arguments size - 1 = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: arguments allButFirst]. primitiveIndex = 84 ifTrue: "afr 9/11/1998 19:50 & eem 8/18/2009 17:04" "Object>>perform:withArguments:" [| selector args | arguments size = 2 ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. selector := arguments first. args := arguments second. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ^self send: selector to: receiver with: args]. primitiveIndex = 100 ifTrue: "eem 8/18/2009 16:57" "Object>>perform:withArguments:inSuperclass:" [| rcvr selector args superclass | arguments size caseOf: { [3] -> [ rcvr := receiver. selector := arguments first. args := arguments second. superclass := arguments third]. [4] -> ["mirror primitive" rcvr := arguments first. selector := arguments second. args := arguments third. superclass := arguments fourth] } otherwise: [^ self class primitiveFailTokenFor: #'bad number of arguments']. args isArray ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. args size = selector numArgs ifFalse: [^ self class primitiveFailTokenFor: #'bad number of arguments']. ((self objectClass: rcvr) includesBehavior: superclass) ifFalse: [^ self class primitiveFailTokenFor: #'bad argument']. ^self send: selector to: rcvr with: args lookupIn: superclass]. "Mutex>>primitiveEnterCriticalSection Mutex>>primitiveTestAndSetOwnershipOfCriticalSection" (primitiveIndex = 186 or: [primitiveIndex = 187]) ifTrue: [| effective | effective := Processor activeProcess effectiveProcess. "active == effective" value := primitiveIndex = 186 ifTrue: [receiver primitiveEnterCriticalSectionOnBehalfOf: effective] ifFalse: [receiver primitiveTestAndSetOwnershipOfCriticalSectionOnBehalfOf: effective]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]]. primitiveIndex = 188 ifTrue: "Object>>withArgs:executeMethod: CompiledMethod class>>receiver:withArguments:executeMethod: VMMirror>>ifFail:object:with:executeMethod: et al" [| n args methodArg thisReceiver | ((n := arguments size) between: 2 and: 4) ifFalse: [^self class primitiveFailTokenFor: #'unsupported operation']. ((self objectClass: (args := arguments at: n - 1)) == Array and: [(self objectClass: (methodArg := arguments at: n)) includesBehavior: CompiledMethod]) ifFalse: [^self class primitiveFailTokenFor: #'bad argument']. methodArg numArgs = args size ifFalse: [^self class primitiveFailTokenFor: #'bad number of arguments']. thisReceiver := arguments at: n - 2 ifAbsent: [receiver]. methodArg primitive > 0 ifTrue: [methodArg isQuick ifTrue: [^self push: (methodArg valueWithReceiver: thisReceiver arguments: args)]. + ^self doPrimitive: methodArg primitive method: methodArg receiver: thisReceiver args: args]. - ^self doPrimitive: methodArg primitive method: meth receiver: thisReceiver args: args]. ^self activateMethod: methodArg withArgs: args receiver: thisReceiver]. primitiveIndex = 118 ifTrue: "[receiver:]tryPrimitive:withArgs:; avoid recursing in the VM" [(arguments size = 3 and: [(self objectClass: arguments second) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifTrue: [^self doPrimitive: arguments second method: meth receiver: arguments first args: arguments last]. (arguments size = 2 and: [(self objectClass: arguments first) == SmallInteger and: [(self objectClass: arguments last) == Array]]) ifFalse: [^self class primitiveFailTokenFor: nil]. ^self doPrimitive: arguments first method: meth receiver: receiver args: arguments last]. value := primitiveIndex = 120 "FFI method" ifTrue: [(meth literalAt: 1) tryInvokeWithArguments: arguments] ifFalse: [primitiveIndex = 117 "named primitives" ifTrue: [self tryNamedPrimitiveIn: meth for: receiver withArgs: arguments] ifFalse: "should use self receiver: receiver tryPrimitive: primitiveIndex withArgs: arguments but this is only in later VMs (and appears to be broken)" [receiver tryPrimitive: primitiveIndex withArgs: arguments]]. ^(self isPrimFailToken: value) ifTrue: [value] ifFalse: [self push: value]!

1 0

The Treated Inbox: Kernel-ct.1407.mcz
by commits＠source.squeak.org 23 Jul '22

23 Jul '22

Christoph Thiede uploaded a new version of Kernel to project The Treated Inbox: http://source.squeak.org/treated/Kernel-ct.1407.mcz ==================== Summary ==================== Name: Kernel-ct.1407 Author: ct Time: 16 May 2021, 7:06:28.57708 pm UUID: 8efbcb28-1774-174b-9fe0-17609ca53503 Ancestors: Kernel-nice.1402 Fixes #isPrimFailToken: for objects that do not implement #isArray in a conventional way, or that do not implement it all. The following should be debuggable without any problems, but currently is not due to a regression in Kernel-eem.1366. Fur more information, see: http://forum.world.st/The-Trunk-Kernel-eem-1366-mcz-td5126558.html =============== Diff against Kernel-nice.1402 =============== Item was changed: ----- Method: Context>>isPrimFailToken: (in category 'private') ----- isPrimFailToken: contextOrPrimFailToken "Answer if contextOrPrimFailToken, which will either be a Context object or a primitive fail token (a tuple of the PrimitiveFailToken unique object and a primitive failure code), is the latter. This should only be used with the (possibly indirect) results of Context>>doPrimitive:method:receiver:args:" + ^ (self objectClass: contextOrPrimFailToken) == Array - ^contextOrPrimFailToken isArray and: [contextOrPrimFailToken size = 2 and: [(contextOrPrimFailToken at: 1) == PrimitiveFailToken]]!

1 0

The Trunk: SUnitTools-mt.9.mcz
by commits＠source.squeak.org 19 Jul '22

19 Jul '22

Marcel Taeumel uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-mt.9.mcz ==================== Summary ==================== Name: SUnitTools-mt.9 Author: mt Time: 19 July 2022, 8:54:27.119222 am UUID: 7fed01fe-8926-4ca0-9cb7-889cb718de92 Ancestors: SUnitTools-ct.8 Fixes selector name of #\\. =============== Diff against SUnitTools-ct.8 =============== Item was changed: ----- Method: CodeHolder>>testBinarySelectorNames (in category '*SUnitTools-running') ----- testBinarySelectorNames ^ IdentityDictionary newFromPairs: #( #& 'conjunction' #| 'disjunction' #==> 'implication' #* 'multiply' #+ 'add' #- 'subtract' #/ 'divide' + #// 'quotient' "Integer" + #\\ 'modulo' "or remainder" - #// 'remainder' - #\\ 'modulo' #<< 'shiftLeft' #>> 'shiftRight' #= 'equality' #== 'identity' #~= 'difference' #~~ 'mismatch' #< 'lessThan' #<= 'lessOrEqualThan' #> 'greaterThan' #>= 'greaterOrEqualThan' #<=> 'spaceshipOperator' #@ 'at' #, 'concatenation' #-> 'association' #=> 'binding' ) !

1 0

The Trunk: Monticello-mt.782.mcz
by commits＠source.squeak.org 18 Jul '22

18 Jul '22

Marcel Taeumel uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-mt.782.mcz ==================== Summary ==================== Name: Monticello-mt.782 Author: mt Time: 18 July 2022, 2:46:26.342663 pm UUID: 8bc7f81d-4c0e-b341-9b1f-e31a0d96a948 Ancestors: Monticello-mt.781 Guard the #copyImageVersions feature to avoid accidental spamming. =============== Diff against Monticello-mt.781 =============== Item was changed: ----- Method: MCRepository>>copyImageVersions (in category 'versions') ----- copyImageVersions "For each package contained in the receiver, copy the version of that package which is currently loaded in this image. If no version of a package is loaded in the image, nothing is copied for that package." + MCRepository trunk = self ifTrue: [^ self error: 'Must not copy over to Trunk repository' translated]. + MCRepository inbox = self ifTrue: [^ self error: 'Must not copy over to Inbox repository' translated]. + MCRepository treated = self ifTrue: [^ self error: 'Must not copy over to Treated repository' translated]. self cacheAllFileNamesDuring: [ self allPackageNames do: [ : eachPkgName | MCWorkingCopy allManagers detect: [ : each | each packageName = eachPkgName ] ifFound: [ : loaded | loaded ancestors do: [ : infoToCopy | (self includesVersionNamed: infoToCopy versionName) ifFalse: [ (MCRepositoryGroup default versionWithInfo: infoToCopy) ifNil: [ Warning signal: infoToCopy name , ' not found in RepositoryGroup default.' ] ifNotNil: [ : ver | self storeVersion: ver ] ] ] ] ifNone: [ "Image specifies no version to copy." ] ] ]! Item was added: + ----- Method: MCWorkingCopyBrowser>>copyImageVersionsSafely (in category 'actions') ----- + copyImageVersionsSafely + (Project current uiManager confirm: ('Do you really want to copy the loaded version of each of <b>{1} packages</b> to <b>{2}</b>?' translated format: {MCWorkingCopy allManagers size. self repository description}) asTextFromHtml title: 'Copy Image Versions' translated) ifFalse: [^ self]. + self copyImageVersions.! Item was changed: ----- Method: MCWorkingCopyBrowser>>repositoryListMenu: (in category 'morphic ui') ----- repositoryListMenu: aMenu "first add repository-specific commands" self repository ifNotNil: [ self fillMenu: aMenu fromSpecs: #(('open repository' #openRepository) ('edit repository info' #editRepository) ('add to package...' #addRepositoryToPackage) ('remove repository' #removeRepository) ('demote to bottom' #demoteRepository) + ('copy image versions here' #copyImageVersionsSafely)). - ('copy image versions here' #copyImageVersions)). aMenu add: (self repository alwaysStoreDiffs ifTrue: ['store full versions'] ifFalse: ['store diffs']) target: self selector: #toggleDiffs ; addLine ]. "then the non-specific commands" ^self fillMenu: aMenu fromSpecs: #( ('load repositories' #loadRepositories) ('save repositories' #saveRepositories) ('flush cached versions' #flushCachedVersions))!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2022