AbstractDesktop.st
branchjv
changeset 17941 3651a18f3703
parent 17883 209190914636
child 18011 deb0c3355881
--- a/AbstractDesktop.st	Sat May 05 22:58:24 2012 +0100
+++ b/AbstractDesktop.st	Wed May 09 16:04:12 2012 +0100
@@ -47,6 +47,13 @@
     Smalltalk at: #Desktop put:self current
 
     "Created: / 11-08-2009 / 17:09:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+reinitialize
+
+    self initialize.
+
+    "Created: / 09-05-2012 / 11:57:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractDesktop class methodsFor:'instance creation'!
@@ -99,6 +106,22 @@
     "Created: / 11-08-2009 / 16:38:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!AbstractDesktop methodsFor:'accessing-directories'!
+
+desktopDirectory
+
+    ^OperatingSystem getDesktopDirectory
+
+    "Created: / 09-05-2012 / 11:48:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+documentsDirectory
+
+    ^OperatingSystem getDocumentsDirectory
+
+    "Created: / 09-05-2012 / 11:48:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !AbstractDesktop methodsFor:'operations'!
 
 edit: filenames
@@ -130,11 +153,11 @@
 !AbstractDesktop class methodsFor:'documentation'!
 
 version
-    ^'$Id: AbstractDesktop.st 10717 2011-10-11 15:53:59Z vranyj1 $'
+    ^'$Id: AbstractDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: AbstractDesktop.st 10717 2011-10-11 15:53:59Z vranyj1 $'
+    ^ '$Id: AbstractDesktop.st 10808 2012-05-09 15:04:12Z vranyj1 $'
 ! !
 
 AbstractDesktop initialize!