Packages June 2012

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Tools-cmm.414.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.414.mcz ==================== Summary ==================== Name: Tools-cmm.414 Author: cmm Time: 22 June 2012, 2:40:22.706 pm UUID: 35894ee7-33c6-4c14-a7f6-e4e8d91b2325 Ancestors: Tools-fbs.413 - New FileList color was a bit too dark. - Removed old FileList DnD handler. - When copying selector of a MessageTrace, copy ALL of the selectors. =============== Diff against Tools-fbs.413 =============== Item was changed: ----- Method: FileList class>>windowColorSpecification (in category 'window color') ----- windowColorSpecification "Answer a WindowColorSpec object that declares my preference" ^ WindowColorSpec classSymbol: self name wording: 'File List' + brightColor: #veryLightGray + pastelColor: #veryLightGray - brightColor: #lightGray - pastelColor: #lightGray helpMessage: 'A tool for looking at files'! Item was removed: - ----- Method: FileList>>drop:ontoDirectory: (in category 'toolbuilder') ----- - drop: aDirectoryEntryFile ontoDirectory: aFileDirectory - | oldName oldEntry newName newEntry baseName response | - self halt. - oldName := aDirectoryEntryFile fullName. - baseName := FileDirectory localNameFor: oldName. - newName := aFileDirectory fullNameFor: baseName. - newName = oldName ifTrue: [ "Transcript nextPutAll: 'same as old name'; cr." - ^ true ]. - oldEntry := FileDirectory directoryEntryFor: oldName. - newEntry := FileDirectory directoryEntryFor: newName. - newEntry ifNotNil: - [ | msg | - msg := String streamContents: - [ : s | s - nextPutAll: 'destination file ' ; - nextPutAll: newName ; - nextPutAll: ' exists already,' ; - cr ; - nextPutAll: 'and is ' ; - nextPutAll: - (oldEntry modificationTime < newEntry modificationTime - ifTrue: [ 'newer' ] - ifFalse: [ 'not newer' ]) ; - nextPutAll: ' than source file ' ; - nextPutAll: oldName ; - nextPut: $. ; - cr ; - nextPutAll: 'Overwrite file ' ; - nextPutAll: newName ; - nextPut: $? ]. - response := self confirm: msg. - response ifFalse: [ ^ false ] ]. - " aTransferMorph shouldCopy - ifTrue: - [ self - primitiveCopyFileNamed: oldName - to: newName ] - " false ifFalse: - [ directory - rename: oldName - toBe: newName ]. - self - updateFileList ; - fileListIndex: 0. - ^ true! Item was added: + ----- Method: MessageTrace>>copySelector (in category '*Tools') ----- + copySelector + Clipboard clipboardText: + (String streamContents: + [ : stream | self selectedMessages + do: [ : each | stream nextPutAll: each selector asString ] + separatedBy: [ stream space ] ])!

1 0

The Trunk: Tools-cmm.414.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

1 0

The Trunk: MonticelloConfigurations-bf.104.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

Bert Freudenberg uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-bf.104.mcz ==================== Summary ==================== Name: MonticelloConfigurations-bf.104 Author: bf Time: 22 June 2012, 6:09:47.667 pm UUID: 2db39507-78c7-425f-84d9-f7c43468703d Ancestors: MonticelloConfigurations-nice.103 Cache filenames during load operations =============== Diff against MonticelloConfigurations-nice.103 =============== Item was added: + ----- Method: MCConfiguration>>cacheAllFileNamesDuring: (in category 'private') ----- + cacheAllFileNamesDuring: aBlock + ^ (repositories + inject: aBlock + into: [ :innerBlock :repository | + [ repository cacheAllFileNamesDuring: innerBlock ] + ]) value + + ! Item was changed: ----- Method: MCConfiguration>>depsSatisfying:versionDo:displayingProgress: (in category 'private') ----- depsSatisfying: selectBlock versionDo: verBlock displayingProgress: progressString | count action | + self cacheAllFileNamesDuring: [ count := 0. self repositories do: [ : eachRepository | MCRepositoryGroup default addRepository: eachRepository ]. action := [ : dep | | ver repo | ver := dep versionInfo name. repo := self repositories detect: [ : eachRepository | eachRepository includesVersionNamed: ver ] ifNone: [ self logError: 'Version ' , ver , ' not found in any repository'. self logError: 'Aborting'. ^ count ]. (selectBlock value: dep) ifTrue: [ | new | new := self versionNamed: ver for: dep from: repo. new ifNil: [ self logError: 'Could not download version ' , ver , ' from ' , repo description. self logError: 'Aborting'. ^ count ] ifNotNil: [ self logUpdate: dep package with: new. self class extraProgressInfo ifTrue: [ ProgressNotification signal: '' extra: 'Installing ' , ver ]. verBlock value: new. count := count + 1 ] ]. dep package workingCopy newRepositoryGroupIfDefault. "fix old working copies" dep package workingCopy repositoryGroup addRepository: repo ]. self class extraProgressInfo ifTrue: [ self dependencies do: action displayingProgress: progressString ] ifFalse: [ self dependencies do: action ]. + ]. ^ count! Item was changed: ----- Method: MCConfiguration>>updateFromRepositories (in category 'updating') ----- updateFromRepositories + self cacheAllFileNamesDuring: [ self updateFromRepositoriesWithoutCaching ]! - (repositories - inject: [ self updateFromRepositoriesWithoutCaching ] - into: [ :innerBlock :repository | - [ repository cacheAllFileNamesDuring: innerBlock ] ]) value - - ! Item was changed: ----- Method: MCConfiguration>>updateFromRepositories: (in category 'updating') ----- updateFromRepositories: packageIndex + self cacheAllFileNamesDuring: [ self updateFromRepositoriesWithoutCaching: packageIndex ]! - (repositories - inject: [ self updateFromRepositoriesWithoutCaching: packageIndex ] - into: [ :innerBlock :repository | - [ repository cacheAllFileNamesDuring: innerBlock ] ]) value - - !

