2002-01-14 31:32 UTC-0500 Paul Tucker <ptucker@sympatico.ca>

* source\rtl\direct.c * updated default flags to include ReadOnly
2002-01-15 02:34:58 +00:00
parent 6cabe42b51
commit 8aacaa65d2
2 changed files with 5 additions and 0 deletions
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -7,6 +7,10 @@
   For example:
   2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
+     * cBuffer not initialized, fixed.
+2002-01-14 31:32 UTC-0500 Paul Tucker <ptucker@sympatico.ca>
+
+2002-01-15 22:30 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
  * contrib/rdd_ads/ads1.c
    * Added virtual method adsExit() with a call of AdsApplicationExit()

--- a/harbour/source/rtl/direct.c
+++ b/harbour/source/rtl/direct.c
@@ -131,6 +131,7 @@ HB_FUNC( DIRECTORY )
   /* Get the passed attributes and convert them to Harbour Flags */

   uiMask = HB_FA_ARCHIVE
+          | HB_FA_READONLY
          | HB_FA_DEVICE
          | HB_FA_TEMPORARY
          | HB_FA_SPARSE