hg/stx-libbasic: comparison Win32OperatingSystem.st

equal deleted inserted replaced

-:994fd5ae721e
+:1addd0eeec26
 |hMe spaceForTargetHandle rslt addr|
 spaceForTargetHandle := ExternalLong unprotectedNew.
 hMe := self getCurrentProcess.
 rslt := self
-		primDuplicateHandle_hSourcProcessHandle:hMe
+primDuplicateHandle_hSourcProcessHandle:hMe
-		hSourceHandle:aHandle
+hSourceHandle:aHandle
-		hTargetProcesshandle:targetProcessHandle
+hTargetProcesshandle:targetProcessHandle ? hMe
-		lpTargetHandle:spaceForTargetHandle
+lpTargetHandle:spaceForTargetHandle
-		dwDesiredAccess:0
+dwDesiredAccess:0
-		bInheritHandle:false
+bInheritHandle:false
-		dwOptions:2 "DUPLICATE_SAME_ACCESS".
+dwOptions:2 "DUPLICATE_SAME_ACCESS".
 rslt ifFalse:[
-	spaceForTargetHandle free.
+spaceForTargetHandle free.
-	self primitiveFailed.
+self primitiveFailed:self primGetLastError.
-	^ nil
+^ nil
 ].
 addr := spaceForTargetHandle value.
 spaceForTargetHandle free.
 ^ ExternalAddress newAddress:addr.
 %}
 "
 Win32OperatingSystem hInstance
 "
+!
+isValidHandle:anExternalAddress
+|newHandle|
+newHandle := self duplicateHandle:anExternalAddress to:nil.
+newHandle isNil ifTrue:[
+^ false.
+].
+"/    self closeHandle:newHandle.
+^ true.
 !
 playSound:fileName
 self playSound:fileName mode:1
 ! !
 !Win32OperatingSystem class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.490 2014-02-11 20:18:49 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.491 2014-03-25 13:56:47 stefan Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.490 2014-02-11 20:18:49 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.491 2014-03-25 13:56:47 stefan Exp $'
 !
 version_SVN
-^ '$Id: Win32OperatingSystem.st,v 1.490 2014-02-11 20:18:49 cg Exp $'
+^ '$Id: Win32OperatingSystem.st,v 1.491 2014-03-25 13:56:47 stefan Exp $'
 ! !
 Win32OperatingSystem initialize!

changeset 16279	1addd0eeec26
parent 15983	294a6922be11
child 16285	d8b8eb36dbed