From 15b80d0145251dbb6389baf73d65a820cbdaeb55 Mon Sep 17 00:00:00 2001 From: Paul Tucker Date: Mon, 26 Jul 1999 10:20:19 +0000 Subject: [PATCH] *** empty log message *** --- harbour/ChangeLog | 6 ++++++ harbour/source/rtl/console.c | 6 ++++++ harbour/source/rtl/gtapi.c | 5 +++-- 3 files changed, 15 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ba7f98f344..94264b8c9b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,9 @@ +19990726-06:05 EDT Paul Tucker + * 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 * source/rtl/gtapi.c * much improved box drawing speed. diff --git a/harbour/source/rtl/console.c b/harbour/source/rtl/console.c index b180d7b080..3a0b83c826 100644 --- a/harbour/source/rtl/console.c +++ b/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 ); } diff --git a/harbour/source/rtl/gtapi.c b/harbour/source/rtl/gtapi.c index e3037f8897..bbc5b1fd80 100644 --- a/harbour/source/rtl/gtapi.c +++ b/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; }