The Trunk: Tools-cmm.414.mcz

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