1
1
Fork 0
mirror of https://github.com/boxgaming/qbjs.git synced 2024-05-12 08:00:12 +00:00

Compare commits

...

2 commits

3 changed files with 17 additions and 0 deletions

View file

@ -202,6 +202,7 @@ Sub InvertRect (x As Long, y As Long, width As Long, height As Long, fill As Int
ctx.fill();
}
else {
ctx.lineWidth = QB.defaultLineWidth();
ctx.strokeStyle = "white";
ctx.rect(x, y, width, height);
ctx.stroke();

View file

@ -2763,6 +2763,14 @@ if (QB.halted()) { return; };
v.jsname = "QB." + vname;
v.isConst = True;
await sub_AddVariable( v, globalVars);
if ((QB.func_InStr( vname, "_")) == 1) {
var v2 = {type:'',name:'',jsname:'',isConst:0,isArray:0,arraySize:0,typeId:0}; /* VARIABLE */
v2.type = v.type;
v2.name = (QB.func_Mid( v.name, 2));
v2.jsname = v.jsname;
v2.isConst = v.isConst;
await sub_AddVariable( v2, globalVars);
}
}
async function sub_AddGlobal(vname/*STRING*/,vtype/*STRING*/,arraySize/*INTEGER*/) {
if (QB.halted()) { return; };

View file

@ -2994,6 +2994,14 @@ Sub AddQBConst (vname As String)
v.jsname = "QB." + vname
v.isConst = True
AddVariable v, globalVars()
If Instr(vname, "_") = 1 Then
Dim v2 As Variable
v2.type = v.type
v2.name = Mid$(v.name, 2)
v2.jsname = v.jsname
v2.isConst = v.isConst
AddVariable v2, globalVars()
End If
End Sub
Sub AddGlobal (vname As String, vtype As String, arraySize As Integer)