fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

See ChangeLog entry 2003-08-04 14:00 UTC-0400 David G. Holm <dholm@jsd-llc.com>

Browse Source
This commit is contained in:
David G. Holm
2003-08-04 17:57:32 +00:00
parent fb151edad4
commit 03c0a7caa9
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -8,6 +8,11 @@
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2003-08-04 14:00 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* source/rtl/gtapi.c
! Enforce Clipper compatibility for SCROLL by only calling hb_gt_Scroll
from hb_gtScroll if left <= right and top <= bottom.
2003-07-30 14:30 UTC-0400 David G. Holm <dholm@jsd-llc.com>
* include/set.ch
! Indicate that there are six (6) Harbour SET extensions.

9
harbour/source/rtl/gtapi.c
View File

@@ -1035,9 +1035,12 @@ USHORT hb_gtScroll( USHORT uiTop, USHORT uiLeft, USHORT uiBottom, USHORT uiRight
{
HB_TRACE(HB_TR_DEBUG, ("hb_gtScroll(%hu, %hu, %hu, %hu, %hd, %hd)", uiTop, uiLeft, uiBottom, uiRight, iRows, iCols));
hb_gt_Scroll( uiTop, uiLeft, uiBottom, uiRight, ( BYTE ) s_pColor[ s_uiColorIndex ], iRows, iCols );
return 0;
if( uiTop <= uiBottom && uiLeft <= uiRight )
{
hb_gt_Scroll( uiTop, uiLeft, uiBottom, uiRight, ( BYTE ) s_pColor[ s_uiColorIndex ], iRows, iCols );
return 0;
}
return 1; /* Failed to scroll */
}
/* NOTE: It would be better if the clipping was done by the low level API */