Squeak-dev April 2013

squeak-dev@lists.squeakfoundation.org

66 participants
225 discussions

The Trunk: Monticello-fbs.539.mcz
by commits＠source.squeak.org 22 Apr '13

22 Apr '13

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-fbs.539.mcz ==================== Summary ==================== Name: Monticello-fbs.539 Author: fbs Time: 22 April 2013, 8:44:11.558 pm UUID: d21941ae-92a7-4b14-9d19-4b53a669bb15 Ancestors: Monticello-fbs.538 Another MenuMorph bites the dust. =============== Diff against Monticello-fbs.538 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>editLoadScripts (in category 'morphic ui') ----- editLoadScripts + | arg | - | menu | self hasWorkingCopy ifFalse: [^self]. + arg := UIManager default + chooseFrom: #('edit preamble' 'edit postscript' 'edit preambleOfRemoval' 'edit postscriptOfRemoval') + values: #(#preamble #postscript #preambleOfRemoval #postscriptOfRemoval). + + arg ifNotNil: [ + self editScript: arg].! - menu := MenuMorph new defaultTarget: self. - menu add: 'edit preamble' selector: #editScript: argument: #preamble. - menu add: 'edit postscript' selector: #editScript: argument: #postscript. - menu add: 'edit preambleOfRemoval' selector: #editScript: argument: #preambleOfRemoval. - menu add: 'edit postscriptOfRemoval' selector: #editScript: argument: #postscriptOfRemoval. - menu popUpInWorld.!

1 0

The Trunk: MonticelloConfigurations-fbs.109.mcz
by commits＠source.squeak.org 22 Apr '13

22 Apr '13

Frank Shearar uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-fbs.109.mcz ==================== Summary ==================== Name: MonticelloConfigurations-fbs.109 Author: fbs Time: 22 April 2013, 8:38:04.214 pm UUID: ed8757f9-a5be-446b-9a1c-1e379ed2e277 Ancestors: MonticelloConfigurations-fbs.108 Actually, #chooseFrom:values: is better: less to say. =============== Diff against MonticelloConfigurations-fbs.108 =============== Item was changed: ----- Method: MCConfigurationBrowser>>installMenu (in category 'actions') ----- installMenu | action | action := UIManager default chooseFrom: #('load packages' 'merge packages' 'upgrade packages') + values: #(#load #merge #upgrade). - values: #(#load #merge #upgrade) - lines: #() - title: ''. self halt. self perform: action.! Item was changed: ----- Method: MCConfigurationBrowser>>updateMenu (in category 'actions') ----- updateMenu | action | action := UIManager default chooseFrom: #('update all from image' 'update all from repositories') + values: #(#updateFromImage #updateFromRepositories). - values: #(#updateFromImage #updateFromRepositories) - lines: #() - title: ''. self perform: action.!

1 0

The Trunk: MonticelloConfigurations-fbs.108.mcz
by commits＠source.squeak.org 22 Apr '13

22 Apr '13

Frank Shearar uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-fbs.108.mcz ==================== Summary ==================== Name: MonticelloConfigurations-fbs.108 Author: fbs Time: 22 April 2013, 8:32:49.06 pm UUID: 6407a933-4bcc-4e1d-9d51-5f284b938171 Ancestors: MonticelloConfigurations-bf.107 Use UIManager's facilities for showing menus. =============== Diff against MonticelloConfigurations-bf.107 =============== Item was changed: ----- Method: MCConfigurationBrowser>>installMenu (in category 'actions') ----- installMenu + | action | + action := UIManager default + chooseFrom: #('load packages' 'merge packages' 'upgrade packages') + values: #(#load #merge #upgrade) + lines: #() + title: ''. + self halt. + self perform: action.! - - | menu | - menu := MenuMorph new defaultTarget: self. - menu add: 'load packages' action: #load. - menu add: 'merge packages' action: #merge. - menu add: 'upgrade packages' action: #upgrade. - menu popUpInWorld.! Item was changed: ----- Method: MCConfigurationBrowser>>updateMenu (in category 'actions') ----- updateMenu + | action | + action := UIManager default + chooseFrom: #('update all from image' 'update all from repositories') + values: #(#updateFromImage #updateFromRepositories) + lines: #() + title: ''. + self perform: action.! - | menu | - menu := MenuMorph new defaultTarget: self. - menu add: 'update all from image' action: #updateFromImage. - menu add: 'update all from repositories' action: #updateFromRepositories. - menu popUpInWorld.!

