QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-03 07:41:21 +00:00
Code Releases Wiki Activity

Function _BLINK returns -1 if blinking is enabled; 0 if disabled.

Browse source
This commit is contained in:
FellippeHeitor 2017-08-16 00:40:37 -03:00
parent de75b0aa29
commit 2f217fce6b
4 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
internal/c/libqb.cpp
View file

@ -14244,6 +14244,9 @@ void sub__blink(int32 onoff){
if (onoff==1) H3C0_blink_enable=1; else H3C0_blink_enable=0;
}
int32 func__blink(){
return -H3C0_blink_enable;
}
void sub_out(int32 port,int32 data){
if (new_error) return;

1
internal/c/qbx.cpp
View file

@ -200,6 +200,7 @@ extern void sub__console(int32);
extern int32 func__console();
extern void sub__controlchr(int32);
extern void sub__blink(int32);
extern int32 func__blink();
extern int32 func__fileexists(qbs*);
extern int32 func__direxists(qbs*);
extern int32 func_stick(int32 i,int32 axis_group,int32 passed);

2
source/global/version.bas
View file

@ -4,4 +4,4 @@ DIM SHARED AutoBuildMsg AS STRING
Version$ = "1.1"
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
'integer. If you make a change, update the date and increase the id!
BuildNum$ = "20170811/60"
BuildNum$ = "20170816/61"

7
source/subs_functions/subs_functions.bas
View file

@ -302,6 +302,13 @@ id.arg = MKL$(LONGTYPE - ISPOINTER)
id.specialformat = "{ON|OFF}"
regid
clearid
id.n = "_BLINK"
id.subfunc = 1
id.callname = "func__blink"
id.ret = LONGTYPE - ISPOINTER
regid
clearid
id.n = "_FILEEXISTS"
id.subfunc = 1