*** empty log message ***

harbour/ChangeLog

@@ -1,3 +1,11 @@
+19990816-12:26 EDT Paul Tucker <ptucker@sympatico.ca>
+  * source/rtl/browdb.prg
+    + copyright info.
+    + todo info
+  * makefile.vc
+    + browdb
+    + tone
+
 19990816-15:30 GMT+1 Victor Szel <info@szelvesz.hu>
   * source/rtl/errorapi.c
     ! Fixed hb_errLaunch() so that it will handle error handler return

harbour/makefile.vc

@@ -58,6 +58,7 @@ HARBOUR_LIB_OBJS = \
     $(OBJ_DIR)\alert.obj \
     $(OBJ_DIR)\arrays.obj \
     $(OBJ_DIR)\asort.obj \
+    $(OBJ_DIR)\browdb.obj \
     $(OBJ_DIR)\classes.obj \
     $(OBJ_DIR)\codebloc.obj \
     $(OBJ_DIR)\console.obj \
@@ -98,6 +99,7 @@ HARBOUR_LIB_OBJS = \
     $(OBJ_DIR)\terror.obj \
     $(OBJ_DIR)\tget.obj \
     $(OBJ_DIR)\tgetlist.obj \
+    $(OBJ_DIR)\tone.obj \
     $(OBJ_DIR)\transfrm.obj \
     $(OBJ_DIR)\xsavescr.obj \
     $(RDD_OBJS)
@@ -307,6 +309,12 @@ $(RTL_DIR)\asort.c : $(RTL_DIR)\asort.prg
 $(OBJ_DIR)\asort.obj : $(RTL_DIR)\asort.c
     $(CC) $(CLIBFLAGS) -Fo$@ $**
 
+$(RTL_DIR)\browdb.c : $(RTL_DIR)\browdb.prg
+    $(HARBOUR_EXE) $** $(HARBOURFLAGS) -o$(**D)
+
+$(OBJ_DIR)\browdb.obj : $(RTL_DIR)\browdb.c
+    $(CC) $(CLIBFLAGS) -Fo$@ $**
+
 $(OBJ_DIR)\classes.obj : $(RTL_DIR)\classes.c
     $(CC) $(CLIBFLAGS) -Fo$@ $**
 
@@ -457,6 +465,9 @@ $(RTL_DIR)\tgetlist.c : $(RTL_DIR)\tgetlist.prg
 $(OBJ_DIR)\tgetlist.obj : $(RTL_DIR)\tgetlist.c
     $(CC) $(CLIBFLAGS) -Fo$@ $**
 
+$(OBJ_DIR)\tone.obj : $(RTL_DIR)\tone.c
+    $(CC) $(CLIBFLAGS) -Fo$@ $**
+
 $(OBJ_DIR)\transfrm.obj : $(RTL_DIR)\transfrm.c
     $(CC) $(CLIBFLAGS) -Fo$@ $**
 

harbour/source/rtl/browdb.prg

@@ -1,4 +1,29 @@
-// TBrowseDb() source code
+/*
+ * $Id$
+ */
+
+/*
+ * Harbour Class TBrowse
+ * Copyright(C) 1999 by Paul Tucker <ptucker@sympatico.ca>
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published
+ * by the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful, but
+ * WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR
+ * PURPOSE.  See the GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public
+ * License along with this program; if not, write to:
+ *
+ * The Free Software Foundation, Inc.,
+ * 675 Mass Ave, Cambridge, MA 02139, USA.
+ */
+
+/* TODO: replace calls to _LastRec() and _Recno() with real versions. */
 
 function TBrowseDb( nTop, nLeft, nBott, nRight )