1 0

The Trunk: Monticello-cmm.536.mcz
by commits＠source.squeak.org 22 Apr '13

22 Apr '13

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.536.mcz ==================== Summary ==================== Name: Monticello-cmm.536 Author: cmm Time: 15 April 2013, 10:31:15.368 am UUID: 1f3af037-b0fd-436a-ad84-328010a019a5 Ancestors: Monticello-bf.535 - API contract for #versionNamed: stipulates it will return nil if no version for the given name is found, not signal a FileDoesNotExistException. - Allow MCRepositoryGroup to act as a MCRepository for Installer's purposes. =============== Diff against Monticello-bf.535 =============== Item was changed: ----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') ----- + versionNamed: aMCVersionName - versionNamed: aMCVersionName "For FileBased repositories, aMCVersionName must have the appropriate extension!! :-(" + | version | + version := self cache + at: aMCVersionName + ifAbsent: + [ [ self loadVersionFromFileNamed: aMCVersionName ] + on: FileDoesNotExistException + do: [ : err | nil ] ]. - | v | - v := self cache at: aMCVersionName ifAbsent: [self loadVersionFromFileNamed: aMCVersionName]. self resizeCache: cache. + (version notNil and: [ version isCacheable ]) ifTrue: + [ cache + at: aMCVersionName asMCVersionName + put: version ]. + ^ version! - (v notNil and: [v isCacheable]) ifTrue: [cache at: aMCVersionName asMCVersionName put: v]. - ^ v! Item was added: + ----- Method: MCRepository>>normalized (in category 'accessing') ----- + normalized + ^ (MCRepositoryGroup default repositories includes: self) + ifTrue: [ self ] + ifFalse: [ self copy ]! Item was added: + ----- Method: MCRepository>>normalizedRepositories (in category 'private') ----- + normalizedRepositories + ^ Array with: self normalized! Item was added: + ----- Method: MCRepository>>repositories (in category 'accessing') ----- + repositories + ^ Array with: self! Item was added: + ----- Method: MCRepositoryGroup>>allPackageNames (in category 'repository-api') ----- + allPackageNames + ^ repositories + inject: Set new + into: + [ : set : each | set + addAll: each allPackageNames ; + yourself ]! Item was added: + ----- Method: MCRepositoryGroup>>basicStoreVersion: (in category 'repository-api') ----- + basicStoreVersion: aVersion + "RepositoryGroup is used for reading, not writing." + self shouldNotImplement! Item was added: + ----- Method: MCRepositoryGroup>>description (in category 'repository-api') ----- + description + ^ String streamContents: + [ : stream | stream nextPutAll: '{ '. + repositories + do: [ : each | stream nextPut: $'; nextPutAll: each description; nextPut: $' ] + separatedBy: [ stream nextPutAll: '. ' ]. + stream nextPutAll: ' }' ]! Item was changed: + ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'repository-api') ----- - ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'testing') ----- includesVersionNamed: aString + ^ repositories anySatisfy: [ : each | each includesVersionNamed: aString ]! - | versionName | - versionName := aString asMCVersionName. - self repositoriesDo: - [ : ea | (ea includesVersionNamed: versionName) ifTrue: [ ^ true ] ]. - ^ false! Item was changed: ----- Method: MCRepositoryGroup>>initialize (in category 'initialize-release') ----- initialize + super initialize. repositories := OrderedCollection new! Item was changed: + ----- Method: MCRepositoryGroup>>morphicOpen: (in category 'ui') ----- - ----- Method: MCRepositoryGroup>>morphicOpen: (in category 'as yet unclassified') ----- morphicOpen: aWorkingCopy ^ self repositories do: [:repo | repo morphicOpen: aWorkingCopy].! Item was added: + ----- Method: MCRepositoryGroup>>normalizedRepositories (in category 'accessing') ----- + normalizedRepositories + "Find an existing instance of any active repository so that we use whatever name and password the user usually uses. If not found, answer a copy" + ^ repositories collect: [ : each | each normalized ]! Item was changed: + ----- Method: MCRepositoryGroup>>versionNamed: (in category 'repository-api') ----- + versionNamed: aMCVersionName + repositories do: + [ : each | (each versionNamed: aMCVersionName) ifNotNil: [ : ver | ^ ver ] ]. + ^ nil! - ----- Method: MCRepositoryGroup>>versionNamed: (in category 'versions') ----- - versionNamed: aString - self repositories do: [:repo | | version | - version := [repo versionNamed: aString] on: Error do: [nil]. - version ifNotNil: [:v | ^ v]]. - self error: 'No repositories contain version ', aString.! Item was changed: + ----- Method: MCRepositoryGroup>>versionNamesForPackageNamed: (in category 'repository-api') ----- + versionNamesForPackageNamed: aString + ^ repositories + inject: Set new + into: + [ : set : each | set + addAll: (each versionNamesForPackageNamed: aString) ; + yourself ]! - ----- Method: MCRepositoryGroup>>versionNamesForPackageNamed: (in category 'versions') ----- - versionNamesForPackageNamed: aString - ^ self repositories gather: [:repo | - [repo versionNamesForPackageNamed: aString] on: Error do: [#()]]! Item was added: + ----- Method: MCRepositoryGroup>>versionWithInfo:ifAbsent: (in category 'repository-api') ----- + versionWithInfo: aVersionInfo ifAbsent: aBlock + repositories do: + [ : each | (each + versionWithInfo: aVersionInfo + ifAbsent: [ ]) ifNotNil: + [ : ver | ^ ver ] ]. + ^ aBlock value!

