fix #551 'show folder on windows'

pharo-project · Apr 25, 2022 · dbca063 · dbca063
1 parent ce01dd4
commit dbca063
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 25 deletions.
diff --git a/src/PharoLauncher-Core/Win32Platform.extension.st b/src/PharoLauncher-Core/Win32Platform.extension.st
diff --git a/src/PharoLauncher-Core/WinPlatform.extension.st b/src/PharoLauncher-Core/WinPlatform.extension.st
@@ -9,6 +9,30 @@ WinPlatform >> hostArchitecture [
 	^ processorArch 
 ]
 
+{ #category : #'*PharoLauncher-Core' }
+WinPlatform >> privShellExecute: lpOperation file: lpFile parameters: lpParameters directory: lpDirectory show: nShowCmd [
+
+	^self ffiCall: #( 
+			FFIConstantHandle ShellExecuteA(
+     				0,
+     				char* lpOperation,
+         			char* lpFile,
+     				char* lpParameters,
+     				char* lpDirectory,
+        			int nShowCmd)) module: #shell32
+
+
+]
+
+{ #category : #'*PharoLauncher-Core' }
+WinPlatform >> privShellExplore: folder [
+	"
+	self privShellExplore: 'c:\'
+	"
+
+	^self privShellExecute: 'explore' file: folder parameters: '' directory: '' show: 5 "SW_SHOW"
+]
+
 { #category : #'*PharoLauncher-Core' }
 WinPlatform >> uname [
 	^ PhLVmProvider osWindows