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 ] ])!