UnixDesktop.st
branchjv
changeset 17941 3651a18f3703
parent 17883 209190914636
child 18011 deb0c3355881
--- a/UnixDesktop.st	Sat May 05 22:58:24 2012 +0100
+++ b/UnixDesktop.st	Wed May 09 16:04:12 2012 +0100
@@ -75,6 +75,30 @@
     "Created: / 11-08-2009 / 17:32:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!UnixDesktop methodsFor:'accessing-directories'!
+
+desktopDirectory
+    | dir |
+
+    dir := OperatingSystem getHomeDirectory.
+    ^(dir / 'Desktop') exists 
+        ifTrue: [dir / 'Desktop']
+        ifFalse:[dir]
+
+    "Created: / 09-05-2012 / 11:50:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+documentsDirectory
+    | dir |
+
+    dir := OperatingSystem getHomeDirectory.
+    ^(dir / 'Documents') exists 
+        ifTrue: [dir / 'Documents']
+        ifFalse:[dir]
+
+    "Created: / 09-05-2012 / 11:50:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !UnixDesktop methodsFor:'operations'!
 
 edit: filenames
@@ -125,9 +149,9 @@
 !UnixDesktop class methodsFor:'documentation'!
 
 version
-    ^'$Id: UnixDesktop.st 10717 2011-10-11 15:53:59Z vranyj1 $'
+    ^'$Id: UnixDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: UnixDesktop.st 10717 2011-10-11 15:53:59Z vranyj1 $'
+    ^ '$Id: UnixDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
 ! !