AbstractSettingsApplication.st
branchjv
changeset 16630 37df0c9b935c
parent 16626 a17d29847f95
parent 16629 940c80b32393
child 16646 a5f135955d71
--- a/AbstractSettingsApplication.st	Sat May 21 06:47:04 2016 +0200
+++ b/AbstractSettingsApplication.st	Thu May 26 06:49:40 2016 +0200
@@ -16334,18 +16334,18 @@
 
     cacheDir := self sourceCacheDir value.    
     cacheDir isNil ifTrue:[
-        AbstractSourceCodeManager cachingSources ifFalse:[
-            (Dialog confirm:'No cache directory defined. Setup now?') ifTrue:[
-                AbstractSourceCodeManager cachingSources:true.
-                self browseSourceCache
-            ].            
-        ] ifFalse:[
+        AbstractSourceCodeManager cachingSources ifTrue:[
             AbstractSourceCodeManager initCacheDirPath.
             cacheDir := self sourceCacheDir value.    
             cacheDir isNil ifTrue:[
                 Dialog information:'Failed to setup a default cache directory. Please enter manually'.
                 ^ self.
             ].            
+        ] ifFalse:[
+            (Dialog confirm:'No cache directory defined. Setup now?') ifTrue:[
+                AbstractSourceCodeManager cachingSources:true.
+                self browseSourceCache
+            ].            
         ].    
     ].    
     UserPreferences fileBrowserClass openOn:cacheDir