--- a/GNOMEDesktop.st	Sat May 05 22:58:24 2012 +0100
+++ b/GNOMEDesktop.st	Wed May 09 16:04:12 2012 +0100
@@ -51,12 +51,49 @@
     "Created: / 11-08-2009 / 16:54:43 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!GNOMEDesktop class methodsFor:'testing'!
+
+isAvailable
+    ^ super isAvailable and: [ 
+        (OperatingSystem getEnvironment: 'XDG_CURRENT_DESKTOP') = 'GNOME'
+            or:[(OperatingSystem getEnvironment: 'GNOME_DESKTOP_SESSION_ID') notNil
+            or:[(OperatingSystem getEnvironment: 'GNOME_KEYRING_PID') notNil
+            ]]
+    ]
+
+    "
+        GNOMEDesktop isAvailable
+    "
+
+    "Created: / 09-05-2012 / 11:47:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!GNOMEDesktop methodsFor:'accessing-directories'!
+
+desktopDirectory
+
+    ^XDG_DESKTOP_DIR notNil 
+        ifTrue:[XDG_DESKTOP_DIR]
+        ifFalse:[Filename homeDirectory]
+
+    "Created: / 09-05-2012 / 11:56:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+documentsDirectory
+
+    ^XDG_DOCUMENTS_DIR notNil 
+        ifTrue:[XDG_DOCUMENTS_DIR]
+        ifFalse:[Filename homeDirectory]
+
+    "Created: / 09-05-2012 / 11:56:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !GNOMEDesktop class methodsFor:'documentation'!
 
 version
-    ^'$Id: GNOMEDesktop.st 10717 2011-10-11 15:53:59Z vranyj1 $'
+    ^'$Id: GNOMEDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: GNOMEDesktop.st 10717 2011-10-11 15:53:59Z vranyj1 $'
+    ^ '$Id: GNOMEDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
 ! !