19991130-00:13 GMT+1 Victor Szel <info@szelvesz.hu>

harbour/ChangeLog

@@ -1,3 +1,8 @@
+19991130-00:13 GMT+1 Victor Szel <info@szelvesz.hu>
+  * source/rtl/browse.prg
+    + Documentation by Chen Kedem added
+    ! Unused .ch files removed.
+
 19991129-22:22 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/compiler/harbour.c
     include/compiler.h

harbour/source/rtl/browse.prg

@@ -33,10 +33,85 @@
  *
  */
 
-#include "box.ch"
-#include "common.ch"
+/*
+ * The following parts are Copyright of the individual authors.
+ * www - http://www.harbour-project.org
+ *
+ * Copyright 1999 Chen Kedem <niki@actcom.co.il>
+ *    Documentation
+ *
+ * See doc/license.txt for licensing terms.
+ *
+ */
+
 #include "inkey.ch"
 
+/*  $DOC$
+ *  $FUNCNAME$
+ *      BROWSE()
+ *  $CATEGORY$
+ *      Data input and output
+ *  $ONELINER$
+ *      Browse a database file
+ *  $SYNTAX$
+ *      BROWSE( [<nTop>, <nLeft>, <nBottom>, <nRight>] ) --> lOk
+ *  $ARGUMENTS$
+ *      <nTop> coordinate for top row display.
+ *
+ *      <nLeft> coordinate for left column display.
+ *
+ *      <nBottom> coordinate for bottom row display.
+ *
+ *      <nRight> coordinate for right column display.
+ *  $RETURNS$
+ *      BROWSE() return .F. if there is no database open in this work area,
+ *      else it return .T.
+ *  $DESCRIPTION$
+ *      BROWSE() is a general purpose database browser, without any
+ *      thinking you can browse a file using the following keys:
+ *
+ *      Left           - Move one column to the left (previous field)
+ *      Right          - Move one column to the right (next field)
+ *      Up             - Move up one row (previous record)
+ *      Down           - Move down one row (next record)
+ *      Page-Up        - Move to the previous screen
+ *      Page-Down      - Move to the next screen
+ *      Ctrl Page-Up   - Move to the top of the file
+ *      Ctrl Page-Down - Move to the end of the file
+ *      Home           - Move to the leftmost visible column
+ *      End            - Move to the rightmost visible column
+ *      Ctrl Left      - Pan one column to the left
+ *      Ctrl Right     - Pan one column to the right
+ *      Ctrl Home      - Move to the leftmost column
+ *      Ctrl End       - Move to the rightmost column
+ *      Esc            - Terminate BROWSE()
+ *
+ *      On top of the screen you see a status line with the following
+ *      indication:
+ *
+ *      Record ###/###  - Current record number / Total number of records.
+ *      <none>          - There are no records, the file is empty.
+ *      <new>           - You are in append mode at the bottom of file.
+ *      <Deleted>       - Current record is deleted.
+ *      <bof>           - You are at the top of file.
+ *
+ *      You should pass whole four valid coordinate, if less than four
+ *      parameters are passed to BROWSE() the coordinate are default to:
+ *      1, 0, MAXROW(), MAXCOL().
+ *  $EXAMPLES$
+ *      // this one shows you how to browse around
+ *      USE Around
+ *      BROWSE()
+ *  $TESTS$
+ *  $STATUS$
+ *      S
+ *  $COMPLIANCE$
+ *
+ *  $SEEALSO$
+ *      DBEDIT(), TBrowse class
+ *  $END$
+ */
+
 function Browse( nTop, nLeft, nBottom, nRight )
 
    local oBrw