Using GtSubprocess instead of OSSubprocess.
This commit is contained in:
parent
5de6a81029
commit
1cdf89d96f
@ -31,12 +31,11 @@ NanoID class >> binaryFile [
|
|||||||
NanoID class >> generate [
|
NanoID class >> generate [
|
||||||
self binaryFile exists ifFalse: [ NanoID install].
|
self binaryFile exists ifFalse: [ NanoID install].
|
||||||
Smalltalk os isWindows
|
Smalltalk os isWindows
|
||||||
ifTrue: [ ^ (LibC resultOfCommand:self binaryFile fullName) copyWithoutAll: (Character lf asString) ].
|
ifTrue: [ ^ (LibC resultOfCommand:self binaryFile fullName) copyWithoutAll: (Character lf asString) ].
|
||||||
OSSUnixSubprocess new
|
^ (GtSubprocessWithInMemoryOutput new
|
||||||
command: self binaryFile fullName;
|
shellCommand: self binaryFile fullName;
|
||||||
redirectStdout;
|
runAndWait;
|
||||||
redirectStdout;
|
stdout) copyWithoutAll: (Character lf asString)
|
||||||
runAndWaitOnExitDo: [ :process :outString | ^ outString copyWithoutAll: (Character lf asString) ]
|
|
||||||
]
|
]
|
||||||
|
|
||||||
{ #category : #accessing }
|
{ #category : #accessing }
|
||||||
|
Loading…
Reference in New Issue
Block a user