--- a/AbstractSettingsApplication.st	Wed Oct 28 16:46:33 2015 +0100
+++ b/AbstractSettingsApplication.st	Wed Oct 28 18:08:04 2015 +0100
@@ -19460,8 +19460,8 @@
             (SpecCollection
                collection: (
                 (HorizontalPanelViewSpec
-                activeHelpKey: usersModuleName
                    name: 'HorizontalPanel1'
+                   activeHelpKey: usersModuleName
                    horizontalLayout: leftSpaceFit
                    verticalLayout: center
                    horizontalSpace: 3
@@ -19490,8 +19490,8 @@
                    extent: (Point 600 35)
                  )
                 (HorizontalPanelViewSpec
-                activeHelpKey: workspaceDirectory
                    name: 'HorizontalPanel2'
+                   activeHelpKey: workspaceDirectory
                    horizontalLayout: leftSpaceFit
                    verticalLayout: center
                    horizontalSpace: 3
@@ -19519,6 +19519,35 @@
                    )
                    extent: (Point 600 35)
                  )
+                (HorizontalPanelViewSpec
+                   name: 'HorizontalPanel3'
+                   activeHelpKey: workspaceDirectory
+                   horizontalLayout: rightSpace
+                   verticalLayout: center
+                   horizontalSpace: 3
+                   verticalSpace: 3
+                   component: 
+                  (SpecCollection
+                     collection: (
+                      (ActionButtonSpec
+                         label: 'Create Workspace Directory'
+                         name: 'Button1'
+                         translateLabel: true
+                         model: createWorkspaceDirectory
+                         useDefaultExtent: true
+                       )
+                      (ActionButtonSpec
+                         label: 'Browse'
+                         name: 'Button2'
+                         translateLabel: true
+                         model: browseWorkspaceDirectory
+                         useDefaultExtent: true
+                       )
+                      )
+                    
+                   )
+                   extent: (Point 600 35)
+                 )
                 )
               
              )
@@ -19529,6 +19558,30 @@
      )
 ! !
 
+!AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'actions'!
+
+browseWorkspaceDirectory
+    |fn|
+
+    (fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
+        (fn := fn asFilename) exists ifFalse:[
+            Dialog warn:'Directory does not exist'.
+        ] ifTrue:[    
+            UserPreferences current fileBrowserClass openOn:fn
+        ]
+    ]
+!
+
+createWorkspaceDirectory
+    |fn|
+
+    (fn := workspaceDirectory value) notEmptyOrNil ifTrue:[
+        (fn := fn asFilename) exists ifFalse:[
+            fn recursiveMakeDirectory
+        ]
+    ]
+! !
+
 !AbstractSettingsApplication::WorkspaceSettingsAppl methodsFor:'aspects'!
 
 aspects