class: Win32OperatingSystem
authorStefan Vogel <sv@exept.de>
Thu, 08 May 2014 19:33:47 +0200
changeset 16411 d2d30742b686
parent 16410 8e2a49eab15c
child 16412 1a090dd6d7fc
class: Win32OperatingSystem OSProcessStatus>>#isError
Win32OperatingSystem.st
--- a/Win32OperatingSystem.st	Thu May 08 19:33:02 2014 +0200
+++ b/Win32OperatingSystem.st	Thu May 08 19:33:47 2014 +0200
@@ -12,8 +12,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-'From Smalltalk/X, Version:6.2.3.0 on 18-04-2014 at 00:36:44'                   !
-
 "{ Package: 'stx:libbasic' }"
 
 AbstractOperatingSystem subclass:#Win32OperatingSystem
@@ -12258,6 +12256,12 @@
     "Modified: 30.4.1996 / 18:27:03 / cg"
 !
 
+isError
+    "true if process terminated with error"
+
+    ^ status == #exit and:[code ~= 0]
+!
+
 stillAlive
     "true if process is still alive"
 
@@ -17652,15 +17656,15 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.503 2014-04-18 14:52:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.504 2014-05-08 17:33:47 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.503 2014-04-18 14:52:01 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.504 2014-05-08 17:33:47 stefan Exp $'
 !
 
 version_SVN
-    ^ '$Id: Win32OperatingSystem.st,v 1.503 2014-04-18 14:52:01 stefan Exp $'
+    ^ '$Id: Win32OperatingSystem.st,v 1.504 2014-05-08 17:33:47 stefan Exp $'
 
 ! !