1 0

Re: [squeak-dev] The Trunk: Monticello-fbs.537.mcz
by Frank Shearar 22 Apr '13

22 Apr '13

On 22 April 2013 11:28, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Monticello to project The Trunk: > http://source.squeak.org/trunk/Monticello-fbs.537.mcz > > ==================== Summary ==================== > > Name: Monticello-fbs.537 > Author: fbs > Time: 22 April 2013, 9:47:02.188 am > UUID: 155c942d-c757-4e64-b0a5-774da5c7e085 > Ancestors: Monticello-cmm.536 > > If you asking a repository for its versions throws an error (like a NetworkError), treat that as "no, it doesn't have the version". > > (We will want to have a specific MCError at some point soon.) > > =============== Diff against Monticello-bf.535 =============== Oh crumbs. I hadn't realised that Chris Muller's 536 (with the MCRepositoryGroup changes) wasn't in Trunk yet. So we can either push Chris' change to Trunk or I can roll back. Thoughts? (I mentioned last week that I was happy with Chris' changes; I'm quite OK with it going into Trunk.) frank

2 2

Re: [Pharo-project] [squeak-dev] Xtreams's FileDirectory dependence
by mkobetic＠gmail.com 22 Apr '13

22 Apr '13

As Jan mentioned, in https://github.com/mkobetic/Xtreams I'm primarily just experimenting with Cypress. However the master branch there is misleading, it contains a very early port of Xtreams to ST/X (there's a much more up to date version in Jan's ST/X project @ https://swing.fit.cvut.cz/jenkins/job/xtreams_reports/). However if you look at some of the other branches in the github project you can find a fairly up to date, Cypress formatted dump from VW as well as the results of Sean's ESUG effort to add namespace-prefix mapping to Filetree (branch pharo_experiment). My ultimate goal is to test Dale's idea to maintain a cross-dialect project as parallel branches in git. However we still need to iron out various dialect differences in terms of what they emit as Cypress formatted output. BTW, does anyone know if git/github can handle absence of a master branch? I'd be inclined to just delete the master from the repository if that works well. I've been planning to ping Sean about his Filetree fixes for a while, but I need to find the time to be able to actually act on it :-). The prefix-namespace mapping is crucial to make the parallel branch approach at all feasible. There's also the Environment effort on Squeak side which may obviate the prefix mapping need, but it seems to be still in fairly early stages. So far it was mostly Nicolas' manual effort that brought VW updates over the Squeak/Pharo side. I think it was a while since the last time he's done that, so the VW port is probably ahead somewhat. But Xtreams development isn't that active anymore. Most of our Xtreams related efforts are about using them for various things, so any changes are mostly fixes or small improvements driven by that use. So in some sense a manual update could be a feasible approach at this point. But I would really like to turn the project into a more collaborative effort, where updates can flow reasonably in any direction. While I'm on the topic, I'm considering some API changes and am not sure how to go about discussing it. I don't want to cross post discussions to a number of mailing lists, so I think I'm inclined to just cross-post an invitation to anyone interested to subscribe to the Issues on the project site (https://code.google.com/p/xtreams/) and have those discussions there. Any thoughts on that? "Frank Shearar"<frank.shearar(a)gmail.com> wrote: > How up to date is https://github.com/mkobetic/Xtreams/ ? That's surely > not the "canonical" repository, which would be in the Cincom Smalltalk > Public Repository. I think? Anyway, assuming it's up to date, one > promising approach to using Martin Kobetic's repository directly is: > * have a way of importing chunk format stuff from a GitHub repository > (see Squeak's inbox for my > doesn't-support-filetree-yet-but-can-do-chunk-format InstallerGitHub > (and I plan to submit a Gofer patch to do the same)) > * load into an Environment (Squeak 4.5 can do this, modulo its alpha state). > > It might even be possible to import into an Environment with the > prefix-adding import and then fileout/monticelloise the resulting > things as a prefix-using, non-Environments-requiring blob ready for > everyone to use. > > frank >

