[Pkg] The Trunk: Tools-fbs.489.mcz

[commits at source.squeak.org]

Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.489.mcz

==================== Summary ====================

Name: Tools-fbs.489
Author: fbs
Time: 25 July 2013, 8:59:51.9 am
UUID: 91b8789c-87f2-d941-9ed5-432aec4a1aca
Ancestors: Tools-fbs.488

SmalltalkImage current -> Smalltalk.

=============== Diff against Tools-fbs.488 ===============

Item was changed:
  ----- Method: ChangeList class>>browseRecentLog (in category 'public access') -----
  browseRecentLog
  	"ChangeList browseRecentLog"
  	"Prompt with a menu of how far back to go to browse the current image's changes log file"
  	^ self
  		browseRecentLogOn: (SourceFiles at: 2)
+ 		startingFrom: Smalltalk lastQuitLogPosition!
- 		startingFrom: SmalltalkImage current lastQuitLogPosition!

Item was changed:
  ----- Method: ChangeList class>>getRecentLocatorWithPrompt: (in category 'public access') -----
  getRecentLocatorWithPrompt: aPrompt
  	"Prompt with a menu of how far back to go.  Return nil if user backs out.  Otherwise return the number of characters back from the end of the .changes file the user wishes to include"
  	 "ChangeList getRecentPosition"
  	| end changesFile banners positions pos chunk i |
  	changesFile := (SourceFiles at: 2) readOnlyCopy.
  	banners := OrderedCollection new.
  	positions := OrderedCollection new.
  	end := changesFile size.
+ 	pos := Smalltalk lastQuitLogPosition.
- 	pos := SmalltalkImage current lastQuitLogPosition.
  	[pos = 0 or: [banners size > 20]] whileFalse:
  		[changesFile position: pos.
  		chunk := changesFile nextChunk.
  		i := chunk indexOfSubCollection: 'priorSource: ' startingAt: 1.
  		i > 0 ifTrue: [positions addLast: pos.
  					banners addLast: (chunk copyFrom: 5 to: i-2).
  					pos := Number readFrom: (chunk copyFrom: i+13 to: chunk size)]
  			ifFalse: [pos := 0]].
  	changesFile close.
  	pos := UIManager default chooseFrom: banners values: positions title: aPrompt.
  	pos == nil ifTrue: [^ nil].
  	^ end - pos!

Item was changed:
  ----- Method: CodeHolder>>informPossiblyCorruptSource (in category 'misc') -----
  informPossiblyCorruptSource
  
  	| sourcesName |
+ 	sourcesName := FileDirectory localNameFor: Smalltalk sourcesName.
- 	sourcesName := FileDirectory localNameFor: SmalltalkImage current sourcesName.
  	self inform: 'There may be a problem with your sources file!!
  
  The source code for every method should (usually) start with the
  method selector but this is not the case with this method!! You may
  proceed with caution but it is recommended that you get a new source file.
  
  This can happen if you download the "' , sourcesName  , '" file, 
  or the ".changes" file you use, as TEXT. It must be transfered 
  in BINARY mode, even if it looks like a text file, 
  to preserve the CR line ends.
  
  Mac users: This may have been caused by Stuffit Expander. 
  To prevent the files above to be converted to Mac line ends 
  when they are expanded, do this: Start the program, then 
  from Preferences... in the File menu, choose the Cross 
  Platform panel, then select "Never" and press OK. 
  Then expand the compressed archive again.
  
  (Occasionally, the source code for a method may legitimately
  start with a non-alphabetic character -- for example, Behavior
  method #formalHeaderPartsFor:.  In such rare cases, you can
  happily disregard this warning.)'!