Fixes desktopDirectory for XDG desktops jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 21 Aug 2012 11:46:45 +0100
branchjv
changeset 17962 519d50c30a4a
parent 17961 b260fa6278be
child 17963 2b9f744b4b11
Fixes desktopDirectory for XDG desktops
XDGDesktop.st
--- a/XDGDesktop.st	Fri Aug 17 18:19:56 2012 +0100
+++ b/XDGDesktop.st	Tue Aug 21 11:46:45 2012 +0100
@@ -124,7 +124,11 @@
 !XDGDesktop methodsFor:'accessing-directories'!
 
 desktopDirectory
-    ^XDG_DESKTOP_DIR isNil ifTrue:[Filename homeDirectory]
+    ^XDG_DESKTOP_DIR notNil ifTrue:[
+        XDG_DESKTOP_DIR
+    ] ifFalse:[
+        Filename homeDirectory
+    ]
 
     "Created: / 09-05-2012 / 11:53:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -139,11 +143,11 @@
 !XDGDesktop class methodsFor:'documentation'!
 
 version
-    ^'$Id: XDGDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
+    ^'$Id: XDGDesktop.st 10839 2012-08-21 10:46:45Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: XDGDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
+    ^ '$Id: XDGDesktop.st 10839 2012-08-21 10:46:45Z vranyj1 $'
 ! !
 
 XDGDesktop initialize!