Merge pull request #683 from hernanmd/compression_UI_utilities

Compression UI utilities
pharo-spec · Feb 14, 2024 · ef9aad0 · ef9aad0
2 parents 803d855 + a0e34cf
commit ef9aad0
Show file tree

Hide file tree

Showing 4 changed files with 59 additions and 8 deletions.
diff --git a/src/BaselineOfNewTools/BaselineOfNewTools.class.st b/src/BaselineOfNewTools/BaselineOfNewTools.class.st
@@ -98,7 +98,9 @@ BaselineOfNewTools >> baseline: spec [
 			package: 'NewTools-Finder-Tests' with: [ spec requires: #('NewTools-Finder') ];
 
 			package: 'NewTools-SettingsBrowser' with: [ spec requires: #('ColorPicker') ];
-			package: 'NewTools-SettingsBrowser-Tests' with: [ spec requires: #('NewTools-SettingsBrowser') ].			
+			package: 'NewTools-SettingsBrowser-Tests' with: [ spec requires: #('NewTools-SettingsBrowser') ];
+
+			package: 'NewTools-Compression-Utils' with: [ spec requires: #('NewTools-FileBrowser') ].			
 
 		spec
 			group: 'Core' with: #( 'NewTools-Core' 'NewTools-Morphic' );
@@ -136,34 +138,37 @@ BaselineOfNewTools >> baseline: spec [
 						'Core' 
 						'NewTools-FlagBrowser' 
 						'NewTools-FlagBrowser-Tests' );
-			group: #development with: #( 'default' 
+			group: 'development' with: #( 'default' 
 						'NewTools-DebuggerSelector'
 				   		'NewTools-DebuggerSelector-Tests' );
-			group: #FileBrowser with: #( 
+			group: 'FileBrowser' with: #( 
 						'NewTools-FileBrowser' 
 						'NewTools-FileBrowser-Tests' );
-      			group: #RewriterTools with: #(
+      			group: 'RewriterTools' with: #(
 				    		'NewTools-RewriterTools-Backend'
 				    		'NewTools-RewriterTools'
 				    		'NewTools-RewriterTools-Backend-Tests'
 				    		'NewTools-RewriterTools-Tests' );
 			group: 'Profiler' with: #( 'NewTools-ProfilerUI' );
 			"ScopesEditor"
-			group: #ScopesEditor with: #(
+			group: 'ScopesEditor' with: #(
 						'NewTools-Scopes' 
 						'NewTools-Scopes-Editor' 
 						'NewTools-Scopes-Resources-A-Tests' 
 						'NewTools-Scopes-Resources-B-Tests' 
 						'NewTools-Scopes-Resources-C-Tests' 
 						'NewTools-Scopes-Tests');
 			"Finder"
-			group: #Finder with: #(
+			group: 'Finder' with: #(
 						'NewTools-Finder'
 						'NewTools-Finder-Tests');
 			"Settings Browser"
-			group: #SettingsBrowser with: #(
+			group: 'SettingsBrowser' with: #(
 						'NewTools-SettingsBrowser'
 						'NewTools-SettingsBrowser-Tests');
+			"Compression Utilities"
+			group: 'CompressionUtilities' with: #(
+						'NewTools-Compression-Utils');
 
 			group: 'default' with: #( 
 						'Playground' 
@@ -179,7 +184,8 @@ BaselineOfNewTools >> baseline: spec [
 						'FileBrowser'
 						'Finder'
 						'Profiler'
-						'SettingsBrowser') ]
+						'SettingsBrowser'
+						'CompressionUtilities') ]
 ]
 
 { #category : 'external projects' }

diff --git a/src/NewTools-Compression-Utils/InflateStream.extension.st b/src/NewTools-Compression-Utils/InflateStream.extension.st
@@ -0,0 +1,26 @@
+Extension { #name : 'InflateStream' }
+
+{ #category : '*NewTools-Compression-Utils' }
+InflateStream class >> openWithContents: contentsString label: titleString [
+	"Open a text viewer on contentsString and window label titleString"
+
+	SpTextPresenter new
+		text: contentsString;
+		open;
+		withWindowDo: [ : w | 
+			w 
+				title: titleString;
+				extent: 600 @ 800 ]
+]
+
+{ #category : '*NewTools-Compression-Utils' }
+InflateStream class >> viewContents: fullFileName [
+	"Open the decompressed contents of fullFileName"
+
+	| file |
+	(file := fullFileName asFileReference) binaryReadStreamDo: [ :aStream | 
+		self with: aStream do: [ :aGzStream | 
+			self 
+				openWithContents: aGzStream upToEnd 
+				label: 'Decompressed contents of: ' , file basename ] ]
+]
diff --git a/src/NewTools-Compression-Utils/ZipArchive.extension.st b/src/NewTools-Compression-Utils/ZipArchive.extension.st
@@ -0,0 +1,18 @@
+Extension { #name : 'ZipArchive' }
+
+{ #category : '*NewTools-Compression-Utils' }
+ZipArchive class >> extractAllIn: aFileReferenceOrFileName [
+	"Service method to extract all contents of a zip.
+	Example: 
+		ZipArchive extractAllIn: 'my_file.zip' 
+		"
+	| directory |
+
+	directory := (StOpenDirectoryDialog new
+		currentDirectory: FileSystem workingDirectory;
+		openModal) ifNil: [ ^ self ].
+
+	^ self new
+		readFrom: aFileReferenceOrFileName;
+		extractAllTo: directory
+]
diff --git a/src/NewTools-Compression-Utils/package.st b/src/NewTools-Compression-Utils/package.st
@@ -0,0 +1 @@
+Package { #name : 'NewTools-Compression-Utils' }