# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 927110131 -7200
# Node ID 9f7e67c144654b17c4a96e293eff413b9e982d35
# Parent  7fc0d572c6f255839f57ded4afc94dc3c9832229
added nullDevice

diff -r 7fc0d572c6f2 -r 9f7e67c14465 Filename.st
--- a/Filename.st	Wed May 19 10:49:18 1999 +0200
+++ b/Filename.st	Wed May 19 12:35:31 1999 +0200
@@ -530,6 +530,25 @@
     "Modified: / 11.8.1998 / 22:51:43 / cg"
 !
 
+nullDevice
+    "return the filename of the nullDevice (if available).
+     returns nil, if the OperatingSystem does not support this."
+
+    |s|
+
+    s := OperatingSystem getNullDevice.
+    s isNil ifTrue:[
+        ^ nil
+    ].
+    ^ self named:s
+
+    "
+     Filename nullDevice        
+    "
+
+    "Created: / 19.5.1999 / 12:24:26 / cg"
+!
+
 rootDirectory
     "return a filename for the root directory"
 
@@ -3256,6 +3275,6 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.153 1999-05-05 12:02:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.154 1999-05-19 10:35:31 cg Exp $'
 ! !
 Filename initialize!