QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 04:50:22 +00:00
Code Issues Releases Wiki Activity

check for which optional param is passed to CLS

Browse source
This commit is contained in:
SteveMcNeill 2023-10-18 09:11:40 -04:00
parent 7345839b75
commit 5a063f4ef8
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
internal/c/libqb.cpp
View file

@ -14688,10 +14688,12 @@ void qbg_sub_locate(int32 row, int32 column, int32 cursor, int32 start, int32 st
void sub_clsDest(int32 method, uint32 use_color, int32 dest, int32 passed) {
int32 tempDest;
tempDest = func__dest();
sub__dest(dest);
sub_cls(method, use_color, passed);
sub__dest(tempDest);
if (passed & 4) {
tempDest = func__dest(); // get the old dest
sub__dest(dest); //set the new dest
}
sub_cls(method, use_color, passed & 3); //call this regardless if we change the dest or not, just strip out that value first.
if (passed & 4) {sub__dest(tempDest);} //restore the old dest
}
void sub_cls(int32 method, uint32 use_color, int32 passed) {