Status: Fixed
Owner: stephane.ducasse
Labels: Milestone-1.3 Difficulty-Easy
New issue 3422 by stephane.ducasse: Use UIManager instead of Workspace
http://code.google.com/p/pharo/issues/detail?id=3422viewGZipContents
"View the contents of a gzipped file"
| stringContents |
self binary.
stringContents := self contentsOfEntireFile.
stringContents := Cursor wait showWhile: [(GZipReadStream on:
stringContents) upToEnd].
stringContents := stringContents asString withSqueakLineEndings.
UIManager default
edit: stringContents
label: 'Decompressed contents of: ', self localName