DataBaseSourceCodeManagementSettingsAppl.st
changeset 13242 702ca7368f83
parent 11426 87e946179456
child 13289 cc75e3cd0362
child 14247 39f648023f37
equal deleted inserted replaced
13241:429439b91d57 13242:702ca7368f83
   590                             stringWithCRs:'Not a directory: "%1"'
   590                             stringWithCRs:'Not a directory: "%1"'
   591                             with:nm).
   591                             with:nm).
   592         ^ false.
   592         ^ false.
   593     ].
   593     ].
   594 
   594 
   595     (fn isReadable and:[fn isWritable]) ifFalse:[
   595     (fn isWritableDirectory and:[fn isReadable]) ifFalse:[
   596         (self confirm:(resources 
   596         (self confirm:(resources 
   597                             stringWithCRs:'Directory "%1" is not both readable and writable.\Change ?'
   597                             stringWithCRs:'Directory "%1" is not both readable and writable.\Change ?'
   598                             with:nm)
   598                             with:nm)
   599         ) ifFalse:[
   599         ) ifFalse:[
   600             ^ false.
   600             ^ false.
   601         ].
   601         ].
   602         fn
   602         fn
   603             makeReadableForAll;
   603             makeReadableForAll;
   604             makeWritableForAll;
   604             makeWritableForAll;
   605             makeExecutableForAll.
   605             makeExecutableForAll.
   606         (fn isReadable and:[fn isWritable]) ifFalse:[
   606         (fn isWritableDirectory and:[fn isReadable]) ifFalse:[
   607             self warn:(resources 
   607             self warn:(resources 
   608                                 stringWithCRs:'Directory "%1" cannot be made both readable and writable.'
   608                                 stringWithCRs:'Directory "%1" cannot be made both readable and writable.'
   609                                 with:nm).
   609                                 with:nm).
   610             ^ false.
   610             ^ false.
   611         ].
   611         ].
   684 ! !
   684 ! !
   685 
   685 
   686 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
   686 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
   687 
   687 
   688 version
   688 version
   689     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.14 2012-03-16 11:17:07 cg Exp $'
   689     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.15 2013-07-29 14:08:55 stefan Exp $'
   690 !
   690 !
   691 
   691 
   692 version_CVS
   692 version_CVS
   693     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.14 2012-03-16 11:17:07 cg Exp $'
   693     ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.15 2013-07-29 14:08:55 stefan Exp $'
   694 ! !
   694 ! !
       
   695