diff --git a/src/PharoLauncher-Core/Win32Platform.extension.st b/src/PharoLauncher-Core/Win32Platform.extension.st deleted file mode 100644 index f816048e..00000000 --- a/src/PharoLauncher-Core/Win32Platform.extension.st +++ /dev/null @@ -1,25 +0,0 @@ -Extension { #name : #Win32Platform } - -{ #category : #'*PharoLauncher-Core' } -Win32Platform >> 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' } -Win32Platform >> privShellExplore: folder [ - " - self privShellExplore: 'c:\' - " - - ^self privShellExecute: 'explore' file: folder parameters: '' directory: '' show: 5 "SW_SHOW" -] diff --git a/src/PharoLauncher-Core/WinPlatform.extension.st b/src/PharoLauncher-Core/WinPlatform.extension.st index e649c58d..4e0934a4 100644 --- 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