--- 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!