--- a/UserPreferences.st Wed Oct 28 18:49:09 2015 +0100
+++ b/UserPreferences.st Wed Oct 28 18:49:27 2015 +0100
@@ -843,23 +843,6 @@
-!UserPreferences methodsFor:'accessing-changes & history'!
-
-changeFileName
- "were to keep changes"
-
- ^self
- at: #'changeFileName'
- ifAbsent: nil
-!
-
-changeFileName:aFilename
- "were to keep changes"
-
- self
- at: #'changeFileName'
- put: aFilename.
-! !
!UserPreferences methodsFor:'accessing-locale'!
@@ -4626,6 +4609,47 @@
"Created: / 03-07-2006 / 16:50:20 / cg"
! !
+!UserPreferences methodsFor:'accessing-prefs-files and directories'!
+
+changeFileName
+ "were to keep changes"
+
+ ^ self
+ at: #'changeFileName'
+ ifAbsent: [nil]
+!
+
+changeFileName:aFilename
+ "were to keep changes"
+
+ self
+ at: #'changeFileName'
+ put: aFilename.
+!
+
+usersModuleName
+ "this will be taken as the user's module in the workspace and as a default for new projects"
+
+ ^ 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-prefs-localization'!
language
@@ -5257,27 +5281,6 @@
"
"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'!