5 5

Re: [squeak-dev] The Trunk: Monticello-fbs.538.mcz
by Frank Shearar 22 Apr '13

22 Apr '13

On 22 April 2013 11:28, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of Monticello to project The Trunk: > http://source.squeak.org/trunk/Monticello-fbs.538.mcz > > ==================== Summary ==================== > > Name: Monticello-fbs.538 > Author: fbs > Time: 22 April 2013, 9:47:38.876 am > UUID: bcdc22c7-0316-4b4d-9242-dd967a146950 > Ancestors: Monticello-fbs.537 > > Don't use FITBM directly. We have a UIManager for that. > > =============== Diff against Monticello-fbs.537 =============== This addresses the most minor part of the Monticello -> Morphic dependency. I see there's an MCTool that shields most of MC from Morphic. I'm happy to try kill the rest of the dependency, but I'll need some experienced Morphic eyes to keep me on the straight and narrow. frank

1 0

The Trunk: Monticello-fbs.538.mcz
by commits＠source.squeak.org 22 Apr '13

22 Apr '13

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-fbs.538.mcz ==================== Summary ==================== Name: Monticello-fbs.538 Author: fbs Time: 22 April 2013, 9:47:38.876 am UUID: bcdc22c7-0316-4b4d-9242-dd967a146950 Ancestors: Monticello-fbs.537 Don't use FITBM directly. We have a UIManager for that. =============== Diff against Monticello-fbs.537 =============== Item was changed: ----- Method: MCRepository class>>fillInTheBlankConfigure: (in category 'configuring') ----- fillInTheBlankConfigure: aTemplateString | chunk repo | aTemplateString ifNil: [ ^ false ]. + chunk := UIManager default + multiLineRequest: self fillInTheBlankRequest + centerAt: Sensor cursorPoint + initialAnswer: aTemplateString + answerHeight: 120. - chunk := FillInTheBlankMorph - request: self fillInTheBlankRequest - initialAnswer: aTemplateString - centerAt: Sensor cursorPoint - inWorld: World - onCancelReturn: nil - acceptOnCR: false - answerExtent: 400@120. chunk ifNotNil: [ repo := self readFrom: chunk readStream. repo creationTemplate: chunk. ]. ^ repo! Item was changed: ----- Method: MCSmtpRepository class>>morphicConfigure (in category 'as yet unclassified') ----- morphicConfigure | address | + address := UIManager default request: 'Email address:'. - address := FillInTheBlankMorph request: 'Email address:'. ^ address isEmpty ifFalse: [self new emailAddress: address]! Item was changed: ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions') ----- addWorkingCopy |name| + name := UIManager default request: 'Name of package:'. - name := FillInTheBlankMorph request: 'Name of package:'. name isEmptyOrNil ifFalse: [PackageInfo registerPackageName: name. workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name). workingCopyWrapper := nil. self repositorySelection: 0]. self workingCopyListChanged; changed: #workingCopySelection; changed: #repositoryList. self changedButtons.! Item was changed: ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') ----- renamePackage | newName | workingCopy ifNil: [ UIManager inform: 'Please select a package to be renamed.'. ^ self ]. workingCopy modified ifTrue: [ UIManager inform: 'Only unmodified packages should be renamed.'. ^ self ]. + newName := UIManager default - newName := FillInTheBlankMorph request: 'New name of package:' initialAnswer: workingCopy packageName. newName isEmptyOrNil ifFalse: [ | newWorkingCopy | newWorkingCopy := workingCopy renameToBe: newName. workingCopy package snapshot definitions ifEmpty: [ "It worked." workingCopy unregister. workingCopy := newWorkingCopy. self repositorySelection: 0. self workingCopyListChanged ; changed: #workingCopySelection ; changed: #repositoryList. self changedButtons ] ifNotEmpty: [ "It didn't work, browse the remaining definitions." self browseWorkingCopy ] ]!