1 0

The Trunk: MonticelloConfigurations-bf.104.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

1 0

The Trunk: MonticelloConfigurations-bf.104.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

1 0

The Trunk: Files-cmm.119.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

Chris Muller uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-cmm.119.mcz ==================== Summary ==================== Name: Files-cmm.119 Author: cmm Time: 22 June 2012, 11:04:28.076 am UUID: c68699c7-5cde-4ed0-8773-a25cad7f33fe Ancestors: Files-cmm.118 - Fix file renaming UI guard. =============== Diff against Files-eem.117 =============== Item was changed: ----- Method: FileDirectory>>rename:toBe: (in category 'file operations') ----- + rename: oldFileName toBe: newFileName - rename: oldFileName toBe: newFileName - | selection oldName newName | "Rename the file of the given name to the new name. Fail if there is no file of the old name or if there is an existing file with the new name." "Modified for retry after GC ar 3/21/98 18:09" + | selection oldName newName | oldName := self fullNameFor: oldFileName. newName := self fullNameFor: newFileName. + (self fileExists: oldFileName) ifFalse: [ ^ self error: 'Attempt to rename a non-existent file' ]. + (self fileExists: newFileName) ifTrue: + [ selection := UIManager default + chooseFrom: #('delete version in target directory' 'cancel' ) + title: newFileName , ' already exists'. + selection = 1 + ifTrue: [ self deleteFileNamed: newFileName ] + ifFalse: [ ^ self ] ]. + (StandardFileStream + retryWithGC: + [ self + primRename: oldName asVmPathName + to: newName asVmPathName ] + until: [ : result | result notNil ] + forFileNamed: oldName) ~~ nil ifTrue: [ ^ self ]. + ^ self error: 'Failed to rename file'! - (StandardFileStream - retryWithGC:[self primRename: oldName asVmPathName to: newName asVmPathName] - until:[:result| result notNil] - forFileNamed: oldName) ~~ nil ifTrue:[^self]. - (self fileExists: oldFileName) ifFalse:[ - ^self error:'Attempt to rename a non-existent file'. - ]. - (self fileExists: newFileName) ifTrue:[ - selection := UIManager default chooseFrom:#('delete old version' 'cancel') - title: 'Trying to rename a file to be - ', newFileName , ' - and it already exists.'. - selection = 1 ifTrue: - [self deleteFileNamed: newFileName. - ^ self rename: oldFileName toBe: newFileName]]. - ^self error:'Failed to rename file'.!

1 0

The Trunk: Files-cmm.119.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

1 0

The Trunk: Files-cmm.119.mcz
by commits＠source.squeak.org 22 Jun '12

22 Jun '12

1 0

The Trunk: Network-dtl.130.mcz
by commits＠source.squeak.org 20 Jun '12

20 Jun '12

David T. Lewis uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-dtl.130.mcz ==================== Summary ==================== Name: Network-dtl.130 Author: dtl Time: 19 June 2012, 10:25:07.904 pm UUID: 096acbec-d676-47d7-95d0-63b57aefaa35 Ancestors: Network-dtl.129 Merge Network-chc.120 from inbox: Name: Network-chc.120 Author: chc Time: 7 November 2011, 9:59:44.904 am UUID: c50a16b2-5a12-409d-a31e-2d46f4a55fc2 Ancestors: Network-tonyg.119 http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-June/151440.html FileList>>labelString was changed but perhaps it didn't change to accommodate ServerDirectory. As such the FTP folder in FileList has been broken. The process chokes in: pathAndPattern ^directory fullName, directory slash, pattern because ServerDirectory has neither #fullName nor #slash. I've added them and now the FTP directory at the bottom of the file list in FileList works again. =============== Diff against Network-dtl.129 =============== Item was added: + ----- Method: ServerDirectory>>fullName (in category 'accessing') ----- + fullName + ^server! Item was added: + ----- Method: ServerDirectory>>slash (in category 'accessing') ----- + slash + ^'/'!

1 0

The Trunk: Network-dtl.130.mcz
by commits＠source.squeak.org 20 Jun '12

20 Jun '12

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 June 2012