--- a/UserPreferences.st Wed Oct 28 09:24:31 2015 +0100
+++ b/UserPreferences.st Wed Oct 28 16:42:45 2015 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1998 by eXept Software AG
All Rights Reserved
@@ -467,6 +469,10 @@
^ (Filename usersPrivateSmalltalkDirectory) / 'settings.stx'
"Created: / 06-10-2008 / 08:27:15 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+defaultWorkspaceDirectory
+ ^ (Filename usersPrivateSmalltalkDirectory) / 'workspace'
! !
!UserPreferences class methodsFor:'accessing defaultPrefs'!
@@ -5251,6 +5257,27 @@
"
"Created: / 22-01-2012 / 10:52:59 / cg"
+!
+
+usersModuleName
+ ^ self at:#usersModuleName ifAbsent:[OperatingSystem getLoginName ]
+!
+
+usersModuleName:aString
+ self at:#usersModuleName put:aString
+!
+
+workspaceDirectory
+ ^ self at:#workspaceDirectory ifAbsent:[self class defaultWorkspaceDirectory]
+!
+
+workspaceDirectory:aDirectoryOrNilForDefault
+ |d|
+
+ (d := aDirectoryOrNilForDefault) notNil ifTrue:[
+ d := d asFilename
+ ].
+ self at:#workspaceDirectory put:d
! !
!UserPreferences methodsFor:'accessing-scm'!