1 0

The Trunk: Monticello-fbs.537.mcz
by commits＠source.squeak.org 22 Apr '13

22 Apr '13

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-fbs.537.mcz ==================== Summary ==================== Name: Monticello-fbs.537 Author: fbs Time: 22 April 2013, 9:47:02.188 am UUID: 155c942d-c757-4e64-b0a5-774da5c7e085 Ancestors: Monticello-cmm.536 If you asking a repository for its versions throws an error (like a NetworkError), treat that as "no, it doesn't have the version". (We will want to have a specific MCError at some point soon.) =============== Diff against Monticello-bf.535 =============== Item was changed: ----- Method: MCFileBasedRepository>>versionNamed: (in category 'versions') ----- + versionNamed: aMCVersionName - versionNamed: aMCVersionName "For FileBased repositories, aMCVersionName must have the appropriate extension!! :-(" + | version | + version := self cache + at: aMCVersionName + ifAbsent: + [ [ self loadVersionFromFileNamed: aMCVersionName ] + on: FileDoesNotExistException + do: [ : err | nil ] ]. - | v | - v := self cache at: aMCVersionName ifAbsent: [self loadVersionFromFileNamed: aMCVersionName]. self resizeCache: cache. + (version notNil and: [ version isCacheable ]) ifTrue: + [ cache + at: aMCVersionName asMCVersionName + put: version ]. + ^ version! - (v notNil and: [v isCacheable]) ifTrue: [cache at: aMCVersionName asMCVersionName put: v]. - ^ v! Item was added: + ----- Method: MCRepository>>normalized (in category 'accessing') ----- + normalized + ^ (MCRepositoryGroup default repositories includes: self) + ifTrue: [ self ] + ifFalse: [ self copy ]! Item was added: + ----- Method: MCRepository>>normalizedRepositories (in category 'private') ----- + normalizedRepositories + ^ Array with: self normalized! Item was added: + ----- Method: MCRepository>>repositories (in category 'accessing') ----- + repositories + ^ Array with: self! Item was added: + ----- Method: MCRepositoryGroup>>allPackageNames (in category 'repository-api') ----- + allPackageNames + ^ repositories + inject: Set new + into: + [ : set : each | set + addAll: each allPackageNames ; + yourself ]! Item was added: + ----- Method: MCRepositoryGroup>>basicStoreVersion: (in category 'repository-api') ----- + basicStoreVersion: aVersion + "RepositoryGroup is used for reading, not writing." + self shouldNotImplement! Item was added: + ----- Method: MCRepositoryGroup>>description (in category 'repository-api') ----- + description + ^ String streamContents: + [ : stream | stream nextPutAll: '{ '. + repositories + do: [ : each | stream nextPut: $'; nextPutAll: each description; nextPut: $' ] + separatedBy: [ stream nextPutAll: '. ' ]. + stream nextPutAll: ' }' ]! Item was changed: + ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'repository-api') ----- - ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'testing') ----- includesVersionNamed: aString + ^ repositories anySatisfy: [ : each | [each includesVersionNamed: aString] on: Error do: [false]]! - | versionName | - versionName := aString asMCVersionName. - self repositoriesDo: - [ : ea | (ea includesVersionNamed: versionName) ifTrue: [ ^ true ] ]. - ^ false! Item was changed: ----- Method: MCRepositoryGroup>>initialize (in category 'initialize-release') ----- initialize + super initialize. repositories := OrderedCollection new! Item was changed: + ----- Method: MCRepositoryGroup>>morphicOpen: (in category 'ui') ----- - ----- Method: MCRepositoryGroup>>morphicOpen: (in category 'as yet unclassified') ----- morphicOpen: aWorkingCopy ^ self repositories do: [:repo | repo morphicOpen: aWorkingCopy].! Item was added: + ----- Method: MCRepositoryGroup>>normalizedRepositories (in category 'accessing') ----- + normalizedRepositories + "Find an existing instance of any active repository so that we use whatever name and password the user usually uses. If not found, answer a copy" + ^ repositories collect: [ : each | each normalized ]! Item was changed: + ----- Method: MCRepositoryGroup>>versionNamed: (in category 'repository-api') ----- + versionNamed: aMCVersionName + repositories do: + [ : each | (each versionNamed: aMCVersionName) ifNotNil: [ : ver | ^ ver ] ]. + ^ nil! - ----- Method: MCRepositoryGroup>>versionNamed: (in category 'versions') ----- - versionNamed: aString - self repositories do: [:repo | | version | - version := [repo versionNamed: aString] on: Error do: [nil]. - version ifNotNil: [:v | ^ v]]. - self error: 'No repositories contain version ', aString.! Item was changed: + ----- Method: MCRepositoryGroup>>versionNamesForPackageNamed: (in category 'repository-api') ----- + versionNamesForPackageNamed: aString + ^ repositories + inject: Set new + into: + [ : set : each | set + addAll: (each versionNamesForPackageNamed: aString) ; + yourself ]! - ----- Method: MCRepositoryGroup>>versionNamesForPackageNamed: (in category 'versions') ----- - versionNamesForPackageNamed: aString - ^ self repositories gather: [:repo | - [repo versionNamesForPackageNamed: aString] on: Error do: [#()]]! Item was added: + ----- Method: MCRepositoryGroup>>versionWithInfo:ifAbsent: (in category 'repository-api') ----- + versionWithInfo: aVersionInfo ifAbsent: aBlock + repositories do: + [ : each | (each + versionWithInfo: aVersionInfo + ifAbsent: [ ]) ifNotNil: + [ : ver | ^ ver ] ]. + ^ aBlock value!

1 0

Jira plugin for Monticello
by Max Leske 21 Apr '13

21 Apr '13

Hi guys Has anyone ever heard / used a Jira plugin for Monticello commits? Who would be interested in such a plugin? Cheers, Max

2 2

← Newer
1
...
7
8
9
10
11
12
13
...
23
Older →

Jump to page: