Frank Shearar uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-fbs.476.mcz
==================== Summary ====================
Name: Tools-fbs.476
Author: fbs
Time: 28 June 2013, 8:56:08.948 pm
UUID: e33fa621-870c-af40-9e54-5b343a5e8367
Ancestors: Tools-fbs.475
When you rename a message category, select the _new_ name so that you stay where you were.
=============== Diff against Tools-fbs.475 ===============
Item was changed:
----- Method: Browser>>renameCategory (in category 'message category functions') -----
renameCategory
"Prompt for a new category name and add it before the
current selection, or at the end if no current selection"
| oldName newName |
self hasClassSelected ifFalse: [^ self].
self okToChange ifFalse: [^ self].
self hasMessageCategorySelected ifFalse: [^ self].
oldName := self selectedMessageCategoryName.
newName := self
request: 'Please type new category name'
initialAnswer: oldName.
newName isEmpty
ifTrue: [^ self]
ifFalse: [newName := newName asSymbol].
newName = oldName ifTrue: [^ self].
self classOrMetaClassOrganizer
renameCategory: oldName
toBe: newName.
self selectClassNamed: selectedClassName.
+ self selectMessageCategoryNamed: newName.
- self selectMessageCategoryNamed: oldName.
self changed: #messageCategoryList.
!
Frank Shearar uploaded a new version of Compression to project The Trunk:
http://source.squeak.org/trunk/Compression-fbs.35.mcz
==================== Summary ====================
Name: Compression-fbs.35
Author: fbs
Time: 28 June 2013, 8:44:46.942 pm
UUID: 1dc85a45-cd8a-1644-aded-fbcf28435e5d
Ancestors: Compression-fbs.34
Push service-y stuff out of low level code into packages closer to the UI.
=============== Diff against Compression-fbs.34 ===============
Item was changed:
----- Method: FileStream>>viewGZipContents (in category '*Compression') -----
viewGZipContents
"View the contents of a gzipped file"
| stringContents |
self binary.
stringContents := self contentsOfEntireFile.
+ stringContents := (GZipReadStream on: stringContents) upToEnd.
+ ^ stringContents asString withSqueakLineEndings.!
- stringContents := Cursor wait showWhile: [(GZipReadStream on: stringContents) upToEnd].
- stringContents := stringContents asString withSqueakLineEndings.
-
- UIManager default
- edit: stringContents
- label: 'Decompressed contents of: ', self localName!
Item was removed:
- ----- Method: GZipReadStream class>>serviceViewDecompress (in category 'fileIn/Out') -----
- serviceViewDecompress
-
- ^ SimpleServiceEntry
- provider: self
- label: 'view decompressed'
- selector: #viewContents:
- description: 'view decompressed'
- !
Item was removed:
- ----- Method: GZipReadStream class>>viewContents: (in category 'fileIn/Out') -----
- viewContents: fullFileName
- "Open the decompressed contents of the .gz file with the given name. This method is only required for the registering-file-list of Squeak 3.3a and beyond, but does no harm in an earlier system"
-
- (FileStream readOnlyFileNamed: fullFileName) ifNotNil:
- [:aStream | aStream viewGZipContents]!
Item was changed:
----- Method: ZipArchive>>extractAllTo: (in category 'archive operations') -----
extractAllTo: aDirectory
"Extract all elements to the given directory"
+ self extractAllTo: aDirectory informing: nil.!
- UIManager default informUserDuring:[:bar|self extractAllTo: aDirectory informing: bar].!
Item was changed:
----- Method: ZipArchive>>extractAllTo:informing: (in category 'archive operations') -----
extractAllTo: aDirectory informing: bar
+ "Extract all elements to the given directory, notifying the user of progress"
- "Extract all elements to the given directory"
^self extractAllTo: aDirectory informing: bar overwrite: false!
Did you change your mind about going through UIManager
indicateWaitWhile: [ ... ]?
On Thu, Jun 27, 2013 at 2:41 PM, <commits(a)source.squeak.org> wrote:
> Frank Shearar uploaded a new version of Files to project The Trunk:
> http://source.squeak.org/trunk/Files-fbs.124.mcz
>
> ==================== Summary ====================
>
> Name: Files-fbs.124
> Author: fbs
> Time: 27 June 2013, 5:18:49.925 pm
> UUID: db8086ca-e21b-9748-a401-0430a5641821
> Ancestors: Files-tpr.123
>
> Remove the Cursor >> #showWhile because this method has no senders (it's an example of how to recursively enumerate a FileDirectory) and so needlessly introduces a dependency on Graphics.
>
> The diff is very noisy because we unindent the block.
>
> =============== Diff against Files-tpr.123 ===============
>
> Item was changed:
> ----- Method: FileDirectory>>statsForDirectoryTree: (in category 'enumeration') -----
> statsForDirectoryTree: rootedPathName
> "Return the size statistics for the entire directory tree starting at the given root. The result is a three element array of the form: (<number of folders><number of files><total bytes in all files>). This method also serves as an example of how recursively enumerate a directory tree."
> "FileDirectory default statsForDirectoryTree: '\smalltalk'"
>
> + | dirs files bytes todo entries p |
> + dirs := files := bytes := 0.
> + todo := OrderedCollection with: rootedPathName.
> + [todo isEmpty] whileFalse: [
> + p := todo removeFirst.
> + entries := self directoryContentsFor: p.
> + entries do: [:entry |
> + entry isDirectory
> + ifTrue: [
> + todo addLast: p , self pathNameDelimiter asString , entry name.
> + dirs := dirs + 1]
> + ifFalse: [
> + files := files + 1.
> + bytes := bytes + entry fileSize]]].
> + ^ Array with: dirs with: files with: bytes
> - ^Cursor wait showWhile: [
> - | dirs files bytes todo entries p |
> - dirs := files := bytes := 0.
> - todo := OrderedCollection with: rootedPathName.
> - [todo isEmpty] whileFalse: [
> - p := todo removeFirst.
> - entries := self directoryContentsFor: p.
> - entries do: [:entry |
> - entry isDirectory
> - ifTrue: [
> - todo addLast: p , self pathNameDelimiter asString , entry name.
> - dirs := dirs + 1]
> - ifFalse: [
> - files := files + 1.
> - bytes := bytes + entry fileSize]]].
> - Array with: dirs with: files with: bytes]
> !
>
>