Export Add, Alert, Confirm, Create, Event, Container, Get, GetImage, Remove, Prompt

$If Javascript Then
    if (QB._domElements) {
        var e = null;    
        while (e = QB._domElements.pop()) {
            e.remove();
        }
    }
    else { 
        QB._domElements = []; 
    }

    if (QB._domEvents) {
        while (e = QB._domEvents.pop()) {
            e.target.removeEventListener(e.eventType, e.callbackFn);
        }
    }
    else {
        QB._domEvents = [];
    }
$End If

Sub Alert (text) 
$If Javascript Then
    alert(text);
$End If
End Sub

Sub Confirm (text) 
$If Javascript Then
    Confirm = confirm(text) ? -1 : 0;
$End If
End Sub

Sub Add (e, parent, beforeElement)
$If Javascript Then
    if (typeof e == "string") {
        e = document.getElementById(e);
    }

    if (parent == undefined || parent == "") {
        parent = await func_Container(); 
    }
    else if (typeof parent == "string") {
        parent = document.getElementById(parent);
    }

    if (beforeElement == undefined || beforeElement == "") {
        beforeElement = null;
    }
    else if (typeof beforeElement == "string") {
        beforeElement = document.getElementById(beforeElement);
    }
    
    parent.insertBefore(e, beforeElement);
$End If
End Sub

Function Create (etype, parent, content, eid, beforeElement)
$If Javascript Then
    var e = document.createElement(etype); 
    if (eid != undefined && eid != "") {
        e.id = eid;
    }
    e.className = "qbjs";
    
    if (content != undefined) {
        if (e.value != undefined) {
            e.value = content;
        }
        if (e.innerHTML != undefined) {
            e.innerHTML = content;
        }
    }

    QB._domElements.push(e);
    await sub_Add(e, parent, beforeElement);
    Create = e;
$End If    
End Function

Sub Create (etype, parent, content, eid, beforeElement) 
    Dim e
    e = Create(etype, parent, content, eid, beforeElement)
End Sub

Sub Event (target, eventType, callbackFn)
$If Javascript Then
    if (typeof target == "string") {
        target = document.getElementById(target);
    }
    target.addEventListener(eventType, callbackFn);
    QB._domEvents.push({ target: target, eventType: eventType, callbackFn: callbackFn});
$End If
End Sub

Function Container
$If Javascript Then
    Container = document.getElementById("gx-container");
$End If
End Function

Function Get (eid)
$If Javascript Then
    Get = document.getElementById(eid);
$End If
End Function

Function GetImage (imageId) 
$If Javascript Then
    GetImage = QB.getImage(imageId);
$End If
End Function

Sub Remove (e)
$If Javascript Then
    if (typeof e == "string") {
        e = document.getElementById(e);
    }
    if (e != undefined && e != null) {
        e.remove();
    }
$End If
End Sub

Function Prompt (text, defaultValue)
$If Javascript Then
    Prompt = prompt(text, defaultValue);
$End If
End Function