changed:
authorClaus Gittinger <cg@exept.de>
Mon, 05 Sep 2011 23:27:20 +0200
changeset 10667 7288749935ef
parent 10666 6930bb15d213
child 10668 6d9353db9915
changed: #fileOutEachClassIn:in:withFormat: #projectMenuFileOutEachInWithFormat:
Tools__NewSystemBrowser.st
--- a/Tools__NewSystemBrowser.st	Mon Sep 05 16:20:47 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Mon Sep 05 23:27:20 2011 +0200
@@ -15129,7 +15129,6 @@
     "Created: / 24.2.2000 / 23:28:06 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -18411,7 +18410,6 @@
     ^ UserPreferences current useSearchBarInBrowser or:[self codeView searchBarActionBlock notNil]
 ! !
 
-
 !NewSystemBrowser methodsFor:'change & update'!
 
 categorySelectionChanged
@@ -22207,9 +22205,9 @@
             self busyLabel:'saving: %1' with:eachClass name.
             Class fileOutErrorSignal handle:[:ex |
                 answer := DialogBox
-                                confirm:(resources string:'Cannot fileOut: %1\(%2)\\skipped.'
+                                confirm:(resources stringWithCRs:'Cannot fileOut: %1\(%2)\\skipped.'
                                                      with:(eachClass name allBold)
-                                                     with:ex description) withCRs
+                                                     with:ex description)
                                 yesLabel:'ok' noLabel:'cancel'.
                 answer == false ifTrue:[
                     ^ self
@@ -22224,7 +22222,7 @@
     ].
     self normalLabel.
 
-    "Modified: / 06-10-2006 / 16:17:56 / cg"
+    "Modified: / 05-09-2011 / 22:01:27 / cg"
 !
 
 spawnCategoryBrowserFor:categories in:where
@@ -32864,6 +32862,10 @@
     dirName isNil ifTrue:[
         ^ self
     ].
+    dirName asFilename exists ifFalse:[
+        dirName asFilename recursiveMakeDirectory    
+    ].
+
     self
         fileOutEachClassIn:self selectedProjectClasses
         in:dirName
@@ -32886,6 +32888,8 @@
         format:aFormatSymbolOrNil
         toFile:fileNameForExtensions
         withPackage:true
+
+    "Modified: / 05-09-2011 / 22:02:48 / cg"
 !
 
 projectMenuFileOutEachSIFIn
@@ -38671,7 +38675,6 @@
     "Modified: / 25-06-2010 / 10:08:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-variables'!
 
 browseVarRefsOrModsWithTitle:browserTitle boxTitle:boxTitle variables:varType access:accessType all:browseAll
@@ -45032,7 +45035,6 @@
     ^ navigationState projectListApplication
 ! !
 
-
 !NewSystemBrowser methodsFor:'private-history'!
 
 lastSearchPatterns
@@ -50118,11 +50120,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1602 2011-08-30 15:09:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1603 2011-09-05 21:27:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1602 2011-08-30 15:09:42 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1603 2011-09-05 21:27:20 cg Exp $'
 !
 
 version_SVN