[squeak-dev] The Trunk: Tools-cmm.414.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Jun 22 19:41:05 UTC 2012


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



More information about the Squeak-dev mailing list