*** empty log message ***

harbour/ChangeLog

@@ -1,3 +1,9 @@
+19990726-06:05 EDT Paul Tucker <ptucker@sympatico.ca>
+   * source/rtl/gtapi.c
+     * position cursor inside top-left corner of box - compatibility
+   * source/rtl/console.c
+     * Row() and Col() - too passive when linked with gtapi.
+
 19990726-05:20 EDT Paul Tucker <ptucker@sympatico.ca>
    * source/rtl/gtapi.c
      * much improved box drawing speed.

harbour/source/rtl/console.c

@@ -769,11 +769,17 @@ HARBOUR HB_MAXCOL( void ) /* Return the maximum screen column number (zero origi
 
 HARBOUR HB_ROW( void ) /* Return the current screen row position (zero origin) */
 {
+#ifdef HARBOUR_USE_GTAPI
+   hb_gtGetPos( &dev_row, & dev_col);
+#endif
    hb_retni( dev_row );
 }
 
 HARBOUR HB_COL( void ) /* Return the current screen column position (zero origin) */
 {
+#ifdef HARBOUR_USE_GTAPI
+   hb_gtGetPos( &dev_row, & dev_col);
+#endif
    hb_retni( dev_col );
 }
 

harbour/source/rtl/gtapi.c

@@ -6,7 +6,8 @@
  *  GTAPI.C: Generic Terminal for Harbour
  *
  * Latest mods:
- * 1.38   19990726   ptucker   
+ * 1.39   19990726   ptucker   Position cursor inside top-left corner
+ *                             after drawing box - compatibility
  * 1.35   19990726   ptucker   Much improved box drawing speed
  *                             Modifed some if statments to test for != 0
  * 1.34   19990721   ptucker   Corrected _Color mask descriptions
@@ -160,7 +161,7 @@ int hb_gtBox (USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight, char
 
     hb_gtDispEnd();
 
-    hb_gtSetPos(uiBottom + 1, uiRight + 1);
+    hb_gtSetPos(uiTop + 1, uiLeft + 1);
 
     return 0;
 }