--- a/Filename.st	Sun Apr 20 00:50:48 2014 +0200
+++ b/Filename.st	Sun Apr 20 00:52:17 2014 +0200
@@ -848,6 +848,26 @@
     temp := aFilename asFilename.
     self assert:temp isDirectory.
     TempDirectory := temp.
+!
+
+trashDirectoryOrNil
+    "if the underlying OS uses/supports a trash folder,
+     return it. Otherwise return nil.
+     Asks the OS for the pathname; for example, on OSX, '~/.Trash' is returned."
+
+    |s|
+
+    s := OperatingSystem getTrashDirectory.
+    s isNil ifTrue:[
+        ^ nil
+    ].
+    ^ self named:s
+
+    "
+     Filename desktopDirectory        
+    "
+
+    "Created: / 16-05-2007 / 13:18:34 / cg"
 ! !
 
 !Filename class methodsFor:'defaults'!
@@ -6065,11 +6085,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.412 2014-04-10 11:46:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.413 2014-04-19 22:52:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.412 2014-04-10 11:46:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.413 2014-04-19 22:52:17 cg Exp $'
 ! !