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.)'!
packages@lists.squeakfoundation.org