WinCC 7 (Developer Build: 0152)

--  Hideously Smashed Together by Compilr, a Hideous Smash-Stuff-Togetherer, (c) 2014 oeed  --

--  This file REALLLLLLLY isn't suitable to be used for anything other than being executed --

local files = {
  Boot = {
    [ "BCD.ini" ] = "[boot]\
path = WinCC/\
[loader]\
WinCC 7 = WinCC/system/oskrnl\
WinCC 7 (Debug) = WinCC/system/oskrnlDbg\
%VERSION% = shell",
    BOOTMGR = "function centerText(text, line)\
    x,y = term.getSize()\
    term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), line)\
    term.write(text)\
end\
\
local x,y = term.getSize()\
\
if not fs.exists(\"Boot/BCD.ini\") then\
    term.clear()\
    term.setCursorPos(1,1)\
    term.setBackgroundColor(colors.white)\
    term.setTextColor(colors.black)\
    term.write(string.rep(\" \", x))\
    centerText(\"WinCC Boot Manager\", 1)\
        term.setCursorPos(1,3)\
        term.setTextColor(colors.lightGray)\
        term.setBackgroundColor(colors.black)\
        print(\"WinCC Failed to start. A recent software change might be the cause.\")\
        print(\"\")\
        print(\"If you dont know how to fix this problem, contact your system administrator or computer manufacturer for assistance.\")\
    print(\"\")\
    term.setTextColor(colors.white)\
    print(\"File: /Boot/BCD.ini\")\
        print(\"\")\
        print(\"Status: Not found\")\
        print(\"\")\
        print(\"Info: The Boot Configuration Data for your PC is\")\
    print(\"      missing.\")\
        term.setCursorPos(1,19)\
    term.setBackgroundColor(colors.white)\
        term.setTextColor(colors.black)\
    term.write(string.rep(\" \", x))\
        term.setCursorPos(1,19)\
        term.write(\" ENTER=Continue\")\
        term.setCursorPos(0,0)\
    read()\
    sleep(0.1)\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    shell.run(\"shell\")\
else\
local file = fs.open(\"Boot/BCD.ini\", \"r\")\
local kernel = nil\
\
if file ~= nil then\
    kernel = file.readLine()\
    kernel = file.readLine()\
    kernel = string.sub(kernel, string.find(kernel, \"=\") + 2, string.len(kernel))\
    file.close()\
end\
\
\
if fs.exists(\".reboot\") then\
    local file = fs.open(\".reboot\", \"r\")\
\
    if file ~= nil then\
        local command = file.readAll()\
        file.close()\
        fs.delete(\".reboot\")\
\
        if command == \"LOADTO CRAFTOS\" then\
            shell.run(\"shell\")\
            return 0\
        end\
    end\
else\
    --os.run({}, kernel .. \"/system/kernel\", kernel)\
    os.loadAPI(kernel .. \"/system/drivers/iniFiles\")\
\
    local config = iniFiles.read(\"Boot/BCD.ini\")\
    local selectedIndex = 1\
    local timer = 31\
    local running = true\
    local len = 0\
\
    if type(config.loader) ~= \"table\" then len = 0 else\
        for k, v in pairs(config.loader) do\
            len = len + 1\
        end\
    end\
\
\
\
    if len > 1 then\
        term.setBackgroundColor(colors.black)\
        term.setTextColor(colors.white)\
        term.clear()\
        term.setCursorPos(1, 1)\
        term.setCursorBlink(true)\
        os.startTimer(0)\
\
        local t = {}\
\
        if config ~= nil then\
            for k, v in pairs(config.loader) do\
                term.clearLine()\
                table.insert(t, k)\
            end\
        end\
\
\
        while running do\
            local event, key = os.pullEvent()\
\
            if event == \"timer\" then\
                timer = timer - 1\
                os.startTimer(1)\
            end\
\
            if event == \"key\" then\
                timer = -30\
\
                if key == 200 then\
                    if selectedIndex > 1 then selectedIndex = selectedIndex - 1 end\
                end\
\
                if key == 208 then\
                    if selectedIndex < len then selectedIndex = selectedIndex + 1 end\
                end\
\
                if key == 28 then\
                    term.clear()\
                    term.setCursorPos(1, 1)\
                    term.setBackgroundColor(colors.black)\
                    term.setTextColor(colors.white)\
                    term.clear()\
\
                    if t[selectedIndex] == \"%VERSION%\" then\
                        shell.run(config.loader[t[selectedIndex]])\
                    else\
                        os.run({}, config.loader[t[selectedIndex]], kernel)\
                    end\
                end\
            end\
\
    term.setBackgroundColor(colors.black)\
    term.clear()\
     term.setCursorPos(1,19)\
     term.setBackgroundColor(colors.white)\
     term.setTextColor(colors.black)\
     term.write(string.rep(\" \", x))\
     term.setCursorPos(1,19)\
     term.write(\" ENTER=Choose\")\
    term.setCursorPos(1,1)\
    term.setBackgroundColor(colors.white)\
    term.setTextColor(colors.black)\
    term.write(string.rep(\" \", x))\
    centerText(\"WinCC Boot Manager\", 1)\
            term.setBackgroundColor(colors.black)\
            term.setTextColor(colors.white)\
            term.setCursorPos(1, 3)\
            term.setCursorBlink(false)\
            print(\"  Please select the operating system to start:\")\
            print(\"\")\
\
            for k, v in pairs(config.loader) do\
                print(\"    \" .. string.gsub(k, \"%%VERSION%%\", os.version()))\
            end\
\
            term.setTextColor(colors.lightGray)\
            print(\"\")\
            print(\"  (Use the arrow keys to move the hightlight to\")\
            print(\"  your choice, then press ENTER.)\")\
            print(\"\")\
\
            if timer > 0 then\
                print(\"  Seconds until the hightlighted system will be\")\
                print(\"  started: \"..timer..\"\")\
            elseif timer == 0 then\
                term.clear()\
                term.setCursorPos(1, 1)\
\
                if t[selectedIndex] == \"%VERSION%\" then\
                    shell.run(config.loader[t[selectedIndex]])\
                else\
                    os.run({}, config.loader[t[selectedIndex]], kernel)\
                end\
            else\
                print(string.rep(\" \", term.getSize()))\
                print(string.rep(\" \", term.getSize()))\
            end\
\
            term.setCursorPos(5, 4 + selectedIndex)\
            term.setBackgroundColor(colors.white)\
            term.setTextColor(colors.black)\
            term.write(\"                                         >\")\
            term.setCursorPos(5, 4 + selectedIndex)\
            term.write(\"\" .. string.gsub(t[selectedIndex], \"%%VERSION%%\", os.version()))\
        end\
    elseif len == 1 then\
        for k, v in pairs(config.loader) do\
            if k == \"%VERSION%\" then\
                shell.run(v)\
            else\
                os.run({}, v, kernel)\
            end\
        end\
    else\
        term.clear()\
            term.setCursorPos(1,1)\
            term.setBackgroundColor(colors.white)\
            term.setTextColor(colors.black)\
            term.write(string.rep(\" \", x))\
            centerText(\"WinCC Boot Manager\", 1)\
                term.setCursorPos(1,3)\
                term.setTextColor(colors.lightGray)\
                term.setBackgroundColor(colors.black)\
                print(\"WinCC Failed to start. A recent software change might be the cause.\")\
                print(\"\")\
                print(\"If you dont know how to fix this problem, contact your system administrator or computer manufacturer for assistance.\")\
                print(\"\")\
                term.setTextColor(colors.white)\
                print(\"File: /Boot/BCD.ini\")\
                print(\"\")\
                print(\"Status: [loader] Section in BCD.ini is empty\")\
                print(\"\")\
                print(\"Info: An error occurred while attempting to read\")\
                print(\"      the boot configuration data.\")\
                term.setCursorPos(1,19)\
                term.setBackgroundColor(colors.white)\
                term.setTextColor(colors.black)\
                term.write(string.rep(\" \", x))\
                term.setCursorPos(1,19)\
                term.write(\" ENTER=Continue\")\
                term.setCursorPos(0,0)\
        read()\
        sleep(0.1)\
        term.setBackgroundColor(colors.black)\
        term.clear()\
        shell.run(\"shell\")\
    end\
end\
\
\
\
\
\
    return 0\
end",
  },
  startup = "if _EMULATED then\
    shell.run(\"cd \\\"\" .. os.getSystemPath() .. \"/UserData/\\\"\")\
    if _WHAT_TO_RUN ~= nil then\
        shell.run(_WHAT_TO_RUN)\
    end\
else\
    if not fs.exists(\"Boot/BOOTMGR\") then\
        term.setTextColor(colors.lightGray)\
        term.clear()\
        term.setCursorPos(1,2)\
        term.write(\"BOOTMGR is missing\")\
        term.setCursorPos(1,3)\
        term.write(\"Press Enter to launch default shell\")\
        term.setCursorPos(0,0)\
        read()\
        term.setCursorPos(1,1)\
        term.clear()\
    else\
        shell.run(\"Boot/BOOTMGR\")\
    end\
end\
",
  WinCC = {
    System = {
      oskrnlDbg = "--Boot Functions--\
function centerText(text, line)\
    x,y = term.getSize()\
    term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), line)\
    term.write(text)\
end\
\
local x,y = term.getSize()\
\
function clear()\
term.clear()\
end\
\
--Starting Boot--\
term.clear()\
term.setBackgroundColor(colors.black)\
term.clear()\
sleep(1.0)\
\
--printBootScreen()--\
\
\
local processes = {}\
local activeProcesses = {}\
local eventHandlers = {}\
local config = { timer = 0.1, desktop_color = colors.cyan, version = \"0.9\" }\
local running = true\
local screen = nil\
local clipboard = { data = nil, dType = \"null\" }\
\
local lastCursorBlink = false\
local lastMenu = nil\
local systemMessage = nil\
\
local CURRENT_PROCESS = 0\
local ACTIVE_PROCESS = 0\
local NEW_ACTIVE_PROCESS = 0\
local TASKBAR_PROCESS = 0\
local DESKTOP_PROCESS = 0\
local SHUTDOWN_PROCESS = 0\
\
local ETIME = 0\
local PROCESS_MAX_ITERATIONS = 10\
\
local LASTHWND = 10\
local CARETX = 0\
local CARETY = 0\
local CARETV = false\
local CARETCOLOR = colors.black\
\
local legacyShell = shell\
\
\
\
\
function table.val_to_str ( v )\
  if \"string\" == type( v ) then\
    v = string.gsub( v, \"\\n\", \"\\\\n\" )\
    if string.match( string.gsub(v,\"[^'\\\"]\",\"\"), '^\"+$' ) then\
      return \"'\" .. v .. \"'\"\
    end\
    return '\"' .. string.gsub(v,'\"', '\\\\\"' ) .. '\"'\
  else\
    return \"table\" == type( v ) and table.tostring( v ) or\
      tostring( v )\
  end\
end\
\
function table.key_to_str ( k )\
  if \"string\" == type( k ) and string.match( k, \"^[_%a][_%a%d]*$\" ) then\
    return k\
  else\
    return \"[\" .. table.val_to_str( k ) .. \"]\"\
  end\
end\
\
function table.tostring( tbl )\
  local result, done = {}, {}\
  for k, v in ipairs( tbl ) do\
    table.insert( result, table.val_to_str( v ) )\
    done[ k ] = true\
  end\
  for k, v in pairs( tbl ) do\
    if not done[ k ] then\
      table.insert( result,\
        table.key_to_str( k ) .. \"=\" .. table.val_to_str( v ) )\
    end\
  end\
  return \"{\" .. table.concat( result, \",\" ) .. \"}\"\
end\
\
function string.ends(String,End)\
   return End=='' or string.sub(String,-string.len(End))==End\
end\
\
\
\
\
\
\
\
\
\
local function pullEvent(filter)\
    local message = GetMessage(GetCurrentProcess())\
\
    if message ~= nil then\
        if ((filter == message.msg) and (filter ~= nil)) or (filter == nil) then\
            if message.msg == \"char\" then\
                return message.msg, message.char\
            end\
            if message.msg == \"key\" then\
                return message.msg, message.key\
            end\
            if message.msg == \"mouse_click\" then\
                return message.msg, message.button, message.x, message.y\
            end\
            if message.msg == \"mouse_drag\" then\
                return message.msg, message.button, message.x, message.y\
            end\
            if message.msg == \"mouse_scroll\" then\
                return message.msg, message.button, message.n\
            end\
        end\
    else\
        return pullEvent(filter)\
    end\
end\
\
local oldFsExists = fs.exists\
\
--fs.exists = function(path)\
--  if string.find(path, \"home:/\") then\
        --path = string.gsub(path, \"home:/\", \"\", 1)\
--  end\
\
--  oldFsExists(path)\
--end\
function getPath(path)\
    if string.find(path, \"home:/\") then\
        path = string.gsub(path, \"home:/\", \"\", 1)\
    end\
\
    return path\
end\
\
\
\
function GetCurrentProcess()\
    return CURRENT_PROCESS\
end\
\
function GetProcessInfo(hwnd)\
    if hwnd > 0 then\
        return processes[hwnd]\
    else\
        return {}\
    end\
end\
\
\
function Shell(command)\
    local path = { GetOsPath() .. \"/ProgramFiles/\" }\
    local name = \"\"\
\
    local cmd = pathutils.expand(command)\
\
    if string.starts(cmd[1], \"home:/\") then\
        path = { pathutils.extractFilePath(cmd[1]) }\
        name = pathutils.extractFileName(cmd[1])\
\
        --error(path[1])\
    else\
        --error(command)\
        --error(cmd[2])\
        table.insert(path, pathutils.extractFilePath(cmd[1]))\
        name = cmd[1]\
    end\
\
    --error(name .. \" \" .. path[1])\
    ShellRun(name, cmd, path)\
end\
\
\
local function CreateProcess(fileName, params, kernelMode)\
    local hwnd = LASTHWND--10000\
    local x, y = term.getSize()\
\
    while (processes[hwnd] ~= nil) do\
        --hwnd = math.random(65534) + 1\
        hwnd = hwnd + 1\
    end\
\
    LASTHWND = hwnd\
\
\
    local canvas = user.CreateCanvas(x, y - 1)\
    canvas.autoScroll = true\
\
    local process = {\
        hwnd = hwnd,\
        fileName = fileName,\
        thread = nil,\
        canvas = canvas,\
        title = fs.getName(fileName),\
        suspended = false,\
        env = nil,\
        messages = {},\
        showInTaskbar = true,\
        message = nil,\
        etime = 0,\
        iterations = 0,\
        legacyMode = true,\
    }\
\
    if string.ends(fileName, \".exe\") then\
        process.legacyMode = false\
    end\
\
\
    local program = assert(loadfile(fileName), \"File '\" .. fileName .. \"' not found.\")\
    process.program = program\
    local timer = {\
            enabled = false,\
            interval = 0,\
            value = 0,\
            onTimer = nil,\
        }\
\
\
    --local nativeCanvas = {}\
    --if process.legacyMode or true then\
    local width, height = term.getSize()\
    local nativeCanvas = window.create(term.native(), 1, 2, width, height - 2)\
    nativeCanvas.setBackgroundColor(colors.black)\
    nativeCanvas.setTextColor(colors.white)\
    nativeCanvas.setCursorPos(1, 2)\
    nativeCanvas.setCursorBlink(false)\
    nativeCanvas.setVisible(false)\
    --end\
\
    legacyShell = {}\
\
    local legacyEnv = {\
        error = error,\
        pcall = pcall,\
        xpcall = xpcall,\
        tostring = tostring,\
        tonumber = tonumber,\
        pairs = pairs,\
        ipairs = ipairs,\
        assert = assert,\
\
        dofile = dofile,\
        getfenv = getfenv,\
        getmetatable = getmetatable,\
        load = load,\
        loadfile = loadfile,\
        loadstring = loadstring,\
        module = module,\
        next = next,\
        pcall = pcall,\
        rawequal = rawequal,\
        rawget = rawget,\
        rawset = rawset,\
        require = require,\
        select = select,\
        setfenv = setfenv,\
        setmetatable = setmetatable,\
        type = type,\
        unpack = unpack,\
        xpcall = xpcall,\
        print = print,\
        read = read,\
        write = nativeCanvas.write,\
        printError = printError,\
\
        bit = bit,\
        colors = colors,\
        colours = colors,\
        coroutine = coroutine,\
        disk = disk,\
        fs = fs,\
        gps = gps,\
        help = help,\
        http = {},\
        io = io,\
        keys = keys,\
        math = math,\
        paintutils = paintutils,\
        parallel = parallel,\
        peripheral = peripheral,\
        rednet = rednet,\
        redstone = redstone,\
        string = string,\
        table = table,\
        textutils = textutuls,\
        vector = vector,\
        window = window,\
\
\
        --multishell = {},\
        os = {\
            version = function()\
                return \"Puzzletime WinCC [Version 0.15.2]\"\
            end,\
\
            getComputerID = os.getComputerID,\
            getComputerLabel = os.getComputerLabel,\
            setComputerLabel = os.setComputerLabel,\
\
            run = function(environment, programPath, args)\
                args = args or {}\
                if type(args) ~= \"table\" then\
                    args = {args}\
                end\
\
                local s = \"\"\
                for i, v in ipairs(args) do\
                    s = s .. \" \" .. v\
                end\
                Shell(programPath .. s)\
            end,\
\
            loadAPI = os.loadAPI,\
            unloadAPI = os.unloadAPI,\
            pullEvent = pullEvent,\
\
            pullEventRaw = function()\
                return coroutine.yield()\
            end,\
\
            queueEvent = os.queueEvent,\
            clock = os.clock,\
            startTimer = os.startTimer,\
            cancelTimer = os.cancelTimer,\
            time = os.time,\
            sleep = os.sleep,\
            day = os.day,\
            setAlarm = os.setAlarm,\
            cancelAlarm = os.cancelAlarm,\
\
            shutdown = function()\
                processes[hwnd].kill = true\
            end,\
\
            reboot = function()\
                processes[hwnd].kill = true\
            end,\
        },\
\
        shell = {\
            exit = function()\
                processes[hwnd].kill = true\
            end,\
\
            dir = function()\
                return pathutils.extractFilePath(processes[hwnd].fileName)\
            end,\
\
            setDir = function()\
                -- TODO: Implement SetDir\
            end,\
\
            path = legacyShell.path,\
            setPath = legacyShell.setPath,\
            resolve = legacyShell.resolve,\
            resolveProgram = legacyShell.resolveProgram,\
            aliases = legacyShell.aliases,\
            setAlias = legacyShell.setAlias,\
            clearAlias = legacyShell.clearAlias,\
            programs = legacyShell.programs,\
\
            getRunningProgram = function()\
                return processes[hwnd].fileName\
            end,\
\
            run = function(cmd, args)\
                local args = args or {}\
                local s = cmd\
                for i, v in ipairs(args) do\
                    s = s .. \" \" .. v\
                end\
                Shell(programPath + s)\
            end,\
\
            openTab = function()\
            end,\
\
            switchTab = function()\
            end,\
        },\
        term = nativeCanvas,\
    }\
\
    local env = {\
        hwnd = hwnd,\
        canvas = canvas,\
        params = params,\
        colors = colors,\
        coroutine = coroutine,\
        error = error,\
        pcall = pcall,\
        xpcall = xpcall,\
        tostring = tostring,\
        tonumber = tonumber,\
        pairs = pairs,\
        ipairs = ipairs,\
        assert = assert,\
\
        dofile = dofile,\
        getfenv = getfenv,\
        getmetatable = getmetatable,\
        load = load,\
        loadfile = loadfile,\
        loadstring = loadstring,\
        module = module,\
        next = next,\
        pcall = pcall,\
        rawequal = rawequal,\
        rawget = rawget,\
        rawset = rawset,\
        require = require,\
        select = select,\
        setfenv = setfenv,\
        setmetatable = setmetatable,\
        type = type,\
        unpack = unpack,\
        xpcall = xpcall,\
\
        string = string,\
        table = table,\
        textutils = textutils,\
        timer = timer,\
        application = application,\
        form = form,\
        user = user,\
        math = math,\
        iniFiles = iniFiles,\
        fs = fs, --------TODO: replace with alter rel\
        keys = keys,\
        bit = bit,\
        parallel = parallel,\
        peripheral = peripheral, -------------TODO: replace\
        rednet = rednet, -----------------TODO: replace\
        redstone = redstone,\
        turtle = turtle,\
        vector = vector,\
        disk = disk,\
\
        legacyEnv = legacyEnv,\
\
\
        print = function(...)\
            local printResult = \"\"\
\
            for i, v in ipairs(arg) do\
                printResult = printResult .. tostring(v)\
            end\
\
            canvas:print(printResult)\
        end,\
\
        term = {\
            write = function(s)\
                canvas:write(s)\
            end,\
\
            clear = function()\
                canvas:fillrect(1, 1, canvas.size.x, canvas.size.y, canvas.bgcolor)\
            end,\
\
            clearLine = function()\
                canvas:fillrect(1, canvas.cursorPos.y, canvas.size.x, 1, canvas.bgcolor)\
            end,\
\
            getCursorPos = function()\
                return canvas:getCursorPos()\
            end,\
\
            setCursorPos = function(x, y)\
                canvas:setCursorPos(x, y)\
            end,\
\
            setCursorBlink = function(bool)\
                -- TODO\
            end,\
\
            isColor = function()\
                return true\
            end,\
\
            getSize = function()\
                return canvas.size.x, canvas.size.y\
            end,\
\
            scroll = function(n)\
                -- TODO\
            end,\
\
            redirect = function(target)\
                -- TODO\
            end,\
\
            setTextColor = function(color)\
                canvas.forecolor = color\
            end,\
\
            setBackgroundColor = function(color)\
                canvas.bgcolor = color\
            end,\
        },\
\
        os = {\
            sendMessage = SendMessage,\
            getMessage = GetMessage,\
\
\
            pullEvent = pullEvent,\
\
            pullEventRaw = function()\
                return coroutine.yield()\
            end,\
\
            startTimer = function(timeout, onTimer)\
                timer.enabled = true\
                timer.interval = timeout\
                timer.onTimer = onTimer\
            end,\
\
            getValidHWNDList = function(onlyInTaskbar)\
                local list = {}\
                local i = 0\
\
                for k, v in pairs(processes) do\
                    if onlyInTaskbar == true then\
                        if v.showInTaskbar then\
                            table.insert(list, k)\
                            i = i + 1\
                        end\
                    else\
                        table.insert(list, k)\
                        i = i + 1\
                    end\
                end\
\
                table.sort(list)\
\
                --list.count = i\
                return list\
            end,\
\
            setActiveProcess = function(hwnd)\
                NEW_ACTIVE_PROCESS = hwnd\
            end,\
\
            getActiveProcess = function()\
                return ACTIVE_PROCESS\
            end,\
\
            redirectTerm = function(obj)\
                term.redirect(obj)\
            end,\
\
            restoreTerm = function()\
                term.redirect(term.native())\
            end,\
\
            killProcess = function(hwnd)\
                processes[hwnd].kill = true\
            end,\
\
\
            getRegistryBranches = function()\
                iniFile = iniFiles.read(\"home:/\" .. GetOsPath() .. \"/System/Config/winDbg.ini\")\
                list = {}\
                for k, v in pairs(iniFile) do\
                    table.insert(list, k)\
                end\
                return list\
            end,\
\
            getRegistryBranchKeys = function(branch)\
                iniFile = iniFiles.read(GetOsPath() .. \"/System/Config/winDbg.ini\")\
                list = {}\
                for k, v in pairs(iniFile[branch] or {}) do\
                    table.insert(list, k)\
                end\
                return list\
            end,\
\
            getRegistryKeyValue = function(branch, key, default)\
                iniFile = iniFiles.read(GetOsPath() .. \"/System/Config/winDbg.ini\")\
                if iniFile[branch] ~= nil then\
                    return iniFile[branch][key] or default\
                else\
                    return default\
                end\
            end,\
\
            setRegistryKeyValue = function(branch, key, value)\
                iniFile = iniFiles.read(GetOsPath() .. \"/System/Config/winDbg.ini\")\
                if iniFile[branch] == nil then\
                    iniFile[branch] = {}\
                end\
                iniFile[branch][key] = value\
                iniFiles.write(GetOsPath() .. \"/System/Config/winDbg.ini\", iniFile)\
            end,\
\
\
            listInstalledSoftware = function()\
                local placeholder = {{title = \"Notepad\", path = GetOsPath() .. \"/ProgramFiles/notepadorganizeMenu \\\"%FILENAME\\\"\"}}\
                return placeholder\
                -- ToDo: Installation registry\
            end,\
\
\
            shell = {\
                run = Shell,\
\
                expandEnvVar = function(envvar)\
\
                end,\
\
                shutdown = function()\
                    os.shutdown()\
                end,\
\
                restart = function(bootToShell)\
                    if bootToShell then\
                        local file = fs.open(\".reboot\", \"w\")\
                        file.write(\"LOADTO CRAFTOS\")\
                        file.close()\
                    end\
\
                    os.reboot()\
                end,\
            },\
\
\
            extractFilePath = pathutils.extractFilePath,\
            extractFileName = pathutils.extractFileName,\
            extractRealFileName = pathutils.extractRealFileName,\
\
\
            messageBox = function(uType, text, caption, buttons, defText)\
                if uType == \"input\" then\
                    processes[hwnd].message = dialogs.InputBoxCreate({ \
                        uType = uType, \
                        text = text, \
                        caption = caption, \
                        buttons = buttons, \
                        defText = defText }, \
                    screen, button)\
                else\
                    processes[hwnd].message = dialogs.MessageBoxCreate({ \
                        uType = uType, \
                        text = text, \
                        caption = caption, \
                        buttons = buttons, \
                        defText = defText }, \
                    screen, button)\
                end\
            end,\
\
\
            hideMessageBox = function()\
                processes[hwnd].message = nil\
                processes[hwnd].canvas.effect = nil\
            end,\
\
\
            getProcessInfo = function(pid)\
                local info = GetProcessInfo(pid)\
\
                if pid ~= hwnd then\
                    local pinfo = {}\
\
                    local pinfo = {\
                        canvas = info.canvas,\
                        hwnd = info.hwnd,\
                        fileName = info.fileName,\
                        title = info.title,\
                        showInTaskbar = info.showInTaskbar,\
                        etime = info.etime,\
                    }\
\
                    return pinfo\
                else\
                    return info\
                end\
            end,\
\
            getCurrentProcess = GetCurrentProcess,\
            getSystemPath = GetOsPath,\
\
            copyToClipboard = function(data, dType)\
                clipboard.data = data\
                clipboard.dType = dType\
            end,\
\
            pasteFromClipboard = function(dType)\
                if (clipboard.dType == dType) or (dType == nil) then\
                    return clipboard.data\
                else\
                    return nil\
                end\
            end,\
\
            applyMagic = function(effect)\
                screen.effect = effect\
            end,\
\
            getMagic = function()\
                return screen.effect\
            end,\
\
            setCaretPos = function(x, y)\
                CARETX = x\
                CARETY = y\
            end,\
\
            showCaret = function()\
                CARETV = true\
            end,\
\
            hideCaret = function()\
                CARETV = false\
            end,\
\
            setCaretColor = function(color)\
                CARETCOLOR = color\
            end,\
\
\
            findWindowByTitle = function(title)\
                for k, v in pairs(processes) do\
                    if string.lower(v.title) == string.lower(title) then\
                        return k\
                    end\
                end\
            end,\
\
            findWindowByFileName = function(fname)\
                for k, v in pairs(processes) do\
                    if string.lower(v.fileName) == string.lower(fname) then\
                        return k\
                    end\
                end\
            end,\
\
\
            loadAPI = os.loadAPI,\
            unloadAPI = os.unloadAPI,\
            time = os.time,\
            clock = os.clock,\
            \
            getETime = function()\
                return ETIME\
            end,\
\
\
            getProcessUsedMemory = function(pid, MAXDEPTH)\
                local info\
\
                if pid > 0 then\
                    info = GetProcessInfo(pid)\
                end\
\
                local depth = 0\
                local size = 0\
\
\
                local CHAR_SIZE = 1\
                local NUMBER_SIZE = 16\
                local POINTER_SIZE = 4\
                local BOOLEAN_SIZE = 4\
\
                local MAXDEPTH = MAXDEPTH or 100--128\
\
                local table_sizes = {}\
                local strings = {}\
\
\
                local function getTableSize(t)\
                    local size = 0\
\
                    if table_sizes[t] ~= nil then return 0 else\
                        if table_sizes[t] == nil then\
                            for k, v in pairs(t) do\
                                if type(k) == \"string\" then\
                                    size = size + 40\
                                else\
                                    size = size + 16\
                                end\
                            end\
                        end\
\
                        if depth <= MAXDEPTH then\
                            for k, v in pairs(t) do\
                                if type(v) == \"string\" then\
                                    if not strings[v] then\
                                        size = size + 17 + string.len(v)\
                                        strings[v] = true\
                                    end\
                                elseif type(v) == \"boolean\" then\
                                    size = size + 16\
                                elseif type(v) == \"number\" then\
                                    size = size + 16\
                                elseif type(v) == \"table\" then\
                                    depth = depth + 1\
                                    if table_sizes[t] == nil then \
                                        size = size + 40 + getTableSize(v)\
                                    end\
                                    depth = depth - 1\
                                elseif type(v) == \"function\" then\
                                    local env = getfenv(v)\
                                    size = size + 20\
\
                                    if env ~= nil then\
                                        depth = depth + 1\
                                        if table_sizes[t] == nil then \
                                            size = size + 40 + getTableSize(env)\
                                        end\
                                        depth = depth - 1\
                                    end\
                                else\
                                    size = size + 16\
                                end\
                            end\
                        end\
                    end\
\
                    table_sizes[t] = size\
                    return size or 0\
                end\
\
\
                --local env = getfenv(info.program)\
                --if env ~= getfenv(0) then\
                --  size = getTableSize(env) or 0\
                --end\
                if pid > 0 then\
                    getTableSize(getfenv(0))\
                    getTableSize(getfenv(1))\
                    local newSize = 0\
\
                    for i = 1, 512 do\
                        newSize = getTableSize(getfenv(info.program))\
                        size = size + newSize\
                    end\
                else\
                    for i = 1, 512 do\
                        size = size + getTableSize(getfenv(0)) + getTableSize(getfenv(1))\
                    end\
                end\
                --if info.fullenv ~= nil then\
                    --size = getTableSize(getfenv())\
                    --size = getTableSize(info.fullenv)\
                --end\
\
\
                return size\
            end,\
        },\
\
        widgets = {\
            Label = label,\
            Button = button,\
            Edit = edit,\
            ScrollBar = scrollBar,\
            Panel = panel,\
            ListView = listView,\
            PopupMenu = popupMenu,\
            MenuBar = menuBar,\
            PaintBox = paintBox,\
            FileListView = fileListView,\
            ListBox = listBox,\
            TextArea = textArea,\
            SharedDocView = shdocvw,\
            GLSurface = glSurface,\
            CheckBox = checkbox,\
\
            dialogs = {\
                OpenDialog = openDialog,\
                SaveDialog = saveDialog,\
            },\
\
            popupMenu = function(menu, x, y)\
                lastMenu = menu\
                menu.canvas = screen\
                menu:popUp(x, y)\
            end,\
        },\
\
        config = {\
            DESKTOP_COLOR = config.desktop_color,\
            PROCESS_TIMER = config.timer,\
            AUTORUN = config.autorun,\
\
        },\
    }\
\
    if kernelMode == true then\
        env.kernel = {}\
\
        env.kernel.kiRegisterEventReceiver = function(event)\
            --table.insert(eventHandlers, event, hwnd)\
            eventHandlers[event] = hwnd\
        end\
\
        env.kernel.kiUnRegisterEventReceiver = function(event)\
            --table.remove(eventHandlers, event)\
            eventHandlers[event] = nil\
        end\
\
        env.kernel.env = getfenv(1)\
    end\
\
\
    if process.legacyMode then\
        setfenv(program, legacyEnv)\
    else\
        setfenv(program, env)\
    end\
    \
    process.thread = coroutine.create(program)\
    process.env = { timer = timer }\
    process.fullenv = env\
\
    processes[hwnd] = process\
    --table.insert(plist, hwnd)\
    return hwnd\
end\
\
\
local osPath = ...\
function GetOsPath()\
    --[[if fs.exists(\".myospath\") then\
        file = fs.open(\".myospath\", \"r\")\
        osPath = file.readAll()\
        file.close()\
\
        return osPath\
    else\
        write(\"myOs is not found on the main drive. Try reinstalling...\")\
        os.shutdown()\
    end]]\
    return osPath\
end\
\
\
function SendMessage(hwnd, message)\
    table.insert(processes[hwnd].messages, message)\
end\
\
\
function GetMessage(hwnd)\
    local result = table.remove(processes[hwnd].messages, 1)\
\
    if result ~= nil then\
        if processes[hwnd].iterations > PROCESS_MAX_ITERATIONS then\
            processes[hwnd].iterations = 0\
            --coroutine.yield()\
        end\
\
        processes[hwnd].iterations = processes[hwnd].iterations + 1\
        return result\
    else\
        coroutine.yield()\
        return GetMessage(hwnd)\
    end\
end\
\
\
\
\
function Run(fileName, background, params, kernelMode)\
    if params == nil then params = {} end\
    params[1] = fileName\
\
    local hwnd = CreateProcess(fileName, params, kernelMode)\
\
    if not (background == false) then\
        ACTIVE_PROCESS = hwnd\
    end\
\
    SendMessage(hwnd, { msg = \"create\" })\
\
    return hwnd\
end\
\
\
\
function LoadConfig()\
    if not fs.exists(GetOsPath() .. \"/system/config/winDbg.ini\") then\
        local c = {\
            autorun = {\
\
            },\
\
            system = \
            {\
                timer = 0.05,\
                version = \"0.9\"\
            },\
\
            installed = \
            {\
                Notepad = \"notepad.exe \\\"%FILENAME%\\\"\",\
            },\
\
            extensions = {\
                lnk = \"lnkview \\\"%FILENAME%\\\"\",\
            },\
\
            desktop = {\
                bgcolor = colors.black,\
            },\
        }\
\
        iniFiles.write(GetOsPath() .. \"/system/config/winDbg.ini\", c)\
    end\
\
    local c = iniFiles.read(GetOsPath() .. \"/system/config/winDbg.ini\")\
    config.timer = tonumber(c.system.timer)\
    config.desktop_color = tonumber(c.desktop.bgcolor)\
    config.extensions = c.extensions\
    config.autorun = c.autorun\
    config.version = c.system.version\
end\
\
\
cursorPos = 3\
\
function Init()\
    term.setBackgroundColor(colors.black)\
    term.setTextColor(colors.white)\
    term.clear()\
\
    local oldLoadAPI = os.loadAPI\
\
    os.loadAPI = function(path)\
        if oldLoadAPI(path) then              \
            term.setCursorPos(1,1)\
            term.setBackgroundColor(colors.white)\
            term.setTextColor(colors.black)\
            term.write(string.rep(\" \", x))\
            centerText(\"Loading WinCC Files\", 1)\
            term.setCursorPos(1,19)\
            term.setBackgroundColor(colors.white)\
            term.setTextColor(colors.black)\
            term.write(string.rep(\" \", x))\
            term.setCursorPos(1,19)\
            term.write(\" Please wait...\")\
            term.setTextColor(colors.white)\
            term.setBackgroundColor(colors.black)\
            term.setCursorPos(1,18)\
            term.write(string.rep(\"                  \", 18))\
            term.setCursorPos(1, cursorPos)\
            if string.len(path) > 42 then\
                inputText = string.sub(path, string.len(path) - 37 + 2)\
                print(\"Loaded: /..\"..inputText..\"\")\
            else\
                inputText = \"\"..path..\"\"\
                print(\"Loaded: /\"..inputText..\"\")\
            end\
            sleep(0.1)\
            if cursorPos > 16 then\
                term.clear()\
                term.setBackgroundColor(colors.white)\
                term.setTextColor(colors.black)\
                term.setCursorPos(1,1)\
                term.write(string.rep(\" \", x))\
                centerText(\"Loading WinCC Files\", 1)\
                term.setBackgroundColor(colors.white)\
                term.setTextColor(colors.black)\
                term.setCursorPos(1,19)\
                term.write(string.rep(\" \", x))\
                term.write(\" Please wait...\")\
                term.setTextColor(colors.white)\
                term.setBackgroundColor(colors.black)\
                cursorPos = 2\
            end\
            cursorPos = cursorPos + 1\
        else \
            term.setBackgroundColor(colors.black)\
            term.clear()\
            sleep(0.1)\
            term.setCursorPos(1,1)\
            term.setBackgroundColor(colors.white)\
            term.setTextColor(colors.black)\
            term.write(string.rep(\" \", x))\
            centerText(\"WinCC Boot Manager\", 1)\
            term.setCursorPos(1,3)\
            term.setTextColor(colors.lightGray)\
            term.setBackgroundColor(colors.black)\
            print(\"WinCC Failed to start. A recent software change might be the cause.\")\
            print(\"\")\
            print(\"If you dont know how to fix this problem, contact your system administrator or computer manufacturer for assistance.\")\
            print(\"\")\
            term.setTextColor(colors.white)\
            print(\"File: /\"..path..\"\")\
            print(\"\")\
            print(\"Status: Not found\")\
            print(\"\")\
            print(\"Info: WinCC failed to load because a critical\")\
            print(\"      system file is missing or broken.\")\
            term.setCursorPos(1,19)\
            term.setBackgroundColor(colors.white)\
            term.setTextColor(colors.black)\
            term.write(string.rep(\" \", x))\
            term.setCursorPos(1,19)\
            term.write(\" ENTER=Continue\")\
            term.setCursorPos(0,0)\
            read()\
            term.setBackgroundColor(colors.black)\
            term.clear()\
        end\
    end\
\
\
    os.loadAPI(GetOsPath() .. \"system/drivers/user\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/application\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/form\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/iniFiles\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/pathutils\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/dialogs\")\
\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/label\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/button\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/edit\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/scrollBar\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/panel\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/listView\")\
\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/popupMenu\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/menuBar\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/paintBox\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/fileListView\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/listBox\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/textArea\")\
\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/shdocvw\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/textView\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/glSurface\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/widgets/checkbox\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/cmnDialogs/openDialog\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/cmnDialogs/saveDialog\")\
\
    os.loadAPI = oldLoadAPI\
    LoadConfig()\
\
\
    local x, y = term.getSize()\
    screen = user.CreateCanvas(x, y)\
    screen.autoScroll = false\
    screen.showCursor = false\
\
\
        clear()\
        sleep(1.0)\
\
    --screen.effect = user.CreateEffect_Acid()\
    --screen.effect = user.CreateEffect_Shadow()\
\
\
function printLogonScreen()\
    function Ball()\
        centerText(\"- Welcome\", 10)\
        sleep(0.07)\
        centerText(\"\\\\ Welcome\", 10)\
        sleep(0.07)\
        centerText(\"| Welcome\", 10)\
        sleep(0.07)\
        centerText(\"/ Welcome\", 10)\
        sleep(0.07)\
    end\
\
    function printName1()\
        term.setTextColor(colors.lightGray)\
        centerText(\"#### WinCC 7 Ultimate\", 18)\
        term.setCursorPos(15,18)\
        term.setTextColor(colors.green)\
        term.write(\"#\")\
        term.setTextColor(colors.brown)\
        term.write(\"#\")\
        term.setTextColor(colors.brown)\
        term.write(\"#\")\
        term.setTextColor(colors.gray)\
        term.write(\"#\")\
        term.setTextColor(colors.lightGray)\
    end\
\
    function printName2()\
        term.setTextColor(colors.white)\
        centerText(\"#### WinCC 7 Ultimate\", 18)\
        term.setCursorPos(15,18)\
        term.setTextColor(colors.lime)\
        term.write(\"#\")\
        term.setTextColor(colors.red)\
        term.write(\"#\")\
        term.setTextColor(colors.yellow)\
        term.write(\"#\")\
        term.setTextColor(colors.blue)\
        term.write(\"#\")\
        term.setTextColor(colors.white)\
    end\
\
    --\
    term.setBackgroundColor(colors.cyan)\
    term.setTextColor(colors.white)\
    term.clear()\
    centerText(\"| Welcome\", 10)\
    printName2()\
    sleep(0.07)\
    centerText(\"/ Welcome\", 10)\
    sleep(0.07)\
    Ball()\
    Ball()\
    Ball()\
    Ball()\
    centerText(\"- Welcome\", 10)\
    sleep(0.07)\
    centerText(\"\\\\ Welcome\", 10)\
    sleep(0.07)\
    centerText(\"| Welcome\", 10)\
    sleep(0.07)\
    term.setBackgroundColor(colors.black)\
    term.setTextColor(colors.black)\
    clear()\
end\
\
printLogonScreen()\
\
    HTTP_PROCESS = loadDrivers()\
    TASKBAR_PROCESS = Run(GetOsPath() .. \"/ProgramFiles/taskbar.exe\")\
    DESKTOP_PROCESS = Run(GetOsPath() .. \"/ProgramFiles/desktop.exe\")\
\
    if fs.exists (GetOsPath() .. \"/system/drivers/dialogs\") then\
        if fs.exists(GetOsPath() .. \"/system/messageDbg.exe\") then\
            MESSAGE_PROCESS = Run(GetOsPath() .. \"/system/messageDbg.exe\")\
        end\
    end\
\
    Main()\
end\
\
\
\
function loadDrivers()\
    local drivers = fs.list(GetOsPath() .. \"/system/drivers/\")\
\
    for i, v in ipairs(drivers) do\
        if (user.stringends(v, \".exe\")) and (not (fs.isDir(v))) then\
            print(GetOsPath() .. \"/system/drivers/\" .. v)\
            Run(GetOsPath() .. \"/system/drivers/\" .. v, nil, nil, true)\
        end\
    end\
end\
\
\
\
\
\
function ShellRun(name, cmd, path)\
    local fileName = user.split(name, \"%.\")\
    local fileExt = fileName[#fileName]\
\
\
    if name == \"shutdown\" then\
        running = false\
    else\
        if (fileExt == \"exe\") or (#fileName == 1) then\
            for i, v in ipairs(path) do\
                if (fs.exists(getPath(v) .. \"/\" .. name) and (fileExt == \"exe\")) or fs.exists(getPath(v) .. \"/\" .. name .. \".exe\") then\
                    if #fileName == 1 then\
                        Run(getPath(v) .. \"/\" .. name .. \".exe\", true, cmd)\
                                --[[local image = paintutils.loadImage(\"WinCC/system/fadeui/1\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/2\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/3\")\
                                paintutils.drawImage(image, 1, 1)]]\
                    else\
                        Run(getPath(v) .. \"/\" .. name, true, cmd)\
                                --[[local image = paintutils.loadImage(\"WinCC/system/fadeui/1\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/2\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/3\")\
                                paintutils.drawImage(image, 1, 1)]]\
                    end\
                    break\
                end\
            end\
        else\
            if config.extensions[fileExt] ~= nil then\
                for i, v in ipairs(path) do\
                    if fs.exists(getPath(v) .. name) then\
                        Shell(string.gsub(config.extensions[fileExt], \"%%FILENAME%%\", v .. name))\
                        break\
                    end\
                end\
            end\
        end\
    end\
end\
\
\
\
\
\
function drawTaskbar()\
    --screen:fillrect(1, screen.size.y, screen.size.x, 1, colors.lightGray)\
    if TASKBAR_PROCESS > 0 then\
        screen:draw(0, screen.size.y - 1, processes[TASKBAR_PROCESS].canvas)\
    end\
end\
\
\
function drawMessage(message)\
    --{ uType = uType, text = text, caption = caption, buttons = buttons, defText = defText }\
    --local msgBox = dialogs.MessageBoxCreate(message, screen)\
    message:refresh()\
end\
\
\
\
\
function Main()\
    local timerId = os.startTimer(config.timer)\
    local DestroyList = {}\
    local destroy = {}\
\
\
    --setmetatable(destroy, DestroyList)\
    --DestroyList.__mode = \"v\"\
\
    while running do\
        local event, key, x, y, p2 = os.pullEventRaw()\
        if (event == \"timer\") and (key == timerId) then\
            local ostime = os.clock()\
\
            if ACTIVE_PROCESS == TASKBAR_PROCESS then\
                ACTIVE_PROCESS = 0\
            end\
\
            --print(\"\")\
\
            for hwnd, process in pairs(processes) do\
                --print(hwnd, \" \", coroutine.status(process.thread))\
                local time = os.clock()\
                \
\
                if (not process.suspended) and (coroutine.status(process.thread) ~= \"dead\") then\
                    CURRENT_PROCESS = hwnd\
\
                    if process.env.timer.enabled then\
                        process.env.timer.value = process.env.timer.value + config.timer\
\
                        if process.env.timer.value > process.env.timer.interval then\
                            process.env.timer.value = 0\
                            if process.env.timer.onTimer ~= nil then process.env.timer.onTimer() end\
                        end\
                    end\
\
\
\
                    --run()\
                    --assert(run())\
\
                    \
                    --assert(coroutine.resume(process.thread))\
                    --process.etime = time - os.time()\
\
                    process.iterations = 0\
                    local status, message = pcall(function() assert(coroutine.resume(process.thread)) end)\
\
                    if not status then\
                        local text = message\
\
                        if string.len(text) > screen.size.x - 8 then\
                            local t1 = string.sub(text, 1, screen.size.x - 8)\
                            local t2 = string.sub(text, screen.size.x - 7)\
                            text = t1 .. \"-\\n\" .. t2\
\
                            --[[text = \"\"\
                            local s = user.split(text, \" \")\
                            local str = \"\"\
                            local i = 0\
\
                            for j = 1, #s do\
                                str = \"\"\
\
                                repeat\
                                    i = i + 1\
                                    str = str .. s[i]\
                                until string.len(str) > screen.size.x - 8\
\
                                text = text .. str .. \"\\n\"\
                            end]]\
                        end\
\
\
                        processes[TASKBAR_PROCESS].message = \
                                dialogs.MessageBoxCreate({ uType = \"message\", \
                                    text = text .. \";\", \
                                    caption = pathutils.extractFileName(process.fileName),\
                                    buttons = { { caption = \"OK\", onClick = function(sender) \
                                        processes[TASKBAR_PROCESS].message = nil\
                                        processes[ACTIVE_PROCESS].canvas.effect = nil\
                                    end } }, \
                                    defText = \"\" }, \
                                screen, button)\
                        processes[TASKBAR_PROCESS].message.width = screen.size.x - 4\
                    end\
                end\
\
                process.etime = time - os.clock()\
\
                if (coroutine.status(process.thread) == \"dead\") or (process.kill ~= nil) then\
                    table.insert(destroy, hwnd)\
                    if ACTIVE_PROCESS == hwnd then ACTIVE_PROCESS = DESKTOP_PROCESS end\
                end\
            end\
\
            screen:clear()\
            --drawTaskbar()\
\
            if ACTIVE_PROCESS > 0 then\
                if processes[ACTIVE_PROCESS].canvas ~= nil then\
                    if processes[ACTIVE_PROCESS].message ~= nil then\
                        processes[ACTIVE_PROCESS].canvas.effect = user.CreateEffect_Shadow()\
                        screen:draw(0, screen.size.y - processes[ACTIVE_PROCESS].canvas.size.y - 1, processes[ACTIVE_PROCESS].canvas, true)\
                        drawMessage(processes[ACTIVE_PROCESS].message)\
                    else\
                        screen:draw(0, screen.size.y - processes[ACTIVE_PROCESS].canvas.size.y - 1, processes[ACTIVE_PROCESS].canvas, true)\
                    end\
                    --term.setCursorPos(processes[ACTIVE_PROCESS].canvas.cursorPos.x, processes[ACTIVE_PROCESS].canvas.cursorPos.y)\
                end\
            end\
\
            if lastMenu ~= nil then\
                lastMenu:refresh()\
            end\
\
            drawTaskbar()\
\
            if processes[TASKBAR_PROCESS].message ~= nil then\
                processes[ACTIVE_PROCESS].canvas.effect = user.CreateEffect_Shadow()\
                --screen:draw(0, screen.size.y - processes[TASKBAR_PROCESS].canvas.size.y - 1, processes[TASKBAR_PROCESS].canvas, true)\
                drawMessage(processes[TASKBAR_PROCESS].message)\
            end\
\
            screen:render(0, 0)\
\
            term.setCursorPos(CARETX, CARETY)\
            term.setTextColor(CARETCOLOR)\
            term.setCursorBlink(CARETV)\
\
            if ACTIVE_PROCESS > 0 then\
                --processes[ACTIVE_PROCESS].fullenv.legacyEnv.term.redraw()\
                processes[ACTIVE_PROCESS].fullenv.legacyEnv.term.restoreCursor()\
            end\
\
\
            local x, y = term.getCursorPos()\
            --term.setCursorPos(x, y + screen.size.y - processes[ACTIVE_PROCESS].canvas.size.y - 1)\
            --screen:render(0, 0)\
\
\
            for i, k in ipairs(destroy) do\
                local process = k\
                processes[k] = nil\
            end\
\
            destroy = {}\
\
\
            if NEW_ACTIVE_PROCESS ~= 0 then\
                table.insert(activeProcesses, ACTIVE_PROCESS)\
                ACTIVE_PROCESS = NEW_ACTIVE_PROCESS\
                NEW_ACTIVE_PROCESS = 0\
\
                if ACTIVE_PROCESS < 0 then ACTIVE_PROCESS = DESKTOP_PROCESS end\
            end\
\
\
            ETIME = os.clock() - ostime\
            timerId = os.startTimer(config.timer)\
        else\
            if event == \"terminate\" then\
                Shell(\"taskmgr.exe\")\
                event = \"refresh\"\
            end\
\
            if (event == \"key\") or (event == \"char\") or (event == \"mouse_click\") or (event == \"mouse_drag\") then\
                if ACTIVE_PROCESS > 0 then\
                    local char = \"\"\
                    if event == \"char\" then char = key end\
\
                    if (not ((event == \"mouse_click\") and (lastMenu ~= nil))) and processes[ACTIVE_PROCESS].message == nil then\
                        SendMessage(ACTIVE_PROCESS, { msg = event, key = key, char = char, button = key, x = x, y = y, n = y })\
                    else\
                        if processes[ACTIVE_PROCESS].message ~= nil then\
                            if event == \"mouse_click\" then\
                                if processes[ACTIVE_PROCESS].message.mouseClick ~= nil then\
                                    processes[ACTIVE_PROCESS].message:mouseClick(key, x, y)\
                                end\
                            end\
\
                            if (event == \"char\") or (event == \"key\") then\
                                if processes[ACTIVE_PROCESS].message.keyPress ~= nil then\
                                    char = key\
                                    if event == \"key\" then char = \"\" end\
                                    processes[ACTIVE_PROCESS].message:keyPress(key, char)\
                                end\
                            end\
                        end\
                    end\
                end\
\
                if TASKBAR_PROCESS > 0 then\
                    local char = \"\"\
                    if event == \"char\" then char = key end\
\
                    if not (type(y) == \"number\") then y = 0 end\
                    SendMessage(TASKBAR_PROCESS, { msg = event, key = key, char = char, button = key, x = x, y = y - screen.size.y + 1, n = y })\
\
                    if processes[TASKBAR_PROCESS].message ~= nil then\
                        if event == \"mouse_click\" then\
                            if processes[TASKBAR_PROCESS].message.mouseClick ~= nil then\
                                processes[TASKBAR_PROCESS].message:mouseClick(key, x, y)\
                            end\
                        end\
\
                        if event == \"char\" then\
                            if processes[TASKBAR_PROCESS].message.keyPress ~= nil then\
                                char = key\
                                processes[TASKBAR_PROCESS].message:keyPress(key, char)\
                            end\
                        end\
                    end\
                end\
\
\
                if event == \"mouse_click\" then\
                    if lastMenu ~= nil then\
                        lastMenu:mouseClick(button, x, y)\
                        if not lastMenu.showing then lastMenu = nil end\
                    end\
                end\
            else\
                --error(event .. \" \" .. key)\
                SendMessage(ACTIVE_PROCESS, {event, key, x, y, p2})\
            end\
\
\
            for k, v in pairs(eventHandlers) do\
                if event == k then\
                    SendMessage(v, {msg = event, arg1 = key, arg2 = x, arg3 = y, arg4 = p2})\
                end\
            end\
\
            --if (event == \"http_failure\") or (event == \"http_success\") then\
            --  error(event .. \" \" .. key)\
            --end\
\
        end\
    end\
\
    Shutdown()\
end\
\
\
\
function Shutdown()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
end\
\
\
\
\
\
\
\
\
\
\
\
function Load()\
    term.clear()\
    local status, err = pcall(Init)\
\
    if not status then\
        term.setBackgroundColor(colors.black)\
        term.clear()\
        sleep(0.7)\
        term.setBackgroundColor(colors.blue)\
        term.setTextColor(colors.white)\
        term.clear()\
        term.setCursorPos(1, 1)\
\
        local t = {}\
        local i = 0\
\
        for token in string.gmatch(err, \"(%w+):(%w+)\") do\
            table.insert(t, token)\
            i = i + 1\
        end\
\
        local moduleName = t[1]\
\
        print(\"A problem has been detected and WinCC has been shut down to prevent damage to your computer. \")\
        print(\"\")\
        print(\"\" .. moduleName .. \"_module_crash\")\
        print(\"\")\
        print(\"If this is the first time you have seen this error, restart your computer. Otherwise, contact software developer or server administrator for more details regarding this error.\")\
        print(\"\")\
        print(\"Technical information:\")\
        print(\"\")\
        print(\"*** \"..err..\"\")\
        print(\"\")\
        print(\"Press [Enter] to reboot.\")\
        term.setCursorPos(0,0)\
        read()\
        os.reboot()\
        --Load()\
    end\
end\
\
\
\
Load()",
      Config = {
        [ "winDbg.ini" ] = "[installed]\
Notepad = notepad.exe \"%FILENAME%\"\
[desktop]\
bgcolor = 32768\
[autorun]\
[extensions]\
lnk = lnkview \"%FILENAME%\"\
[system]\
timer = 0.05\
version = 0.9",
        [ "win.ini" ] = "[extensions]\
lua = limetext.exe \"%FILENAME%\"\
pic = photoedit.exe \"%FILENAME%\"\
txt = notepad.exe \"%FILENAME%\"\
lnk = lnkview \"%FILENAME%\"\
ini = npadplus.exe \"%FILENAME%\"\
[system]\
timer = 0.05\
[installed]\
Notepad = notepad.exe \"%FILENAME%\"\
LimeText = limetext.exe \"%FILENAME%\"\
NotePad+ = npadplus.exe \"%FILENAME%\"\
PhotoEdit = photoedit.exe \"%FILENAME%\"\
[desktop]\
bgcolor = 512",
      },
      oskrnl = "--Boot Functions--\
function centerText(text, line)\
    x,y = term.getSize()\
    term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), line)\
    term.write(text)\
end\
\
local x,y = term.getSize()\
\
function printAnimatedLoadText()\
term.setTextColor(colors.black)\
centerText(\"(C) Puzzletime Corp\", 18)\
term.setTextColor(colors.gray)\
centerText(\"Starting WinCC\", 13)\
sleep(0.05)\
term.setTextColor(colors.gray)\
centerText(\"(C) Puzzletime Corp\", 18)\
term.setTextColor(colors.lightGray)\
centerText(\"Starting WinCC\", 13)\
sleep(0.05)\
term.setTextColor(colors.lightGray)\
centerText(\"(C) Puzzletime Corp\", 18)\
term.setTextColor(colors.white)\
centerText(\"Starting WinCC\", 13)\
end\
\
function printLoadText()\
term.setTextColor(colors.lightGray)\
centerText(\"(C) Puzzletime Corp\", 18)\
term.setTextColor(colors.white)\
centerText(\"Starting WinCC\", 13)\
end\
\
function printBootAnimation1()\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a11\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a10\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a9\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a8\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a7\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a6\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a5\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a4\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a3\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a2\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/a1\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/logo\")\
        paintutils.drawImage(image, 1, 1)\
end\
\
function printBootAnimation2()\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b1\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b2\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b3\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b4\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b5\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b6\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.2)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b7\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b8\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b9\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b10\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b11\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
        local image = paintutils.loadImage(\"WinCC/system/bootui/b12\")\
        paintutils.drawImage(image, 1, 1)\
        sleep(0.1)\
end\
\
\
function clear()\
term.clear()\
end\
\
\
\
\
--Starting Boot--\
term.clear()\
term.setBackgroundColor(colors.black)\
term.clear()\
sleep(1.0)\
\
--printBootScreen()--\
\
\
local processes = {}\
local activeProcesses = {}\
local eventHandlers = {}\
local config = { timer = 0.1, desktop_color = colors.cyan, version = \"0.9\" }\
local running = true\
local screen = nil\
local clipboard = { data = nil, dType = \"null\" }\
\
local lastCursorBlink = false\
local lastMenu = nil\
local systemMessage = nil\
\
local CURRENT_PROCESS = 0\
local ACTIVE_PROCESS = 0\
local NEW_ACTIVE_PROCESS = 0\
local TASKBAR_PROCESS = 0\
local DESKTOP_PROCESS = 0\
local SHUTDOWN_PROCESS = 0\
\
local ETIME = 0\
local PROCESS_MAX_ITERATIONS = 10\
\
local LASTHWND = 10\
local CARETX = 0\
local CARETY = 0\
local CARETV = false\
local CARETCOLOR = colors.black\
\
local legacyShell = shell\
\
\
\
\
function table.val_to_str ( v )\
  if \"string\" == type( v ) then\
    v = string.gsub( v, \"\\n\", \"\\\\n\" )\
    if string.match( string.gsub(v,\"[^'\\\"]\",\"\"), '^\"+$' ) then\
      return \"'\" .. v .. \"'\"\
    end\
    return '\"' .. string.gsub(v,'\"', '\\\\\"' ) .. '\"'\
  else\
    return \"table\" == type( v ) and table.tostring( v ) or\
      tostring( v )\
  end\
end\
\
function table.key_to_str ( k )\
  if \"string\" == type( k ) and string.match( k, \"^[_%a][_%a%d]*$\" ) then\
    return k\
  else\
    return \"[\" .. table.val_to_str( k ) .. \"]\"\
  end\
end\
\
function table.tostring( tbl )\
  local result, done = {}, {}\
  for k, v in ipairs( tbl ) do\
    table.insert( result, table.val_to_str( v ) )\
    done[ k ] = true\
  end\
  for k, v in pairs( tbl ) do\
    if not done[ k ] then\
      table.insert( result,\
        table.key_to_str( k ) .. \"=\" .. table.val_to_str( v ) )\
    end\
  end\
  return \"{\" .. table.concat( result, \",\" ) .. \"}\"\
end\
\
function string.ends(String,End)\
   return End=='' or string.sub(String,-string.len(End))==End\
end\
\
\
\
\
\
\
\
\
\
local function pullEvent(filter)\
    local message = GetMessage(GetCurrentProcess())\
\
    if message ~= nil then\
        if ((filter == message.msg) and (filter ~= nil)) or (filter == nil) then\
            if message.msg == \"char\" then\
                return message.msg, message.char\
            end\
            if message.msg == \"key\" then\
                return message.msg, message.key\
            end\
            if message.msg == \"mouse_click\" then\
                return message.msg, message.button, message.x, message.y\
            end\
            if message.msg == \"mouse_drag\" then\
                return message.msg, message.button, message.x, message.y\
            end\
            if message.msg == \"mouse_scroll\" then\
                return message.msg, message.button, message.n\
            end\
        end\
    else\
        return pullEvent(filter)\
    end\
end\
\
local oldFsExists = fs.exists\
\
--fs.exists = function(path)\
--  if string.find(path, \"home:/\") then\
        --path = string.gsub(path, \"home:/\", \"\", 1)\
--  end\
\
--  oldFsExists(path)\
--end\
function getPath(path)\
    if string.find(path, \"home:/\") then\
        path = string.gsub(path, \"home:/\", \"\", 1)\
    end\
\
    return path\
end\
\
\
\
function GetCurrentProcess()\
    return CURRENT_PROCESS\
end\
\
function GetProcessInfo(hwnd)\
    if hwnd > 0 then\
        return processes[hwnd]\
    else\
        return {}\
    end\
end\
\
\
function Shell(command)\
    local path = { GetOsPath() .. \"/ProgramFiles/\" }\
    local name = \"\"\
\
    local cmd = pathutils.expand(command)\
\
    if string.starts(cmd[1], \"home:/\") then\
        path = { pathutils.extractFilePath(cmd[1]) }\
        name = pathutils.extractFileName(cmd[1])\
\
        --error(path[1])\
    else\
        --error(command)\
        --error(cmd[2])\
        table.insert(path, pathutils.extractFilePath(cmd[1]))\
        name = cmd[1]\
    end\
\
    --error(name .. \" \" .. path[1])\
    ShellRun(name, cmd, path)\
end\
\
\
local function CreateProcess(fileName, params, kernelMode)\
    local hwnd = LASTHWND--10000\
    local x, y = term.getSize()\
\
    while (processes[hwnd] ~= nil) do\
        --hwnd = math.random(65534) + 1\
        hwnd = hwnd + 1\
    end\
\
    LASTHWND = hwnd\
\
\
    local canvas = user.CreateCanvas(x, y - 1)\
    canvas.autoScroll = true\
\
    local process = {\
        hwnd = hwnd,\
        fileName = fileName,\
        thread = nil,\
        canvas = canvas,\
        title = fs.getName(fileName),\
        suspended = false,\
        env = nil,\
        messages = {},\
        showInTaskbar = true,\
        message = nil,\
        etime = 0,\
        iterations = 0,\
        legacyMode = true,\
    }\
\
    if string.ends(fileName, \".exe\") then\
        process.legacyMode = false\
    end\
\
\
    local program = assert(loadfile(fileName), \"File '\" .. fileName .. \"' not found.\")\
    process.program = program\
    local timer = {\
            enabled = false,\
            interval = 0,\
            value = 0,\
            onTimer = nil,\
        }\
\
\
    --local nativeCanvas = {}\
    --if process.legacyMode or true then\
    local width, height = term.getSize()\
    local nativeCanvas = window.create(term.native(), 1, 2, width, height - 2)\
    nativeCanvas.setBackgroundColor(colors.black)\
    nativeCanvas.setTextColor(colors.white)\
    nativeCanvas.setCursorPos(1, 2)\
    nativeCanvas.setCursorBlink(false)\
    nativeCanvas.setVisible(false)\
    --end\
\
    legacyShell = {}\
\
    local legacyEnv = {\
        error = error,\
        pcall = pcall,\
        xpcall = xpcall,\
        tostring = tostring,\
        tonumber = tonumber,\
        pairs = pairs,\
        ipairs = ipairs,\
        assert = assert,\
\
        dofile = dofile,\
        getfenv = getfenv,\
        getmetatable = getmetatable,\
        load = load,\
        loadfile = loadfile,\
        loadstring = loadstring,\
        module = module,\
        next = next,\
        pcall = pcall,\
        rawequal = rawequal,\
        rawget = rawget,\
        rawset = rawset,\
        require = require,\
        select = select,\
        setfenv = setfenv,\
        setmetatable = setmetatable,\
        type = type,\
        unpack = unpack,\
        xpcall = xpcall,\
        print = print,\
        read = read,\
        write = nativeCanvas.write,\
        printError = printError,\
\
        bit = bit,\
        colors = colors,\
        colours = colors,\
        coroutine = coroutine,\
        disk = disk,\
        fs = fs,\
        gps = gps,\
        help = help,\
        http = {},\
        io = io,\
        keys = keys,\
        math = math,\
        paintutils = paintutils,\
        parallel = parallel,\
        peripheral = peripheral,\
        rednet = rednet,\
        redstone = redstone,\
        string = string,\
        table = table,\
        textutils = textutuls,\
        vector = vector,\
        window = window,\
\
\
        --multishell = {},\
        os = {\
            version = function()\
                return \"Puzzletime WinCC [Version 0.15.2]\"\
            end,\
\
            getComputerID = os.getComputerID,\
            getComputerLabel = os.getComputerLabel,\
            setComputerLabel = os.setComputerLabel,\
\
            run = function(environment, programPath, args)\
                args = args or {}\
                if type(args) ~= \"table\" then\
                    args = {args}\
                end\
\
                local s = \"\"\
                for i, v in ipairs(args) do\
                    s = s .. \" \" .. v\
                end\
                Shell(programPath .. s)\
            end,\
\
            loadAPI = os.loadAPI,\
            unloadAPI = os.unloadAPI,\
            pullEvent = pullEvent,\
\
            pullEventRaw = function()\
                return coroutine.yield()\
            end,\
\
            queueEvent = os.queueEvent,\
            clock = os.clock,\
            startTimer = os.startTimer,\
            cancelTimer = os.cancelTimer,\
            time = os.time,\
            sleep = os.sleep,\
            day = os.day,\
            setAlarm = os.setAlarm,\
            cancelAlarm = os.cancelAlarm,\
\
            shutdown = function()\
                processes[hwnd].kill = true\
            end,\
\
            reboot = function()\
                processes[hwnd].kill = true\
            end,\
        },\
\
        shell = {\
            exit = function()\
                processes[hwnd].kill = true\
            end,\
\
            dir = function()\
                return pathutils.extractFilePath(processes[hwnd].fileName)\
            end,\
\
            setDir = function()\
                -- TODO: Implement SetDir\
            end,\
\
            path = legacyShell.path,\
            setPath = legacyShell.setPath,\
            resolve = legacyShell.resolve,\
            resolveProgram = legacyShell.resolveProgram,\
            aliases = legacyShell.aliases,\
            setAlias = legacyShell.setAlias,\
            clearAlias = legacyShell.clearAlias,\
            programs = legacyShell.programs,\
\
            getRunningProgram = function()\
                return processes[hwnd].fileName\
            end,\
\
            run = function(cmd, args)\
                local args = args or {}\
                local s = cmd\
                for i, v in ipairs(args) do\
                    s = s .. \" \" .. v\
                end\
                Shell(programPath + s)\
            end,\
\
            openTab = function()\
            end,\
\
            switchTab = function()\
            end,\
        },\
        term = nativeCanvas,\
    }\
\
    local env = {\
        hwnd = hwnd,\
        canvas = canvas,\
        params = params,\
        colors = colors,\
        coroutine = coroutine,\
        error = error,\
        pcall = pcall,\
        xpcall = xpcall,\
        tostring = tostring,\
        tonumber = tonumber,\
        pairs = pairs,\
        ipairs = ipairs,\
        assert = assert,\
\
        dofile = dofile,\
        getfenv = getfenv,\
        getmetatable = getmetatable,\
        load = load,\
        loadfile = loadfile,\
        loadstring = loadstring,\
        module = module,\
        next = next,\
        pcall = pcall,\
        rawequal = rawequal,\
        rawget = rawget,\
        rawset = rawset,\
        require = require,\
        select = select,\
        setfenv = setfenv,\
        setmetatable = setmetatable,\
        type = type,\
        unpack = unpack,\
        xpcall = xpcall,\
\
        string = string,\
        table = table,\
        textutils = textutils,\
        timer = timer,\
        application = application,\
        form = form,\
        user = user,\
        math = math,\
        iniFiles = iniFiles,\
        fs = fs, --------TODO: replace with alter rel\
        keys = keys,\
        bit = bit,\
        parallel = parallel,\
        peripheral = peripheral, -------------TODO: replace\
        rednet = rednet, -----------------TODO: replace\
        redstone = redstone,\
        turtle = turtle,\
        vector = vector,\
        disk = disk,\
\
        legacyEnv = legacyEnv,\
\
\
        print = function(...)\
            local printResult = \"\"\
\
            for i, v in ipairs(arg) do\
                printResult = printResult .. tostring(v)\
            end\
\
            canvas:print(printResult)\
        end,\
\
        term = {\
            write = function(s)\
                canvas:write(s)\
            end,\
\
            clear = function()\
                canvas:fillrect(1, 1, canvas.size.x, canvas.size.y, canvas.bgcolor)\
            end,\
\
            clearLine = function()\
                canvas:fillrect(1, canvas.cursorPos.y, canvas.size.x, 1, canvas.bgcolor)\
            end,\
\
            getCursorPos = function()\
                return canvas:getCursorPos()\
            end,\
\
            setCursorPos = function(x, y)\
                canvas:setCursorPos(x, y)\
            end,\
\
            setCursorBlink = function(bool)\
                -- TODO\
            end,\
\
            isColor = function()\
                return true\
            end,\
\
            getSize = function()\
                return canvas.size.x, canvas.size.y\
            end,\
\
            scroll = function(n)\
                -- TODO\
            end,\
\
            redirect = function(target)\
                -- TODO\
            end,\
\
            setTextColor = function(color)\
                canvas.forecolor = color\
            end,\
\
            setBackgroundColor = function(color)\
                canvas.bgcolor = color\
            end,\
        },\
\
        os = {\
            sendMessage = SendMessage,\
            getMessage = GetMessage,\
\
\
            pullEvent = pullEvent,\
\
            pullEventRaw = function()\
                return coroutine.yield()\
            end,\
\
            startTimer = function(timeout, onTimer)\
                timer.enabled = true\
                timer.interval = timeout\
                timer.onTimer = onTimer\
            end,\
\
            getValidHWNDList = function(onlyInTaskbar)\
                local list = {}\
                local i = 0\
\
                for k, v in pairs(processes) do\
                    if onlyInTaskbar == true then\
                        if v.showInTaskbar then\
                            table.insert(list, k)\
                            i = i + 1\
                        end\
                    else\
                        table.insert(list, k)\
                        i = i + 1\
                    end\
                end\
\
                table.sort(list)\
\
                --list.count = i\
                return list\
            end,\
\
            setActiveProcess = function(hwnd)\
                NEW_ACTIVE_PROCESS = hwnd\
            end,\
\
            getActiveProcess = function()\
                return ACTIVE_PROCESS\
            end,\
\
            redirectTerm = function(obj)\
                term.redirect(obj)\
            end,\
\
            restoreTerm = function()\
                term.redirect(term.native())\
            end,\
\
            killProcess = function(hwnd)\
                processes[hwnd].kill = true\
            end,\
\
\
            getRegistryBranches = function()\
                iniFile = iniFiles.read(\"home:/\" .. GetOsPath() .. \"/system/config/win.ini\")\
                list = {}\
                for k, v in pairs(iniFile) do\
                    table.insert(list, k)\
                end\
                return list\
            end,\
\
            getRegistryBranchKeys = function(branch)\
                iniFile = iniFiles.read(GetOsPath() .. \"/system/config/win.ini\")\
                list = {}\
                for k, v in pairs(iniFile[branch] or {}) do\
                    table.insert(list, k)\
                end\
                return list\
            end,\
\
            getRegistryKeyValue = function(branch, key, default)\
                iniFile = iniFiles.read(GetOsPath() .. \"/system/config/win.ini\")\
                if iniFile[branch] ~= nil then\
                    return iniFile[branch][key] or default\
                else\
                    return default\
                end\
            end,\
\
            setRegistryKeyValue = function(branch, key, value)\
                iniFile = iniFiles.read(GetOsPath() .. \"/system/config/win.ini\")\
                if iniFile[branch] == nil then\
                    iniFile[branch] = {}\
                end\
                iniFile[branch][key] = value\
                iniFiles.write(GetOsPath() .. \"/system/config/win.ini\", iniFile)\
            end,\
\
\
            listInstalledSoftware = function()\
                local placeholder = {{title = \"Notepad\", path = GetOsPath() .. \"/ProgramFiles/notepadorganizeMenu \\\"%FILENAME\\\"\"}}\
                return placeholder\
                -- ToDo: Installation registry\
            end,\
\
\
            shell = {\
                run = Shell,\
\
                expandEnvVar = function(envvar)\
\
                end,\
\
                shutdown = function()\
                    os.shutdown()\
                end,\
\
                restart = function(bootToShell)\
                    if bootToShell then\
                        local file = fs.open(\".reboot\", \"w\")\
                        file.write(\"LOADTO CRAFTOS\")\
                        file.close()\
                    end\
\
                    os.reboot()\
                end,\
            },\
\
\
            extractFilePath = pathutils.extractFilePath,\
            extractFileName = pathutils.extractFileName,\
            extractRealFileName = pathutils.extractRealFileName,\
\
\
            messageBox = function(uType, text, caption, buttons, defText)\
                if uType == \"input\" then\
                    processes[hwnd].message = dialogs.InputBoxCreate({ \
                        uType = uType, \
                        text = text, \
                        caption = caption, \
                        buttons = buttons, \
                        defText = defText }, \
                    screen, button)\
                else\
                    processes[hwnd].message = dialogs.MessageBoxCreate({ \
                        uType = uType, \
                        text = text, \
                        caption = caption, \
                        buttons = buttons, \
                        defText = defText }, \
                    screen, button)\
                end\
            end,\
\
\
            hideMessageBox = function()\
                processes[hwnd].message = nil\
                processes[hwnd].canvas.effect = nil\
            end,\
\
\
            getProcessInfo = function(pid)\
                local info = GetProcessInfo(pid)\
\
                if pid ~= hwnd then\
                    local pinfo = {}\
\
                    local pinfo = {\
                        canvas = info.canvas,\
                        hwnd = info.hwnd,\
                        fileName = info.fileName,\
                        title = info.title,\
                        showInTaskbar = info.showInTaskbar,\
                        etime = info.etime,\
                    }\
\
                    return pinfo\
                else\
                    return info\
                end\
            end,\
\
            getCurrentProcess = GetCurrentProcess,\
            getSystemPath = GetOsPath,\
\
            copyToClipboard = function(data, dType)\
                clipboard.data = data\
                clipboard.dType = dType\
            end,\
\
            pasteFromClipboard = function(dType)\
                if (clipboard.dType == dType) or (dType == nil) then\
                    return clipboard.data\
                else\
                    return nil\
                end\
            end,\
\
            applyMagic = function(effect)\
                screen.effect = effect\
            end,\
\
            getMagic = function()\
                return screen.effect\
            end,\
\
            setCaretPos = function(x, y)\
                CARETX = x\
                CARETY = y\
            end,\
\
            showCaret = function()\
                CARETV = true\
            end,\
\
            hideCaret = function()\
                CARETV = false\
            end,\
\
            setCaretColor = function(color)\
                CARETCOLOR = color\
            end,\
\
\
            findWindowByTitle = function(title)\
                for k, v in pairs(processes) do\
                    if string.lower(v.title) == string.lower(title) then\
                        return k\
                    end\
                end\
            end,\
\
            findWindowByFileName = function(fname)\
                for k, v in pairs(processes) do\
                    if string.lower(v.fileName) == string.lower(fname) then\
                        return k\
                    end\
                end\
            end,\
\
\
            loadAPI = os.loadAPI,\
            unloadAPI = os.unloadAPI,\
            time = os.time,\
            clock = os.clock,\
            \
            getETime = function()\
                return ETIME\
            end,\
\
\
            getProcessUsedMemory = function(pid, MAXDEPTH)\
                local info\
\
                if pid > 0 then\
                    info = GetProcessInfo(pid)\
                end\
\
                local depth = 0\
                local size = 0\
\
\
                local CHAR_SIZE = 1\
                local NUMBER_SIZE = 16\
                local POINTER_SIZE = 4\
                local BOOLEAN_SIZE = 4\
\
                local MAXDEPTH = MAXDEPTH or 100--128\
\
                local table_sizes = {}\
                local strings = {}\
\
\
                local function getTableSize(t)\
                    local size = 0\
\
                    if table_sizes[t] ~= nil then return 0 else\
                        if table_sizes[t] == nil then\
                            for k, v in pairs(t) do\
                                if type(k) == \"string\" then\
                                    size = size + 40\
                                else\
                                    size = size + 16\
                                end\
                            end\
                        end\
\
                        if depth <= MAXDEPTH then\
                            for k, v in pairs(t) do\
                                if type(v) == \"string\" then\
                                    if not strings[v] then\
                                        size = size + 17 + string.len(v)\
                                        strings[v] = true\
                                    end\
                                elseif type(v) == \"boolean\" then\
                                    size = size + 16\
                                elseif type(v) == \"number\" then\
                                    size = size + 16\
                                elseif type(v) == \"table\" then\
                                    depth = depth + 1\
                                    if table_sizes[t] == nil then \
                                        size = size + 40 + getTableSize(v)\
                                    end\
                                    depth = depth - 1\
                                elseif type(v) == \"function\" then\
                                    local env = getfenv(v)\
                                    size = size + 20\
\
                                    if env ~= nil then\
                                        depth = depth + 1\
                                        if table_sizes[t] == nil then \
                                            size = size + 40 + getTableSize(env)\
                                        end\
                                        depth = depth - 1\
                                    end\
                                else\
                                    size = size + 16\
                                end\
                            end\
                        end\
                    end\
\
                    table_sizes[t] = size\
                    return size or 0\
                end\
\
\
                --local env = getfenv(info.program)\
                --if env ~= getfenv(0) then\
                --  size = getTableSize(env) or 0\
                --end\
                if pid > 0 then\
                    getTableSize(getfenv(0))\
                    getTableSize(getfenv(1))\
                    local newSize = 0\
\
                    for i = 1, 512 do\
                        newSize = getTableSize(getfenv(info.program))\
                        size = size + newSize\
                    end\
                else\
                    for i = 1, 512 do\
                        size = size + getTableSize(getfenv(0)) + getTableSize(getfenv(1))\
                    end\
                end\
                --if info.fullenv ~= nil then\
                    --size = getTableSize(getfenv())\
                    --size = getTableSize(info.fullenv)\
                --end\
\
\
                return size\
            end,\
        },\
\
        widgets = {\
            Label = label,\
            Button = button,\
            Edit = edit,\
            ScrollBar = scrollBar,\
            Panel = panel,\
            ListView = listView,\
            PopupMenu = popupMenu,\
            MenuBar = menuBar,\
            PaintBox = paintBox,\
            FileListView = fileListView,\
            ListBox = listBox,\
            TextArea = textArea,\
            SharedDocView = shdocvw,\
            GLSurface = glSurface,\
            CheckBox = checkbox,\
\
            dialogs = {\
                OpenDialog = openDialog,\
                SaveDialog = saveDialog,\
            },\
\
            popupMenu = function(menu, x, y)\
                lastMenu = menu\
                menu.canvas = screen\
                menu:popUp(x, y)\
            end,\
        },\
\
        config = {\
            DESKTOP_COLOR = config.desktop_color,\
            PROCESS_TIMER = config.timer,\
            AUTORUN = config.autorun,\
\
        },\
    }\
\
    if kernelMode == true then\
        env.kernel = {}\
\
        env.kernel.kiRegisterEventReceiver = function(event)\
            --table.insert(eventHandlers, event, hwnd)\
            eventHandlers[event] = hwnd\
        end\
\
        env.kernel.kiUnRegisterEventReceiver = function(event)\
            --table.remove(eventHandlers, event)\
            eventHandlers[event] = nil\
        end\
\
        env.kernel.env = getfenv(1)\
    end\
\
\
    if process.legacyMode then\
        setfenv(program, legacyEnv)\
    else\
        setfenv(program, env)\
    end\
    \
    process.thread = coroutine.create(program)\
    process.env = { timer = timer }\
    process.fullenv = env\
\
    processes[hwnd] = process\
    --table.insert(plist, hwnd)\
    return hwnd\
end\
\
\
local osPath = ...\
function GetOsPath()\
    --[[if fs.exists(\".myospath\") then\
        file = fs.open(\".myospath\", \"r\")\
        osPath = file.readAll()\
        file.close()\
\
        return osPath\
    else\
        write(\"myOs is not found on the main drive. Try reinstalling...\")\
        os.shutdown()\
    end]]\
    return osPath\
end\
\
\
function SendMessage(hwnd, message)\
    table.insert(processes[hwnd].messages, message)\
end\
\
\
function GetMessage(hwnd)\
    local result = table.remove(processes[hwnd].messages, 1)\
\
    if result ~= nil then\
        if processes[hwnd].iterations > PROCESS_MAX_ITERATIONS then\
            processes[hwnd].iterations = 0\
            --coroutine.yield()\
        end\
\
        processes[hwnd].iterations = processes[hwnd].iterations + 1\
        return result\
    else\
        coroutine.yield()\
        return GetMessage(hwnd)\
    end\
end\
\
\
\
\
function Run(fileName, background, params, kernelMode)\
    if params == nil then params = {} end\
    params[1] = fileName\
\
    local hwnd = CreateProcess(fileName, params, kernelMode)\
\
    if not (background == false) then\
        ACTIVE_PROCESS = hwnd\
    end\
\
    SendMessage(hwnd, { msg = \"create\" })\
\
    return hwnd\
end\
\
\
\
function LoadConfig()\
    if not fs.exists(GetOsPath() .. \"/System/Config/win.ini\") then\
        local c = {\
            autorun = {\
\
            },\
\
            system = \
            {\
                timer = 0.05,\
                version = \"0.9\"\
            },\
\
            installed = \
            {\
                Notepad = \"notepad.exe \\\"%FILENAME%\\\"\",\
            },\
\
            extensions = {\
                lnk = \"lnkview \\\"%FILENAME%\\\"\",\
            },\
\
            desktop = {\
                bgcolor = colors.cyan,\
            },\
        }\
\
        iniFiles.write(GetOsPath() .. \"/System/Config/win.ini\", c)\
    end\
\
    local c = iniFiles.read(GetOsPath() .. \"/System/Config/win.ini\")\
    config.timer = tonumber(c.system.timer)\
    config.desktop_color = tonumber(c.desktop.bgcolor)\
    config.extensions = c.extensions\
    config.autorun = c.autorun\
    config.version = c.system.version\
end\
\
\
\
\
function Init()\
    term.setBackgroundColor(colors.black)\
    term.setTextColor(colors.white)\
    term.clear()\
\
     \
\
    local oldLoadAPI = os.loadAPI\
\
    os.loadAPI = function(path)\
        --if assert(oldLoadAPI(path)) then print(\"Loaded: \"path .. ) else \
        --  read()\
        --  error(\"Kernel loader failure\")\
        --end\
        if oldLoadAPI(path) then              \
        --  term.setCursorPos(1,1)\
        --  term.setBackgroundColor(colors.white)\
            --   term.setTextColor(colors.black)\
            --   term.write(string.rep(\" \", x))\
            --   centerText(\"Loading WinCC Files\", 1)\
                --term.setTextColor(colors.white)\
                --term.setBackgroundColor(colors.black)\
                --term.setCursorPos(1, cursorPos)\
                --print(\"Loaded: /\"..path..\" \")\
                --sleep(0.01)\
        --      if cursorPos > 18 then\
        --      cursorPos = 18\
        --      end\
                --cursorPos = cursorPos + 1\
                else \
                term.setBackgroundColor(colors.black)\
               term.clear()\
           sleep(0.1)\
               term.setCursorPos(1,1)\
               term.setBackgroundColor(colors.white)\
               term.setTextColor(colors.black)\
               term.write(string.rep(\" \", x))\
               centerText(\"WinCC Boot Manager\", 1)\
                term.setCursorPos(1,3)\
                term.setTextColor(colors.lightGray)\
                term.setBackgroundColor(colors.black)\
                print(\"WinCC Failed to start. A recent software change might be the cause.\")\
                print(\"\")\
                print(\"If you dont know how to fix this problem, contact your system administrator or computer manufacturer for assistance.\")\
        print(\"\")\
        term.setTextColor(colors.white)\
        print(\"File: /\"..path..\"\")\
                print(\"\")\
                print(\"Status: Not found\")\
                print(\"\")\
                print(\"Info: WinCC failed to load because a critical\")\
        print(\"      system file is missing or broken.\")\
                term.setCursorPos(1,19)\
               term.setBackgroundColor(colors.white)\
                term.setTextColor(colors.black)\
               term.write(string.rep(\" \", x))\
                term.setCursorPos(1,19)\
                term.write(\" ENTER=Continue\")\
                term.setCursorPos(0,0)\
                \
\
            read()\
            error(\"Driver load failure\")\
        end\
    end\
\
    os.loadAPI(GetOsPath() .. \"system/drivers/user\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/application\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/form\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/iniFiles\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/pathutils\")\
    os.loadAPI(GetOsPath() .. \"system/drivers/dialogs\")\
    printLoadText()\
    sleep(1)\
    printBootAnimation1()\
    sleep(0.1)\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/label\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/button\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/edit\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/scrollBar\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/panel\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/listView\")\
    printBootAnimation2()\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/popupMenu\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/menuBar\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/paintBox\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/fileListView\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/listBox\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/textArea\")\
    printBootAnimation2()\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/shdocvw\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/textView\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/glSurface\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/widgets/checkbox\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/cmnDialogs/openDialog\")\
    os.loadAPI(GetOsPath() .. \"/system/drivers/cmnDialogs/saveDialog\")\
\
    os.loadAPI = oldLoadAPI\
    LoadConfig()\
    --loadDrivers()\
    printBootAnimation2()\
\
    local x, y = term.getSize()\
    screen = user.CreateCanvas(x, y)\
    screen.autoScroll = false\
    screen.showCursor = false\
\
\
        clear()\
        sleep(1.0)\
\
    --screen.effect = user.CreateEffect_Acid()\
    --screen.effect = user.CreateEffect_Shadow()\
\
\
function printLogonScreen()\
    function Ball()\
        centerText(\"- Welcome\", 10)\
        sleep(0.07)\
        centerText(\"\\\\ Welcome\", 10)\
        sleep(0.07)\
        centerText(\"| Welcome\", 10)\
        sleep(0.07)\
        centerText(\"/ Welcome\", 10)\
        sleep(0.07)\
    end\
\
    function printName1()\
        term.setTextColor(colors.lightGray)\
        centerText(\"#### WinCC 7 Ultimate\", 18)\
        term.setCursorPos(15,18)\
        term.setTextColor(colors.green)\
        term.write(\"#\")\
        term.setTextColor(colors.brown)\
        term.write(\"#\")\
        term.setTextColor(colors.brown)\
        term.write(\"#\")\
        term.setTextColor(colors.gray)\
        term.write(\"#\")\
        term.setTextColor(colors.lightGray)\
    end\
\
    function printName2()\
        term.setTextColor(colors.white)\
        centerText(\"#### WinCC 7 Ultimate\", 18)\
        term.setCursorPos(15,18)\
        term.setTextColor(colors.lime)\
        term.write(\"#\")\
        term.setTextColor(colors.red)\
        term.write(\"#\")\
        term.setTextColor(colors.yellow)\
        term.write(\"#\")\
        term.setTextColor(colors.blue)\
        term.write(\"#\")\
        term.setTextColor(colors.white)\
    end\
\
    term.setBackgroundColor(colors.black)\
    term.setTextColor(colors.black)\
    term.clear()\
    sleep(0.05)\
    --\
    term.setBackgroundColor(colors.gray)\
    term.setTextColor(colors.lightGray)\
    term.clear()\
    \
    centerText(\"| Welcome\", 10)\
    printName1()\
    sleep(0.05)\
    --\
    term.setBackgroundColor(colors.cyan)\
    term.setTextColor(colors.white)\
    term.clear()\
\
    centerText(\"/ Welcome\", 10)\
    printName2()\
    sleep(0.05)\
    --\
    term.setBackgroundColor(colors.cyan)\
    term.setTextColor(colors.white)\
    term.clear()\
    \
    printName2()\
    Ball()\
    Ball()\
    Ball()\
    Ball()\
    --\
    term.setBackgroundColor(colors.cyan)\
    term.setTextColor(colors.white)\
    term.clear()\
\
    centerText(\"- Welcome\", 10)\
    printName2()\
    sleep(0.05)\
    --\
    term.setBackgroundColor(colors.gray)\
    term.clear()\
\
    centerText(\"\\\\ Welcome\", 10)\
    printName1()\
    sleep(0.05)\
    --\
    term.setBackgroundColor(colors.black)\
    term.setTextColor(colors.black)\
    term.clear()\
    sleep(0.05)\
end\
\
printLogonScreen()\
\
    HTTP_PROCESS = loadDrivers()\
    TASKBAR_PROCESS = Run(GetOsPath() .. \"/ProgramFiles/taskbar.exe\")\
    DESKTOP_PROCESS = Run(GetOsPath() .. \"/ProgramFiles/desktop.exe\")\
    AUTORUN_PROCESS = Run(GetOsPath() .. \"/ProgramFiles/wininit.exe\")\
    Main()\
end\
\
\
\
function loadDrivers()\
    local drivers = fs.list(GetOsPath() .. \"/system/drivers/\")\
\
    for i, v in ipairs(drivers) do\
        if (user.stringends(v, \".exe\")) and (not (fs.isDir(v))) then\
            print(GetOsPath() .. \"system/drivers/\" .. v)\
            Run(GetOsPath() .. \"system/drivers/\" .. v, nil, nil, true)\
        end\
    end\
end\
\
\
\
\
\
function ShellRun(name, cmd, path)\
    local fileName = user.split(name, \"%.\")\
    local fileExt = fileName[#fileName]\
\
\
    if name == \"shutdown\" then\
        running = false\
    else\
        if (fileExt == \"exe\") or (#fileName == 1) then\
            for i, v in ipairs(path) do\
                if (fs.exists(getPath(v) .. \"/\" .. name) and (fileExt == \"exe\")) or fs.exists(getPath(v) .. \"/\" .. name .. \".exe\") then\
                    if #fileName == 1 then\
                        Run(getPath(v) .. \"/\" .. name .. \".exe\", true, cmd)\
                                --[[local image = paintutils.loadImage(\"WinCC/system/fadeui/1\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/2\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/3\")\
                                paintutils.drawImage(image, 1, 1)]]\
                    else\
                        Run(getPath(v) .. \"/\" .. name, true, cmd)\
                                --[[local image = paintutils.loadImage(\"WinCC/system/fadeui/1\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/2\")\
                                paintutils.drawImage(image, 1, 1)\
                                local image = paintutils.loadImage(\"WinCC/system/fadeui/3\")\
                                paintutils.drawImage(image, 1, 1)]]\
                    end\
                    break\
                end\
            end\
        else\
            if config.extensions[fileExt] ~= nil then\
                for i, v in ipairs(path) do\
                    if fs.exists(getPath(v) .. name) then\
                        Shell(string.gsub(config.extensions[fileExt], \"%%FILENAME%%\", v .. name))\
                        break\
                    end\
                end\
            end\
        end\
    end\
end\
\
\
\
\
\
function drawTaskbar()\
    --screen:fillrect(1, screen.size.y, screen.size.x, 1, colors.lightGray)\
    if TASKBAR_PROCESS > 0 then\
        screen:draw(0, screen.size.y - 1, processes[TASKBAR_PROCESS].canvas)\
    end\
end\
\
\
function drawMessage(message)\
    --{ uType = uType, text = text, caption = caption, buttons = buttons, defText = defText }\
    --local msgBox = dialogs.MessageBoxCreate(message, screen)\
    message:refresh()\
end\
\
\
\
\
function Main()\
    local timerId = os.startTimer(config.timer)\
    local DestroyList = {}\
    local destroy = {}\
\
\
    --setmetatable(destroy, DestroyList)\
    --DestroyList.__mode = \"v\"\
\
    while running do\
        local event, key, x, y, p2 = os.pullEventRaw()\
        if (event == \"timer\") and (key == timerId) then\
            local ostime = os.clock()\
\
            if ACTIVE_PROCESS == TASKBAR_PROCESS then\
                ACTIVE_PROCESS = 0\
            end\
\
            --print(\"\")\
\
            for hwnd, process in pairs(processes) do\
                --print(hwnd, \" \", coroutine.status(process.thread))\
                local time = os.clock()\
                \
\
                if (not process.suspended) and (coroutine.status(process.thread) ~= \"dead\") then\
                    CURRENT_PROCESS = hwnd\
\
                    if process.env.timer.enabled then\
                        process.env.timer.value = process.env.timer.value + config.timer\
\
                        if process.env.timer.value > process.env.timer.interval then\
                            process.env.timer.value = 0\
                            if process.env.timer.onTimer ~= nil then process.env.timer.onTimer() end\
                        end\
                    end\
\
\
\
                    --run()\
                    --assert(run())\
\
                    \
                    --assert(coroutine.resume(process.thread))\
                    --process.etime = time - os.time()\
\
                    process.iterations = 0\
                    local status, message = pcall(function() assert(coroutine.resume(process.thread)) end)\
\
                    if not status then\
                        local text = message\
\
                        if string.len(text) > screen.size.x - 8 then\
                            local t1 = string.sub(text, 1, screen.size.x - 8)\
                            local t2 = string.sub(text, screen.size.x - 7)\
                            text = t1 .. \"-\\n\" .. t2\
\
                            --[[text = \"\"\
                            local s = user.split(text, \" \")\
                            local str = \"\"\
                            local i = 0\
\
                            for j = 1, #s do\
                                str = \"\"\
\
                                repeat\
                                    i = i + 1\
                                    str = str .. s[i]\
                                until string.len(str) > screen.size.x - 8\
\
                                text = text .. str .. \"\\n\"\
                            end]]\
                        end\
\
\
                        processes[TASKBAR_PROCESS].message = \
                                dialogs.MessageBoxCreate({ uType = \"message\", \
                                    text = text .. \";\", \
                                    caption = pathutils.extractFileName(process.fileName),\
                                    buttons = { { caption = \"OK\", onClick = function(sender) \
                                        processes[TASKBAR_PROCESS].message = nil\
                                        processes[ACTIVE_PROCESS].canvas.effect = nil\
                                    end } }, \
                                    defText = \"\" }, \
                                screen, button)\
                        processes[TASKBAR_PROCESS].message.width = screen.size.x - 4\
                    end\
                end\
\
                process.etime = time - os.clock()\
\
                if (coroutine.status(process.thread) == \"dead\") or (process.kill ~= nil) then\
                    table.insert(destroy, hwnd)\
                    if ACTIVE_PROCESS == hwnd then ACTIVE_PROCESS = DESKTOP_PROCESS end\
                end\
            end\
\
            screen:clear()\
            --drawTaskbar()\
\
            if ACTIVE_PROCESS > 0 then\
                if processes[ACTIVE_PROCESS].canvas ~= nil then\
                    if processes[ACTIVE_PROCESS].message ~= nil then\
                        processes[ACTIVE_PROCESS].canvas.effect = user.CreateEffect_Shadow()\
                        screen:draw(0, screen.size.y - processes[ACTIVE_PROCESS].canvas.size.y - 1, processes[ACTIVE_PROCESS].canvas, true)\
                        drawMessage(processes[ACTIVE_PROCESS].message)\
                    else\
                        screen:draw(0, screen.size.y - processes[ACTIVE_PROCESS].canvas.size.y - 1, processes[ACTIVE_PROCESS].canvas, true)\
                    end\
                    --term.setCursorPos(processes[ACTIVE_PROCESS].canvas.cursorPos.x, processes[ACTIVE_PROCESS].canvas.cursorPos.y)\
                end\
            end\
\
            if lastMenu ~= nil then\
                lastMenu:refresh()\
            end\
\
            drawTaskbar()\
\
            if processes[TASKBAR_PROCESS].message ~= nil then\
                processes[ACTIVE_PROCESS].canvas.effect = user.CreateEffect_Shadow()\
                --screen:draw(0, screen.size.y - processes[TASKBAR_PROCESS].canvas.size.y - 1, processes[TASKBAR_PROCESS].canvas, true)\
                drawMessage(processes[TASKBAR_PROCESS].message)\
            end\
\
            screen:render(0, 0)\
\
            term.setCursorPos(CARETX, CARETY)\
            term.setTextColor(CARETCOLOR)\
            term.setCursorBlink(CARETV)\
\
            if ACTIVE_PROCESS > 0 then\
                --processes[ACTIVE_PROCESS].fullenv.legacyEnv.term.redraw()\
                processes[ACTIVE_PROCESS].fullenv.legacyEnv.term.restoreCursor()\
            end\
\
\
            local x, y = term.getCursorPos()\
            --term.setCursorPos(x, y + screen.size.y - processes[ACTIVE_PROCESS].canvas.size.y - 1)\
            --screen:render(0, 0)\
\
\
            for i, k in ipairs(destroy) do\
                local process = k\
                processes[k] = nil\
            end\
\
            destroy = {}\
\
\
            if NEW_ACTIVE_PROCESS ~= 0 then\
                table.insert(activeProcesses, ACTIVE_PROCESS)\
                ACTIVE_PROCESS = NEW_ACTIVE_PROCESS\
                NEW_ACTIVE_PROCESS = 0\
\
                if ACTIVE_PROCESS < 0 then ACTIVE_PROCESS = DESKTOP_PROCESS end\
            end\
\
\
            ETIME = os.clock() - ostime\
            timerId = os.startTimer(config.timer)\
        else\
            if event == \"terminate\" then\
                Shell(\"taskmgr.exe\")\
                event = \"refresh\"\
            end\
\
            if (event == \"key\") or (event == \"char\") or (event == \"mouse_click\") or (event == \"mouse_drag\") then\
                if ACTIVE_PROCESS > 0 then\
                    local char = \"\"\
                    if event == \"char\" then char = key end\
\
                    if (not ((event == \"mouse_click\") and (lastMenu ~= nil))) and processes[ACTIVE_PROCESS].message == nil then\
                        SendMessage(ACTIVE_PROCESS, { msg = event, key = key, char = char, button = key, x = x, y = y, n = y })\
                    else\
                        if processes[ACTIVE_PROCESS].message ~= nil then\
                            if event == \"mouse_click\" then\
                                if processes[ACTIVE_PROCESS].message.mouseClick ~= nil then\
                                    processes[ACTIVE_PROCESS].message:mouseClick(key, x, y)\
                                end\
                            end\
\
                            if (event == \"char\") or (event == \"key\") then\
                                if processes[ACTIVE_PROCESS].message.keyPress ~= nil then\
                                    char = key\
                                    if event == \"key\" then char = \"\" end\
                                    processes[ACTIVE_PROCESS].message:keyPress(key, char)\
                                end\
                            end\
                        end\
                    end\
                end\
\
                if TASKBAR_PROCESS > 0 then\
                    local char = \"\"\
                    if event == \"char\" then char = key end\
\
                    if not (type(y) == \"number\") then y = 0 end\
                    SendMessage(TASKBAR_PROCESS, { msg = event, key = key, char = char, button = key, x = x, y = y - screen.size.y + 1, n = y })\
\
                    if processes[TASKBAR_PROCESS].message ~= nil then\
                        if event == \"mouse_click\" then\
                            if processes[TASKBAR_PROCESS].message.mouseClick ~= nil then\
                                processes[TASKBAR_PROCESS].message:mouseClick(key, x, y)\
                            end\
                        end\
\
                        if event == \"char\" then\
                            if processes[TASKBAR_PROCESS].message.keyPress ~= nil then\
                                char = key\
                                processes[TASKBAR_PROCESS].message:keyPress(key, char)\
                            end\
                        end\
                    end\
                end\
\
\
                if event == \"mouse_click\" then\
                    if lastMenu ~= nil then\
                        lastMenu:mouseClick(button, x, y)\
                        if not lastMenu.showing then lastMenu = nil end\
                    end\
                end\
            else\
                --error(event .. \" \" .. key)\
                SendMessage(ACTIVE_PROCESS, {event, key, x, y, p2})\
            end\
\
\
            for k, v in pairs(eventHandlers) do\
                if event == k then\
                    SendMessage(v, {msg = event, arg1 = key, arg2 = x, arg3 = y, arg4 = p2})\
                end\
            end\
\
            --if (event == \"http_failure\") or (event == \"http_success\") then\
            --  error(event .. \" \" .. key)\
            --end\
\
        end\
    end\
\
    Shutdown()\
end\
\
\
\
function Shutdown()\
    term.setBackgroundColor(colors.black)\
    term.clear()\
    term.setCursorPos(1, 1)\
end\
\
\
\
\
function Load()\
    term.clear()\
    local status, err = pcall(Init)\
    timer = 1\
\
    if not status then\
        term.setBackgroundColor(colors.black)\
        term.clear()\
        sleep(0.7)\
        term.setBackgroundColor(colors.blue)\
        term.setTextColor(colors.white)\
        term.clear()\
        term.setCursorPos(1, 1)\
\
        local t = {}\
        local i = 0\
\
        for token in string.gmatch(err, \"(%w+):(%w+)\") do\
            table.insert(t, token)\
            i = i + 1\
        end\
\
        local moduleName = t[1]\
\
        print(\"A problem has been detected and WinCC has been shut down to prevent damage to your computer. \")\
        print(\"\")\
        print(\"\" .. moduleName .. \"_module_crash\")\
        print(\"\")\
        print(\"If this is the first time you have seen this error, restart your computer. Otherwise, contact software developer or server administrator for more details regarding this error.\")\
        print(\"\")\
        print(\"Technical information:\")\
        print(\"\")\
        print(\"*** \"..err..\"\")\
        print(\"\")\
        if timer == 1 then\
            oldx, oldy = term.getCursorPos()\
            print(\"The computer will restart automaticaly\")\
            print(\"after 25 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 24 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 23 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 22 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 21 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 20 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 19 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 18 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 17 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 16 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 15 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 14 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 13 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 12 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 11 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 10 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 9 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 8 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 7 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 6 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 5 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 4 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 3 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 2 seconds.\")\
            sleep(1)\
            term.setCursorPos(1,oldy + 1)\
            print(\"after 1 seconds.\")\
            sleep(1)\
            os.reboot()\
        else\
            print(\"Press [Enter] to reboot.\")\
            term.setCursorPos(0,0)\
            read()\
            os.reboot()\
        end\
    end\
end\
\
\
\
Load()",
      [ "logo.pic" ] = "pic|10|13|80 80 80 30 30 30 30 30 30 30 80 80 80 80 30 30 30 30 30 30 e0 e0 30 30 30 80 80 30 30 30 50 e0 e0 e0 e0 30 30 30 80 30 30 50 50 50 50 e0 e0 e0 e0 30 30 30 30 30 50 50 50 50 e0 e0 b0 b0 30 30 30 30 30 30 50 50 40 40 b0 b0 b0 b0 30 30 30 30 30 40 40 40 40 b0 b0 b0 b0 30 30 80 30 30 30 40 40 40 40 b0 30 30 30 80 80 30 30 30 40 40 30 30 30 30 30 30 80 80 80 80 30 30 30 30 30 30 30 80 80 80 ",
      BootUI = {
        a2 = "\
\
\
                      5\
                    55557\
                    555577bb\
                     5544bbbb\
                     4444bbbb\
                      4444b\
                      44",
        b8 = "\
\
                      7\
                    77\
                   7\
                   7        8\
                    7        8\
                             8\
                           88\
                          8",
        b9 = "\
\
                      f\
                    ff\
                   f\
                   f        7\
                    f        7\
                    8        7\
                     8     77\
                     8  887\
                      88",
        b10 = "\
                         88\
                       88  8\
                           8\
                            8\
                            f\
                             f\
                    7        f\
                     7     ff\
                     7  77f\
                      77",
        b2 = "\
\
                      8\
                    88\
                   8\
                   8        7\
                    8        7\
                             7\
                           77\
                          7",
        a10 = "\
\
\
\
                      dd\
                     ddd\
                     dd",
        a3 = "\
\
\
                      5\
                    5555\
                    5555  bb\
                     5544bbbb\
                     4444bbbb\
                      4444b\
                      44",
        a9 = "\
\
\
                      5\
                    5555\
                    5555\
                     55",
        a8 = "\
\
\
                      5\
                    5555\
                    5555  7\
                     55  77",
        a4 = "\
\
\
                      5\
                    5555\
                    5555  bb\
                     5511bbbb\
                      111bbbb\
                       1  b",
        b5 = "\
                         88\
                       88  8\
                           8\
                            8\
\
\
                    0\
                     0\
                     0  000\
                      00",
        a7 = "\
\
\
                      5\
                    5555\
                    5555  bb\
                     55  bbb\
                         bb",
        a5 = "\
\
\
                      5\
                    5555\
                    5555  bb\
                     55ccbbbb\
                        cbbbb\
                          b",
        b4 = "\
                         77\
                       77  7\
                           7\
                            7\
                            0\
                             0\
                    8        0\
                     8     00\
                     8  880\
                      88",
        b7 = "\
\
                      8\
                    88\
                   8\
                   8\
                    8",
        b11 = "\
                         77\
                       77  7\
                           7\
                            7\
\
\
                    f\
                     f\
                     f  fff\
                      ff",
        a11 = "\
\
\
\
\
                      77\
                      7",
        a6 = "\
\
\
                      5\
                    5555\
                    5555  bb\
                     55  bbbb\
                         bbbb\
                          b",
        b6 = "\
                         00\
                      000  0\
                           0\
                            0",
        b1 = "\
\
                      7\
                    77\
                   7\
                   7\
                    7",
        a1 = "\
\
\
                      5  c\
                    5555ccc\
                    5555ccbb\
                     5544bbbb\
                     4444bbbb\
                      4444b\
                      44",
        b12 = "\
                         ff\
                      fff  f\
                    ff     f\
                   f        f\
                   f        f\
                    f        f\
                    f        f\
                     f     ff\
                     f  fff\
                      ff",
        logo = "\
\
                         ee\
                      5eeee\
                    5555eeee\
                    5555eebb\
                     5544bbbb\
                     4444bbbb\
                      4444b\
                      44",
        b3 = "\
\
                      0\
                    00\
                   0\
                   0        8\
                    0        8\
                    7        8\
                     7     88\
                     7  778\
                      77",
      },
      [ "messageDbg.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"\")\
\
\
\
app:addForm(mainForm, \"\")\
mainForm.controlBox = false\
mainForm.bgcolor = colors.black\
mainForm:show()\
os.getProcessInfo(os.getCurrentProcess()).showInTaskbar = false\
\
local panel = widgets.Panel.Create(mainForm, \"Panel\")\
panel.top = 0\
panel.left = 0\
panel.width = app.canvas.size.x\
panel.height = 1\
panel.bgcolor = colors.black\
\
\
\
function open()\
    if fs.exists(\"WinCC/system/oskrnlDbg\") then\
        os.messageBox(\"message\", \"WinCC is running in debug mo-\\nde. To proceed to work, click\\nYes. Click No to restart.\", \"Desktop\", \
        { \
            {caption = \"No\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                    app:terminate()\
                    os.shell.restart()\
                end\
            },\
\
            {caption = \"Yes\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                    app:terminate()\
                end\
            }\
        }, \"defText\")\
    end\
end\
\
open()\
\
app:run()",
      sysWoW = {
        shell = "\
local multishell = multishell\
local parentShell = shell\
local parentTerm = term.current()\
\
if multishell then\
    multishell.setTitle( multishell.getCurrent(), \"shell\" )\
end\
\
local bExit = false\
local sDir = (parentShell and parentShell.dir()) or \"\"\
local sPath = (parentShell and parentShell.path()) or \".:/rom/programs\"\
local tAliases = (parentShell and parentShell.aliases()) or {}\
local tProgramStack = {}\
\
local shell = {}\
local tEnv = {\
    [ \"shell\" ] = shell,\
    [ \"multishell\" ] = multishell,\
}\
\
-- Colours\
local promptColour, textColour, bgColour\
if term.isColour() then\
    promptColour = colours.lightGrey\
    textColour = colours.lightGrey\
    bgColour = colours.black\
else\
    promptColour = colours.white\
    textColour = colours.white\
    bgColour = colours.black\
end\
\
local function run( _sCommand, ... )\
    local sPath = shell.resolveProgram( _sCommand )\
    if sPath ~= nil then\
        tProgramStack[#tProgramStack + 1] = sPath\
        if multishell then\
            multishell.setTitle( multishell.getCurrent(), fs.getName( sPath ) )\
        end\
        local result = os.run( tEnv, sPath, ... )\
        tProgramStack[#tProgramStack] = nil\
        if multishell then\
            if #tProgramStack > 0 then\
                multishell.setTitle( multishell.getCurrent(), fs.getName( tProgramStack[#tProgramStack] ) )\
            else\
                multishell.setTitle( multishell.getCurrent(), \"shell\" )\
            end\
        end\
        return result\
    else\
        print(\"'\".._sCommand..\"' is not recognized as an internal or exteral command or operable program.\")\
        return false\
    end\
end\
\
local function tokenise( ... )\
    local sLine = table.concat( { ... }, \" \" )\
    local tWords = {}\
    local bQuoted = false\
    for match in string.gmatch( sLine .. \"\\\"\", \"(.-)\\\"\" ) do\
        if bQuoted then\
            table.insert( tWords, match )\
        else\
            for m in string.gmatch( match, \"[^ \\t]+\" ) do\
                table.insert( tWords, m )\
            end\
        end\
        bQuoted = not bQuoted\
    end\
    return tWords\
end\
\
-- Install shell API\
function shell.run( ... )\
    local tWords = tokenise( ... )\
    local sCommand = tWords[1]\
    if sCommand then\
        return run( sCommand, unpack( tWords, 2 ) )\
    end\
    return false\
end\
\
function shell.exit()\
    bExit = true\
end\
\
function shell.dir()\
    return sDir\
end\
\
function shell.setDir( _sDir )\
    sDir = _sDir\
end\
\
function shell.path()\
    return sPath\
end\
\
function shell.setPath( _sPath )\
    sPath = _sPath\
end\
\
function shell.resolve( _sPath )\
    local sStartChar = string.sub( _sPath, 1, 1 )\
    if sStartChar == \"/\" or sStartChar == \"\\\\\" then\
        return fs.combine( \"\", _sPath )\
    else\
        return fs.combine( sDir, _sPath )\
    end\
end\
\
function shell.resolveProgram( _sCommand )\
    -- Substitute aliases firsts\
    if tAliases[ _sCommand ] ~= nil then\
        _sCommand = tAliases[ _sCommand ]\
    end\
\
    -- If the path is a global path, use it directly\
    local sStartChar = string.sub( _sCommand, 1, 1 )\
    if sStartChar == \"/\" or sStartChar == \"\\\\\" then\
        local sPath = fs.combine( \"\", _sCommand )\
        if fs.exists( sPath ) and not fs.isDir( sPath ) then\
            return sPath\
        end\
        return nil\
    end\
    \
    -- Otherwise, look on the path variable\
    for sPath in string.gmatch(sPath, \"[^:]+\") do\
        sPath = fs.combine( shell.resolve( sPath ), _sCommand )\
        if fs.exists( sPath ) and not fs.isDir( sPath ) then\
            return sPath\
        end\
    end\
    \
    -- Not found\
    return nil\
end\
\
function shell.programs( _bIncludeHidden )\
    local tItems = {}\
    \
    -- Add programs from the path\
    for sPath in string.gmatch(sPath, \"[^:]+\") do\
        sPath = shell.resolve( sPath )\
        if fs.isDir( sPath ) then\
            local tList = fs.list( sPath )\
            for n,sFile in pairs( tList ) do\
                if not fs.isDir( fs.combine( sPath, sFile ) ) and\
                   (_bIncludeHidden or string.sub( sFile, 1, 1 ) ~= \".\") then\
                    tItems[ sFile ] = true\
                end\
            end\
        end\
    end \
\
    -- Sort and return\
    local tItemList = {}\
    for sItem, b in pairs( tItems ) do\
        table.insert( tItemList, sItem )\
    end\
    table.sort( tItemList )\
    return tItemList\
end\
\
function shell.getRunningProgram()\
    if #tProgramStack > 0 then\
        return tProgramStack[#tProgramStack]\
    end\
    return nil\
end\
\
function shell.setAlias( _sCommand, _sProgram )\
    tAliases[ _sCommand ] = _sProgram\
end\
\
function shell.clearAlias( _sCommand )\
    tAliases[ _sCommand ] = nil\
end\
\
function shell.aliases()\
    -- Add aliases\
    local tCopy = {}\
    for sAlias, sCommand in pairs( tAliases ) do\
        tCopy[sAlias] = sCommand\
    end\
    return tCopy\
end\
\
if multishell then\
    function shell.openTab( ... )\
        local tWords = tokenise( ... )\
        local sCommand = tWords[1]\
        if sCommand then\
            local sPath = shell.resolveProgram( sCommand )\
            if sPath == \"rom/programs/shell\" then\
                return multishell.launch( tEnv, sPath, unpack( tWords, 2 ) )\
            elseif sPath ~= nil then\
                return multishell.launch( tEnv, \"rom/programs/shell\", sPath, unpack( tWords, 2 ) )\
            else\
                print( \"No such program\" )\
            end\
        end\
    end\
\
    function shell.switchTab( nID )\
        multishell.setFocus( nID )\
    end\
end\
\
local tArgs = { ... }\
if #tArgs > 0 then\
    -- \"shell x y z\"\
    -- Run the program specified on the commandline\
    shell.run( ... )\
\
else\
    -- \"shell\"\
    -- Print the header\
    term.setBackgroundColor( bgColour )\
    term.setTextColour( promptColour )\
    print( os.version() )\
    print(\"Copyright (c) 2015 Puzzletime Corporation.\")\
    print(\"\")\
    term.setTextColour( textColour )\
\
    -- Run the startup program\
    if parentShell == nil then\
        shell.run( \"/WinCC/System/sysWoW/main\" )\
    end\
\
    -- Read commands and execute them\
    local tCommandHistory = {}\
    while not bExit do\
        term.redirect( parentTerm )\
        term.setBackgroundColor( bgColour )\
        term.setTextColour( promptColour )\
        write( shell.dir() .. \">\" )\
        term.setTextColour( textColour )\
\
        local sLine = read( nil, tCommandHistory )\
        table.insert( tCommandHistory, sLine )\
        shell.run( sLine )\
    print(\"\")\
    end\
end",
        rombios = "G_ENV = {}\
\
\
\
-- /* http://lua-users.org/wiki/SplitJoin */ --\
function string:split(sep)\
    local sep, fields = sep or \":\", {}\
    local pattern = string.format(\"([^%s]+)\", sep)\
    self:gsub(pattern, function(c) fields[#fields+1] = c end)\
    return fields\
end\
\
\
\
function os.run(env, file, args)\
    local fenv = {}\
    env = env or {}\
    for k, v in pairs(getfenv(1)) do\
        fenv[k] = v\
    end\
    for k, v in pairs(env) do\
        fenv[k] = v\
    end\
\
    local p = assert(loadfile(file))\
\
    setfenv(p, fenv)\
    G_ENV = fenv\
\
    args = args or {}\
    if type(args) ~= \"table\" then\
        args = {args}\
    end\
\
    local thread = coroutine.create(p)\
    local running = true\
\
    while running do\
        if coroutine.status(thread) ~= \"dead\" then\
            coroutine.resume(thread, unpack(args))\
            coroutine.yield()\
        else\
            running = false\
        end\
    end\
    --p(unpack(args))\
end\
\
\
local oldLoadAPI = os.loadAPI\
function os.loadAPI(fn)\
    code = loadfile(fn)\
    fn = string.split(fn, \"/\")\
    fn = fn[#fn]\
\
    local lib = {}\
    setmetatable(lib, { __index = getfenv() })\
    setfenv(code, lib)\
\
    result, err = pcall(code)\
    if not result then\
        error(err)\
    end\
\
    local final = {}\
    for k, v in pairs(lib) do\
        final[k] = v\
    end\
\
    if G_ENV[fn] == nil then\
        G_ENV[fn] = final\
    end\
\
    return final\
end\
\
\
sleep = function(t)\
    --print(\"sleeping \" .. tostring(t))\
    os.sleep(t)\
end\
\
\
term.native = function()\
    return term\
end\
\
\
_EMULATED = true\
\
\
window = os.loadAPI(\"rom/apis/window\")\
textutils = os.loadAPI(\"rom/apis/textutils\")\
colors = os.loadAPI(\"rom/apis/colors\")\
colours = os.loadAPI(\"rom/apis/colours\")\
\
os.run(nil, \"/WinCC/System/sysWoW/shell\")",
        main = "\
-- Setup paths\
local sPath = \".:/rom/programs\"\
if term.isColor() then\
    sPath = sPath..\":/rom/programs/advanced\"\
end\
if turtle then\
    sPath = sPath..\":/rom/programs/turtle\"\
else\
    sPath = sPath..\":/rom/programs/rednet:/rom/programs/fun\"\
    if term.isColor() then\
        sPath = sPath..\":/rom/programs/fun/advanced\"\
    end\
end\
if pocket then\
    sPath = sPath..\":/rom/programs/pocket\"\
end\
if http then\
    sPath = sPath..\":/rom/programs/http\"\
end\
shell.setPath( sPath )\
help.setPath( \"/rom/help\" )\
\
-- Setup aliases\
shell.setAlias( \"ls\", \"/WinCC/System/sysWoW/list\" )\
shell.setAlias( \"dir\", \"/WinCC/System/sysWoW/list\" )\
shell.setAlias( \"cp\", \"copy\" )\
shell.setAlias( \"mv\", \"move\" )\
shell.setAlias( \"rm\", \"delete\" )\
shell.setAlias( \"clr\", \"clear\" )\
shell.setAlias( \"rs\", \"redstone\" )\
shell.setAlias( \"sh\", \"shell\" )\
if term.isColor() then\
    shell.setAlias( \"background\", \"bg\" )\
    shell.setAlias( \"foreground\", \"fg\" )\
end\
\
-- Run autorun files\
if fs.exists( \"/rom/autorun\" ) and fs.isDir( \"/rom/autorun\" ) then\
    local tFiles = fs.list( \"/rom/autorun\" )\
    table.sort( tFiles )\
    for n, sFile in ipairs( tFiles ) do\
        if string.sub( sFile, 1, 1 ) ~= \".\" then\
            local sPath = \"/rom/autorun/\"..sFile\
            if not fs.isDir( sPath ) then\
                shell.run( sPath )\
            end\
        end\
    end\
end\
\
-- Run the user created startup, either from disk drives or the root\
local sUserStartup = shell.resolveProgram( \"/startup\" )\
for n,sName in pairs( peripheral.getNames() ) do\
    if disk.isPresent( sName ) and disk.hasData( sName ) then\
        local sDiskStartup = shell.resolveProgram( \"/\" .. disk.getMountPath( sName ) .. \"/startup\" )\
        if sDiskStartup then\
            sUserStartup = sDiskStartup\
            break\
        end\
    end\
end\
if sUserStartup then\
    shell.run( sUserStartup )\
end",
        list = "\
local tArgs = { ... }\
\
-- Get all the files in the directory\
local sDir = shell.dir()\
if tArgs[1] ~= nil then\
    sDir = shell.resolve( tArgs[1] )\
end\
\
-- Sort into dirs/files, and calculate column count\
local tAll = fs.list( sDir )\
local tFiles = {}\
local tDirs = {}\
\
for n, sItem in pairs( tAll ) do\
    if string.sub( sItem, 1, 1 ) ~= \".\" then\
        local sPath = fs.combine( sDir, sItem )\
        if fs.isDir( sPath ) then\
            table.insert( tDirs, sItem )\
        else\
            table.insert( tFiles, sItem )\
        end\
    end\
end\
table.sort( tDirs )\
table.sort( tFiles )\
\
if term.isColour() then\
    textutils.pagedTabulate( colors.lightGray, tDirs, colors.lightGray, tFiles )\
else\
    textutils.pagedTabulate( tDirs, tFiles )\
end",
      },
      FadeUI = {
        [ "1" ] = "\
\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000\
  00000000000000000000000000000000000000000000000",
        [ "3" ] = "000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000\
000000000000000000000000000000000000000000000000000",
        [ "2" ] = "\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000\
 0000000000000000000000000000000000000000000000000",
      },
      Drivers = {
        iniFiles = "\
function split(pString, pPattern)\
   local Table = {}  -- NOTE: use {n = 0} in Lua-5.0\
   local fpat = \"(.-)\" .. pPattern\
   local last_end = 1\
   local s, e, cap = pString:find(fpat, 1)\
   while s do\
      if s ~= 1 or cap ~= \"\" then\
        table.insert(Table,cap)\
      end\
      last_end = e+1\
      s, e, cap = pString:find(fpat, last_end)\
   end\
   if last_end <= #pString then\
      cap = pString:sub(last_end)\
      table.insert(Table, cap)\
   end\
   return Table\
end\
\
function string.starts(String,Start)\
   return string.sub(String,1,string.len(Start))==Start\
end\
\
function string.ends(String,End)\
   return End=='' or string.sub(String,-string.len(End))==End\
end\
\
\
\
\
\
\
function read(fileName)\
    local result = {}\
\
    if string.starts(fileName, \"home:/\") then\
        fileName = string.gsub(fileName, \"home:/\", \"\", 1)\
    end\
\
    if fs.exists(fileName) then\
        local file = fs.open(fileName, \"r\")\
        local data = file.readAll()\
        file.close()\
\
        data = string.gsub(data, \"\\r\", \"\")\
        local lines = split(data, \"\\n\")\
        local cat = \"*\"\
\
        for i, v in ipairs(lines) do\
            if (string.len(v) > 0) and (not string.starts(v, \";\")) then\
                if string.starts(v, \"[\") and string.ends(v, \"]\") then\
                    local catName = string.gsub(v, \"%[\", \"\")\
                    catName = string.gsub(catName, \"%]\", \"\")\
                    cat = catName\
                else\
                    if string.find(v, \"=\") then\
                        local values = split(v, \"=\")\
\
                        if string.ends(values[1], \" \") then\
                            repeat\
                                values[1] = string.sub(values[1], 1, string.len(values[1]) - 1)\
                            until not (string.ends(values[1], \" \"))\
                        end\
\
                        if string.starts(values[2], \" \") then\
                            repeat\
                                values[2] = string.sub(values[2], 2, string.len(values[2]))\
                            until not (string.starts(values[2], \" \"))\
                        end\
\
                        if result[cat] == nil then result[cat] = {} end\
                        if result[cat][values[1]] == nil then result[cat][values[1]] = {} end\
                        result[cat][values[1]] = values[2]\
                    end\
                end\
            end\
        end\
\
        return result\
    end\
end\
\
\
function write(fileName, iniData)\
    local data = \"\"\
\
    for k, v in pairs(iniData) do\
        data = data .. \"[\" .. k .. \"]\\r\\n\"\
\
        for k2, v2 in pairs(v) do\
            data = data .. k2 .. \" = \" .. v2 .. \"\\r\\n\"\
        end\
    end\
\
    local file = fs.open(fileName, \"w\")\
    file.write(data)\
    file.close()\
end",
        widgets = {
          listBox = "\
function Create(_parent, name)\
    local listBox = panel.Create(_parent, name)\
\
    listBox.selected = {\
        bgcolor = colors.lightBlue,\
        forecolor = colors.white,\
    }\
\
    listBox.bgcolor = colors.white\
    listBox.forecolor = colors.black\
    listBox.columns = 1\
    listBox.columnWidth = {}\
\
    listBox.list = {}\
    listBox.selectedList = {}\
    listBox.showScroll = true\
    listBox.offset = 0\
    listBox.index = 1\
    listBox.widgets.scrollBar = scrollBar.Create(listBox, \"scrollBar\")\
\
    listBox.widgets.scrollBar.min = 0\
    listBox.widgets.scrollBar.max = 50\
    listBox.widgets.scrollBar.value = 0\
    listBox.widgets.scrollBar.step = 1\
\
    listBox.widgets.scrollBar.onChange = function(sender)\
        sender.parent.offset = sender.value\
    end\
\
\
    listBox.reposition = function(self, height, width)\
        self.height = height\
        self.width = width\
\
        self.widgets.scrollBar.left = width - 1\
        self.widgets.scrollBar.height = height\
    end\
\
\
    listBox.onBeforeRefresh = function(self)\
        self:reposition(self.height, self.width)\
\
        local scrollBar = self.widgets.scrollBar\
        self.widgets = { scrollBar = scrollBar }\
\
        --[[for k, v in pairs(self.widgets) do\
            if string.find(k, \"item_\") then\
                self.widgets[k] = nil\
            end\
        end]]\
\
        for i, v in ipairs(self.list) do\
            if self.columns == 1 then\
                local lbl = label.Create(self, \"item_\" .. tostring(i))\
                lbl.left = 1\
                lbl.top = i - self.offset\
                lbl.width = self.width - 2\
                lbl.bgcolor = self.bgcolor\
                lbl.forecolor = self.forecolor\
                lbl.caption = v\
                lbl.tag = i\
\
                lbl.onClick = function(sender)\
                    self.index = sender.tag\
                    sender.bgcolor = self.selected.bgcolor\
                    sender.forecolor = self.selected.forecolor\
                end\
\
                if i == self.index then\
                    lbl.bgcolor = self.selected.bgcolor\
                    lbl.forecolor = self.selected.forecolor\
                end\
            else\
                local left = 1\
\
                for column = 1, self.columns do\
                    left = left + (self.columnWidth[column - 1] or 0)\
\
                    local lbl = label.Create(self, \"item_\" .. tostring(i) .. \"_c_\" .. tostring(column))\
                    lbl.left = left\
                    lbl.top = i - self.offset\
\
                    if column == self.columns then\
                        lbl.width = self.width - 1 - left\
                    else\
                        lbl.width = self.columnWidth[column]\
                    end\
\
                    lbl.bgcolor = self.bgcolor\
                    lbl.forecolor = self.forecolor\
                    lbl.caption = v[column]\
                    lbl.tag = i\
\
                    lbl.onClick = function(sender)\
                        self.index = sender.tag\
\
                        for c = 1, sender.parent.columns do\
                            sender.parent.widgets[\"item_\" .. tostring(i) .. \"_c_\" .. tostring(c)].bgcolor = self.selected.bgcolor\
                            sender.parent.widgets[\"item_\" .. tostring(i) .. \"_c_\" .. tostring(c)].forecolor = self.selected.forecolor\
                        end\
                    end\
\
                    if i == self.index then\
                        lbl.bgcolor = self.selected.bgcolor\
                        lbl.forecolor = self.selected.forecolor\
                    end\
                end\
            end\
        end\
    end\
\
\
    listBox.getMax = function(self)\
        return #self.list - self.height\
    end\
\
\
    listBox.onRefresh = function(self)\
        self.widgets.scrollBar.max = self:getMax()\
        if self.widgets.scrollBar.max < 0 then self.widgets.scrollBar.max = 0 end\
    end\
\
\
    listBox.clear = function(self)\
        self.list = {}\
        --self.index = 1\
    end\
\
\
    listBox.add = function(self, item)\
        table.insert(self.list, item)\
    end\
\
\
    return listBox\
end",
          panel = "\
\
function Create(_parent, name)\
    local panel = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 16,\
        width = 24,\
        bgcolor = colors.white,\
        focused = false,\
        visible = true,\
        align = \"left\",\
        style = \"none\",\
        canvas = nil,\
        widgets = {},\
        focusedWidget = nil,\
        lastZOrder = 0,\
\
\
\
        refresh = function(self)\
            local canvas = self.parent:getCanvas()\
            local x = self.left\
            local y = self.top\
            local str = self.caption\
\
            if self.parent.style ~= \"none\" then\
                y = y + 1\
            end\
\
            self.canvas = user.CreateCanvas(self.width, self.height)\
            self.canvas:fillrect(1, 1, self.width, self.height, self.bgcolor)\
\
            if self.onBeforeRefresh ~= nil then\
                self:onBeforeRefresh()\
            end\
\
\
            for k, v in pairs(self.widgets) do\
                if self.focusedWidget == v then\
                    v.focused = true\
                else\
                    v.focused = false\
\
                    if v.onRefresh ~= nil then\
                        v:onRefresh()\
                    end\
\
                    if v.visible == true then\
                        v:refresh()\
                    end\
                end\
            end\
\
            --if self.parent.focusedWidget == self then\
                if self.focusedWidget ~= nil then\
                    if self.focusedWidget.onRefresh ~= nil then\
                        self.focusedWidget:onRefresh()\
                    end\
\
                    self.focusedWidget:refresh()\
                end\
            --end\
\
            if self.onRefresh ~= nil then\
                self:onRefresh()\
            end\
\
\
            canvas:draw(self.left, self.top, self.canvas)\
            canvas:setCursorPos(self.canvas.cursorPos.x + self.left, self.canvas.cursorPos.y + self.top)\
            canvas.cursorBlink = self.canvas.cursorBlink\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            self.focusedWidget = nil\
            x = x - self.left + 0\
            y = y - self.top -- 1\
\
            for name, widget in pairs(self.widgets) do\
                if (x >= widget.left) and (x < widget.left + widget.width) and \
                   (y >= widget.top) and (y < widget.top + widget.height) then\
                    self.focusedWidget = widget\
\
\
                    if widget.onMouseClick ~= nil then\
                        widget:onMouseClick(button, --[[x + self.left, y + self.top]]x + widget.left, y + widget.top)\
                    end\
\
                    if widget.mouseClick ~= nil then\
                        widget:mouseClick(button, --[[x + self.left, y + self.top]]x + widget.left, y + widget.top)\
                    end\
\
\
\
                    if button == 1 then\
                        if widget.onClick ~= nil then\
                            widget:onClick()\
                        end\
                    else\
                        if widget.onPopup ~= nil then\
                            widget:onPopup()\
                        end\
                    end\
                end\
            end\
        end,\
\
\
        keyPress = function(self, key, char)\
            if self.focusedWidget ~= nil then\
                if self.focusedWidget.keyPress ~= nil then\
                    self.focusedWidget:keyPress(key, char)\
                end\
            end\
        end,\
\
\
        getCanvas = function(self)\
            return self.canvas\
        end,\
    }\
\
    _parent.widgets[name] = panel\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    panel.zOrder = _parent.lastZOrder\
    return panel\
end",
          paintBox = "\
\
function Create(_parent, name)\
    local paintBox = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        pheight = 0,\
        pwidth = 0,\
        height = 16,\
        width = 24,\
        bgcolor = colors.white,\
        focused = false,\
        visible = true,\
        canvas = nil,\
        widgets = {},\
        brush = {\
            bgcolor = colors.black,\
            forecolor = colors.white,\
            char = \" \",\
        },\
\
\
        refresh = function(self)\
            if self.canvas == nil then\
                self.canvas = user.CreateCanvas(self.width - 1, self.height)\
                self.canvas:fillrect(1, 1, self.width - 1, self.height, self.bgcolor)\
                self.parent:getCanvas():draw(self.left, self.top, self.canvas)\
            else\
                if (self.pheight ~= self.height) or (self.pwidth ~= self.width) then\
                    local canvas = self.canvas\
                    self.canvas = user.CreateCanvas(self.width - 1, self.height)\
                    self.canvas:fillrect(1, 1, self.width - 1, self.height, self.bgcolor)\
                    self.canvas:draw(0, 0 --[[1]], canvas)\
                    self.canvas.effect = canvas.effect\
                end\
\
                self.parent:getCanvas():draw(self.left, self.top, self.canvas)\
            end\
\
            self.pheight = self.height\
            self.pwidth = self.width\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            --if self.onMouseClick ~= nil then self:onMouseClick(button, x - self.left, y - self.top) end\
        end\
    }\
\
    _parent.widgets[name] = paintBox\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    paintBox.zOrder = _parent.lastZOrder\
    return paintBox\
end",
          menuBar = "\
function Create(_parent, name)\
    local menuBar = panel.Create(_parent, name)\
    menuBar.items = {}\
\
\
    menuBar.oldRefresh = menuBar.refresh\
    menuBar.alignTop = false\
\
    menuBar.refresh = function(self)\
        self.width = self.parent:getCanvas().size.x\
        self.height = 1\
        \
        if self.apignTop then\
            self.top = 1\
        end\
        \
        self.left = 0\
        self.bgcolor = colors.lightBlue\
\
        self.widgets = {}\
        local totalWidth = 1\
\
\
        for i, v in ipairs(self.items) do\
            local width = string.len(v.name) + 2\
            local item = label.Create(self, \"label_\" .. tostring(i))\
            item.parent = self\
\
            item.bgcolor = colors.lightBlue\
            item.forecolor = colors.blue\
            item.forecolor2 = colors.blue\
            item.width = width\
            item.left = totalWidth\
            item.caption = v.name\
\
            --item.onClick = function(sender)\
            --  local a = menuBar.os.popupMenu(sender.menu, sender.left, sender.top + 1)\
            --end\
            item.onClick = v.onClick\
\
            totalWidth = totalWidth + width\
        end\
\
        self:oldRefresh()\
    end\
\
\
    _parent.widgets[name] = menuBar\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    menuBar.zOrder = _parent.lastZOrder\
    return menuBar\
end\
\
\
function CreateItem(_name, _onClick)\
    local item = {\
        name = _name,\
        onClick = _onClick,\
    }\
\
    return item\
end",
          glSurface = "function Create(_parent, name)\
    local glSurface = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 16,\
        width = 24,\
        focused = false,\
        visible = true,\
        glRender = nil,\
        --glRender = function(self, gl)\
\
\
        refresh = function(self)\
            local canvas = self.parent:getCanvas()\
            canvas:fillrect(self.left, self.top, self.width, self.height, 0)\
\
            if self.glRender ~= nil then\
                --[[gl = {\
                    write = function(str)\
                        for i = 1, string.len(str) do\
                            local x, y = term.getCursorPos()\
                            if x + self.left + 1 < self.left + \
                        end\
                }]]\
                gl = {\
                    write = term.write,\
                    clear = term.clear,\
                    clearLine = term.clearLine,\
\
                    getCursorPos = function()\
                        local x, y = term.getCursorPos()\
                        return x - self.left, y - self.top\
                    end,\
\
                    setCursorPos = function(x, y)\
                        term.setCursorPos(x + self.left, y + self.top)\
                    end,\
\
                    setCursorBlink = function(bool)\
                    end,\
\
                    isColor = term.isColor,\
\
                    getSize = function()\
                        return self.width, self.height\
                    end,\
\
                    scroll = term.scroll,\
\
                    redirect = function(target)\
                    end,\
\
                    setTextColor = term.setTextColor,\
                    setBackgroundColor = term.setBackgroundColor,\
                }\
\
                self:glRender(gl)\
            end\
        end,\
    }\
\
\
    _parent.widgets[name] = glSurface\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    glSurface.zOrder = _parent.lastZOrder\
    return glSurface\
end",
          checkbox = "\
\
function Create(_parent, name)\
    local checkbox = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 1,\
        width = 10,\
        bgcolor = colors.lightGray,\
        forecolor = colors.black,\
        caption = name,\
        focused = false,\
        visible = true,\
        checked = false,\
        grayed = false,\
\
\
        refresh = function(self)\
            local canvas = self.parent:getCanvas()\
            local x = self.left + 2\
            local y = self.top\
            local str = self.caption\
\
            if self.parent.style ~= \"none\" then\
                y = y + 1\
            end\
\
            canvas:fillrect(self.left, y, self.width - 1, self.height - 1, self.bgcolor)\
            \
            if string.len(str) > self.width then\
                str = string.sub(str, 1, self.width - 2) .. \"..\"\
            end\
\
            canvas:setCursorPos(x, y)\
            canvas.bgcolor = self.bgcolor\
            canvas.forecolor = self.forecolor\
            canvas:write(str)\
\
            canvas:setCursorPos(x - 3, y)\
            canvas:write(\" \")\
\
\
            if self.grayed then\
                canvas.bgcolor = colors.gray\
            else\
                canvas.bgcolor = colors.white\
            end\
\
            if self.checked then\
                canvas.forecolor = colors.blue\
                canvas:write(\"V\")\
            else\
                canvas:write(\" \")\
            end\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            if not self.grayed then\
                self.checked = not self.checked\
                if self.onChange ~= nil then\
                    self:onChange()\
                end\
                self:refresh()\
            end\
        end,\
    }\
\
    _parent.widgets[name] = checkbox\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    checkbox.zOrder = _parent.lastZOrder\
    return checkbox\
end",
          button = "\
\
function Create(_parent, name)\
    local button = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 1,\
        width = 10,\
        caption = name,\
        focused = false,\
        visible = true,\
        bgcolor = colors.gray,\
        forecolor = colors.white,\
        forecolor2 = colors.lightBlue,\
        align = \"center\",\
\
\
        refresh = function(self)\
            local canvas = self.parent:getCanvas()\
            local x = self.left\
            local y = self.top\
            local textY = 0\
            local str = string.sub(self.caption, 2, string.len(self.caption))\
            local first = string.sub(self.caption, 1, 1)\
\
            if self.parent.style ~= \"none\" then\
                y = y + 1\
            end\
\
            textY = y + math.floor(self.height / 2)\
\
            canvas:fillrect(self.left, y, self.width - 1, self.height - 1, self.bgcolor)\
            \
\
            if string.len(str) + 2 > self.width then\
                str = string.sub(str, 1, self.width - 3) .. \"..\"\
            end\
\
\
\
            x = self.left + math.floor(self.width / 2) - math.ceil((string.len(str) +1) / 2)\
            --x = self.left + math.floor(self.width / 2) - math.floor(string.len(str) / 2)\
\
\
            --x = self.left\
\
            --if string.len(str) > self.width then\
            --  str = string.sub(str, 1, self.width - 2) .. \"..\"\
            --end\
\
            --[[if self.align == \"right\" then\
                x = self.left + self.width - string.len(str) + 1\
            end\
\
            if self.align == \"center\" then\
                x = self.left + math.floor(self.width / 2) - math.floor((string.len(str) + 1) / 2)\
            end]]\
\
\
\
            if string.len(str) > self.width then str = string.sub(str, 0, self.width - 1) end\
            if x < self.left then x = self.left end\
\
            canvas:setCursorPos(x, textY)\
            canvas.bgcolor = self.bgcolor\
            canvas.forecolor = self.forecolor2\
            canvas:write(first)\
            canvas.forecolor = self.forecolor\
            canvas:write(str)\
        end\
    }\
\
    _parent.widgets[name] = button\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    button.zOrder = _parent.lastZOrder\
    return button\
end",
          edit = "\
\
function Create(_parent, name)\
    local edit = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 1,\
        width = 10,\
        bgcolor = colors.white,\
        forecolor = colors.black,\
        text = name,\
        focused = false,\
        visible = true,\
        align = \"left\",\
        cursor = 0,\
\
\
        refresh = function(self)\
            local canvas = self.parent:getCanvas()\
            local x = self.left\
            local y = self.top\
            local str = self.text\
            local inputText = \"\"\
\
            if self.parent.style ~= \"none\" then\
                y = y + 1\
            end\
\
            canvas:fillrect(self.left, y, self.width - 1, self.height - 1, self.bgcolor)\
            \
            if string.len(str) > self.width - 1 then\
                str = string.sub(str, 1, self.width - 4) .. \"..\"\
            end\
\
            if self.align == \"right\" then\
                x = self.left + self.width - string.len(str)\
            end\
\
            if self.align == \"center\" then\
                x = self.left + math.floor(self.width / 2) - math.floor(string.len(str) / 2)\
            end\
\
            if self.focused == false then\
                canvas:setCursorPos(x, y)\
                canvas.bgcolor = self.bgcolor\
                canvas.forecolor = colors.lightGray\
                canvas:write(\"> \")\
                canvas.forecolor = self.forecolor\
                canvas:write(str)\
                canvas.cursorBlink = false\
\
                if self.parent.parent.os ~= nil then\
                    self.parent.parent.os.hideCaret()\
                end\
            else\
                canvas.bgcolor = self.bgcolor\
                canvas.forecolor = self.forecolor\
                canvas:setCursorPos(self.left, y)\
                canvas.cursorBlink = true\
\
                if string.len(self.text) > self.width - 2 then\
                    inputText = string.sub(self.text, string.len(self.text) - self.width + 2, string.len(self.text))\
                else\
                    inputText = self.text\
                end\
\
                canvas:write(inputText)\
\
                if self.parent.parent.os ~= nil then\
                    self.parent.parent.os.showCaret()\
                    self.parent.parent.os.setCaretPos(canvas.cursorPos.x + self.parent.left, canvas.cursorPos.y + self.parent.top)\
                    self.parent.parent.os.setCaretColor(self.forecolor)\
                end\
            end\
        end,\
\
\
        --mouseClick = function(self, button, x, y)\
\
        --end,\
\
\
        keyPress = function(self, key, char)\
            if key == 14 then\
                if string.len(self.text) > 0 then\
                    self.text = string.sub(self.text, 1, string.len(self.text) - 1)\
                end\
            else\
                self.text = self.text .. char\
            end\
        end,\
    }\
\
    _parent.widgets[name] = edit\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    edit.zOrder = _parent.lastZOrder\
    return edit\
end",
          label = "\
\
function Create(_parent, name)\
    local label = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 1,\
        width = 10,\
        bgcolor = colors.lightGray,\
        forecolor = colors.black,\
        caption = name,\
        focused = false,\
        visible = true,\
        align = \"left\",\
\
\
        refresh = function(self)\
            local canvas = self.parent:getCanvas()\
            local x = self.left\
            local y = self.top\
            local str = self.caption\
\
            if self.parent.style ~= \"none\" then\
                y = y + 1\
            end\
\
            canvas:fillrect(self.left, y, self.width - 1, self.height - 1, self.bgcolor)\
            \
            if string.len(str) > self.width then\
                str = string.sub(str, 1, self.width - 2) .. \"..\"\
            end\
\
            if self.align == \"right\" then\
                x = self.left + self.width - string.len(str)\
            end\
\
            if self.align == \"center\" then\
                x = self.left + math.floor(self.width / 2) - math.floor(string.len(str) / 2)\
            end\
\
            canvas:setCursorPos(x, y)\
            canvas.bgcolor = self.bgcolor\
            canvas.forecolor = self.forecolor\
            canvas:write(str)\
        end\
    }\
\
    _parent.widgets[name] = label\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    label.zOrder = _parent.lastZOrder\
    return label\
end",
          textArea = "local MAXLENGTH = 255\
\
\
\
function TextToAreaData(text)\
    text = string.gsub(text, \"\\r\", \"\")\
    local areaData = {}\
    local lines = user.split(text, \"\\n\")\
\
    for i, v in ipairs(lines) do\
        local str = v\
\
        if string.len(str) > MAXLENGTH then\
            str = string.sub(str, 1, MAXLENGTH)\
        elseif string.len(str) < MAXLENGTH then\
            str = str .. \"\\r\" .. string.rep(\" \", MAXLENGTH - string.len(str) - 1)\
        end\
\
        areaData[i] = str\
    end\
\
    if #areaData == 0 then\
        areaData = { \"\\0\\r\" .. string.rep(\" \", MAXLENGTH - 2) }\
    end\
\
    return areaData\
end\
\
\
\
function AreaDataToText(areaData)\
    local text = \"\"\
\
    for i, v in ipairs(areaData) do\
        local index = string.find(v, \"\\r\")\
        local str = v\
\
        if index ~= nil then\
            str = string.sub(v, 1, index - 1)\
        end\
\
        text = text .. str .. \"\\n\"\
    end\
\
    return text\
end\
\
\
function PaintAreaData(canvas, areaData, scrollX, scrollY)\
    for i, v in ipairs(areaData) do\
        if (i - scrollY > 0) and (i <= scrollY + canvas.size.y) then\
            local str = string.sub(v, scrollX, canvas.size.x)\
            canvas:setCursorPos(1, i - scrollY)\
            canvas:write(str)\
        end\
    end\
\
    return canvas\
end\
\
\
function AreaLineLen(line)\
    return string.find(line, \"\\r\") or 0\
end\
\
\
\
function CreateEffect_HideSystemSymbols(parent)\
    local effect = {\
        parent = parent,\
        selectedText = \"\",\
        syntaxHighlighter = nil,\
\
\
        getSelectedText = function(self)\
            return string.gsub(string.gsub(self.selectedText, \"\\0\", \"\"), \"\\r\", \"\\n\")\
        end,\
\
\
        isSelected = function(self, x, y)\
            if (y + self.parent.scroll.top <= #(self.parent.areaData)) and (y + self.parent.scroll.top >= 1) and\
                (x + self.parent.scroll.left - 1 < AreaLineLen(self.parent.areaData[y + self.parent.scroll.top])) then\
                if self.parent.selection.endpos.y == self.parent.selection.startpos.y then\
                    if (y == self.parent.selection.startpos.y) and (x > self.parent.selection.startpos.x) and (x < self.parent.selection.endpos.x) then\
                        return true\
                    end\
                else\
                    if (y >= self.parent.selection.startpos.y) and (y <= self.parent.selection.endpos.y) then\
                        if ((x > self.parent.selection.startpos.x) and (y == self.parent.selection.startpos.y)) or\
                            ((x < self.parent.selection.endpos.x) and (y == self.parent.selection.endpos.y)) or\
                            ((y > self.parent.selection.startpos.y) and (y < self.parent.selection.endpos.y)) then\
                            return true\
                        end\
                    end\
                end\
            end\
\
            return false\
        end,\
\
\
\
        getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
            if self:isSelected(x, y) then\
                return parent.selection.style.bgcolor\
            else\
                if self.syntaxHighlighter ~= nil then\
                    return self.syntaxHighlighter:getbgcolor(x, y, bgcolor, forecolor, char)\
                else\
                    return bgcolor\
                end\
            end\
        end,\
\
        getforecolor = function(self, x, y, bgcolor, forecolor, char)\
            if self:isSelected(x, y) then\
                return parent.selection.style.forecolor\
            else\
                if self.syntaxHighlighter ~= nil then\
                    return self.syntaxHighlighter:getforecolor(x, y, bgcolor, forecolor, char)\
                else\
                    return forecolor\
                end\
            end\
        end,\
\
        getchar = function(self, x, y, bgcolor, forecolor, char)\
            if self:isSelected(x, y) then\
                self.selectedText = self.selectedText .. char\
            end\
\
            if char == \"\\0\" then\
                return \" \"\
            elseif char == \"\\r\" then\
                return \" \" --^\
            else\
                if self.syntaxHighlighter ~= nil then\
                    return self.syntaxHighlighter:getchar(x, y, bgcolor, forecolor, char)\
                else\
                    return char\
                end\
            end\
        end,\
    }\
\
    return effect\
end\
\
\
\
\
function Create(_parent, name, widgets)\
    local textArea = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 16,\
        width = 24,\
        bgcolor = colors.white,\
        forecolor = colors.black,\
        focused = false,\
        visible = true,\
        canvas = nil,\
        text = \"\", lastText = \"\",\
        tab = 0,\
        editable = true,\
        --scrollBars = \"both\",  --\"horisontal\", \"vertical\", \"both\"\
        scroll = { left = 1, top = 0},\
        buffer = nil,\
        widgets = { },\
        widgetsLib = widgets,\
        focusedWidget = nil,\
        lastZOrder = 0,\
        cursorPos = { x = 0, y = 1, text = 1},\
        --textBuffer = { { {  } } }.\
        linesLength = nil,\
        areaData = {},\
        syntaxHighlighter = nil,\
\
\
        selection = {\
            startpos = { x = 1, y = 1 },\
            endpos = { x = 1, y = 1 },\
\
            style = {\
                bgcolor = colors.blue,\
                forecolor = colors.white,\
            },\
        },\
\
\
\
        getText = function(self)\
            return string.gsub(self.text, \"\\0\", \"\")\
        end,\
\
\
        setText = function(self, text)\
            text = string.gsub(text, \"\\n\", \"\\0\\n\")\
            self.text = text or \"\"\
            self.buffer = nil\
        end,\
\
\
        getSelectedText = function(self)\
            if self.buffer ~= nil then\
                return self.buffer.effect:getSelectedText()\
            else\
                return \"\"\
            end\
        end,\
\
\
\
        refresh = function(self, refreshSyntax)\
            self.canvas = user.CreateCanvas(self.width, self.height)\
            self.canvas:fillrect(1, 1, self.width, self.height, self.bgcolor)\
            if self.scroll.left < 2 then self.scroll.left = 1 end\
\
\
\
            if self.widgets.verticalBar == nil then\
                self.widgets.verticalBar = scrollBar.Create(self, \"verticalBar\")\
                self.widgets.verticalBar.step = 1\
\
                self.widgets.verticalBar.onChange = function(sender)\
                    self.scroll.top = self.widgets.verticalBar.value\
                    self.buffer = nil\
                end\
            end\
\
            self.widgets.verticalBar.left = self.width\
            self.widgets.verticalBar.top = 0\
            self.widgets.verticalBar.height = self.height - 1\
\
\
\
            if self.widgets.horisontalBar == nil then\
                self.widgets.horisontalBar = scrollBar.Create(self, \"horisontalBar\")\
                self.widgets.horisontalBar.step = 1\
                self.widgets.horisontalBar.min = 1\
                self.widgets.horisontalBar.value = 2\
                self.widgets.horisontalBar.vertical = false\
\
                self.widgets.horisontalBar.onChange = function(sender)\
                    self.scroll.left = self.widgets.horisontalBar.value\
                    if self.scroll.left < 2 then self.scroll.left = 1 end\
                    self.buffer = nil\
                end\
            end\
\
            self.widgets.horisontalBar.left = 1\
            self.widgets.horisontalBar.top = self.height - 1\
            self.widgets.horisontalBar.height = 1\
            self.widgets.horisontalBar.width = self.width - 1\
\
\
            if refreshSyntax then self.buffer = nil end\
\
            if self.buffer == nil then\
                self.buffer = user.CreateCanvas(--[[self.width - 1]]256, self.height - 1)\
                self.buffer.bgcolor = self.bgcolor\
                self.buffer.forecolor = self.forecolor\
                self.buffer.autoScroll = true\
                self.buffer.effect = CreateEffect_HideSystemSymbols(self)\
                self.buffer.effect.syntaxHighlighter = self.syntaxHighlighter\
                self.buffer:clear()\
\
                self.areaData = TextToAreaData(self.text)\
\
                if self.syntaxHighlighter then\
                    self.syntaxHighlighter:setScrolling(self.scroll)\
                    if refreshSyntax then self.syntaxHighlighter:parseAreaData(self.areaData, self.forecolor, self.buffer.size.x, self.buffer.size.y) end\
                end\
\
                self.buffer = PaintAreaData(self.buffer, self.areaData, self.scroll.left, self.scroll.top)\
\
\
                self.widgets.horisontalBar.max = 255\
                self.widgets.verticalBar.max = #(self.areaData) - self.height + 1\
                if self.widgets.verticalBar.max < 0 then self.widgets.verticalBar.max = 0 end\
            end\
\
            self.canvas:draw(0, 0, self.buffer)\
\
\
            self.widgets.verticalBar:refresh()\
            self.widgets.horisontalBar:refresh()\
            self.parent:getCanvas():draw(self.left - 1, self.top, self.canvas)\
            self.parent:getCanvas():setCursorPos(self.left + self.width - 1, self.top + self.height)\
            self.parent:getCanvas().bgcolor = self.parent.bgcolor\
            self.parent:getCanvas():write(\" \")\
\
            self.parent.parent.os.setCaretPos(self.left + self.cursorPos.x - self.scroll.left + 1, self.top + self.cursorPos.y - self.scroll.top)\
            self.parent.parent.os.setCaretColor(self.forecolor)\
\
\
            if (self.cursorPos.x - self.scroll.left + 1 >= 0) and (self.cursorPos.y - self.scroll.top > 0) and\
                (self.cursorPos.x - self.scroll.left + 1 < self.width - 1) and (self.cursorPos.y - self.scroll.top < self.height)\
                and (self.focused) then\
                self.parent.parent.os.showCaret()\
            else\
                self.parent.parent.os.hideCaret()\
            end\
        end,\
\
\
\
        getCanvas = function(self)\
            return self.canvas\
        end,\
\
\
        mouseDrag = function(self, button, x, y)\
            x = x - self.left + 1\
            y = y - self.top\
\
            self.selection.endpos = {x = x, y = y}\
            if self.canvas.buffer ~= nil then self.canvas.buffer.effect.selectedText = \"\" end\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            x = x - self.left\
            y = y - self.top\
\
\
            if button == 2 then\
                local menu = self.widgetsLib.PopupMenu.Create()\
                menu.bgcolor = colors.lightGray\
                menu.tag = self\
\
                table.insert(menu.items, self.widgetsLib.PopupMenu.CreateItem(\"Copy\", \
                    function(sender)\
                        menu.tag.parent.parent.os.copyToClipboard(menu.tag:getSelectedText(), \"TEXT\")\
                end))\
\
                table.insert(menu.items, self.widgetsLib.PopupMenu.CreateItem(\"Paste\", \
                    function(sender)\
                        local text = menu.tag.parent.parent.os.pasteFromClipboard(\"TEXT\")\
\
                        if text ~= nil then\
                            local self = sender.tag\
\
                            if self.cursorPos.x > AreaLineLen(self.areaData[self.cursorPos.y]) then self.cursorPos.x = AreaLineLen(self.areaData[self.cursorPos.y]) - 1 end\
                            local pre = string.sub(self.areaData[self.cursorPos.y], 1, self.cursorPos.x)\
                            local post = string.sub(self.areaData[self.cursorPos.y], self.cursorPos.x + 1, string.len(self.areaData[self.cursorPos.y]) - string.len(pre))\
\
                            self.areaData[self.cursorPos.y] = pre .. text .. post\
                            self.areaData[self.cursorPos.y] = string.gsub(self.areaData[self.cursorPos.y], \"\\0\", \"\")\
                            self.cursorPos.x = self.cursorPos.x + 1\
\
\
                            self.text = AreaDataToText(self.areaData)\
                            self.buffer = nil\
                        end\
                end))\
\
                --self.widgetsLib.popupMenu(menu, x + self.left + 1, y + self.top + 1)\
            else\
                self.selection.startpos.x = x\
                self.selection.startpos.y = y\
                self.selection.endpos = {x = 1, y = 1}\
                if self.canvas.buffer ~= nil then self.canvas.buffer.effect.selectedText = \"\" end\
            end\
\
\
            if (x == self.width - 1) or (y == self.height) then\
                if self.widgets.verticalBar.mouseClick ~= nil then\
                    self.widgets.verticalBar:mouseClick(button, x, y)\
                end\
\
                if self.widgets.verticalBar.onMouseClick ~= nil then\
                    self.widgets.verticalBar:onMouseClick(button, x, y)\
                end\
\
                if self.widgets.horisontalBar.mouseClick ~= nil then\
                    self.widgets.horisontalBar:mouseClick(button, x, y)\
                end\
\
                if self.widgets.horisontalBar.onMouseClick ~= nil then\
                    self.widgets.horisontalBar:onMouseClick(button, x, y)\
                end\
            else\
                if self.editable then\
                    self.cursorPos.x = x + self.scroll.left - 1\
                    self.cursorPos.y = y + self.scroll.top\
                end\
            end\
\
            if self.cursorPos.y > #(self.areaData) then self.cursorPos.y = #(self.areaData) end\
            if self.cursorPos.y < 1 then self.cursorPos.y = 0 end\
            if self.cursorPos.x > AreaLineLen(self.areaData[self.cursorPos.y]) - 1 then self.cursorPos.x = AreaLineLen(self.areaData[self.cursorPos.y]) - 1 end\
            if self.cursorPos.x < 0 then self.cursorPos.x = 0 end\
        end,\
\
\
\
        keyPress = function(self, key, char)\
            self.selection.endpos = {x = 1, y = 1}\
\
            if self.editable then\
                if key == keys.right then\
                    self.cursorPos.x = self.cursorPos.x + 1\
                    self.buffer = nil\
                elseif key == keys.left then\
                    self.cursorPos.x = self.cursorPos.x - 1\
                    self.buffer = nil\
                elseif key == keys.up then\
                    self.cursorPos.y = self.cursorPos.y - 1\
                    self.buffer = nil\
                elseif key == keys.down then\
                    self.cursorPos.y = self.cursorPos.y + 1\
                    self.buffer = nil\
                elseif key == keys.enter then\
\
                    if self.cursorPos.x == 0 then\
                        local str = self.areaData[self.cursorPos.y]\
                        self.areaData[self.cursorPos.y] = \"\\0\\r\" .. string.rep(\" \", MAXLENGTH - 2)\
\
                        table.insert(self.areaData, self.cursorPos.y + 1, str)\
                        self.cursorPos.y = self.cursorPos.y + 1\
                        self.cursorPos.x = 0\
                    else\
                        local str = string.sub(self.areaData[self.cursorPos.y], self.cursorPos.x + 1, AreaLineLen(self.areaData[self.cursorPos.y]))\
                        str = string.gsub(str, \"\\r\", \"\")\
\
                        if string.len(str) > MAXLENGTH then str = string.sub(str, 1, MAXLENGTH) end\
                        if string.len(str) < MAXLENGTH then str = str .. \"\\r\" .. string.rep(\" \", MAXLENGTH - string.len(str) - 1) end\
\
                        self.areaData[self.cursorPos.y] = string.sub(self.areaData[self.cursorPos.y], 1, self.cursorPos.x)\
                        local parts = user.split(self.areaData[self.cursorPos.y], \"\\r\")\
                        self.areaData[self.cursorPos.y] = parts[1] .. \"\\r\" .. string.rep(\" \", MAXLENGTH - string.len(parts[1]) - 1)\
\
                        if user.stringstarts(str, \"\\r\") then\
                            str = \"\\0\" .. string.sub(str, 1, string.len(str) - 1)\
                        end\
\
                        table.insert(self.areaData, self.cursorPos.y + 1, str)\
                        self.cursorPos.y = self.cursorPos.y + 1\
                        self.cursorPos.x = 0\
                    end\
\
                    self.text = AreaDataToText(self.areaData)\
                    self.buffer = nil\
\
                elseif key == keys.backspace then\
                    local proc = function() \
                        if (self.cursorPos.x >= 1) then\
                            if self.cursorPos.x > AreaLineLen(self.areaData[self.cursorPos.y]) then self.cursorPos.x = AreaLineLen(self.areaData[self.cursorPos.y]) - 1 end\
                            local pre = string.sub(self.areaData[self.cursorPos.y], 1, self.cursorPos.x - 1)\
                            local post = string.sub(self.areaData[self.cursorPos.y], self.cursorPos.x + 1, string.len(self.areaData[self.cursorPos.y]) - string.len(pre))\
\
                            self.areaData[self.cursorPos.y] = pre .. post\
                            self.cursorPos.x = self.cursorPos.x - 1\
                        else\
                            if #(self.areaData) > 1 then\
                                if (self.cursorPos.x >= 1) and (self.cursorPos.y < #(self.areaData)) then\
                                    local pre = string.sub(self.areaData[self.cursorPos.y - 1], 1, AreaLineLen(self.areaData[self.cursorPos.y - 1]) - 1)\
                                    local post = string.sub(self.areaData[self.cursorPos.y], 1, AreaLineLen(self.areaData[self.cursorPos.y]) - 1)\
                                    pre = string.gsub(pre, \"\\0\", \"\")\
\
                                    self.areaData[self.cursorPos.y - 1] = pre .. post .. \"\\r\" .. string.rep(\" \", MAXLENGTH - 1 - string.len(pre) - string.len(post))\
                                    table.remove(self.areaData, self.cursorPos.y)\
                                    self.cursorPos.y = self.cursorPos.y - 1\
                                    self.cursorPos.x = MAXLENGTH - AreaLineLen(self.areaData[self.cursorPos.y]) - 1\
                                elseif (self.cursorPos.y == #(self.areaData)) and (self.cursorPos.x <= 1) then\
                                    if AreaLineLen(self.areaData[self.cursorPos.y]) < 1 then\
                                        table.remove(self.areaData, self.cursorPos.y)\
                                        self.cursorPos.y = self.cursorPos.y - 1\
                                    else\
                                        local pre = string.sub(self.areaData[self.cursorPos.y - 1], 1, AreaLineLen(self.areaData[self.cursorPos.y - 1]) - 1)\
                                        local post = string.sub(self.areaData[self.cursorPos.y], 1, AreaLineLen(self.areaData[self.cursorPos.y]) - 1)\
                                        pre = string.gsub(pre, \"\\0\", \"\")\
\
                                        self.areaData[self.cursorPos.y - 1] = pre .. post .. \"\\r\" .. string.rep(\" \", MAXLENGTH - 1 - string.len(pre) - string.len(post))\
                                        table.remove(self.areaData, self.cursorPos.y)\
                                        self.cursorPos.y = self.cursorPos.y - 1\
                                        self.cursorPos.x = MAXLENGTH - AreaLineLen(self.areaData[self.cursorPos.y]) - 1\
                                    end\
                                end\
                            end\
                        end\
                    end\
\
                    pcall(proc)\
\
                    self.text = AreaDataToText(self.areaData)\
                    self.buffer = nil\
\
                elseif key == keys.delete then\
\
                    if self.cursorPos.x > AreaLineLen(self.areaData[self.cursorPos.y]) then self.cursorPos.x = AreaLineLen(self.areaData[self.cursorPos.y]) - 1 end\
                    local pre = string.sub(self.areaData[self.cursorPos.y], 1, self.cursorPos.x)\
                    local post = string.sub(self.areaData[self.cursorPos.y], self.cursorPos.x + 2, string.len(self.areaData[self.cursorPos.y]) - string.len(pre))\
\
                    self.areaData[self.cursorPos.y] = pre .. post\
\
                    self.text = AreaDataToText(self.areaData)\
                    self.buffer = nil\
\
                elseif char ~= \"\" then\
\
                    if self.cursorPos.x > AreaLineLen(self.areaData[self.cursorPos.y]) then self.cursorPos.x = AreaLineLen(self.areaData[self.cursorPos.y]) - 1 end\
                    local pre = string.sub(self.areaData[self.cursorPos.y], 1, self.cursorPos.x)\
                    local post = string.sub(self.areaData[self.cursorPos.y], self.cursorPos.x + 1, string.len(self.areaData[self.cursorPos.y]) - string.len(pre))\
\
                    self.areaData[self.cursorPos.y] = pre .. char .. post\
                    self.areaData[self.cursorPos.y] = string.gsub(self.areaData[self.cursorPos.y], \"\\0\", \"\")\
                    self.cursorPos.x = self.cursorPos.x + 1\
\
\
                    self.text = AreaDataToText(self.areaData)\
                    self.buffer = nil\
                end\
\
\
                if self.cursorPos.y > #(self.areaData) then self.cursorPos.y = #(self.areaData) end\
                if self.cursorPos.y < 1 then self.cursorPos.y = 0 end\
                if self.cursorPos.x > AreaLineLen(self.areaData[self.cursorPos.y]) then self.cursorPos.x = AreaLineLen(self.areaData[self.cursorPos.y]) - 1 end\
                if self.cursorPos.x < 0 then self.cursorPos.x = 0 end\
\
                --if AreaLineLen(self.areaData[self.cursorPos.y]) <= 0 then\
                --  self.cursorPos.y = self.cursorPos.y - 1\
                --end\
\
                self.scroll.left = self.cursorPos.x - self.width + 2\
                if self.scroll.left < 0 then self.scroll.left = 0 end\
                self.widgets.horisontalBar.value = self.scroll.left\
\
                self.scroll.top = self.cursorPos.y - self.height + 1\
                if self.scroll.top < 0 then self.scroll.top = 0 end\
                self.widgets.verticalBar.value = self.scroll.top\
\
\
\
                self:refresh()\
            end\
        end,\
\
\
    }\
\
    _parent.widgets[name] = textArea\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    textArea.zOrder = _parent.lastZOrder\
    return textArea\
end",
          fileListView = "\
function startswith(sbig, slittle)\
  if type(slittle) == \"table\" then\
    for k,v in ipairs(slittle) do\
      if string.sub(sbig, 1, string.len(v)) == v then \
        return true\
      end\
    end\
    return false\
  end\
  return string.sub(sbig, 1, string.len(slittle)) == slittle\
end\
\
\
\
function Create(_parent, name)\
    local fileListView = listView.Create(_parent, name)\
    fileListView.path = \"home:/\"\
    fileListView.firstRefresh = false\
    fileListView.history = {}\
    fileListView.use_history = true\
    fileListView.icon_buffer = {}\
    fileListView.hide_lnk_ext = true\
\
\
    fileListView.getIcon = function(self, item)\
        local ext = \"\"\
        local result = nil\
        local os2 = self.parent.parent.os\
\
        if item ~= nil then\
            s = item.name\
\
            if (string.len(s) > 0) and (string.find(s, \"%.\") and s[0] ~= \".\" ) then\
                local fn = user.split(s, \".\")\
                ext = fn[#fn]\
            else\
                if item.dir then\
                    ext = \"folder\"\
                else\
                    ext = \"unknown\"\
                end\
            end\
\
            if user.stringstarts(name, \".\") and item.dir then\
                ext = \"folder\"\
            end\
        end\
\
\
        if self.icon_buffer[ext] == nil then\
            local fileName = os2.getSystemPath() .. \"/system/iconres/\" .. ext .. \".ico\"\
\
            if not fs.exists(fileName) then\
                fileName = os2.getSystemPath() .. \"/system/iconres/unknown.ico\"\
            end\
\
            local icon = user.loadCanvas(\"home:/\" .. fileName)\
            self.icon_buffer[ext] = icon\
            result = icon\
        else\
            result = self.icon_buffer[ext]\
        end\
\
        if ext == \"lnk\" then\
            local lnkdata = iniFiles.read(self.path .. \"/\" .. item.name)\
\
            if lnkdata ~= nil then\
                if lnkdata.shortcut ~= nil then\
                    local icon = lnkdata.shortcut.icon\
\
                    if icon ~= nil then\
                        result = user.loadCanvas(icon)\
                        result.data[3][1].bgcolor = colors.white\
                        result.data[3][1].forecolor = colors.blue\
                        result.data[3][1].char = \"L\"\
                    end\
                end\
            end\
        end\
\
\
        if result == nil then\
            result = user.CreateCanvas(4, 3)\
        end\
\
        return result\
    end\
\
\
    fileListView.refreshList = function(self)\
        local path = string.gsub(self.path, \"home:/\", \"\", 1) .. \"/\"\
\
        self.list = {}\
        self.selectedList = {}\
        self.offset = 0\
        self.widgets.scrollBar.value = 0\
\
        local b_files = fs.list(path)\
        local t_files = {}\
        local files = {}\
\
        for i, v in ipairs(b_files) do\
            if fs.isDir(path .. \"/\" .. v) then table.insert(files, v) else table.insert(t_files, v) end\
        end\
\
        for i, v in ipairs(t_files) do\
            table.insert(files, v)\
        end\
\
\
\
        for i, v in ipairs(files) do\
            table.insert(self.list, { icon = {}, name = v, dir = fs.isDir(path .. \"/\" .. v) })\
        end\
    end\
\
\
    fileListView.navigate = function(self, path, addToHistory, _os)\
        if not startswith(path, \"home:/\") then\
            path = self.path .. \"/\" .. path\
        end\
\
\
        local str = string.gsub(path, \"home:/\", \"\", 1) .. \"/\"\
\
        if fs.isDir(str) then\
            if not (addToHistory == false) then\
                table.insert(self.history, self.path)\
            end\
\
            self.path = path\
            if self.onNavigate ~= nil then self:onNavigate(path) end\
            self.selectedList = {}\
            self:refreshList()\
        else\
            if _os ~= nil then\
                _os.shell.run(path)\
            end\
        end\
    end\
\
\
    fileListView.goBack = function(self)\
        if self.use_history then\
            local addr = table.remove(self.history)\
            if addr ~= nil then\
                self:navigate(addr, false, nil)\
            end\
        else\
            local addr = user.split(self.path, \"/\")\
\
            if #addr > 1 then\
                local path = \"\"\
\
                for i = 1, #addr - 1 do\
                    path = path .. addr[i] .. \"/\"\
                end\
\
                self:navigate(path, false, nil)\
            end\
        end\
    end\
\
\
    fileListView.contextMenuConstructor = function(sender, item)\
        local menu = popupMenu.Create()\
        table.insert(menu.items, popupMenu.CreateItem(\"New\", function(sender)  end))\
\
        return menu\
    end\
\
\
    --fileListView.onRefresh = function(self)\
    --  if self.firstRefresh then\
    --      self:refreshList()\
    --      self.firstRefresh = false\
    --  end\
    --end\
\
\
    return fileListView\
end",
          popupMenu = "\
\
function Create()\
    local popupMenu = {\
        canvas = nil,\
        pleft = 1,\
        ptop = 1,\
        left = 1,\
        top = 1,\
        height = 0,\
        width = 0,\
        bgcolor = colors.white,\
        forecolor = colors.black,\
        forecolor2 = colors.black,\
        focused = false,\
        visible = true,\
        showing = false,\
        items = {},\
\
\
        refresh = function(self)\
            local canvas = self.canvas\
            local items = self.items\
            local x = self.left\
            local y = self.top\
            local maxWidth = 0\
\
\
\
            if (self.showing) and (#items > 0) and (canvas ~= nil) then\
                for k, v in pairs(items) do\
                    if string.len(v.text) > maxWidth then maxWidth = string.len(v.text) end\
                end\
\
                self.height = #items - 1\
                self.width = maxWidth\
                self.left = self.pleft\
\
                if (canvas.size.y - self.ptop < self.height) then\
                    canvas:fillrect(self.pleft + 1, self.ptop - self.height + 1, self.width, self.height, colors.black)\
                    canvas:fillrect(self.pleft, self.ptop - self.height, self.width, self.height, self.bgcolor)\
                    canvas.bgcolor = self.bgcolor\
                    canvas.forecolor = self.forecolor\
\
                    for i, v in ipairs(items) do\
                        canvas:setCursorPos(self.pleft, self.ptop - i + 1)\
                        --canvas:write(v.text)\
                        if v.text ~= \"-\" then\
                            canvas.forecolor = self.forecolor2\
                            canvas:write(string.sub(v.text, 1, 1))\
                            canvas.forecolor = self.forecolor\
                            canvas:write(string.sub(v.text, 2))\
                        else\
                            canvas.forecolor = colors.lightGray\
                            canvas:write(string.rep(\"-\", self.width + 1))\
                        end\
                    end\
\
                    self.top = self.ptop - self.height\
                else\
                    canvas:fillrect(self.pleft + 1, self.ptop + 1, self.width, self.height, colors.black)\
                    canvas:fillrect(self.pleft, self.ptop, self.width, self.height, self.bgcolor)\
                    canvas.bgcolor = self.bgcolor\
                    canvas.forecolor = self.forecolor\
\
                    for i, v in ipairs(items) do\
                        canvas:setCursorPos(self.pleft, self.ptop + i - 1)\
\
                        if v.text ~= \"-\" then\
                            canvas.forecolor = self.forecolor2\
                            canvas:write(string.sub(v.text, 1, 1))\
                            canvas.forecolor = self.forecolor\
                            canvas:write(string.sub(v.text, 2))\
                        else\
                            canvas.forecolor = colors.lightGray\
                            canvas:write(string.rep(\"-\", self.width + 1))\
                        end\
                    end\
\
                    self.top = self.ptop\
                end\
\
\
            else\
                self.showing = false\
            end\
        end,\
\
\
        popUp = function(self, x, y)\
            self.pleft = x\
            self.ptop = y\
            self.showing = true\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            if (self.canvas.size.y - self.ptop < self.height + 1) then\
                if (x >= self.left) and (x <= self.left + self.width) and (y >= self.top) and (y <= self.top + self.height) then\
                    local items = self.items\
                    local index = #items - (y - self.top - 0)\
\
                    if items[index] ~= nil then\
                        if items[index].onClick ~= nil then\
                            items[index]:onClick()\
                        end\
                    end\
                end\
            else\
                if (x >= self.left) and (x <= self.left + self.width) and (y >= self.top) and (y <= self.top + self.height) then\
                    local items = self.items\
                    local index = y - self.top + 1\
\
                    if items[index] ~= nil then\
                        if items[index].onClick ~= nil then\
                            items[index]:onClick()\
                        end\
                    end\
                end\
            end\
\
            self.showing = false\
        end,\
    }\
\
    return popupMenu\
end\
\
\
function CreateItem(_text, _onClick)\
    local item = {\
        text = _text,\
        onClick = _onClick,\
    }\
\
    return item\
end",
          listView = "\
function Create(_parent, name)\
    local listView = panel.Create(_parent, name)\
    local ITEM_WIDTH = 9\
    local ITEM_HEIGHT = 6 --5\
\
    listView.list = {}\
    listView.selectedList = {}\
    listView.showScroll = true\
    listView.offset = 0\
    listView.contextMenuConstructor = nil\
    listView.widgets.scrollBar = scrollBar.Create(listView, \"scrollBar\")\
\
    listView.widgets.scrollBar.min = 0\
    listView.widgets.scrollBar.max = 50\
    listView.widgets.scrollBar.value = 0\
    listView.widgets.scrollBar.step = 2\
\
    listView.widgets.scrollBar.onChange = function(sender)\
        sender.parent.offset = sender.value\
    end\
\
\
    listView.reposition = function(self, height, width)\
        self.height = height\
        self.width = width\
\
        self.widgets.scrollBar.left = width - 1\
        self.widgets.scrollBar.height = height\
    end\
\
\
    listView.drawItem = function(self, index, selected)\
        local item = self.list[index]\
        index = index - 1\
\
        if item ~= nil then\
            local x = 0\
            local y = 0\
            local maxX = math.floor((self.width - 2) / ITEM_WIDTH) - 1\
\
            for i = 1, index do\
                x = x + 1\
\
                if x > maxX then\
                    x = 0\
                    y = y + 1\
                end\
            end\
\
            x = x * ITEM_WIDTH + 1\
            y = y * ITEM_HEIGHT + 1\
\
\
            y = y - self.offset\
\
\
            if self.getIcon ~= nil then\
                local icon = self:getIcon(self.list[index + 1])\
\
                if selected then\
                    icon.effect = user.CreateEffect_ListViewSelect()\
                else\
                    icon.effect = nil\
                end\
\
                self.canvas:draw(x + 2 - 1, y - 0, icon)\
            else\
                if selected then\
                    self.canvas:fillrect(x + 2, y, 3, 2, colors.lightBlue)\
                else\
                    self.canvas:fillrect(x + 2, y, 3, 2, colors.white)\
                end\
            end\
\
\
\
            local text = string.sub(item.name, 1, string.len(item.name))\
\
            if self.hide_lnk_ext == true then\
                if user.stringends(text, \".lnk\") then\
                    text = string.sub(text, 1, string.len(text) - 4)\
                end\
            end\
\
            --if string.len(text) > ITEM_WIDTH - 1 then text = string.sub(text, 1, ITEM_WIDTH - 3) .. \"..\" end\
            if string.len(text) > ITEM_WIDTH - 1 then\
                local text1 = string.sub(text, 1, ITEM_WIDTH - 1)\
                local text2 = string.gsub(text, text1, \"\", 1)\
\
                if string.len(text2) > ITEM_WIDTH - 1 then text2 = string.sub(text2, 1, ITEM_WIDTH - 3) .. \"..\" end\
\
                local text1X = x + math.ceil((ITEM_WIDTH - 2) / 2) - math.ceil(string.len(text1) / 2)\
                local text2X = x + math.ceil((ITEM_WIDTH - 2) / 2) - math.ceil(string.len(text2) / 2)\
\
                self.canvas.bgcolor = self.bgcolor\
                self.canvas.forecolor = user.contrast_color(self.bgcolor)\
                self.canvas:setCursorPos(text1X, y + 4)\
                self.canvas:write(text1)\
                self.canvas:setCursorPos(text2X, y + 5)\
                self.canvas:write(text2)\
            else\
                local textX = x + math.ceil((ITEM_WIDTH - 2) / 2) - math.ceil(string.len(text) / 2)\
\
                self.canvas.bgcolor = self.bgcolor\
                self.canvas.forecolor = user.contrast_color(self.bgcolor)\
                self.canvas:setCursorPos(textX, y + 4)\
                self.canvas:write(text)\
            end\
        end\
    end\
\
\
\
    listView.onBeforeRefresh = function(self)\
        self:reposition(self.height, self.width)\
    end\
\
    listView.getMax = function(self)\
        local list = self.list\
        local maxX = math.floor((self.width - 2) / ITEM_WIDTH)\
        local max = (math.ceil(#list / maxX) * ITEM_HEIGHT) - self.height\
        if max < 0 then max = 0 end\
\
        return max\
    end\
\
\
    listView.onRefresh = function(self)\
        self.widgets.scrollBar.max = self:getMax()\
\
        for i, v in ipairs(self.list) do\
            if self.canvas ~= nil then\
                self:drawItem(i)\
            end\
        end\
\
        for i, v in ipairs(self.selectedList) do\
            if self.canvas ~= nil then\
                self:drawItem(v, true)\
            end\
        end\
\
        if self.onAfterRefresh ~= nil then\
            self:onAfterRefresh()\
        end\
    end\
\
\
    listView.getItemAt = function(self, x, y)\
        local index = math.floor(self.width /  ITEM_WIDTH) * (y - 1) + x\
\
        if self.list[index] ~= nil then\
            return index\
        else\
            return 0\
        end\
    end\
\
\
    listView.onMouseClick = function(self, button, x, y)\
        local mx = x\
        local my = y\
\
        y = y - 1 + self.offset - self.top\
        x = x - self.left - 2\
\
        if self.width - x > 8 then\
            x = math.floor((x + 1) / ITEM_WIDTH)\
            y = math.floor(y / ITEM_HEIGHT)\
\
            if x > math.floor(self.width /  ITEM_WIDTH) - 0 then x = math.floor(self.width / ITEM_WIDTH) - 0 end\
\
            x = x + 1\
            y = y + 1\
        else\
            x = 0\
            y = 0\
        end\
\
        --self.parent.name = x .. \" \" .. y .. \" \" .. math.floor(self.width /  ITEM_WIDTH)\
        local item = self:getItemAt(x, y)\
        --if item ~= nil then self.parent.name = item.name else self.parent.name = \" \" end\
        if item ~= 0 then\
            if self.isCtrlDown then\
                table.insert(self.selectedList, item)\
            else\
                self.selectedList = { item }\
            end\
        else\
            self.selectedList = {}\
        end\
\
\
        if button == 2 then\
            if self.onContextMenu ~= nil then\
                self:onContextMenu(item, mx, my)\
            end\
        end\
    end\
\
\
    --listView:reposition(listView.height, listView.width)\
    return listView\
end",
          textView = "function Create(_parent, name)\
    local textArea = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 16,\
        width = 24,\
        bgcolor = colors.white,\
        forecolor = colors.black,\
        focused = false,\
        visible = true,\
        canvas = nil,\
        text = \"\", lastText = \"\",\
        tab = 0,\
        editable = false,\
        --scrollBars = \"both\",  --\"horisontal\", \"vertical\", \"both\"\
        scroll = { left = 0, top = 0},\
        buffer = nil,\
        widgets = { },\
        focusedWidget = nil,\
        lastZOrder = 0,\
        cursorPos = { x = 1, y = 1, text = 1},\
\
\
        refresh = function(self)\
            self.canvas = user.CreateCanvas(self.width, self.height)\
            self.canvas:fillrect(1, 1, self.width, self.height, self.bgcolor)\
\
            if self.widgets.verticalBar == nil then\
                self.widgets.verticalBar = scrollBar.Create(self, \"verticalBar\")\
                self.widgets.verticalBar.step = 1\
\
                self.widgets.verticalBar.onChange = function(sender)\
                    self.scroll.top = self.widgets.verticalBar.value\
                end\
            end\
\
            self.widgets.verticalBar.left = self.width\
            self.widgets.verticalBar.top = 0\
            self.widgets.verticalBar.height = self.height\
\
\
            if (self.text ~= self.lastText) or (self.buffer == nil) then\
                self.buffer = user.CreateCanvas(self.width - 1, 1)\
                self.buffer:fillrect(1, 1, 1, 1, self.bgcolor)\
                self.buffer.bgcolor = self.bgcolor\
                self.buffer.forecolor = self.forecolor\
\
                if (self.text ~= nil) and string.len(self.text) > 0 then\
                    local lines = user.split(self.text, \"\\n\")\
                    local lastY = self.buffer.cursorPos.y\
\
                    for i, v in ipairs(lines) do\
                        self:printLine(v)\
                    end\
\
                    self.widgets.verticalBar.max = self.buffer.cursorPos.y - lastY - self.height + 1\
                    if self.widgets.verticalBar.max < 0 then self.widgets.scrollBar.max = 0 end\
\
                    self.canvas:draw(-self.scroll.left, -self.scroll.top, self.buffer)\
                end\
\
                self.lastText = self.text\
            else\
                self.canvas:draw(-self.scroll.left, -self.scroll.top, self.buffer)\
            end\
\
            self.widgets.verticalBar:refresh()\
            self.parent:getCanvas():draw(self.left - 1, self.top, self.canvas)\
\
            self.parent.parent.os.setCaretPos(self.left + self.cursorPos.x, self.top + self.cursorPos.y)\
\
            if (self.cursorPos.x < self.width - 1) and (self.cursorPos.y - self.scroll.top < self.height) and (self.focused) then\
                self.parent.parent.os.showCaret()\
            else\
                self.parent.parent.os.hideCaret()\
            end\
        end,\
\
\
        printLine = function(self, line)\
            --self.buffer:write()\
            if string.len(line) > 0 then\
                if self.buffer.cursorPos.y > 1 then\
                    self.buffer.cursorPos.x = 1\
                    self.buffer.cursorPos.y = self.buffer.cursorPos.y + 1\
                end\
\
\
                line = string.gsub(line, \"  \", \"\\2\\2\")\
                local words = user.split(line, \" \")\
\
                for i, v in ipairs(words) do\
                    if self.buffer.cursorPos.x + string.len(v) + 1 > self.width then\
                        self.buffer.cursorPos.x = 1 + self.tab\
                        self.buffer.cursorPos.y = self.buffer.cursorPos.y + 1\
                    end\
\
                    if self.buffer.cursorPos.y > self.buffer.size.y then\
                        local lastSize = self.buffer.size.y\
                        self.buffer.size.y = self.buffer.cursorPos.y + 1--self.buffer.size.y + 1\
\
                        for y = lastSize + 1, self.buffer.size.y do\
                            self.buffer.data[y] = {}\
\
                            for x = 1, self.buffer.size.x do\
                                self.buffer.data[y][x] = {}\
\
                                self.buffer.data[y][x].bgcolor = self.bgcolor\
                                self.buffer.data[y][x].forecolor = self.forecolor\
                                self.buffer.data[y][x].char = \" \"\
                            end\
                        end\
                    end\
\
                    self.buffer:write(string.gsub(v, \"\\2\\2\", \"  \") .. \" \")\
                end\
\
                self.buffer.cursorPos.x = self.buffer.cursorPos.x - 1\
            end\
        end,\
\
\
        getCanvas = function(self)\
            return self.canvas\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            x = x - self.left\
            y = y - self.top\
\
            if x == self.width - 1 then\
                if self.widgets.verticalBar.mouseClick ~= nil then\
                    self.widgets.verticalBar:mouseClick(button, x, y)\
                end\
\
                if self.widgets.verticalBar.onMouseClick ~= nil then\
                    self.widgets.verticalBar:onMouseClick(button, x, y)\
                end\
            else\
                if self.editable then\
                    self.cursorPos.x = x\
                    self.cursorPos.y = y + self.scroll.top\
                    self.cursorPos.text = self:getTextPosFromCPos(x, y + self.scroll.top)\
                end\
            end\
        end,\
\
\
        keyPress = function(self, key, char)\
            if self.editable then\
                if key == keys.right then\
                    self.cursorPos.text = self.cursorPos.text + 1\
                elseif key == keys.left then\
                    self.cursorPos.text = self.cursorPos.text - 1\
                elseif key == keys.down then\
                    self.cursorPos.text = self.cursorPos.text + self.width - 1\
                elseif key == keys.up then\
                    self.cursorPos.text = self.cursorPos.text - self.width + 1\
                elseif key == keys.enter then\
                    local textBegin = string.sub(self.text, 1, self.cursorPos.text)\
                    local textEnd = string.sub(self.text, self.cursorPos.text + 1, string.len(self.text))\
\
                    self.text = textBegin .. \"\\n\" .. textEnd\
                    self.cursorPos.text = self.cursorPos.text + (self.width - self.cursorPos.y) - 1\
                    self.buffer = nil\
                else\
                    local textBegin = string.sub(self.text, 1, self.cursorPos.text)\
                    local textEnd = string.sub(self.text, self.cursorPos.text + 1, string.len(self.text))\
\
                    self.text = textBegin .. char .. textEnd\
                    self.cursorPos.text = self.cursorPos.text + string.len(char)\
                    self.buffer = nil\
                end\
\
\
                local x, y = self:recalculateCursorPos()\
                --self.cursorPos.x = x\
                --self.cursorPos.y = y\
\
                self:refresh()\
            end\
        end,\
\
\
        recalculateCursorPos = function(self)\
\
        end,\
\
\
        getTextPosFromCPos = function(self, cx, cy)\
            local lines = user.split(self.text, \"\\n\")\
            local index = 0\
            local lineWidths = {}\
\
            for i, line in ipairs(lines) do\
                line = string.gsub(line, \"  \", \"\\2\\2\")\
                local words = user.split(line, \" \")\
                index = index + 1\
                lineWidths[index] = 0\
\
                for j, word in ipairs(words) do\
                    if lineWidths[index] > self.width - 1 then\
                        index = index + 1\
                        lineWidths[index] = 0\
                    end\
                end\
            end\
\
            local textY = 0\
            for i = 1, cy do\
                textY = textY + lineWidths[i]\
            end\
\
            local textX = textY + cx\
            return textX\
        end,\
\
\
\
\
        recalculateCursorPos2 = function(self)\
            local lines = user.split(self.text, \"\\n\")\
            local lineWidths = {}\
            local index = 0\
            local textLen = 0\
            local yPos = 0\
            local ySet = false\
\
            for i, line in ipairs(lines) do\
                line = string.gsub(line, \"  \", \"\\2\\2\")\
                local words = user.split(line, \" \")\
                index = index + 1\
                lineWidths[index] = 0\
\
                for j, word in ipairs(words) do\
                    if lineWidths[index] > self.width - 1 then\
                        index = index + 1\
                        lineWidths[index] = 0\
                    end\
\
                    lineWidths[index] = lineWidths[index] + string.len(word) + 1\
                    textLen = textLen + string.len(word) + 1\
\
                    if ySet == false and textLen > self.cursorPos.text then\
                        ySet = true\
                        yPos = index\
                    end\
                end\
            end\
\
            local y = math.floor(self.cursorPos.text / (self.width - 1))\
            local textPos = 0\
\
            for i = 1, y do\
                textPos = textPos + lineWidths[y]\
            end\
\
            --local y = math.floor(self.cursorPos.text / (self.width - 1))\
            local y = yPos\
            local cx = self.cursorPos.text - textPos\
            local cy = y + 1\
\
            --return cx, cy\
            return 1, 1\
        end,\
\
\
\
    }\
\
    _parent.widgets[name] = textArea\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    textArea.zOrder = _parent.lastZOrder\
    return textArea\
end\
\
\
\
\
\
\
\
\
--[[\
                                        --if (absPos - string.len(word) - 1 > self.cursorPos.text) and (absPos + string.len(word) + 1 < self.cursorPos.text) then\
                    --  return cx + absPos + string.len(word) + 1 - self.cursorPos.text, cy\
                    --end\
\
                    xoffset = xoffset + string.len(word) + 1\
                    absPos = absPos + string.len(word) + 1\
\
                    if xoffset > self.width - 1 then\
                        xoffset = self.tab\
                        yoffset = yoffset + 1\
                    end]]",
          scrollBar = "\
\
function Create(_parent, name)\
    local scrollBar = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 10,\
        width = 1,\
        value = 0,\
        min = 0,\
        max = 100,\
        step = 10,\
        focused = false,\
\
        vertical = true,\
        visible = true,\
\
\
        refresh = function(self)\
            local canvas = self.parent:getCanvas()\
            local x = self.left\
            local y = self.top\
            local str = self.caption\
\
            if self.parent.style ~= \"none\" then\
                y = y + 1\
            end\
\
            canvas:fillrect(self.left, y, self.width - 1, self.height - 1, colors.lightGray)\
\
            if self.vertical == true then\
                canvas:setCursorPos(x, y)\
                canvas.bgcolor = colors.gray\
                canvas.forecolor = colors.lightGray\
                canvas:write(\"^\")\
\
                canvas:setCursorPos(x, y + self.height - 1)\
                canvas.bgcolor = colors.gray\
                canvas.forecolor = colors.lightGray\
                canvas:write(\"v\")\
\
                local selPos = math.ceil((self.height - 2) * self.value / self.max)\
                if selPos < 1 then selPos = 1 end\
                if selPos > self.height - 2 then selPos = self.height - 2 end\
\
                canvas:setCursorPos(x, y + selPos)\
                canvas:write(\"#\")\
            else\
                canvas:setCursorPos(x, y)\
                canvas.bgcolor = colors.gray\
                canvas.forecolor = colors.lightGray\
                canvas:write(\"<\")\
\
                canvas:setCursorPos(x + self.width - 1, y)\
                canvas.bgcolor = colors.gray\
                canvas.forecolor = colors.lightGray\
                canvas:write(\">\")\
\
                local selPos = math.ceil((self.width - 3) * self.value / self.max)\
                if selPos < 1 then selPos = 1 end\
                if selPos > self.width - 2 then selPos = self.width - 2 end\
\
                canvas:setCursorPos(x + selPos, y)\
                canvas:write(\"#\")\
            end\
        end,\
\
\
        mouseDrag = function(self, button, x, y)\
            if button == 1 then\
                local delta = math.ceil((self.height - 2) / self.max) * x\
                if self.vertical == true then\
                    delta = math.ceil((self.width - 2) / self.max) * y\
                end\
\
                self.value = self.value + delta\
                if self.value < self.min then self.value = self.min end\
                if self.value > self.max then self.value = self.max end\
\
                self:refresh()\
                if self.onChange ~= nil then\
                    self:onChange()\
                end\
            end\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            if button == 1 then\
                --[[local selPos = math.floor(self.height * self.value / self.max)\
                if selPos < 1 then selPos = 1 end\
                if selPos > self.height - 2 then selPos = self.height - 2 end\
                local cx = self.left\
                local cy = self.top\
\
                if self.parent.style ~= \"none\" then\
                    cy = cy + 1\
                end]]\
\
                local cx = self.left\
                local cy = self.top\
                local oldValue = self.value\
                local changed = false\
\
                --if self.parent.style ~= \"none\" then\
                    cy = cy + 1\
                --end\
\
                if self.vertical == true then\
                    if y == cy then\
                        self.value = self.value - self.step\
                        changed = true\
                    end\
\
                    if y == cy + self.height - 1 then\
                        self.value = self.value + self.step\
                        changed = true\
                    end\
                else\
                    if x == cx - 1 then\
                        self.value = self.value - self.step\
                        changed = true\
                    end\
\
                    if x == cx + self.width - 2 then\
                        self.value = self.value + self.step\
                        changed = true\
                    end\
                end\
\
                if self.value < self.min then self.value = self.min end\
                if self.value > self.max then self.value = self.max end\
\
\
                if (oldValue ~= self.value) and (self.onChange ~= nil) then self:onChange() end\
            end\
        end,\
    }\
\
    _parent.widgets[name] = scrollBar\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    scrollBar.zOrder = _parent.lastZOrder\
    return scrollBar\
end",
          shdocvw = "function Create(_parent, name)\
    local shdocvw = {\
        parent = _parent,\
        left = 1,\
        top = 1, \
        height = 16,\
        width = 24,\
        focused = false,\
        visible = true,\
        canvas = nil,\
        widgets = { },\
        focusedWidget = nil,\
        lastZOrder = 0,\
        parsed = false,\
        os = _parent.parent.os,\
        url = \"about:tabs\",\
        source = \"\",\
\
        document = {\
            activeElement = nil,\
\
            paddingLeft = {\
                [1] = 0,\
            },\
\
            blockWidth = {\
            },\
\
\
            style = {\
\
            },\
\
            size = {\
                height = 0,\
                width = 1,\
            }\
        },\
\
\
        refresh = function(self)\
            self.canvas = user.CreateCanvas(self.width, self.height)\
            self.canvas:fillrect(1, 1, self.width, self.height, colors.white)\
\
            if self.widgets.verticalBar == nil then\
                self.widgets.verticalBar = scrollBar.Create(self, \"verticalBar\")\
                self.widgets.verticalBar.step = 1\
\
                self.widgets.verticalBar.onChange = function(sender)\
                    self.scroll.top = self.widgets.verticalBar.value\
                end\
            end\
\
            self.widgets.verticalBar.left = self.width\
            self.widgets.verticalBar.top = 0\
            self.widgets.verticalBar.height = self.height\
\
            self.document.size.width = self.width - 2\
\
            if self.parsed == false then\
                self:parse()\
            end\
\
            --self.canvas:draw(-self.scroll.left, -self.scroll.top, self.widgets.document)\
            --self.widgets.document.left = -\
            self:pageRender()\
\
\
            self.widgets.verticalBar:refresh()\
            self.parent:getCanvas():draw(self.left - 1, self.top, self.canvas)\
\
            --self.parent.parent.os.setCaretPos(self.left + self.cursorPos.x, self.top + self.cursorPos.y)\
\
            --[[if (self.cursorPos.x < self.width - 1) and (self.cursorPos.y - self.scroll.top < self.height) and (self.focused) then\
                self.parent.parent.os.showCaret()\
            else\
                self.parent.parent.os.hideCaret()\
            end]]\
        end,\
\
\
        setElementStyle = function(self, element, style)\
            if self.document.style[style] ~= nil then\
                if self.document.style[style].bgcolor ~= nil then element.bgcolor = self.document.style[style].bgcolor end\
                if self.document.style[style].forecolor ~= nil then element.forecolor = self.document.style[style].forecolor end\
                if self.document.style[style].align ~= nil then element.align = self.document.style[style].align end\
                if self.document.style[style].height ~= nil then element.height = self.document.style[style].height end\
                if self.document.style[style].width ~= nil then element.width = self.document.style[style].width end\
                if self.document.style[style].paddingLeft ~= nil then element.left = element.left + self.document.style[style].paddingLeft end\
                if self.document.style[style].paddingTop ~= nil then element.top = element.top + self.document.style[style].paddingTop end\
            end\
        end,\
\
\
        loadPageFromFile = function(self, url)\
            local file = fs.open(url, \"r\")\
            local data = file.readAll()\
            file.close()\
            return data\
        end,\
\
\
        parse = function(self)\
            self.document.blockWidth = { [1] = self.canvas.size.x }\
            self.document.paddingLeft = { [1] = 0 }\
\
            self.document.style = {\
                text = {\
                    bgcolor = colors.white,\
                    forecolor = colors.black,\
                    align = \"left\",\
                    paddingLeft = 0,\
                }\
            }\
\
\
            local webenv = {\
                colors = colors,\
                colours = colors,\
\
\
                document = {\
                    location = self.url,\
                    client = \"iDonkey 0.7a [Unstable]\",\
                    size = {\
                        height = self.document.size.height,\
                        y = self.document.size.height,\
                        width = self.document.size.width,\
                        x = self.document.size.x,\
                    }\
                },\
\
\
                style = function(t)\
                    for k, v in pairs(t) do\
                        if self.document.style[k] == nil then self.document.style[k] = {} end\
\
                        if type(v) == \"table\" then\
                            if v.bgcolor ~= nil then self.document.style[k].bgcolor = v.bgcolor end\
                            if v.forecolor ~= nil then self.document.style[k].forecolor = v.forecolor end\
                            if v.align ~= nil then self.document.style[k].align = v.align end\
                            if v.height ~= nil then self.document.style[k].height = v.height end\
                            if v.width ~= nil then self.document.style[k].width = v.width end\
                            if v.paddingLeft ~= nil then self.document.style[k].paddingLeft = v.paddingLeft end\
                            if v.paddingTop ~= nil then self.document.style[k].paddingTop = v.paddingTop end\
                        end\
                    end\
                end,\
\
\
                text = function(id, class, str)\
                    local label = label.Create(self.document.activeElement or self, id)\
                    label.multiline = true\
                    label.caption = str\
                    label.left = (self.document.paddingLeft[#(self.document.paddingLeft)] or 0) + 1\
                    label.width = self.document.blockWidth[#(self.document.blockWidth)] or self.document.size.width - label.left\
                    label.top = self.document.size.height\
                    label.webclass = class\
\
                    self:setElementStyle(label, \"text\")\
                    self:setElementStyle(label, class)\
                    self:setElementStyle(label, id)\
\
                    --label:resize()\
                    self.document.size.height = label.top + label.height\
                end,\
\
\
                div = function(id, class, size)\
                    local div = panel.Create(self.document.activeElement or self, id)\
                    div.height = size.height or 2\
                    div.width = size.width or 10\
                    div.left = size.left or 2\
                    div.top = (size.top or 1) + self.document.size.height\
\
                    self:setElementStyle(div, \"div\")\
                    self:setElementStyle(div, class)\
                    self:setElementStyle(div, id)\
\
                    if not (size.float) then\
                        self.document.size.height = div.top + div.height\
                    end\
\
                    self.document.activeElement = div\
                end,\
\
                end_ = function()\
                    self.document.activeElement = self.document.activeElement.parent or self\
                    if self.document.activeElement == self then self.document.activeElement = nil end\
                end,\
            }\
\
\
            local s = self:getTestPage()\
            local page = loadstring(s)\
\
            if page == nil then\
                error(\"is nil!\")\
            end\
            setfenv(page, webenv)\
\
            local err = function(...)\
                local s = \"\"\
\
                for k, v in pairs(args) do\
                    s = s .. \"v\"\
                end\
\
                error(s)\
            end\
\
            xpcall(page, err)\
            --page()\
            self.parsed = true\
            --error(self.widgets.greeting)\
        end,\
\
\
        pageRender = function(self)\
            for k, v in pairs(self.widgets) do\
                if k ~= \"verticalBar\" then\
                    v:refresh()\
                end\
            end\
        end,\
\
\
        getTestPage = function(self)\
            local testPage = [[\
                style({text = {bgcolor = colors.black, forecolor = colors.white, paddingLeft = 2, width = document.size.width - 3}})\
                style({greeting = {forecolor = colors.lime}})\
\
                --text(\"greeting\", \"greeting\", \"Hello, World!\")\
                --text(\"greeting2\", \"greeting\", \"Glad to meet you here.\")\
                --text(\"greeting3\", \"greeting\", document.location)\
                --text(\"greeting4\", \"greeting\", document.client)\
\
                style({mydivs = {bgcolor = colors.lime}})\
\
                div(\"id\", \"mydivs\")\
                    text(\"textindiv\", \"greeting\", \"I'm in dov now!\")\
                end_()\
            ]]\
\
            return testPage\
        end,\
\
\
        getCanvas = function(self)\
            return self.canvas\
        end,\
    }\
\
\
    _parent.widgets[name] = shdocvw\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    paintBox.zOrder = _parent.lastZOrder\
    return shdocvw\
end",
        },
        etc = {
          hosts = "%.cw http://www.mypascal.url.ph/ccwin/dns/?url=%BASEURL_ENCODED%",
        },
        dialogs = "\
function MessageBoxCreate(message, canvas, buttons)\
    local messageBox = {\
        message = message,\
        canvas = canvas,\
        height = 8,\
        width = 32,\
        widgets = {},\
        buttonsLib = buttons,\
        parent = {\
            canvas = canvas\
        },\
        lastZOrder = 0,\
        focusedWidget = nil,\
\
\
        refresh = function(self)\
            if self.canvas ~= nil then\
                self.canvas:fillrect(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2) + 1, math.floor(self.canvas.size.y / 2)  - math.floor(self.height / 2) + 1, \
                    self.width, self.height, colors.black)\
                self.canvas:fillrect(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2), math.floor(self.canvas.size.y / 2)  - math.floor(self.height / 2), \
                    self.width, self.height, colors.lightBlue)\
                self.canvas:fillrect(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2) + 1, math.floor(self.canvas.size.y / 2)  - math.floor(self.height / 2) + 1, \
                    self.width - 2, self.height - 2, colors.lightGray)\
\
                self.canvas.bgcolor = colors.lightGray\
                self.canvas.forecolor = colors.black\
\
                local texts = user.split(self.message.text, \"\\n\")\
\
                for i, v in ipairs(texts) do\
                    if i <= 3 then\
                        self.canvas:setCursorPos(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2) + 2, math.floor(self.canvas.size.y / 2)  -\
                            math.floor(self.height / 2) + 1 + i)\
                        local str = v\
\
                        if string.len(str) > self.width - 3 then\
                            str = string.sub(str, 1, self.width - 5) .. \"..\"\
                        end\
\
                        self.canvas:write(str)\
                    end\
                end\
\
\
                local caption = self.message.caption\
                if string.len(caption) > self.width then\
                    caption = string.sub(caption, 1, self.width - 2) .. \"..\"\
                end\
\
                self.canvas:setCursorPos(math.floor(self.canvas.size.x / 2) - math.floor(string.len(caption) / 2), math.floor(self.canvas.size.y / 2)  -\
                    math.floor(self.height / 2))\
                self.canvas.bgcolor = colors.lightBlue\
                self.canvas.forecolor = colors.white\
                self.canvas:write(caption)\
\
\
                if self.message.buttons ~= nil then\
                    self.widgets = {}\
                    local width = -1\
\
                    if #self.message.buttons > 1 then\
                        for i, v in ipairs(self.message.buttons) do\
                            local w = self.buttonsLib.Create(self, i)\
                            w.width = 10\
                            w.left = math.floor(self.canvas.size.x / 2) + math.floor(w.width / 2) - width - 1\
                            width = width + w.width + 1\
                            w.top = math.floor(self.canvas.size.y / 2) - math.floor(self.height / 2) + self.height - 3\
                            w.height = 1\
                            w.caption = v.caption\
                            w.onClick = v.onClick\
                        end\
                    else\
                        local v = self.message.buttons[1]\
                        local w = self.buttonsLib.Create(self, 1)\
                        w.width = 10\
                        w.left = math.floor(self.canvas.size.x / 2) - math.floor(w.width / 2) + width + 1\
                        w.top = math.floor(self.canvas.size.y / 2) - math.floor(self.height / 2) + self.height - 3\
                        w.height = 1\
                        w.caption = v.caption\
                        w.onClick = v.onClick\
                    end\
\
                    self.message.buttons = nil\
                end\
\
                if self.widgets ~= nil then\
                    for i, v in ipairs(self.widgets) do\
                        v:refresh()\
                    end\
                end\
            end\
        end,\
\
        mouseClick = function(self, button, x, y)\
            if self.widgets ~= nil then\
                for i, widget in ipairs(self.widgets) do\
                    if (x >= widget.left) and (x < widget.left + widget.width) and \
                       (y > widget.top) and (y <= widget.top + widget.height) then\
                        self.focusedWidget = widget\
\
                        if button == 1 then\
                            if widget.onClick ~= nil then\
                                widget:onClick()\
                            end\
                        else\
                            if widget.onPopup ~= nil then\
                                widget:onPopup()\
                            end\
                        end\
\
                        if widget.onMouseClick ~= nil then\
                            widget:onMouseClick(button, x, y)\
                        end\
\
                        if widget.mouseClick ~= nil then\
                            widget:mouseClick(button, x, y)\
                        end\
                    end\
                end\
            end\
        end,\
\
\
        getCanvas = function(self)\
            return self.canvas\
        end\
    }\
\
\
    return messageBox\
end\
\
\
\
\
\
\
\
\
function InputBoxCreate(message, canvas, buttons)\
    local messageBox = {\
        message = message,\
        canvas = canvas,\
        height = 8,\
        width = 32,\
        widgets = {},\
        buttonsLib = buttons,\
        parent = {\
            canvas = canvas\
        },\
        lastZOrder = 0,\
        focusedWidget = nil,\
\
\
        refresh = function(self)\
            if self.canvas ~= nil then\
                self.canvas:fillrect(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2) + 1, math.floor(self.canvas.size.y / 2)  - math.floor(self.height / 2) + 1, \
                    self.width, self.height, colors.black)\
                self.canvas:fillrect(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2), math.floor(self.canvas.size.y / 2)  - math.floor(self.height / 2), \
                    self.width, self.height, colors.lightBlue)\
                self.canvas:fillrect(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2) + 1, math.floor(self.canvas.size.y / 2)  - math.floor(self.height / 2) + 1, \
                    self.width - 2, self.height - 2, colors.lightGray)\
\
                self.canvas.bgcolor = colors.lightGray\
                self.canvas.forecolor = colors.black\
\
\
                self.canvas:setCursorPos(math.floor(self.canvas.size.x / 2) - math.floor(self.width / 2) + 2, math.floor(self.canvas.size.y / 2)  -\
                            math.floor(self.height / 2) + 2)\
                self.canvas:write(self.message.text)\
\
\
                if self.widgets.edit == nil then\
                    self.widgets.edit = edit.Create(self, \"edit\")\
                    self.widgets.edit.left = math.floor((self.canvas.size.x / 2) - (self.width / 2)) + 2\
                    self.widgets.edit.width = self.width - 3\
                    self.widgets.edit.top = math.floor(self.canvas.size.y / 2) -\
                            math.floor(self.height / 2) + 3\
                    self.widgets.edit.text = self.message.defText\
                end\
\
                self.widgets.edit:refresh()\
                self.widgets.edit.focused = true\
                self.focutedWidget = self.widgets.edit\
\
\
                local caption = self.message.caption\
                if string.len(caption) > self.width then\
                    caption = string.sub(caption, 1, self.width - 2) .. \"..\"\
                end\
\
                self.canvas:setCursorPos(math.floor(self.canvas.size.x / 2) - math.floor(string.len(caption) / 2), math.floor(self.canvas.size.y / 2)  -\
                    math.floor(self.height / 2))\
                self.canvas.bgcolor = colors.lightBlue\
                self.canvas.forecolor = colors.white\
                self.canvas:write(caption)\
\
\
                if self.message.buttons ~= nil then\
                    self.widgets = {}\
                    local width = -1\
\
                    if #self.message.buttons > 1 then\
                        for i, v in ipairs(self.message.buttons) do\
                            local w = self.buttonsLib.Create(self, i)\
                            w.width = 10\
                            w.left = math.floor(self.canvas.size.x / 2) + math.floor(w.width / 2) - width - 1\
                            width = width + w.width + 1\
                            w.top = math.floor(self.canvas.size.y / 2) - math.floor(self.height / 2) + self.height - 3\
                            w.height = 1\
                            w.caption = v.caption\
                            w.onClick = v.onClick\
                        end\
                    else\
                        local v = self.message.buttons[1]\
                        local w = self.buttonsLib.Create(self, 1)\
                        w.width = 10\
                        w.left = math.floor(self.canvas.size.x / 2) - math.floor(w.width / 2) + width + 1\
                        w.top = math.floor(self.canvas.size.y / 2) - math.floor(self.height / 2) + self.height - 3\
                        w.height = 1\
                        w.caption = v.caption\
                        w.onClick = v.onClick\
                    end\
\
                    self.message.buttons = nil\
                end\
\
                if self.widgets ~= nil then\
                    for i, v in ipairs(self.widgets) do\
                        v:refresh()\
                    end\
                end\
            end\
        end,\
\
        mouseClick = function(self, button, x, y)\
            if self.widgets ~= nil then\
                for i, widget in ipairs(self.widgets) do\
                    if (x >= widget.left) and (x < widget.left + widget.width) and \
                       (y > widget.top) and (y <= widget.top + widget.height) then\
                        self.focusedWidget = widget\
                        widget.focused = true\
\
                        if button == 1 then\
                            if widget.onClick ~= nil then\
                                widget:onClick()\
                            end\
                        else\
                            if widget.onPopup ~= nil then\
                                widget:onPopup()\
                            end\
                        end\
\
                        if widget.onMouseClick ~= nil then\
                            widget:onMouseClick(button, x, y)\
                        end\
\
                        if widget.mouseClick ~= nil then\
                            widget:mouseClick(button, x, y)\
                        end\
                    end\
                end\
            end\
        end,\
\
\
        keyPress = function(self, key, char)\
            --error(key .. \" \" .. char)\
            --if self.focusedWidget ~= nil then\
            --  if self.focusedWidget.keyPress ~= nil then\
            --      self.focusedWidget:keyPress(key, char)\
            --  end\
            --end\
            --error(key .. \"k\")\
            self.widgets.edit:keyPress(key, char)\
        end,\
\
\
        getCanvas = function(self)\
            return self.canvas\
        end\
    }\
\
\
    return messageBox\
end",
        [ "http.exe" ] = "local running = true\
local downloading = {}\
local hosts = {}\
\
\
os.getProcessInfo(hwnd).showInTaskbar = false\
os.getProcessInfo(hwnd).title = \"Http service\"\
kernel.kiRegisterEventReceiver(\"http_success\")\
kernel.kiRegisterEventReceiver(\"http_failure\")\
\
if fs.exists(kernel.env.GetOsPath() .. \"system/drivers/etc/hosts\") then\
    local file = fs.open(kernel.env.GetOsPath() .. \"system/drivers/etc/hosts\", \"r\")\
    local data = file.readAll()\
    file.close()\
\
    data = string.gsub(data, \"\\r\", \"\")\
\
    local h = user.split(data, \"\\n\")\
    for i, v in ipairs(h) do\
        local hostData = user.split(v, \"   \")\
        hosts[hostData[1]] = hostData[2]\
    end\
end\
\
\
function getRequestURL(baseURL)\
    for k, v in pairs(hosts) do\
        if string.match(baseURL, k) then\
            local oldBaseURL = baseURL\
            baseURL = string.gsub(baseURL, \"%?\", \"%%%?\")\
            baseURL = string.gsub(baseURL, \"%/\", \"%%%/\")\
            baseURL = string.gsub(baseURL, \"%\\\\\", \"%%%\\\\\")\
            baseURL = string.gsub(baseURL, \"%&\", \"%%%&\")\
            baseURL = string.gsub(baseURL, \"%.\", \"%%%.\")\
            baseURL = string.gsub(baseURL, \"%:\", \"%%%:\")\
            baseURL = string.gsub(baseURL, \"%^\", \"%%%^\")\
            baseURL = string.gsub(baseURL, \"%$\", \"%%%$\")\
            baseURL = string.gsub(v, \"%%BASEURL%%\", baseURL)\
            baseURL = string.gsub(baseURL, \"%%BASEURL_ENCODED%%\", string.gsub(kernel.env.textutils.urlEncode(oldBaseURL), \"%%\", \"%%%%\"))\
        end\
    end\
\
    return baseURL\
end\
\
\
\
\
while running do\
    local message = os.getMessage(hwnd)\
\
    if message ~= nil then\
        if message.msg == \"request\" then\
            --pcall(function()\
                table.insert(downloading, { url = getRequestURL(message.url), postData = message.postData, headers = message.headers, \
                    onSuccess = message.onSuccess, onFail = message.onFail })\
                kernel.env.http.request(getRequestURL(message.url), message.postData, message.headers)\
            --end)\
        end\
\
        if message.msg == \"http_success\" then\
            local removal = {}\
\
            for k, v in pairs(downloading) do\
                if v.url == message.arg1 then\
                    v.onSuccess(message.arg1, message.arg2)\
                    table.insert(removal, k)\
                end\
            end\
\
            for k, v in pairs(removal) do\
                table.remove(downloading, k)\
            end\
\
            removal = nil\
        end\
\
        if message.msg == \"http_failure\" then\
            local removal = {}\
\
            for k, v in pairs(downloading) do\
                if v.url == message.arg1 then\
                    v.onFail(message.arg1)\
                    table.insert(removal, k)\
                end\
            end\
\
            for k, v in pairs(removal) do\
                table.remove(downloading, k)\
            end\
\
            removal = nil\
        end\
\
\
        --if (#downloading > 0) and (current == nil) then\
        --  current = table.remove(downloading)\
            \
        --end\
    end\
end\
\
\
kernel.kiUnRegisterEventReceiver(\"http_success\")\
kernel.kiUnRegisterEventReceiver(\"http_failure\")",
        cmnDialogs = {
          saveDialog = "\
function Create(_parent, name)\
    local saveDialog = openDialog.Create(_parent, name)\
\
    saveDialog.title = \"Save As...\"\
    saveDialog.oldExecute = saveDialog.execute\
\
    saveDialog.execute = function(self)\
        self:oldExecute()\
\
        self.dialogForm.widgets[\"Panel2\"].widgets[\"OpenButton\"].caption = \" Save\"\
\
        self.dialogForm.widgets[\"Panel2\"].widgets[\"OpenButton\"].onClick = function(sender)\
            local fn = sender.parent.parent.widgets[\"Panel\"].widgets[\"AddressBar\"].text .. \"/\" .. \
                sender.parent.parent.widgets[\"Panel2\"].widgets[\"FileName\"].text\
            fn = string.gsub(fn, \"//\", \"/\")\
            fn = string.gsub(fn, \"home:/\", \"\", 1)\
\
\
            if fs.exists(fn) and (not fs.isDir(fn)) then\
                local os2 = sender.parent.parent.parent.os\
                os2.messageBox(\"message\", \"This file already exists.\\nOverride?\", \"Warning\", \
                    { \
                        {caption = \"Yes\", onClick = function(sender2) \
                            os2.hideMessageBox()\
\
                            self.fileName = \"home:/\" .. fn\
                            self.dialogForm = nil\
                            self.lastActiveForm.parent.forms[\"\"] = nil\
                            self.lastActiveForm:show()\
                            --self.lastActiveForm.parent.activeForm = self.lastActiveForm\
\
                            self.parent.parent.os.sendMessage(self.parent.parent.hwnd, { msg = \"refresh\" })\
\
                            if self.onExecute ~= nil then\
                                self:onExecute()\
                            end\
                        end },\
                        {caption = \"No\", onClick = function(sender) os2.hideMessageBox() end } \
                    }, \"defText\")\
            else\
                if fs.isDir(fn) then\
                    self.dialogForm.widgets[\"listView\"]:navigate(\"home:/\" .. fn)\
                else\
                    self.fileName = \"home:/\" .. fn\
                    self.dialogForm = nil\
                    self.lastActiveForm:show()\
                    --self.lastActiveForm.parent.activeForm = self.lastActiveForm\
\
                    if self.onExecute ~= nil then\
                        self:onExecute()\
                    end\
\
                    self.parent.parent.os.sendMessage(self.parent.parent.hwnd, { msg = \"refresh\" })\
                end\
            end\
        end\
    end\
\
    --kiMain.c -o kiMain.bin -Wl,--subsystem,native\
\
\
    return saveDialog\
end",
          openDialog = "\
function Create(_parent, name)\
    local dialog = {\
        parent = _parent,\
        left = 0,\
        top = 0, \
        height = 0,\
        width = 0,\
        focused = false,\
        visible = true,\
        dialogForm = nil,\
        title = \"Open...\",\
        initialDir = \"home:/\",\
        lastActiveForm = nil,\
        fileName = nil,\
        onExecute = nil,\
\
\
        refresh = function(self)\
            if self.dialogForm ~= nil then\
                self.dialogForm.parent = self.parent.parent\
                self.dialogForm:refresh()\
            end\
        end,\
\
\
        execute = function(self)\
            self.lastActiveForm = self.parent.parent.activeForm\
\
            self.dialogForm = form.Create(\"CommonDialogForm\")\
            self.dialogForm.parent = self.parent.parent\
            self.parent.parent:addForm(self.dialogForm, \"CommonDialogForm\")\
            self.dialogForm:show()\
\
            self.dialogForm.name = self.title\
            self.dialogForm.controlBox = false\
            self.dialogForm.bgcolor = colors.white\
\
\
            local listView = fileListView.Create(self.dialogForm, \"listView\")\
            listView.bgcolor = colors.white\
            listView.top = 1 + 3\
            listView.left = 1\
            listView.width = self.parent.parent.canvas.size.x\
            listView.height = self.parent.parent.canvas.size.y - 1 - 3   - 3\
            listView.lastTime = 0\
\
            listView.path = self.initialDir\
            listView:refreshList()\
\
\
            self.parent.parent.os.sendMessage(self.parent.parent.hwnd, { msg = \"refresh\" })\
\
            listView.onClick = function(sender)\
                local time = os.time()\
\
                if #sender.selectedList > 0 then\
                    sender.parent.widgets[\"Panel2\"].widgets[\"FileName\"].text = sender.list[sender.selectedList[1]].name\
                    sender.parent.widgets[\"Panel2\"].widgets[\"FileName\"]:refresh()\
                end\
\
                if (time - sender.lastTime) * 10 < 0.1 then\
                    local selected = listView.selectedList\
                    if #selected > 0 then\
                        listView:navigate(listView.list[selected[1]].name, true, self.parent.parent.os)\
                        listView.selectedList = {}\
                    end\
                end\
\
                sender.lastTime = time\
            end\
\
            listView.onNavigate = function(sender, path)\
                sender.parent.widgets[\"Panel\"].widgets[\"AddressBar\"].text = path\
                sender.selectedList = {}\
            end\
\
\
\
            local panel1 = panel.Create(self.dialogForm, \"Panel\")\
            panel1.top = 1\
            panel1.left = 0\
            panel1.width = self.parent.parent.canvas.size.x\
            panel1.height = 3\
            panel1.bgcolor = colors.lightBlue\
\
\
            local panel2 = panel.Create(self.dialogForm, \"Panel2\")\
            panel2.top = 1 + panel1.height + listView.height\
            panel2.left = 0\
            panel2.width = self.parent.parent.canvas.size.x\
            panel2.height = 3\
            panel2.bgcolor = colors.lightGray\
\
\
            local fnLabel = label.Create(panel2, \"FnLabel\")\
            fnLabel.left = 2\
            fnLabel.top = 2\
            fnLabel.height = 1\
            fnLabel.align = \"left\"\
            fnLabel.caption = \"File Name:\"\
            fnLabel.width = string.len(fnLabel.caption) + 1\
\
            local fileName = edit.Create(panel2, \"FileName\")\
            fileName.left = fnLabel.left + fnLabel.width\
            fileName.top = 2\
            fileName.height = 1\
            fileName.width = self.parent.parent.canvas.size.x - fileName.left - 16 - 2\
            fileName.text = \"\"\
\
            --fileName.onRefresh = function(sender)\
                --sender.text = string.gsub(sender.text, \"%/%/\", \"%/\")\
                --if #listView.selectedList > 0 then\
                    --sender.text = listView.list[listView.selectedList[1]].name\
                --else\
                    --sender.text = \"\"\
                --end\
            --end\
\
\
            local openButton = button.Create(panel2, \"OpenButton\")\
            openButton.left = fileName.left + fileName.width + 1\
            openButton.top = 2\
            openButton.height = 1\
            openButton.width = 8\
            --openButton.forecolor2 = colors.white\
            openButton.align = \"center\"\
            openButton.caption = \" Open\"\
\
            openButton.onClick = function(sender)\
                local fn = sender.parent.parent.widgets[\"Panel\"].widgets[\"AddressBar\"].text .. \"/\" .. fileName.text\
                fn = string.gsub(fn, \"//\", \"/\")\
                fn = string.gsub(fn, \"home:/\", \"\", 1)\
\
                if fs.exists(fn) and (not fs.isDir(fn)) then\
                    self.fileName = \"home:/\" .. fn\
                    self.dialogForm = nil\
                    self.lastActiveForm.parent.forms[\"CommonDialogForm\"] = nil\
                    self.lastActiveForm:show()\
                    --self.lastActiveForm.parent.activeForm = self.lastActiveForm\
                    self.parent.parent.os.sendMessage(self.parent.parent.hwnd, { msg = \"refresh\" })\
\
                    if self.onExecute ~= nil then\
                        self:onExecute()\
                    end\
                else\
                    local os2 = sender.parent.parent.parent.os\
                    os2.messageBox(\"message\", \"This file does not exist!\\nPlease select another file.\", \"Warning\", \
                        { \
                            {caption = \"OK\", onClick = function(sender) os2.hideMessageBox() end } \
                        }, \"defText\")\
                end\
            end\
\
\
            local cancelButton = button.Create(panel2, \"CancelButton\")\
            cancelButton.left = openButton.left + openButton.width + 1\
            cancelButton.top = 2\
            cancelButton.height = 1\
            cancelButton.width = 8\
            --openButton.forecolor2 = colors.white\
            cancelButton.align = \"center\"\
            cancelButton.caption = \" Cancel\"\
\
            cancelButton.onClick = function(sender)\
                self.fileName = nil\
                --self.parent.parent.forms[\"OpenDialogForm\"] = nil\
                self.dialogForm = nil\
                self.lastActiveForm:show()\
            end\
\
\
\
            local backButton = button.Create(panel1, \"BackButton\")\
            backButton.bgcolor = colors.blue\
            backButton.left = 2\
            backButton.top = 2\
            backButton.height = 1\
            backButton.width = 4\
            backButton.forecolor2 = colors.white\
            backButton.align = \"center\"\
            backButton.caption = \" <-\"\
\
            backButton.onClick = function(sender)\
                listView:goBack()\
            end\
\
\
            local addressBar = edit.Create(panel1, \"AddressBar\")\
            addressBar.left = 2 + 9 + 1\
            addressBar.top = 2\
            addressBar.height = 1\
            addressBar.width = self.parent.parent.canvas.size.x - 2 - 4 - 1 - 5\
            addressBar.text = self.initialDir\
\
            addressBar.onRefresh = function(sender)\
                sender.text = string.gsub(sender.text, \"%/%/\", \"%/\")\
            end\
\
\
\
            local goButton = button.Create(panel1, \"GoButton\")\
            goButton.left = 2 + 4 + 1\
            goButton.bgcolor = colors.blue\
                goButton.top = 2\
            goButton.height = 1\
            goButton.width = 4\
            goButton.forecolor2 = colors.white\
            goButton.align = \"center\"\
            goButton.caption = \" ->\"\
\
            goButton.onClick = function(sender)\
                if addressBar.text:find(\"home:/\") then\
                    listView:navigate(addressBar.text)\
                else\
                    listView:navigate(\"home:/\" .. addressBar.text)\
                end\
            end\
        end,\
    }\
\
    _parent.widgets[name] = dialog\
    _parent.lastZOrder = _parent.lastZOrder + 1\
    dialog.zOrder = _parent.lastZOrder\
    return dialog\
end",
        },
        pathutils = "\
function split(self, sep)\
    local sep, fields = sep or \":\", {}\
    local pattern = string.format(\"([^%s]+)\", sep)\
    self:gsub(pattern, function(c) fields[#fields+1] = c end)\
    return fields\
end\
\
function string.starts(String,Start)\
   return string.sub(String,1,string.len(Start))==Start\
end\
\
function string.ends(String,End)\
   return End=='' or string.sub(String,-string.len(End))==End\
end\
\
\
\
function expand(line)\
    local expanded = split(line, \" \")\
    local args = {}\
    local i = 1\
\
    repeat\
        if string.starts(expanded[i], \"\\\"\") and (not string.ends(expanded[i], \"\\\"\")) then\
            local str = \"\"\
\
            repeat\
                str = str .. expanded[i] .. \" \"\
                i = i + 1\
            until string.ends(expanded[i-1], \"\\\"\")\
\
            str = string.gsub(str, \"\\\"\", \"\")\
            str = string.sub(str, 1, string.len(str) - 1)\
            table.insert(args, str)\
        else\
            expanded[i] = string.gsub(expanded[i], \"\\\"\", \"\")\
            table.insert(args, expanded[i])\
        end\
\
        i = i + 1\
    until i > #expanded\
\
    return args\
end\
\
\
function extractFilePath(fileName)\
    if string.starts(fileName, \"home:/\") then\
        fileName = string.gsub(fileName, \"home:/\", \"\")\
    end\
\
    fileName = string.gsub(fileName, \"//\", \"/\")\
\
\
    local data = split(fileName, \"/\")\
    local result = \"\"\
\
    if #data > 1 then\
        for i = 1, #data - 1 do\
            result = result .. data[i] .. \"/\"\
        end\
    else\
        result = \"\"\
    end\
\
    --error(result)\
    return \"home:/\" .. result\
end\
\
\
function extractFileName(fileName)\
    if (fileName ~= nil) and (type(fileName) == \"string\") then\
        local data = split(fileName, \"/\")\
        return data[#data]\
    else\
        return \"\"\
    end\
end\
\
\
function extractRealFileName(fileName)\
    if (fileName ~= nil) and (type(fileName) == \"string\") then\
        local data = extractFileName(split(fileName, \"%.\"))\
        return data[1]\
    else\
        return \"\"\
    end\
end\
\
\
function buildUp(args)\
    local result = \"\"\
\
    for i, v in ipairs(args) do\
        result = result .. v .. \" \"\
    end\
\
    return result\
end",
        application = "\
\
function Create(processInfo, _os)\
    local _canvas = processInfo.canvas\
    local _hwnd = processInfo.hwnd\
    _canvas.autoScroll = false\
\
    --return canvas\
\
    local result = {\
        hwnd = _hwnd,\
        canvas = _canvas,\
        os = _os,\
        forms = { },\
        activeForm = nil,\
        running = true,\
        info = processInfo,\
        ctrlCount = 0,\
        threads = {},\
\
\
        run = function(self)\
            while self.running do\
                if self.ctrlCount > 0 then self.ctrlCount = self.ctrlCount - 0.1 end\
                if self.ctrlCount < 0 then self.ctrlCount = 0 end\
                \
\
                local message = self.os.getMessage(self.hwnd)\
                local threadsRemoval = {}\
\
                for k, v in pairs(self.threads) do\
                    if v ~= nil then\
                        if coroutine.status(v) == \"suspended\" then\
                            status, err = coroutine.resume(v)\
                            if not status then\
                                error(tostring(err))\
                            end\
                        else\
                            table.insert(threadsRemoval, k)\
                        end\
                    end\
                end\
\
                local threads = {}\
                for k, v in pairs(threadsRemoval) do\
                    self.threads[k] = nil\
                end\
                for k, v in pairs(self.threads) do\
                    if v ~= nil then\
                        table.insert(threads, v)\
                    end\
                end\
                self.threads = threads\
\
\
                if message ~= nil then\
                    if self.activeForm ~= nil then\
                        if (message.msg == \"key\") or (message.msg == \"char\") then\
                            if self.activeForm.keyPress ~= nil then\
                                self.activeForm:keyPress(message.key, message.char)\
                            end\
\
                            if (message.key == 29) or (message.key == 157) then\
                                self.ctrlCount = 1\
                            end\
                        end\
\
                        if message.msg == \"mouse_click\" then\
                            if self.activeForm.mouseClick ~= nil then\
                                self.activeForm:mouseClick(message.button, message.x, message.y)\
                            end\
                        end\
\
                        if message.msg == \"mouse_drag\" then\
                            if self.activeForm.mouseDrag ~= nil then\
                                self.activeForm:mouseDrag(message.button, message.x, message.y)\
                            end\
                        end\
\
                        if self.activeForm.onMessage ~= nil then\
                            self.activeForm:onMessage(message)\
                        end\
\
                        if (self.os.getActiveProcess() == self.hwnd) or (message.msg == \"create\") or (message.msg == \"refresh\") then\
                            self.os.hideCaret()\
                            self.activeForm:refresh()\
                        end\
                    end\
                end\
            end\
\
            self.os.hideCaret()\
        end,\
\
\
        addForm = function(self, form, name)\
            self.forms[name] = form\
            form.parent = self\
            form.name = name\
        end,\
\
\
        terminate = function(self)\
            self.running = false\
            self.canvas.cursorBlink = false\
            self.os.hideCaret()\
            self.os.sendMessage(self.hwnd, { msg = \"refresh\" })\
        end,\
\
\
        showMessage = function(self, message)\
            self.os.messageBox(\"message\", message, self.activeForm.name, {{ caption = \"OK\", onClick = function(sender) self.os.hideMessageBox() end }}, \"defText\")\
        end,\
\
\
        isCtrlDown = function(self)\
            if self.ctrlCount > 0 then return true else return false end\
        end,\
\
\
        createThread = function(self, proc)\
            if type(proc) ~= \"function\" then\
                return false\
            end\
            table.insert(self.threads, coroutine.create(proc))\
            return true\
        end,\
    }\
\
    return result\
end\
\
\
function Create2()\
    return \"Success.\"\
end",
        user = "local lastCursorBlink = false\
local oldSetCursorBlink = term.setCursorBlink\
\
function split(self, sep)\
    local sep, fields = sep or \":\", {}\
    local pattern = string.format(\"([^%s]+)\", sep)\
    self:gsub(pattern, function(c) fields[#fields+1] = c end)\
    return fields\
end\
\
function stringstarts(String,Start)\
   return string.sub(String,1,string.len(Start))==Start\
end\
\
function stringends(String,End)\
   return End=='' or string.sub(String,-string.len(End))==End\
end\
\
function round(num, idp)\
  local mult = 10^(idp or 0)\
  return math.floor(num * mult + 0.5) / mult\
end\
\
\
\
term.setCursorBlink = function(bool)\
    lastCursorBlink = bool\
    oldSetCursorBlink(bool)\
end\
\
\
\
function CreateCanvas(sizeX, sizeY)\
    local videoData = { }\
\
    for y = 1, sizeY do\
        videoData[y] = { }\
        for x = 1, sizeX do\
            videoData[y][x] = { bgcolor = colors.white, forecolor = colors.black, char = \" \" }\
        end\
    end\
\
\
    local canvas = {\
        size = { x = sizeX, y = sizeY },\
        cursorPos = { x = 1, y = 1 },\
        data = videoData,\
        bgcolor = colors.white,\
        forecolor = colors.black,\
        autoScroll = false,\
        showCursor = true,\
        cursorBlink = false,\
        effect = nil,\
\
\
        render = function(self, left, top, changeBlinking)\
            local cx, cy = term.getCursorPos()\
            local oldBlink = lastCursorBlink\
\
            --if changeBlinking == true then term.setCursorBlink(self.cursorBlink) end\
\
            for y = 1, self.size.y do\
                if self.data[y] ~= nil then\
                    for x = 1, self.size.x do\
                        if self.data[y][x] ~= nil then\
                            term.setCursorPos(x + left, y + top)\
\
                            if type(self.data[y][x].bgcolor) == \"number\" then\
                                if self.effect ~= nil then\
                                    term.setBackgroundColor(self.effect:getbgcolor(x, y, self.data[y][x].bgcolor, self.data[y][x].forecolor, self.data[y][x].char))\
                                else\
                                    if self.data[y][x].bgcolor > 0 then\
                                        term.setBackgroundColor(self.data[y][x].bgcolor)\
                                    end\
                                end\
                            end\
\
                            if self.effect ~= nil then\
                                term.setTextColor(self.effect:getforecolor(x, y, self.data[y][x].bgcolor, self.data[y][x].forecolor, self.data[y][x].char))\
                                term.write(self.effect:getchar(x, y, self.data[y][x].bgcolor, self.data[y][x].forecolor, self.data[y][x].char))\
                            else\
                                term.setTextColor(self.data[y][x].forecolor)\
\
                                if self.data[y][x].bgcolor ~= 0 then\
                                    term.write(self.data[y][x].char)\
                                else\
                                    local x, y = term.getCursorPos()\
                                    term.setCursorPos(x + 1, y)\
                                end\
                            end\
                        end\
                    end\
                end\
            end\
\
            --if changeBlinking == true then term.setCursorBlink(oldBlink) end\
            --term.setCursorPos(cx, cy)\
        end,\
\
\
        clear = function(self)\
            for y = 1, self.size.y do\
                for x = 1, self.size.x do\
                    self.data[y][x] = { bgcolor = self.bgcolor, forecolor = self.forecolor, char = \" \" }\
                end\
            end\
        end,\
\
\
        write = function(self, str)\
            for c in string.gmatch(str, \".\") do\
                if (self.cursorPos.y >= 1) and (self.cursorPos.y <= self.size.y) and\
                    (self.cursorPos.x >= 1) and (self.cursorPos.x <= self.size.x) then\
\
                    self.data[self.cursorPos.y][self.cursorPos.x].char = c\
                    self.data[self.cursorPos.y][self.cursorPos.x].bgcolor = self.bgcolor\
                    self.data[self.cursorPos.y][self.cursorPos.x].forecolor = self.forecolor\
                    self.cursorPos.x = self.cursorPos.x + 1\
\
                    if self.cursorPos.x > self.size.x then\
                        self.cursorPos.x = 1\
                        self.cursorPos.y = self.cursorPos.y + 1\
\
                        if (self.autoScroll) and (self.cursorPos.y >= self.size.y) then\
                            self.size.y = self.size.y + 1\
\
                            self.data[self.size.y] = {}\
                            for x = 1, self.size.x do\
                                self.data[self.size.y][x] = { bgcolor = self.bgcolor, forecolor = self.forecolor, char = \" \" }\
                            end\
                        end\
                    end\
                end\
            end\
        end,\
\
\
        fillrect = function(self, left, top, width, height, bgcolor)\
            for y = top, top + height do\
                for x = left, left + width do\
                    if (y >= 1) and (y <= self.size.y) and\
                        (x >= 1) and (x <= self.size.x) then\
                        self.data[y][x].bgcolor = bgcolor\
                        self.data[y][x].char = \" \"\
                    end\
                end\
            end\
        end,\
\
\
        print = function(self, str)\
            local function newLine()\
                self.cursorPos.x = 1\
                self.cursorPos.y = self.cursorPos.y + 1\
\
                if (self.autoScroll) and (self.cursorPos.y > self.size.y) then\
                    self.size.y = self.size.y + 1\
                    --print(self.size.y)\
                    self.data[self.size.y] = {}\
                    for x = 1, self.size.x do\
                        self.data[self.size.y][x] = { bgcolor = self.bgcolor, forecolor = self.forecolor, char = \" \" }\
                    end\
                end\
            end\
\
\
            local function printBlock(block)\
                local words = split(block, \" \")\
\
                for i, v in ipairs(words) do\
                    if i < #words then\
                        if self.cursorPos.x + string.len(v) + 1 > self.size.x then\
                            newLine()\
                        end\
                        self.write(self, v .. \" \")\
                    else\
                        if self.cursorPos.x + string.len(v) > self.size.x then\
                            newLine()\
                        end\
                        self.write(self, v)\
                    end\
                end\
            end\
\
            str = str .. \"\\n\"\
            blocks = split(str, \"\\n\")\
\
            for i, v in ipairs(blocks) do\
                printBlock(v)\
                newLine()\
            end\
        end,\
\
\
        draw = function(self, left, top, graphic, arg1, transparent, transColor)\
            if transparent then\
                transColor = transColor or colors.white\
            else\
                transColor = nil\
            end\
\
            for y = 1, graphic.size.y do\
                for x = 1, graphic.size.x do\
                    if (y + top >= 1) and (y + top <= self.size.y) and\
                       (x + left >= 1) and (x + left <= self.size.x) and\
                       (y >= 1) and (y <= graphic.size.y) and\
                       (x >= 1) and (x <= graphic.size.x) then\
                        if (transparent and graphic.data[y][x].bgcolor ~= transColor) or not transparent then\
                            if graphic.effect ~= nil then\
                                self.data[y + top][x + left].char = \
                                    graphic.effect:getchar(x, y, graphic.data[y][x].bgcolor, graphic.data[y][x].forecolor, graphic.data[y][x].char)\
                                self.data[y + top][x + left].bgcolor = \
                                    graphic.effect:getbgcolor(x, y, graphic.data[y][x].bgcolor, graphic.data[y][x].forecolor, graphic.data[y][x].char)\
                                self.data[y + top][x + left].forecolor = \
                                    graphic.effect:getforecolor(x, y, graphic.data[y][x].bgcolor, graphic.data[y][x].forecolor, graphic.data[y][x].char)\
                            else\
                                --if graphic.data[y][x].char ~= \"\\r\" then self.data[y + top][x + left].char = graphic.data[y][x].char else\
                                --  self.data[y + top][x + left].char = \"^\" end\
\
                                self.data[y + top][x + left].char = graphic.data[y][x].char\
                                self.data[y + top][x + left].bgcolor = graphic.data[y][x].bgcolor\
                                self.data[y + top][x + left].forecolor = graphic.data[y][x].forecolor\
                            end\
                        end\
                    end\
                end\
            end\
\
            term.setCursorPos(graphic.cursorPos.x, graphic.cursorPos.y)\
            term.setCursorBlink(graphic.cursorBlink)\
        end,\
\
\
        point = function(self, x, y, char)\
            if self.data[y] ~= nil then\
                if self.data[y][x] ~= nil then\
                    self.data[y][x].bgcolor = self.bgcolor\
                    self.data[y][x].forecolor = self.forecolor\
                    self.data[y][x].char = char\
                end\
            end\
        end,\
\
\
        scroll = function(self, n)\
            self:draw(0, -n, self)\
            self:fillrect(1, self.size.y - n, self.size.x, n, self.bgcolor)\
        end,\
\
\
        setCursorPos = function(self, x, y)\
            self.cursorPos.x = x\
            self.cursorPos.y = y\
        end,\
\
        getCursorPos = function(self)\
            return self.cursorPos.x, self.cursorPos.y\
        end,\
\
        getSize = function(self)\
            return self.size.x, self.size.y\
        end,\
    }\
\
    return canvas\
end\
\
\
function getTextColor(color)\
    local COLORS = {}\
\
    COLORS[0] = \"t\" -- transparent\
    COLORS[1] = \"0\"\
    COLORS[2] = \"1\"\
    COLORS[4] = \"2\"\
    COLORS[8] = \"3\"\
    COLORS[16] = \"4\"\
    COLORS[32] = \"5\"\
    COLORS[64] = \"6\"\
    COLORS[128] = \"7\"\
    COLORS[256] = \"8\"\
    COLORS[512] = \"9\"\
    COLORS[1024] = \"a\"\
    COLORS[2048] = \"b\"\
    COLORS[4096] = \"c\"\
    COLORS[8192] = \"d\"\
    COLORS[16384] = \"e\"\
    COLORS[32768] = \"f\"\
\
    return COLORS[color]\
end\
\
\
function getColorFromStr(str)\
    local COLORS = {}\
\
    COLORS[\"t\"] = 0 -- transparent\
    COLORS[\"0\"] = 1\
    COLORS[\"1\"] = 2\
    COLORS[\"2\"] = 4\
    COLORS[\"3\"] = 8\
    COLORS[\"4\"] = 16\
    COLORS[\"5\"] = 32\
    COLORS[\"6\"] = 64\
    COLORS[\"7\"] = 128\
    COLORS[\"8\"] = 256\
    COLORS[\"9\"] = 512\
    COLORS[\"a\"] = 1024\
    COLORS[\"b\"] = 2048\
    COLORS[\"c\"] = 4096\
    COLORS[\"d\"] = 8192\
    COLORS[\"e\"] = 16384\
    COLORS[\"f\"] = 32768\
\
    return COLORS[str]\
end\
\
\
function pixelToString(pixel)\
    local bgcolor = getTextColor(pixel.bgcolor)\
    local forecolor = getTextColor(pixel.forecolor)\
    local char = string.sub(pixel.char, 1, 2) or \" \"\
\
    return bgcolor .. forecolor .. char\
end\
\
\
\
\
\
function saveCanvas(canvas, fileName)\
    fileName = string.gsub(fileName, \"home:/\", \"\")\
\
    if canvas ~= nil then\
        local data = \"pic|\" .. canvas.size.y .. \"|\" .. canvas.size.x .. \"|\"\
\
        for y = 1, canvas.size.y do\
            for x = 1, canvas.size.x do\
                data = data .. pixelToString(canvas.data[y][x])\
            end\
        end\
\
        local file = fs.open(fileName, \"w\")\
\
        if file ~= nil then\
            file.write(data)\
            file.close()\
        end\
    end\
end\
\
\
function loadCanvas(fileName)\
    fileName = string.gsub(fileName, \"home:/\", \"\")\
    local canvas = nil\
\
    if (fs.exists(fileName)) and (fs.isDir(fileName) == false) then\
        local file = fs.open(fileName, \"r\")\
\
        if file ~= nil then\
            local data = file.readAll()\
            file.close()\
\
            local sections = split(data, \"|\")\
\
            if sections[1] == \"pic\" then\
                local sizeY = tonumber(sections[2])\
                local sizeX = tonumber(sections[3])\
                local datasec = sections[4]\
\
                canvas = CreateCanvas(sizeX, sizeY)\
\
                for y = 1, sizeY do\
                    for x = 1, sizeX do\
                        local index = (((y - 1) * sizeX + (x - 1)) * 3) + 1\
                        local bgcolor = getColorFromStr(string.sub(datasec, index, index))\
                        local forecolor = getColorFromStr(string.sub(datasec, index + 1, index + 1))\
                        local char = string.sub(datasec, index + 2, index + 2)\
\
                        --error(index .. \":\" .. string.sub(datasec, index, index) .. \"!\")\
\
                        canvas.data[y][x].bgcolor = bgcolor\
                        canvas.data[y][x].forecolor = forecolor\
                        canvas.data[y][x].char = char\
                    end\
                end\
\
                return canvas\
            end\
        end\
    end\
end\
\
\
\
\
\
\
function contrast_color(color)\
    if color == colors.black then return colors.white end\
    if color == colors.orange then return colors.black end\
    if color == colors.magenta then return colors.black end\
    if color == colors.lightBlue then return colors.black end\
    if color == colors.yellow then return colors.black end\
    if color == colors.lime then return colors.white end\
    if color == colors.pink then return colors.white end\
    if color == colors.gray then return colors.white end\
    if color == colors.lightGray then return colors.black end\
    if color == colors.cyan then return colors.white end\
    if color == colors.purple then return colors.white end\
    if color == colors.blue then return colors.white end\
    if color == colors.brown then return colors.white end\
    if color == colors.green then return colors.white end\
    if color == colors.red then return colors.white end\
    if color == colors.white then return colors.black end\
    return colors.white\
end\
\
\
\
function CreateEffect_Shadow()\
    local effect = {\
        getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
            if bgcolor == colors.black then return colors.gray end\
            if bgcolor == colors.orange then return colors.lightGray end\
            if bgcolor == colors.magenta then return colors.lightGray end\
            if bgcolor == colors.lightBlue then return colors.lightGray end\
            if bgcolor == colors.yellow then return colors.lightGray end\
            if bgcolor == colors.lime then return colors.lightGray end\
            if bgcolor == colors.pink then return colors.lightGray end\
            if bgcolor == colors.gray then return colors.gray end\
            if bgcolor == colors.lightGray then return colors.gray end\
            if bgcolor == colors.cyan then return colors.gray end\
            if bgcolor == colors.purple then return colors.gray end\
            if bgcolor == colors.blue then return colors.gray end\
            if bgcolor == colors.brown then return colors.gray end\
            if bgcolor == colors.green then return colors.gray end\
            if bgcolor == colors.red then return colors.lightGray end\
            if bgcolor == colors.white then return colors.lightGray end\
            return colors.gray\
        end,\
\
        getforecolor = function(self, x, y, bgcolor, forecolor, char)\
            if forecolor == colors.black then return colors.gray end\
            if forecolor == colors.orange then return colors.lightGray end\
            if forecolor == colors.magenta then return colors.lightGray end\
            if forecolor == colors.lightBlue then return colors.lightGray end\
            if forecolor == colors.yellow then return colors.lightGray end\
            if forecolor == colors.lime then return colors.lightGray end\
            if forecolor == colors.pink then return colors.lightGray end\
            if forecolor == colors.gray then return colors.gray end\
            if forecolor == colors.lightGray then return colors.gray end\
            if forecolor == colors.cyan then return colors.gray end\
            if forecolor == colors.purple then return colors.gray end\
            if forecolor == colors.blue then return colors.gray end\
            if forecolor == colors.brown then return colors.gray end\
            if forecolor == colors.green then return colors.gray end\
            if forecolor == colors.red then return colors.lightGray end\
            if forecolor == colors.white then return colors.lightGray end\
            return colors.gray\
        end,\
\
        getchar = function(self, x, y, bgcolor, forecolor, char)\
            return char\
        end,\
    }\
\
\
    return effect\
end\
\
\
\
function CreateEffect_Acid()\
    local function RANDOMCOLOR(COLOR_BASE)\
        local COLORS = { 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096, 8192, 16384, 32768 }\
        math.randomseed(COLOR_BASE * os.time())\
\
        if COLORS[math.random(1, 16)] ~= nil then\
            return COLORS[math.random(1, 16)]\
        else\
            return colors.white\
        end\
    end\
\
\
    local effect = {\
        getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
            return RANDOMCOLOR(bgcolor / 2)\
        end,\
\
        getforecolor = function(self, x, y, bgcolor, forecolor, char)\
            return RANDOMCOLOR(forecolor / 2)\
        end,\
\
        getchar = function(self, x, y, bgcolor, forecolor, char)\
            return char\
        end,\
    }\
\
    return effect\
end\
\
\
function CreateEffect_ListViewSelect()\
    local effect = {\
        getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
            if bgcolor == colors.black then return colors.blue end\
            if bgcolor == colors.orange then return colors.blue end\
            if bgcolor == colors.magenta then return colors.lightBlue end\
            if bgcolor == colors.lightBlue then return colors.blue end\
            if bgcolor == colors.yellow then return colors.lightBlue end\
            if bgcolor == colors.lime then return colors.lightBlue end\
            if bgcolor == colors.pink then return colors.lightBlue end\
            if bgcolor == colors.blue then return colors.blue end\
            if bgcolor == colors.lightGray then return colors.lightBlue end\
            if bgcolor == colors.cyan then return colors.blue end\
            if bgcolor == colors.purple then return colors.blue end\
            if bgcolor == colors.blue then return colors.blue end\
            if bgcolor == colors.brown then return colors.blue end\
            if bgcolor == colors.green then return colors.blue end\
            if bgcolor == colors.red then return colors.lightBlue end\
            if bgcolor == colors.white then return colors.lightBlue end\
            return colors.blue\
        end,\
\
        getforecolor = function(self, x, y, bgcolor, forecolor, char)\
            if self:getbgcolor(x, y, bgcolor, forecolor, char) == colors.blue then return colors.lightBlue else return colors.blue end\
        end,\
\
        getchar = function(self, x, y, bgcolor, forecolor, char)\
            return char\
        end,\
    }\
\
\
    return effect\
end",
        form = "\
function Create(name)\
    local form = {\
        name = name,\
        parent = nil,\
        widgets = {},\
        focusedWidget = nil,\
        style = \"double\",\
        controlBox = true,\
        lastZOrder = 0,\
        bgcolor = colors.lightGray,\
        os = nil,\
        left = 0, --For compatibility with widgets.Panel\
        top = 0,\
\
\
        refresh = function(self)\
            if self.parent ~= nil then\
                self.parent.canvas:fillrect(1, 1, self.parent.canvas.size.x, 1, colors.lightBlue)\
                self.parent.canvas:fillrect(1, 2, self.parent.canvas.size.x, self.parent.canvas.size.y - 1, self.bgcolor)\
                self.parent.canvas:setCursorPos(2, 1)\
\
                self.parent.canvas.bgcolor = colors.lightBlue\
                self.parent.canvas.forecolor = colors.white\
                self.parent.canvas:write(self.name)\
                self.os = self.parent.os\
\
                if self.controlBox then\
                    self.parent.canvas:setCursorPos(self.parent.canvas.size.x - 2, 1)\
                    self.parent.canvas.bgcolor = colors.red\
                    self.parent.canvas.forecolor = colors.white\
                    self.parent.canvas:write(\" X \")\
\
                    self.parent.canvas:setCursorPos(self.parent.canvas.size.x - 4, 1)\
                    self.parent.canvas.bgcolor = colors.lightBlue\
                    self.parent.canvas.forecolor = colors.white\
                    self.parent.canvas:write(\"_ \")\
                end\
\
                if self.onRefresh ~= nil then\
                    self:onRefresh()\
                end\
\
\
                t = {}\
\
                for k, v in pairs(self.widgets) do\
                    table.insert(t, v)\
                end\
\
\
                local sort = function(arg1, arg2)\
                    return arg1.zOrder < arg2.zOrder\
                end\
\
                table.sort(t, sort)\
\
\
                --for k, v in pairs(self.widgets) do\
                for k, v in ipairs(t) do\
                    if self.focusedWidget == v then\
                        v.focused = true\
                    else\
                        v.focused = false\
\
                        if v.onRefresh ~= nil then\
                            v:onRefresh()\
                        end\
\
                        if v.visible == true then\
                            v:refresh()\
                        end\
                    end\
                end\
\
                if self.focusedWidget ~= nil then\
                    if self.focusedWidget.onRefresh ~= nil then\
                        self.focusedWidget:onRefresh()\
                    end\
\
                    self.focusedWidget:refresh()\
                end\
            end\
        end,\
\
\
        show = function(self)\
            if self.parent ~= nil then\
                self.parent.activeForm = self\
                self.parent.info.title = self.name\
            end\
        end,\
\
\
        mouseClick = function(self, button, x, y)\
            --[[self.parent.canvas.cursorPos.x = 1\
            self.parent.canvas.cursorPos.y = 2\
\
            self.parent.canvas:write(x)\
            self.parent.canvas:write(\" \")\
            self.parent.canvas:write(y)]]\
            self.focusedWidget = nil\
\
            if self.controlBox then\
                if (x == self.parent.canvas.size.x) and (y == 1) then\
                    if self.onTerminate ~= nil then\
                        if self:onTerminate() then\
                            self.parent:terminate()\
                        end\
                    else\
                        self.parent:terminate()\
                    end\
                end\
\
                if (x == self.parent.canvas.size.x - 1) and (y == 1) then\
                    if self.onTerminate ~= nil then\
                        if self:onTerminate() then\
                            self.parent:terminate()\
                        end\
                    else\
                        self.parent:terminate()\
                    end\
                end\
\
                if (x == self.parent.canvas.size.x - 2) and (y == 1) then\
                    if self.onTerminate ~= nil then\
                        if self:onTerminate() then\
                            self.parent:terminate()\
                        end\
                    else\
                        self.parent:terminate()\
                    end\
                end\
\
                if (x == self.parent.canvas.size.x - 3) and (y == 1) then\
                    self.parent.os.setActiveProcess(-1)\
                end\
\
                if (x == self.parent.canvas.size.x - 4) and (y == 1) then\
                    self.parent.os.setActiveProcess(-1)\
                end\
            end\
\
\
            if --[[self.focusedWidget ~= nil]] false then\
                local widget = self.focusedWidget\
                if (x >= widget.left) and (x <= widget.left + widget.width) and \
                    (y > widget.top) and (y <= widget.top + widget.height) then\
                    if button == 1 then\
                        if widget.onClick ~= nil then\
                            widget:onClick()\
                        end\
                    else\
                        if widget.onPopup ~= nil then\
                            widget:onPopup()\
                        end\
                    end\
\
                    if widget.onMouseClick ~= nil then\
                        widget:onMouseClick(button, x, y)\
                    end\
\
                    if widget.mouseClick ~= nil then\
                        widget:mouseClick(button, x, y)\
                    end\
                end\
            end\
\
            for name, widget in pairs(self.widgets) do\
                if (x >= widget.left) and (x < widget.left + widget.width) and \
                    (y > widget.top) and (y <= widget.top + widget.height) then\
                    self.focusedWidget = widget\
\
\
                    if widget.onMouseClick ~= nil then\
                        widget:onMouseClick(button, x, y)\
                    end\
\
                    if widget.mouseClick ~= nil then\
                        widget:mouseClick(button, x, y)\
                    end\
\
\
                    if button == 1 then\
                        if widget.onClick ~= nil then\
                            widget:onClick()\
                        end\
                    else\
                        if widget.onPopup ~= nil then\
                            widget:onPopup()\
                        end\
                    end\
                end\
            end\
        end,\
\
\
        mouseDrag = function(self, button, x, y)\
            self.focusedWidget = nil\
\
            for name, widget in pairs(self.widgets) do\
                if (x >= widget.left) and (x < widget.left + widget.width) and \
                    (y > widget.top) and (y <= widget.top + widget.height) then\
                    self.focusedWidget = widget\
\
\
                    if widget.onMouseDrag ~= nil then\
                        widget:onMouseDrag(button, x, y)\
                    end\
\
                    if widget.mouseDrag ~= nil then\
                        widget:mouseDrag(button, x, y)\
                    end\
                end\
            end\
        end,\
\
\
        keyPress = function(self, key, char)\
            if self.focusedWidget ~= nil then\
                if self.focusedWidget.keyPress ~= nil then\
                    self.focusedWidget:keyPress(key, char)\
                end\
            end\
\
            if self.onKeyPress ~= nil then\
                self:onKeyPress(key, char)\
            end\
        end,\
\
\
        getCanvas = function(self)\
            return self.parent.canvas\
        end,\
    }\
\
    return form\
end",
      },
      IconRes = {
        [ "folder.ico" ] = "pic|3|4|40 40 40 10 40 40 40 10 40 40 10 10 ",
        [ "Computer.ico" ] = "pic|3|4|b0 b0 30 30 30 b0 b0 30 98_88 88 98_",
        [ "lua.ico" ] = "pic|3|4|e8 e8 e8 e8 48~48~48~48~48 4fL4fu4fa",
        [ "ini.ico" ] = "pic|3|4|d0 d0 d0 d0 48~48~48~48~48 4fI4fn4fi",
        [ "exe.ico" ] = "pic|3|4|30 30 30_e0X09#09#08=09I09#09#08=08=",
        [ "Control.ico" ] = "pic|3|4|30(30)3b=3b=3bo31o3b-3b-08_80 80 08_",
        [ "txt.ico" ] = "pic|3|4|cf cf cf cf 48~48~48~48~4f 4fT4fx4ft",
        [ "unknown.ico" ] = "pic|3|4|80 80 80 80 48~48~48~48~40 40 40 40 ",
        [ "Run.ico" ] = "pic|3|4|30 30 30_e0X80 80 80 80 80 80 80 50>",
        [ "Notepad.ico" ] = "pic|3|4|3b=3b=3b=3b=3bN3bP3ba3bd07=07=07=07=",
        [ "Taskmgr.ico" ] = "pic|3|4|f5/f5\\f5 f5 f0 f0 f5\\f5/08_85 85 08_",
        [ "Cmd.ico" ] = "pic|3|4|30 30 30_e0Xf8>f8_f0 f0 f0 f0 f0 f0 ",
        [ "pic.ico" ] = "pic|3|4|d0 30*30 30 d0 d0 d0 30*90 90 90 b9*",
      },
    },
    ProgramFiles = {
      [ "desktop.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local desktop = form.Create(\"Desktop\")\
local lastTime = 0\
\
\
\
app.canvas.effect = {\
    getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
        if (y == 1) or (x == app.canvas.size.x) then\
            return config.DESKTOP_COLOR\
        else\
            return bgcolor\
        end\
    end,\
\
    getforecolor = function(self, x, y, bgcolor, forecolor, char)\
        return forecolor\
    end,\
\
    getchar = function(self, x, y, bgcolor, forecolor, char)\
        if (y == 1) or (x == app.canvas.size.x) then\
            return \" \"\
        else\
            return char\
        end\
    end,\
}\
\
\
\
app:addForm(desktop, \"Desktop\")\
desktop:show()\
desktop.bgcolor = config.DESKTOP_COLOR\
desktop.controlBox = false\
\
os.getProcessInfo(os.getCurrentProcess()).showInTaskbar = false\
\
desktop.onTerminate = function(sender)\
    return false\
end\
\
\
if not fs.exists(os.getSystemPath() .. \"/userdata/Desktop\") then\
    fs.makeDir(os.getSystemPath() .. \"/userdata/Desktop\")\
end\
\
local pointDebugger = widgets.Label.Create(desktop, \"lbl\")\
pointDebugger.bgcolor = config.DESKTOP_COLOR\
pointDebugger.top = 0\
pointDebugger.left = 1\
pointDebugger.width = 1\
pointDebugger.height = 1\
pointDebugger.caption = \" \"\
\
\
\
local listView = widgets.FileListView.Create(desktop, \"listView\")\
listView.bgcolor = config.DESKTOP_COLOR\
listView.top = 0\
listView.left = 1\
listView.width = app.canvas.size.x\
listView.height = app.canvas.size.y\
listView.path = os.getSystemPath() .. \"/userdata/Desktop\"\
listView:refreshList()\
\
listView.onClick = function(sender)\
    local time = os.time()\
\
    if (time - lastTime) * 10 < config.PROCESS_TIMER then\
        local selected = listView.selectedList\
        if #selected > 0 then\
            --listView:navigate(listView.list[selected[1]].name)\
            --listView.selectedList = {}\
            if listView.list[selected[1]].dir then\
                os.shell.run(\"explorer \\\"\" .. listView.path .. \"/\" .. listView.list[selected[1]].name .. \"\\\"\")\
            else\
                local fileName = string.gsub(\"home:/\" .. listView.path .. \"/\" .. listView.list[selected[1]].name, \"//\", \"/\")\
                os.shell.run(fileName)\
            end\
        end\
    end\
\
    lastTime = time\
end\
\
function waterMark()\
    local waterMark = widgets.Label.Create(listView, \"waterMark\")\
    waterMark.left = app.canvas.size.x - 8\
    waterMark.top = 16\
    waterMark.caption = \"WinCC 7\"\
    waterMark.bgcolor = config.DESKTOP_COLOR\
    waterMark.forecolor = colors.white\
    waterMark.width = 7\
    waterMark.height = 1\
\
    local waterMark2 = widgets.Label.Create(listView, \"waterMark2\")\
    waterMark2.left = app.canvas.size.x - 29\
    waterMark2.top = 17\
    waterMark2.caption = \"For testing only. Build 0152\"\
    waterMark2.bgcolor = config.DESKTOP_COLOR\
    waterMark2.forecolor = colors.white\
    waterMark2.width = 28\
    waterMark2.height = 1\
end\
\
waterMark()\
\
------------------------------------------------------------------------------------------------------------------------\
listView.onContextMenu = function(sender, item, x, y)\
    local menu = widgets.PopupMenu.Create()\
    --menu.bgcolor = colors.lightGray\
    menu.tag = item\
    local selList = listView.selectedList\
    if #selList < 1 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"New folder\", function(sender)\
            os.messageBox(\"input\", \"New folder name:\", \"Create Folder...\", \
            { \
            {caption = \"OK\", \
                    onClick = function(sender)\
                        local fileName = sender.parent.widgets.edit.text\
    \
                        if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                            string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                            string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                            string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                            string.find(fileName, \"%|\") then\
                            app:showMessage(\"Invalid folder name.\")\
                        else\
                            app:showMessage(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                            if fs.exists(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName) then\
                                os.messageBox(\"message\", \"\\\"\" .. fileName .. \"\\\"Already exists. Delete?\", \"Warning\", \
                                { \
                                    {caption = \"Yes\", \
                                        onClick = function(sender)\
                                            fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
    \
                                            fs.makeDir(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
    \
                                            os.hideMessageBox()\
                                        end\
                                    },\
    \
                                    {caption = \"No\",\
                                        onClick = function(sender)\
                                            os.hideMessageBox()\
                                        end\
                                    } \
    \
                                }, \"defText\")\
                            else\
                                fs.makeDir(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                            end\
                        end\
    \
                        listView:refreshList()\
                        desktop:refresh()\
                        os.hideMessageBox()\
                    end\
                },\
    \
                {caption = \"Cancel\",\
                    onClick = function(sender)\
                        os.hideMessageBox()\
                    end\
                } \
    \
            }, \"New Folder\")  \
    end))   \
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"New...\", function(sender)\
            os.messageBox(\"input\", \"New file name:\", \"Create File...\", \
            { \
                {caption = \"OK\", \
                    onClick = function(sender)\
                        local fileName = sender.parent.widgets.edit.text\
    \
                        if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                            string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                            string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                            string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                            string.find(fileName, \"%|\") then\
                            app:showMessage(\"Invalid file name.\")\
                        else\
                            app:showMessage(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                            if fs.exists(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName) then\
                                os.messageBox(\"message\", \"\\\"\" .. fileName .. \"\\\"Already exists. Delete?\", \"Warning\", \
                                { \
                                    {caption = \"Yes\", \
                                        onClick = function(sender)\
                                            fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
    \
                                            local f = fs.open(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName, \"w\")\
                                            f.write(\"\\r\\n\")\
                                            f.close()\
    \
                                            os.hideMessageBox()\
                                        end\
                                    },\
    \
                                    {caption = \"No\",\
                                        onClick = function(sender)\
                                            os.hideMessageBox()\
                                        end\
                                    } \
    \
                                }, \"defText\")\
                            else\
                                local f = fs.open(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName, \"w\")\
                                f.write(\"\\r\\n\")\
                                f.close()\
                            end\
                        end\
    \
                        listView:refreshList()\
                        desktop:refresh()\
                        os.hideMessageBox()\
                    end\
                },\
    \
                {caption = \"Cancel\",\
                    onClick = function(sender)\
                        os.hideMessageBox()\
                    end\
                } \
    \
            }, \"New File.txt\")    \
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    end\
    local selList = listView.selectedList\
    if #selList > 0 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Rename\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        os.messageBox(\"input\", \"New file name:\", \"Rename \\\"\" .. listView.list[selList[1]].name .. \"\\\"\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    local fileName = sender.parent.widgets.edit.text\
\
                    if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                        string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                        string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                        string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                        string.find(fileName, \"%|\") then\
                        app:showMessage(\"Invalid file name.\")\
                    else\
                        fs.move(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. listView.list[selList[1]].name,\
                            string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"Cancel\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, listView.list[selList[1]].name)\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Delete\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        os.messageBox(\"message\", \"Are you sure?\", \"Delete File(s)\", \
        { \
            {caption = \"Yes\", \
                onClick = function(sender)\
                    for i, v in ipairs(listView.selectedList) do\
                        fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. listView.list[v].name)\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"No\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, \"defText\")\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Create shortcut\", function(sender)\
    if #(listView.selectedList) > 0 then\
        os.shell.run(\"lnkcreate \\\"\" .. listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\" \\\"\" ..\
            listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \".lnk\\\"\")\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Copy\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        local fileList = { action = \"_COPY\", files = {} }\
\
        for i, v in ipairs(listView.selectedList) do\
            table.insert(fileList.files, listView.path .. \"/\" .. listView.list[v].name)\
        end\
\
        os.copyToClipboard(fileList, \"_FILELIST\")\
    end\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList < 1 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Paste\", function(sender)\
    local fileList = os.pasteFromClipboard(\"_FILELIST\")\
    local conflictList = {}\
\
    if (fileList ~= nil) and (fileList.files ~= nil) then\
        --error(\"paste\")\
\
        for i, v in ipairs(fileList.files) do\
            local from = string.gsub(v, \"home:/\", \"\", 1)\
            local to = string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. os.extractFileName(from)\
\
            if fs.exists(to) then\
                table.insert(conflictList, {from = from, to = to})\
            else\
                if fileList.action == \"_COPY\" then\
                    fs.copy(from, to)\
                else\
                    fs.move(from, to)\
                end\
            end\
        end\
\
        if #conflictList > 0 then\
            frmWarning.widgets.lstWarning.list = {}\
\
            for i, v in ipairs(conflictList) do\
                table.insert(frmWarning.widgets.lstWarning.list, \"home:/\" .. v.from)\
            end\
\
            frmWarning:show()\
            os.sendMessage(hwnd, {msg = \"refresh\"})\
        end\
\
        -----------------------\
        listView:refreshList()\
        desktop:refresh()\
    end\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList > 0 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Cut\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        local fileList = { action = \"_MOVE\", files = {} }\
\
        for i, v in ipairs(listView.selectedList) do\
            table.insert(fileList.files, listView.path .. \"/\" .. listView.list[v].name)\
        end\
\
        os.copyToClipboard(fileList, \"_FILELIST\")\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Open with...\",\
    function(sender)\
        if #(listView.selectedList) > 0 then\
            local s = listView.list[listView.selectedList[1]].name\
            local ext = \"?\"\
            if (string.len(s) > 0) and (string.find(s, \"%.\") and s[0] ~= \".\" ) then\
                local fn = user.split(s, \".\")\
                ext = fn[#fn]\
            end\
\
            os.shell.run(\"opendlg \" .. ext .. \" \\\"\" ..\
                listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\"\")\
        end\
    end))\
\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Run in CraftOS Mode\", \
    function(sender)\
        if #(listView.selectedList) > 0 then\
            os.shell.run(\"ncvm.exe \\\"\" .. listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\"\")\
        end\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList > 0 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Open\", function(sender)\
        os.shell.run(\"\\\"\" .. listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\"\")\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList < 1 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Refresh\", function(sender) listView:refreshList() desktop:refresh() end))\
    end\
\
\
    widgets.popupMenu(menu, x + 1, y + 1)\
end\
------------------------------------------------------------------------------------------------------------------------\
\
--for i=1, 1 do\
    --table.insert(listView.list, { icon = \"home:/WinCC/system/iconres/Computer.pic\", file = \"home:/WinCC/ProgramFiles/explorer.exe\", name = \"Computer\" })\
--end\
\
--for i=1,100 do\
    --table.insert(listView.list, { icon = {}, name = \"Tst\" .. i .. \".exe\" })\
    --table.insert(listView.list, { icon = {}, name = \"Brian Griffin\" })\
--end\
\
\
os.startTimer(0.1, function() \
    --listView:refreshList()\
    desktop:refresh()\
end )\
app:run()",
      [ "ping.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"Ping\")\
\
app:addForm(mainForm, \"Ping\")\
mainForm.bgcolor = colors.lightBlue\
mainForm:show()\
\
\
function onSuccess(url, handle)\
    local response = handle.readAll()\
    handle.close()\
\
    --mainForm.widgets.txtArea.text = response\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
    app:showMessage(response)\
end\
\
function onFail(url)\
    app:showMessage(\"Fail\")\
    --mainForm.widgets.txtArea.text = url\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
\
\
\
local txtCmd = widgets.Edit.Create(mainForm, \"txtCmd\")\
txtCmd.left = 2\
txtCmd.top = 2\
txtCmd.width = app.canvas.size.x - 2 - 10\
txtCmd.text = \"\"\
\
\
local btnCmd = widgets.Button.Create(mainForm, \"btnCmd\")\
btnCmd.bgcolor = colors.blue\
btnCmd.width = 9\
btnCmd.left = app.canvas.size.x - btnCmd.width\
btnCmd.top = 2\
btnCmd.caption = \" Run\"\
\
\
local txtArea = widgets.TextArea.Create(mainForm, \"txtArea\")\
txtArea.left = 2\
txtArea.top = 4\
txtArea.width = app.canvas.size.x - 2\
txtArea.height = app.canvas.size.y - txtArea.top - 1\
--txtArea.visible = false\
\
\
\
btnCmd.onClick = function(sender)\
    if (txtCmd.text == nil) or (txtCmd.text == \"\") then\
        os.messageBox(\"message\", \"Please specify any URL.\", \"Error\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            },\
        }, \"defText\")\
    else\
        local http = os.findWindowByTitle(\"http service\")\
\
        if http ~= nil then\
            os.sendMessage(http, {msg = \"request\", url = txtCmd.text, postData = nil, headers = nil, onSuccess = onSuccess, onFail = onFail})\
        else\
            app:showMessage(\"Http service not found.\\nPlease, reload your computer.\")\
        end\
    end\
end\
\
app:run()",
      [ "npadplus.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"NotePad+\")\
local currentFileName = \"\"\
local commandArgs = \"\"\
\
\
app:addForm(mainForm, \"NotePad+\")\
mainForm:show()\
\
\
local textArea = widgets.TextArea.Create(mainForm, \"textArea\", widgets)\
textArea.left = 1\
textArea.top = 2\
textArea.height = app.canvas.size.y - 2\
textArea.width = app.canvas.size.x\
textArea.text = \"\"\
textArea.bgcolor = colors.yellow\
textArea.forecolor = colors.black\
\
\
\
function SyntaxHighlighter_Create()\
    local charList = {}\
    charList[\"+\"] = true\
    charList[\"-\"] = true\
    charList[\"*\"] = true\
    charList[\"/\"] = true\
    charList[\"=\"] = true\
    charList[\"~\"] = true\
    charList[\">\"] = true\
    charList[\"<\"] = true\
\
\
    local keyList = {}\
    keyList[\"function\"] = false\
    keyList[\"if\"] = false\
    keyList[\"then\"] = false\
    keyList[\"return\"] = false\
    keyList[\"end\"] = false\
    keyList[\"elseif\"] = false\
    keyList[\"else\"] = false\
    keyList[\"local\"] = false\
    keyList[\"_G\"] = false\
    keyList[\"for\"] = false\
    keyList[\"in\"] = false\
    keyList[\"do\"] = false\
    keyList[\"repeat\"] = false\
    keyList[\"until\"] = false\
    keyList[\"while\"] = false\
    keyList[\"..\"] = false\
    keyList[\"and\"] = false\
    keyList[\"or\"] = false\
    keyList[\"not\"] = false\
\
\
    stringConstChars = {}\
    stringConstChars[\"\\\"\"] = true\
    stringConstChars[\"\\'\"] = true\
\
\
    local numChars = {}\
    numChars[\"0\"] = true\
    numChars[\"1\"] = true\
    numChars[\"2\"] = true\
    numChars[\"3\"] = true\
    numChars[\"4\"] = true\
    numChars[\"5\"] = true\
    numChars[\"6\"] = true\
    numChars[\"7\"] = true\
    numChars[\"8\"] = true\
    numChars[\"9\"] = true\
\
\
\
    local otherChars = {}\
    otherChars[\".\"] = true\
    otherChars[\":\"] = true\
    otherChars[\"(\"] = true\
    otherChars[\")\"] = true\
    otherChars[\"{\"] = true\
    otherChars[\"}\"] = true\
    otherChars[\"[\"] = true\
    otherChars[\"]\"] = true\
    otherChars[\"\\\\\"] = true \
\
\
    local highlighter = {\
        specialChars = {\
            list = charList,\
            bgcolor = colors.yellow,\
            forecolor = colors.red,         \
        },\
\
        keyWords = {\
            list = keyList,\
            bgcolor = colors.yellow,\
            forecolor = colors.red,\
        },\
\
        stringConsts = {\
            list = stringConstChars,\
            bgcolor = colors.yellow,\
            forecolor = colors.green,\
        },\
\
        comments = {\
            bgcolor = colors.yellow,\
            forecolor = colors.gray,\
        },\
\
        numbers = {\
            list = numChars,\
            bgcolor = colors.yellow,\
            forecolor = colors.blue,\
        },\
\
        others = {\
            list = otherChars,\
            bgcolor = colors.yellow,\
            forecolor = colors.purple,\
        },\
\
        commentOpened = false,\
        bracketOpened = false,\
        bogCommentOpened = false,\
        bigBracketOpened = false,\
        echoed = false,\
        highlightCanvas = nil,\
\
        scrolling = {\
            left = 0,\
            top = 0,\
        },\
\
\
\
        getWordColor = function(self, word)\
            if self.keyWords.list[word] ~= nil then\
                return self.keyWords.forecolor\
            else\
                return nil\
            end\
        end,\
\
\
        getStringConstColor = function(self, word)\
            if user.stringstarts(word, \"[[\") then\
                self.bigBracketOpened = true\
            end\
\
            if user.stringends(word, \"]]\") then\
                self.bigBracketOpened = false\
            end\
\
\
            if self.bigBracketOpened then\
                return self.stringConsts.forecolor\
            end\
        end,\
\
\
        getCommentColor = function(self, word)\
            if (not self.commentOpened) or (not self.bigCommentOpened) then\
                if user.stringstarts(word, \"--\") then\
                    self.commentOpened = true\
                end\
            end\
\
            if self.commentOpened or self.bigCommentOpened then\
                return self.comments.forecolor\
            end\
        end,\
\
\
        countSpaces = function(self, str)\
            local index = 1\
\
            if string.sub(str, index, index) == \" \" then\
                repeat\
                    index = index + 1\
                until not (string.sub(str, index, index) == \" \")\
            end\
\
            return index\
        end,\
\
\
\
        parseAreaData = function(self, areaData, forecolor, sizeX, sizeY)\
            self.highlightCanvas = user.CreateCanvas(256, #areaData)\
            self.bigBracketOpened = false\
\
\
\
            for i = self.scrolling.top, self.scrolling.top + sizeY do\
                local v = areaData[i] or \"\"\
                local line = string.gsub(string.gsub(string.gsub(v, \"\\t\", \" \"), \"\\r\", \"\"), \"\\0\", \"\")\
                local left = self:countSpaces(line)\
                line = string.sub(line, left)\
                local words = user.split(line, \" \")\
                --self.bracketOpened = false\
                self.commentOpened = false\
\
\
                for j, word in ipairs(words) do\
                    self.highlightCanvas.bgcolor = self:getCommentColor(word) or self:getStringConstColor(word) or self:getWordColor(word) or forecolor\
                    self.highlightCanvas:setCursorPos(left, i)\
                    self.highlightCanvas:write(word)\
\
                    left = left + string.len(word) + 1\
                end\
            end\
        end,\
\
\
        setScrolling = function(self, scrolling)\
            self.scrolling = scrolling\
        end,\
\
\
        getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
            if (self.bracketOpened) or (self.stringConsts.list[char] ~= nil)  then\
                return self.stringConsts.bgcolor\
            else\
                if self.specialChars.list[char] ~= nil then\
                    return self.specialChars.bgcolor\
                else\
                    return bgcolor\
                end\
            end\
        end,\
\
\
        getforecolor = function(self, x, y, bgcolor, forecolor, char)\
            local x = x + self.scrolling.left - 1\
            local y = y + self.scrolling.top\
\
            if (self.highlightCanvas ~= nil) and (self.highlightCanvas.data[y] ~= nil) and (self.highlightCanvas.data[y][x] ~= nil) then\
                if self.highlightCanvas.data[y][x].bgcolor ~= forecolor then\
                    return self.highlightCanvas.data[y][x].bgcolor\
                else\
                    if ((self.bracketOpened) or (self.stringConsts.list[char] ~= nil)) then\
                        return self.stringConsts.forecolor\
                    end\
                end\
            end\
\
            if self.specialChars.list[char] ~= nil then\
                return self.specialChars.forecolor\
            elseif self.numbers.list[char] ~= nil then\
                return self.numbers.forecolor\
            elseif self.others.list[char] ~= nil then\
                return self.others.forecolor\
            else\
                return forecolor\
            end\
        end,\
\
\
        getchar = function(self, x, y, bgcolor, forecolor, char)\
            if x == 1 then self.bracketOpened = false end\
\
            if char == \"\\\\\" then\
                self.echoed = true\
            end\
\
\
            if (self.stringConsts.list[char] ~= nil) and (not (self.echoed)) then\
                if self.bracketOpened then self.bracketOpened = false else self.bracketOpened = true end\
            end\
\
            self.echoed = false\
            return char\
        end,\
    }\
\
    return highlighter\
end\
\
\
\
\
textArea.syntaxHighlighter = SyntaxHighlighter_Create()\
\
\
\
\
function loadFile(fileName)\
    local file = fs.open(fileName, \"r\")\
    local text = \"\"\
\
    if file ~= nil then\
        text = file.readAll()\
        file.close()\
    end\
\
    currentFileName = fileName\
    mainForm.name = \"\" .. os.extractFileName(fileName) .. \" - NotePad+\"\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
\
    textArea:setText(text)\
    textArea:refresh()\
end\
\
\
function saveFile(fileName)\
    local file = fs.open(fileName, \"w\")\
    local text = textArea:getText()\
\
    if file ~= nil then\
        file.write(text)\
        file.close()\
    end\
\
    currentFileName = fileName\
    mainForm.name = \"\" .. os.extractFileName(fileName) .. \" - NotePad+\"\
end\
\
\
function loadArgs()\
    local settings = iniFiles.read(os.getSystemPath() .. \"/UserData/AppData/NotePad+/npadplus.ini\") or {}\
    local debug = settings.debug or { args = \"\" }\
\
    commandArgs = debug.args\
\
    settings.debug = debug\
    iniFiles.write(os.getSystemPath() .. \"/UserData/AppData/NotePad+/npadplus.ini\", settings)\
end\
\
\
function saveArgs()\
    local settings = iniFiles.read(os.getSystemPath() .. \"/UserData/AppData/NotePad+/npadplus.ini\") or {}\
    local debug = settings.debug or { args = commandArgs }\
\
    settings.debug = debug\
    iniFiles.write(os.getSystemPath() .. \"/UserData/AppData/NotePad+/npadplus.ini\", settings)\
end\
\
\
\
\
\
\
local saveDialog = widgets.dialogs.SaveDialog.Create(mainForm, \"SaveDialog\")\
\
saveDialog.onExecute = function(sender)\
    local fileName = string.gsub(sender.fileName, \"home:/\", \"\", 1)\
    saveFile(fileName)\
end\
\
\
\
local openDialog = widgets.dialogs.OpenDialog.Create(mainForm, \"OpenDialog\")\
\
openDialog.onExecute = function(sender)\
    local fileName = string.gsub(sender.fileName, \"home:/\", \"\", 1)\
    loadFile(fileName)\
end\
\
\
\
function file_newClick()\
    os.shell.run(\"npadplus\")\
    app:terminate()\
end\
\
function file_openClick()\
    openDialog:execute()\
end\
\
function file_saveClick()\
    if currentFileName ~= \"\" then\
        saveFile(currentFileName)\
    else\
        saveDialog:execute()\
    end\
end\
\
function file_saveAsClick()\
    saveDialog:execute()\
end\
\
function file_exitClick()\
    app:terminate()\
end\
\
\
\
\
local fileMenu = widgets.PopupMenu.Create()\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"New\", function(sender) file_newClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Open\", function(sender) file_openClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save\", function(sender) file_saveClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save As..\", function(sender) file_saveAsClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Exit\", function(sender) file_exitClick() end))\
\
\
local runMenu = widgets.PopupMenu.Create()\
table.insert(runMenu.items, widgets.PopupMenu.CreateItem(\"Run\", function(sender)\
    if currentFileName ~= \"\" then\
        saveFile(currentFileName)\
    else\
        saveDialog:execute()\
    end\
\
    os.shell.run(currentFileName .. \" \" .. commandArgs)\
end))\
\
table.insert(runMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
\
table.insert(runMenu.items, widgets.PopupMenu.CreateItem(\"Command line arguments\", function(sender)\
    os.messageBox(\"input\", \"Command line argunemts:\", \"Run\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    commandArgs = sender.parent.widgets.edit.text\
                    saveArgs()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"Cancel\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            },\
        }, commandArgs)\
end))\
\
\
\
local helpMenu = widgets.PopupMenu.Create()\
table.insert(helpMenu.items, widgets.PopupMenu.CreateItem(\"About\", function(sender) os.shell.run(\"winver \\\"NotePad+\\\"\") end))\
\
\
local menu = widgets.MenuBar.Create(mainForm, \"Menu\")\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"File\", function(sender) widgets.popupMenu(fileMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Run\", function(sender) widgets.popupMenu(runMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Help\", function(sender) widgets.popupMenu(helpMenu, sender.left, sender.top + 2) end))\
\
\
\
\
\
\
\
\
if params[2] ~= nil then\
    loadFile(string.gsub(params[2], \"home:/\", \"\", 1))\
end\
\
loadArgs()\
\
\
\
os.startTimer(0.5, function()\
    textArea:refresh(true)\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end )\
app:run()",
      [ "wininit.exe" ] = "if config.AUTORUN ~= nil then\
    for k, a,b,c,d,e in pairs(config.AUTORUN) do\
        os.shell.run(a,b,c,d,e)\
    end\
end",
      [ "ncvm.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"Command Prompt\")\
\
app:addForm(mainForm, \"Command Prompt\")\
mainForm:show()\
mainForm.bgcolor = colors.black\
\
local surface = widgets.GLSurface.Create(mainForm, \"surface\")\
surface.height = app.canvas.size.y - 2\
surface.width = app.canvas.size.x\
surface.top = 2\
\
\
--local cmd = string.gsub(params[0] or \"home:/rom/programs/shell\", \"home:/\", \"\")\
local cmd = string.gsub(os.getSystemPath() .. \"/system/sysWoW/rombios\", \"home:/\", \"\")\
local program = loadfile(cmd)\
setfenv(program, legacyEnv)\
local thread = coroutine.create(program)\
local ended = false\
local lastVisible = false\
local running = true\
local args = {}--{\"/rom/startup\"}\
local messages = {}\
local SHELL_INIT_FLAG = false\
\
\
surface.onMouseClick = function(sender, button, x, y)\
    table.insert(messages, {message = \"mouse_click\", button = button, x = x, y = y - 1})\
end\
\
surface.onMouseDrag = function(sender, button, x, y)\
    table.insert(messages, {message = \"mouse_drag\", button = button, x = x, y = y - 1})\
end\
\
mainForm.onKeyPress = function(sender, key, char)\
    table.insert(messages, {message = \"key\", key = key})\
\
    if char ~= \"\" then\
        table.insert(messages, {message = \"char\", char = char})\
    end\
end\
\
mainForm.onMessage = function(sender, message)\
    if (message[1] ~= \"key\") and (message[1] ~= \"char\") and\
        (message[1] ~= \"mouse_click\") and (message[1] ~= \"mouse_drag\") then\
        table.insert(messages, message)\
    end\
end\
\
\
legacyEnv.term.clear()\
legacyEnv.term.setCursorPos(1, 1)\
legacyEnv.term.setCursorBlink(true)\
\
\
\
legacyEnv.os.getSystemPath = os.getSystemPath\
legacyEnv._WHAT_TO_RUN = string.gsub(params[2] or \"\", \"home:/\", \"/\")\
if string.len(legacyEnv._WHAT_TO_RUN) == 0 then\
    legacyEnv._WHAT_TO_RUN = nil\
end\
\
\
legacyEnv.os.pullEventRaw = function(target)\
    local msg = nil\
\
    while msg == nil do\
        msg = table.remove(messages)\
\
        if msg ~= nil then\
            if (target ~= nil and msg.message == target) or target == nil then\
                if msg.message == \"key\" then\
                    return \"key\", msg.key\
                elseif msg.message == \"char\" then\
                    return \"char\", msg.char\
                elseif msg.message == \"mouse_click\" then\
                    return \"mouse_click\", msg.button, msg.x, msg.y\
                elseif msg.message == \"mouse_drag\" then\
                    return \"mouse_drag\", msg.button, msg.x, msg.y\
                else\
                    return unpack(msg)\
                end\
            else\
                msg = nil\
            end\
        else\
            coroutine.yield()\
        end\
    end\
end\
\
\
legacyEnv.os.pullEvent = function(target)\
    return legacyEnv.os.pullEventRaw(target)\
end\
\
\
legacyEnv.os.run = function(env, path, args)\
    print(path)\
end\
\
\
setfenv(legacyEnv.read, legacyEnv)\
\
legacyEnv.term.current = function()\
    return legacyEnv.term\
end\
\
legacyEnv.term.redirect = function(obj)\
end\
\
legacyEnv.shell = nil\
\
\
\
legacyEnv.http.request = function(url, postData, headers, handler)\
    local function onSuccess(url, handle)\
        if not handler then\
            table.insert(messages, {\"http_success\", url, handle})\
        else\
            handler(true, url, handle)\
        end\
    end\
\
    local function onFailure(url)\
        if not handler then\
            table.insert(messages, {\"http_failure\", url})\
        else\
            handler(false, url)\
        end\
    end\
\
\
    local http = os.findWindowByTitle(\"http service\")\
    if http ~= nil then\
        os.sendMessage(http, {\
            msg = \"request\", \
            url = url,\
            postData = postData,\
            headers = headers,\
            onSuccess = onSuccess,\
            onFail = onFailure\
        })\
    else\
        app:showMessage(\"Http service not found.\\nPlease, reboot your computer.\")\
    end\
end\
\
\
legacyEnv.http.post = function(url, postData, headers)\
    local result = nil\
    local waiting = true\
    local function handler(res, url, handle)\
        result = handle\
        waiting = false\
    end\
\
    legacyEnv.http.request(url, postData, headers, handler)\
    while waiting do\
        coroutine.yield()\
    end\
\
    return result\
end\
\
\
legacyEnv.http.get = function(url, headers)\
    return legacyEnv.http.post(url, nil, headers)\
end\
\
\
\
mainForm.onRefresh = function(sender)\
    os.redirectTerm(legacyEnv.term)\
    if (coroutine.status(thread) == \"suspended\") and running then\
        local status, message = pcall(function() assert(coroutine.resume(thread, unpack(args))) end)\
\
        if (not status) and (not ended) then\
            legacyEnv.term.setTextColor(colors.red)\
            legacyEnv.term.setBackgroundColor(colors.black)\
            legacyEnv.term.write(message)\
            ended = true\
        end\
    end\
    os.restoreTerm()\
\
    --[[if cmd == \"rom/programs/shell\" and not SHELL_INIT_FLAG then\
        --legacyEnv.os.run({}, \"rom/startup\")\
        legacyEnv.term.write(tostring(legacyEnv.shell))\
        SHELL_INIT_FLAG = true\
    end]]\
\
    local visible = os.getActiveProcess() == hwnd\
    if visible ~= lastVisible then\
        legacyEnv.term.setVisible(visible)\
        lastVisible = visible\
    end\
    legacyEnv.term.redraw()\
    legacyEnv.term.restoreCursor()\
end\
\
\
os.startTimer(0.1, function() --[[os.sendMessage(hwnd, {msg = \"refresh\"})]] mainForm:onRefresh() end )\
app:run()",
      [ "logoff.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"Classic Log Off\")\
app:addForm(mainForm, \"Classic Log Off\")\
mainForm:show()\
mainForm.controlBox = false\
\
local lblCmd = widgets.Label.Create(mainForm, \"lblCmd\")\
lblCmd.left = 2\
lblCmd.top = 2\
lblCmd.width = app.canvas.size.x - 2\
lblCmd.caption = \"What do you want the computer to do?\"\
lblCmd.forecolor = colors.white\
\
local top = math.floor(app.canvas.size.y / 2) - 6\
\
\
lblShutdown = widgets.Label.Create(mainForm, \"lblShutdown\")\
lblShutdown.left = 5\
lblShutdown.top = 4 + top\
lblShutdown.width = app.canvas.size.x - 9\
lblShutdown.caption = \"[Turn Off]\"\
lblShutdown.forecolor = colors.red\
\
lblShutdown.onClick = function(sender)\
    os.shell.shutdown()\
end\
\
\
lblRestart = widgets.Label.Create(mainForm, \"lblRestart\")\
lblRestart.left = 5\
lblRestart.top = 6 + top\
lblRestart.width = app.canvas.size.x - 9\
lblRestart.caption = \"[Restart]\"\
lblRestart.forecolor = colors.lime\
\
lblRestart.onClick = function(sender)\
    os.shell.restart()\
end\
\
\
lblRestart2 = widgets.Label.Create(mainForm, \"lblRestart2\")\
lblRestart2.left = 5\
lblRestart2.top = 8 + top\
lblRestart2.width = app.canvas.size.x - 9\
lblRestart2.caption = \"[Restart in CraftOS mode]\"\
lblRestart2.forecolor = colors.orange\
\
\
lblRestart2.onClick = function(sender)\
    os.shell.restart(true)\
end\
\
\
btnCancel = widgets.Button.Create(mainForm, \"btnCancel\")\
btnCancel.left = app.canvas.size.x - 10\
btnCancel.top = app.canvas.size.y - 2\
btnCancel.width = 10\
btnCancel.caption = \"Cancel\"\
\
btnCancel.onClick = function(sender)\
    app:terminate()\
end\
\
\
\
\
\
\
\
os.getProcessInfo(os.getCurrentProcess()).showInTaskbar = false\
app:run()",
      [ "lnkcreate.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"Create Shortcut\")\
\
app:addForm(mainForm, \"Create Shortcut\")\
mainForm:show()\
\
\
local saveDialog = widgets.dialogs.SaveDialog.Create(mainForm, \"SaveDialog\")\
local openDialog = widgets.dialogs.OpenDialog.Create(mainForm, \"OpenDialog\")\
local ico = false\
\
saveDialog.onExecute = function(sender)\
    sender.parent.widgets.shName.text = sender.fileName or \"\"\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
openDialog.onExecute = function(sender)\
    if ico then\
        sender.parent.widgets.icoName.text = sender.fileName or \"\"\
    else\
        sender.parent.widgets.fileName.text = sender.fileName or \"\"\
    end\
\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
\
\
\
local lbl = widgets.Label.Create(mainForm, \"lbl\")\
lbl.forecolor = colors.blue\
lbl.bgcolor = colors.lightBlue\
lbl.left = 1\
lbl.top = 1\
lbl.caption = \"This wizard helps you to create shortcuts\"\
lbl.width = app.canvas.size.x\
lbl.height = 1\
\
local lbl1 = widgets.Label.Create(mainForm, \"lbl1\")\
lbl1.left = 2\
lbl1.top = 3\
lbl1.caption = \"Type the location of the item:\"\
lbl1.width = app.canvas.size.x - 2\
lbl1.height = 1\
\
local fileName = widgets.Edit.Create(mainForm, \"fileName\")\
fileName.left = 2\
fileName.top = 5\
fileName.width = app.canvas.size.x - 2 - 2 - 1\
fileName.text = params[2] or \"\"\
\
local btnBrowse1 = widgets.Button.Create(mainForm, \"btnBrowse1\")\
btnBrowse1.width = 2\
btnBrowse1.left = app.canvas.size.x - btnBrowse1.width\
btnBrowse1.top = 5\
btnBrowse1.forecolor2 = btnBrowse1.forecolor\
btnBrowse1.caption = \"..\"\
btnBrowse1.onClick = function(sender)\
    ico = false\
    openDialog:execute()\
end\
\
\
\
local lbl2 = widgets.Label.Create(mainForm, \"lbl2\")\
lbl2.left = 2\
lbl2.top = 7\
lbl2.caption = \"Type the destination of the shortcut:\"\
lbl2.width = app.canvas.size.x - 2\
lbl2.height = 1\
\
local shName = widgets.Edit.Create(mainForm, \"shName\")\
shName.left = 2\
shName.top = 9\
shName.width = app.canvas.size.x - 5\
shName.text = params[3] or \"\"\
\
local btnBrowse2 = widgets.Button.Create(mainForm, \"btnBrowse2\")\
btnBrowse2.width = 2\
btnBrowse2.left = app.canvas.size.x - btnBrowse2.width\
btnBrowse2.top = 9\
btnBrowse2.forecolor2 = btnBrowse2.forecolor\
btnBrowse2.caption = \"..\"\
btnBrowse2.onClick = function(sender)\
    saveDialog:execute()\
end\
\
\
local lbl3 = widgets.Label.Create(mainForm, \"lbl3\")\
lbl3.left = 2\
lbl3.top = 11\
lbl3.caption = \"Browse the icon for this shortcut:\"\
lbl3.width = app.canvas.size.x - 2\
lbl3.height = 1\
\
local icoName = widgets.Edit.Create(mainForm, \"icoName\")\
icoName.left = 2\
icoName.top = 13\
icoName.width = app.canvas.size.x - 5\
icoName.text = params[4] or \"\"\
\
local btnBrowse3 = widgets.Button.Create(mainForm, \"btnBrowse3\")\
btnBrowse3.width = 2\
btnBrowse3.left = app.canvas.size.x - btnBrowse3.width\
btnBrowse3.top = 13\
btnBrowse3.forecolor2 = btnBrowse3.forecolor\
btnBrowse3.caption = \"..\"\
btnBrowse3.onClick = function(sender)\
    ico = true\
    openDialog:execute()\
end\
\
\
\
local btnCmd = widgets.Button.Create(mainForm, \"btnCmd\")\
btnCmd.width = 8\
btnCmd.left = app.canvas.size.x - btnCmd.width\
btnCmd.top = app.canvas.size.y - 2\
btnCmd.caption = \"Create\"\
\
btnCmd.onClick = function(sender)\
    if (fileName.text == nil) or (fileName.text == \"\") or\
       (shName.text == nil) or (shName.text == \"\") or\
       (icoName.text == nil) or (icoName.text == \"\") then\
        os.messageBox(\"message\", \"Please specify any command.\", \"Error\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            },\
        }, \"defText\")\
    else\
        local lnk = {\
            shortcut = {\
                file = fileName.text,\
                icon = icoName.text,\
            }\
        }\
\
        if not user.stringends(shName.text, \".lnk\") then shName.text = shName.text .. \".lnk\" end\
        if user.stringstarts(shName.text, \"home:/\") then shName.text = string.gsub(shName.text, \"home:/\", \"\", 1) end\
\
        iniFiles.write(shName.text, lnk)\
        app:terminate()\
    end\
end\
\
\
\
--os.sendMessage(hwnd, {msg = \"refresh\"})\
\
app:run()",
      [ "limetext.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"LimeText\")\
local currentFileName = \"\"\
local commandArgs = \"\"\
\
local frmAbout = form.Create(\"About LimeText\")\
app:addForm(frmAbout, \"About LimeText\")\
frmAbout.controlBox = false\
frmAbout.bgcolor = colors.gray\
\
app:addForm(mainForm, \"LimeText\")\
mainForm.bgcolor = colors.gray\
mainForm:show()\
\
\
if fs.exists(\"WinCC/System/logo.pic\") then\
    local logo = widgets.PaintBox.Create(frmAbout, \"logo\")\
    local logoImg = user.loadCanvas(os.getSystemPath() .. \"/UserData/AppData/LimeText/logo.pic\")\
    logo.height = logoImg.size.y\
    logo.width = logoImg.size.x + 1\
    logo.top = 2\
    logo.left = 18\
    logo.canvas = logoImg\
    --[[logo.onClick = function(sender)\
        local logo = widgets.PaintBox.Create(frmAbout, \"logo\")\
        local logoImg = user.loadCanvas(os.getSystemPath() .. \"/UserData/AppData/LimeText/logoCl.pic\")\
        logo.height = logoImg.size.y\
        logo.width = logoImg.size.x + 1\
        logo.top = 2\
        logo.left = 18\
        logo.canvas = logoImg\
    end]]\
end\
\
local lblAbout2 = widgets.Label.Create(frmAbout, \"lblAbout2\")\
lblAbout2.left = math.floor(app.canvas.size.x / 2 - lblAbout2.width - 2) + 1\
lblAbout2.top = app.canvas.size.y - 5\
lblAbout2.width = 27\
lblAbout2.bgcolor = colors.gray\
lblAbout2.forecolor = colors.white\
lblAbout2.caption = \"Copyright (C) 2015 KAYOver\"\
\
local lblAbout3 = widgets.Label.Create(frmAbout, \"lblAbout3\")\
lblAbout3.left = math.floor(app.canvas.size.x / 2 - lblAbout3.width) \
lblAbout3.top = app.canvas.size.y - 4\
lblAbout3.width = 24\
lblAbout3.bgcolor = colors.gray\
lblAbout3.forecolor = colors.white\
lblAbout3.caption = \"Version 1.0, Build 0023\"\
\
local btnAbout = widgets.Button.Create(frmAbout, \"btnAbout\")\
btnAbout.width = 7\
btnAbout.left = math.floor(app.canvas.size.x / 2 - btnAbout.width / 2) + 1\
btnAbout.top = app.canvas.size.y - 2\
btnAbout.bgcolor = colors.lightGray\
btnAbout.forecolor = colors.gray\
btnAbout.caption = \" Close\"\
\
btnAbout.onClick = function(sender)\
    mainForm:show()\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
\
\
local textArea = widgets.TextArea.Create(mainForm, \"textArea\", widgets)\
textArea.left = 1\
textArea.top = 2\
textArea.height = app.canvas.size.y - 2 \
textArea.width = app.canvas.size.x\
textArea.text = \"\"\
textArea.bgcolor = colors.gray\
textArea.forecolor = colors.white\
\
\
\
function SyntaxHighlighter_Create()\
    local charList = {}\
    charList[\"+\"] = true\
    charList[\"-\"] = true\
    charList[\"*\"] = true\
    charList[\"/\"] = true\
    charList[\"=\"] = true\
    charList[\">\"] = true\
    charList[\"<\"] = true\
\
\
    local keyList = {}\
    keyList[\"function\"] = false\
    keyList[\"break\"] = false\
    keyList[\"if\"] = false\
    keyList[\"then\"] = false\
    keyList[\"return\"] = false\
    keyList[\"end\"] = false\
    keyList[\"elseif\"] = false\
    keyList[\"else\"] = false\
    keyList[\"local\"] = false\
    keyList[\"for\"] = false\
    keyList[\"in\"] = false\
    keyList[\"do\"] = false\
    keyList[\"repeat\"] = false\
    keyList[\"until\"] = false\
    keyList[\"while\"] = false\
    keyList[\"..\"] = false\
    keyList[\"and\"] = false\
    keyList[\"or\"] = false\
    keyList[\"not\"] = false\
\
\
    stringConstChars = {}\
    stringConstChars[\"\\\"\"] = true\
    stringConstChars[\"\\'\"] = true\
\
\
    local numChars = {}\
    numChars[\"0\"] = true\
    numChars[\"1\"] = true\
    numChars[\"2\"] = true\
    numChars[\"3\"] = true\
    numChars[\"4\"] = true\
    numChars[\"5\"] = true\
    numChars[\"6\"] = true\
    numChars[\"7\"] = true\
    numChars[\"8\"] = true\
    numChars[\"9\"] = true\
\
\
    local otherKeyList = {}\
    otherKeyList[\"_G\"] = false\
    otherKeyList[\"true\"] = false\
    otherKeyList[\"false\"] = false\
    otherKeyList[\"nil\"] = false\
\
\
    local otherChars = {}\
    otherChars[\".\"] = true\
    otherChars[\":\"] = true\
    otherChars[\"(\"] = true\
    otherChars[\")\"] = true\
    otherChars[\"{\"] = true\
    otherChars[\"}\"] = true\
    otherChars[\"[\"] = true\
    otherChars[\"]\"] = true\
    otherChars[\"\\\\\"] = true \
\
\
    local highlighter = {\
        specialChars = {\
            list = charList,\
            bgcolor = colors.gray,\
            forecolor = colors.orange,          \
        },\
\
        keyWords = {\
            list = keyList,\
            bgcolor = colors.gray,\
            forecolor = colors.orange,\
        },\
\
        otherKeyWords = {\
            list = otherKeyList,\
            bgcolor = colors.gray,\
            forecolor = colors.yellow,\
        },\
\
        stringConsts = {\
            list = stringConstChars,\
            bgcolor = colors.gray,\
            forecolor = colors.lime,\
        },\
\
        comments = {\
            bgcolor = colors.gray,\
            forecolor = colors.lightGray,\
        },\
\
        numbers = {\
            list = numChars,\
            bgcolor = colors.gray,\
            forecolor = colors.yellow,\
        },\
\
        others = {\
            list = otherChars,\
            bgcolor = colors.gray,\
            forecolor = colors.white,\
        },\
\
        commentOpened = false,\
        bracketOpened = false,\
        bogCommentOpened = false,\
        bigBracketOpened = false,\
        echoed = false,\
        highlightCanvas = nil,\
\
        scrolling = {\
            left = 0,\
            top = 0,\
        },\
\
\
\
        getWordColor = function(self, word)\
            if self.keyWords.list[word] ~= nil then\
                return self.keyWords.forecolor\
            else\
                return nil\
            end\
        end,\
\
\
        getWordColor2 = function(self, word)\
            if self.otherKeyWords.list[word] ~= nil then\
                return self.otherKeyWords.forecolor\
            else\
                return nil\
            end\
        end,\
\
\
        getStringConstColor = function(self, word)\
            if user.stringstarts(word, \"[[\") then\
                self.bigBracketOpened = true\
            end\
\
            if user.stringends(word, \"]]\") then\
                self.bigBracketOpened = false\
            end\
\
\
            if self.bigBracketOpened then\
                return self.stringConsts.forecolor\
            end\
        end,\
\
\
        getCommentColor = function(self, word)\
            if (not self.commentOpened) or (not self.bigCommentOpened) then\
                if user.stringstarts(word, \"--\") then\
                    self.commentOpened = true\
                end\
            end\
\
            if self.commentOpened or self.bigCommentOpened then\
                return self.comments.forecolor\
            end\
        end,\
\
\
        countSpaces = function(self, str)\
            local index = 1\
\
            if string.sub(str, index, index) == \" \" then\
                repeat\
                    index = index + 1\
                until not (string.sub(str, index, index) == \" \")\
            end\
\
            return index\
        end,\
\
\
\
        parseAreaData = function(self, areaData, forecolor, sizeX, sizeY)\
            self.highlightCanvas = user.CreateCanvas(256, #areaData)\
            self.bigBracketOpened = false\
\
\
\
            for i = self.scrolling.top, self.scrolling.top + sizeY do\
                local v = areaData[i] or \"\"\
                local line = string.gsub(string.gsub(string.gsub(v, \"\\t\", \" \"), \"\\r\", \"\"), \"\\0\", \"\")\
                local left = self:countSpaces(line)\
                line = string.sub(line, left)\
                local words = user.split(line, \" \")\
                --self.bracketOpened = false\
                self.commentOpened = false\
\
\
                for j, word in ipairs(words) do\
                    self.highlightCanvas.bgcolor = self:getCommentColor(word) or self:getStringConstColor(word) or self:getWordColor(word) or self:getWordColor2(word) or forecolor\
                    self.highlightCanvas:setCursorPos(left, i)\
                    self.highlightCanvas:write(word)\
\
                    left = left + string.len(word) + 1\
                end\
            end\
        end,\
\
\
        setScrolling = function(self, scrolling)\
            self.scrolling = scrolling\
        end,\
\
\
        getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
            if (self.bracketOpened) or (self.stringConsts.list[char] ~= nil)  then\
                return self.stringConsts.bgcolor\
            else\
                if self.specialChars.list[char] ~= nil then\
                    return self.specialChars.bgcolor\
                else\
                    return bgcolor\
                end\
            end\
        end,\
\
\
        getforecolor = function(self, x, y, bgcolor, forecolor, char)\
            local x = x + self.scrolling.left - 1\
            local y = y + self.scrolling.top\
\
            if (self.highlightCanvas ~= nil) and (self.highlightCanvas.data[y] ~= nil) and (self.highlightCanvas.data[y][x] ~= nil) then\
                if self.highlightCanvas.data[y][x].bgcolor ~= forecolor then\
                    return self.highlightCanvas.data[y][x].bgcolor\
                else\
                    if ((self.bracketOpened) or (self.stringConsts.list[char] ~= nil)) then\
                        return self.stringConsts.forecolor\
                    end\
                end\
            end\
\
            if self.specialChars.list[char] ~= nil then\
                return self.specialChars.forecolor\
            elseif self.numbers.list[char] ~= nil then\
                return self.numbers.forecolor\
            elseif self.others.list[char] ~= nil then\
                return self.others.forecolor\
            else\
                return forecolor\
            end\
        end,\
\
\
        getchar = function(self, x, y, bgcolor, forecolor, char)\
            if x == 1 then self.bracketOpened = false end\
\
            if char == \"\\\\\" then\
                self.echoed = true\
            end\
\
\
            if (self.stringConsts.list[char] ~= nil) and (not (self.echoed)) then\
                if self.bracketOpened then self.bracketOpened = false else self.bracketOpened = true end\
            end\
\
            self.echoed = false\
            return char\
        end,\
    }\
\
    return highlighter\
end\
\
\
\
\
textArea.syntaxHighlighter = SyntaxHighlighter_Create()\
\
\
\
\
function loadFile(fileName)\
    local file = fs.open(fileName, \"r\")\
    local text = \"\"\
\
    if file ~= nil then\
        text = file.readAll()\
        file.close()\
    end\
\
    currentFileName = fileName\
    mainForm.name = \"\" .. os.extractFileName(fileName) .. \" - LimeText\"\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
\
    textArea:setText(text)\
    textArea:refresh()\
end\
\
\
function saveFile(fileName)\
    local file = fs.open(fileName, \"w\")\
    local text = textArea:getText()\
\
    if file ~= nil then\
        file.write(text)\
        file.close()\
    end\
\
    currentFileName = fileName\
    mainForm.name = \"\" .. os.extractFileName(fileName) .. \" - LimeText\"\
end\
\
\
function loadArgs()\
    local settings = iniFiles.read(os.getSystemPath() .. \"/UserData/AppData/LimeText/limetext.ini\") or {}\
    local debug = settings.debug or { args = \"\" }\
\
    commandArgs = debug.args\
\
    settings.debug = debug\
    iniFiles.write(os.getSystemPath() .. \"/UserData/AppData/LimeText/limetext.ini\", settings)\
end\
\
\
function saveArgs()\
    local settings = iniFiles.read(os.getSystemPath() .. \"/UserData/AppData/LimeText/limetext.ini\") or {}\
    local debug = settings.debug or { args = commandArgs }\
\
    settings.debug = debug\
    iniFiles.write(os.getSystemPath() .. \"/UserData/AppData/LimeText/limetext.ini\", settings)\
end\
\
\
\
\
\
\
local saveDialog = widgets.dialogs.SaveDialog.Create(mainForm, \"SaveDialog\")\
\
saveDialog.onExecute = function(sender)\
    local fileName = string.gsub(sender.fileName, \"home:/\", \"\", 1)\
    saveFile(fileName)\
end\
\
\
\
local openDialog = widgets.dialogs.OpenDialog.Create(mainForm, \"OpenDialog\")\
\
openDialog.onExecute = function(sender)\
    local fileName = string.gsub(sender.fileName, \"home:/\", \"\", 1)\
    loadFile(fileName)\
end\
\
\
\
function file_newClick()\
    os.shell.run(\"limetext\")\
    app:terminate()\
end\
\
function file_openClick()\
    openDialog:execute()\
end\
\
function file_saveClick()\
    if currentFileName ~= \"\" then\
        saveFile(currentFileName)\
    else\
        saveDialog:execute()\
    end\
end\
\
function file_saveAsClick()\
    saveDialog:execute()\
end\
\
function file_exitClick()\
    app:terminate()\
end\
\
\
\
\
local fileMenu = widgets.PopupMenu.Create()\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"New\", function(sender) file_newClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Open\", function(sender) file_openClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save\", function(sender) file_saveClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save As..\", function(sender) file_saveAsClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Exit\", function(sender) file_exitClick() end))\
\
\
local runMenu = widgets.PopupMenu.Create()\
table.insert(runMenu.items, widgets.PopupMenu.CreateItem(\"Run\", function(sender)\
    if currentFileName ~= \"\" then\
        saveFile(currentFileName)\
    else\
        saveDialog:execute()\
    end\
\
    os.shell.run(currentFileName .. \" \" .. commandArgs)\
end))\
\
table.insert(runMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
\
table.insert(runMenu.items, widgets.PopupMenu.CreateItem(\"Command line arguments\", function(sender)\
    os.messageBox(\"input\", \"Command line argunemts:\", \"Run\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    commandArgs = sender.parent.widgets.edit.text\
                    saveArgs()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"Cancel\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            },\
        }, commandArgs)\
end))\
\
\
\
local helpMenu = widgets.PopupMenu.Create()\
table.insert(helpMenu.items, widgets.PopupMenu.CreateItem(\"About LimeText\", function(sender) frmAbout:show() end))\
\
\
local menu = widgets.MenuBar.Create(mainForm, \"Menu\")\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"File\", function(sender) widgets.popupMenu(fileMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Run\", function(sender) widgets.popupMenu(runMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Help\", function(sender) widgets.popupMenu(helpMenu, sender.left, sender.top + 2) end))\
\
\
\
\
\
\
\
\
if params[2] ~= nil then\
    loadFile(string.gsub(params[2], \"home:/\", \"\", 1))\
end\
\
loadArgs()\
\
\
\
os.startTimer(0.05, function()\
    textArea:refresh(true)\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end )\
app:run()",
      [ "winver.exe" ] = "\
local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local frmMain = form.Create(\"About WinCC\")\
\
app:addForm(frmMain, \"About System\")\
frmMain:show()\
\
local systemName = \"WinCC 7 Ultimate\"\
local systemSP = \"Service Pack 2\"\
local systemDeveloper = \"(C) Corporation Puzzletime\"\
local systemBuild = \"0152\"\
local systemManufacturer = \"Puzzletime, KAYOver\"\
\
if fs.exists(\"WinCC/System/logo.pic\") then\
    local logo = widgets.PaintBox.Create(frmMain, \"logo\")\
    local logoImg = user.loadCanvas(os.getSystemPath() .. \"/system/logo.pic\")\
    logo.height = logoImg.size.y\
    logo.width = logoImg.size.x + 1\
    logo.top = 3\
    logo.left = 37\
    logo.canvas = logoImg\
end\
\
--local logo2 = widgets.PaintBox.Create(frmMain, \"logo2\")\
--local logo2Img = user.loadCanvas(os.getSystemPath() .. \"/system/logo2.pic\")\
--logo2.height = logo2Img.size.y\
--logo2.width = logo2Img.size.x + 1\
--logo2.top = 14\
--logo2.left = 37\
--logo2.canvas = logo2Img\
\
local lbl = widgets.Label.Create(frmMain, \"lbl\")\
lbl.left = 1\
lbl.top = 1\
lbl.caption = \"View basic information about your system\"\
lbl.forecolor = colors.blue\
lbl.bgcolor = colors.lightBlue\
lbl.width = app.canvas.size.x\
lbl.height = 1\
\
local lbl1 = widgets.Label.Create(frmMain, \"lbl1\")\
lbl1.top = 3\
lbl1.width = 13\
lbl1.left = 2\
lbl1.caption = \"WinCC Edition\"\
\
--local lbl1Line = widgets.Label.Create(frmMain, \"lbl1Line\")\
--lbl1Line.top = 3\
--lbl1Line.width = 22\
--lbl1Line.left = 15\
--lbl1Line.forecolor = colors.gray\
--lbl1Line.caption = \"----------------------\"\
\
local lbl2 = widgets.Label.Create(frmMain, \"lbl2\")\
lbl2.top = 5\
lbl2.width = 30\
lbl2.left = 3\
lbl2.forecolor = colors.gray\
lbl2.caption = \"\"..systemName..\"\"\
\
local lbl3 = widgets.Label.Create(frmMain, \"lbl3\")\
lbl3.top = 7\
lbl3.width = 30\
lbl3.left = 3\
lbl3.forecolor = colors.gray\
lbl3.caption = \"\"..systemSP..\"\"\
\
local lbl4 = widgets.Label.Create(frmMain, \"lbl4\")\
lbl4.top = 9\
lbl4.width = 30\
lbl4.left = 3\
lbl4.forecolor = colors.gray\
lbl4.caption = \"\"..systemDeveloper..\"\"\
\
local lbl5 = widgets.Label.Create(frmMain, \"lbl5\")\
lbl5.top = 11\
lbl5.width = 6\
lbl5.left = 2\
lbl5.caption = \"System\"\
\
--local lbl5Line = widgets.Label.Create(frmMain, \"lbl5Line\")\
--lbl5Line.top = 11\
--lbl5Line.width = 29\
--lbl5Line.left = 8\
--lbl5Line.forecolor = colors.gray\
--lbl5Line.caption = \"-----------------------------\"\
\
local lbl6 = widgets.Label.Create(frmMain, \"lbl6\")\
lbl6.top = 13\
lbl6.width = 30\
lbl6.left = 3\
lbl6.forecolor = colors.gray\
lbl6.caption = \"Build: \"..systemBuild..\"\"\
\
local lbl7 = widgets.Label.Create(frmMain, \"lbl7\")\
lbl7.top = 15\
lbl7.width = 34\
lbl7.left = 3\
lbl7.forecolor = colors.gray\
lbl7.caption = \"Manufacturer: \"..systemManufacturer..\"\"\
\
\
\
\
\
\
\
\
os.startTimer(0.1, function() os.sendMessage(hwnd, {msg = \"refresh\"}) end )\
app:run()",
      [ "lnkview.exe" ] = "if params[2] ~= nil then\
    local lnkdata = iniFiles.read(params[2])\
\
    if lnkdata ~= nil then\
        os.shell.run(lnkdata.shortcut.file)\
    end\
end",
      [ "control.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local desktop = form.Create(\"Control Panel\")\
local lastTime = 0\
\
\
\
app:addForm(desktop, \"Control Panel\")\
desktop:show()\
desktop.bgcolor = colors.white\
\
\
desktop.onTerminate = function(sender)\
    return true\
end\
\
\
local lbl = widgets.Label.Create(desktop, \"lbl\")\
lbl.left = 1\
lbl.top = 1\
lbl.caption = \"Adjust your computer's settings\"\
lbl.forecolor = colors.blue\
lbl.bgcolor = colors.lightBlue\
lbl.width = app.canvas.size.x\
lbl.height = 1\
\
\
local lbl1 = widgets.Label.Create(desktop, \"lbl1\")\
lbl1.left = 2\
lbl1.top = 3\
lbl1.caption = \"BootLoader\"\
lbl1.forecolor = colors.green\
lbl1.bgcolor = colors.white\
lbl1.width = app.canvas.size.x\
lbl1.height = 1\
\
local BCDbtn = widgets.Button.Create(desktop, \"BCDbtn\")\
BCDbtn.top = 5\
BCDbtn.bgcolor = colors.white\
BCDbtn.forecolor = colors.blue\
BCDbtn.forecolor2 = colors.blue\
BCDbtn.caption = \"Edit your Boot Configuration Data\"\
BCDbtn.onClick = function(sender) os.shell.run(\"limetext \\\"/Boot/BCD.ini/\\\"\") end\
BCDbtn.width = 34\
BCDbtn.left = 2\
\
\
local lbl2 = widgets.Label.Create(desktop, \"lbl2\")\
lbl2.left = 2\
lbl2.top = 7\
lbl2.caption = \"System Settings\"\
lbl2.forecolor = colors.green\
lbl2.bgcolor = colors.white\
lbl2.width = app.canvas.size.x\
lbl2.height = 1\
\
local SETbtn = widgets.Button.Create(desktop, \"SETbtn\")\
SETbtn.top = 9\
SETbtn.bgcolor = colors.white\
SETbtn.forecolor = colors.blue\
SETbtn.forecolor2 = colors.blue\
SETbtn.caption = \"Edit your system settings\"\
SETbtn.onClick = function(sender) os.shell.run(\"limetext \\\"\" .. os.getSystemPath() .. \"/System/Config/win.ini/\\\"\") end\
SETbtn.width = 26\
SETbtn.left = 2\
\
\
\
\
function elseapp()\
local listView = widgets.FileListView.Create(desktop, \"listView\")\
listView.bgcolor = colors.white\
listView.showScroll = false\
listView.top = 2\
listView.left = 1\
listView.width = app.canvas.size.x\
listView.height = app.canvas.size.y - 2\
\
\
listView.path = \"home:/WinCC/userdata/ProgramGroups/Settings/\"\
listView:refreshList()\
\
listView.onClick = function(sender)\
    listView.isCtrlDown = app:isCtrlDown()\
\
    local time = os.time()\
\
    if (time - lastTime) * 10 < config.PROCESS_TIMER then\
        local selected = listView.selectedList\
        if #selected > 0 then\
            --listView:navigate(listView.list[selected[1]].name, true, os)\
            --listView.selectedList = {}\
            if listView.list[selected[1]].dir then\
                listView:navigate(listView.list[selected[1]].name, true, os)\
                listView.selectedList = {}\
            else\
                local fileName = string.gsub(\"home:/\" .. listView.path .. \"/\" .. listView.list[selected[1]].name, \"//\", \"/\")\
                os.shell.run(fileName)\
            end\
        end\
    end\
\
    lastTime = time\
end\
\
\
\
if params[2] ~= nil then\
    listView:navigate(params[2])\
else\
    listView:navigate(\"home:/WinCC/userdata/ProgramGroups/Settings/\")\
end\
end\
\
app:run()",
      [ "taskbar.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local taskbar = form.Create(\"Taskbar\")\
local processCount = 0\
local refreshCount = 0\
local useAM = true\
local scroll = 0\
local shouldScroll = false\
\
app:addForm(taskbar, \"Taskbar\")\
taskbar:show()\
\
os.getProcessInfo(os.getCurrentProcess()).showInTaskbar = false\
\
\
local time = widgets.Label.Create(taskbar, \"Time\")\
time.width = 7\
time.left = app.canvas.size.x - time.width + 2\
time.top = 0\
time.align = \"right\"\
time.bgcolor = colors.lightBlue\
time.forecolor = colors.white\
time.onClick = function(sender)\
    --if useAM then useAM = false else useAM = true end\
end\
\
time.onRefresh = function(sender)\
    sender.caption = tostring(textutils.formatTime(os.time(), useAM)) .. \"%\"\
end\
\
\
\
local leftButton = widgets.Button.Create(taskbar, \"leftButton\")\
leftButton.caption = \"<\"\
leftButton.left = 5\
leftButton.width = 1\
leftButton.top = 0\
leftButton.bgcolor = colors.lightBlue\
leftButton.forecolor2 = colors.white\
leftButton.onClick = function(sender)\
    if shouldScroll then\
        scroll = scroll + 37\
        if scroll < -10 * (processCount - 1) + processCount - 1 then scroll = -10 * (processCount - 1) + processCount - 1 end\
    end\
end\
\
local rightButton = widgets.Button.Create(taskbar, \"rightButton\")\
rightButton.caption = \">\"\
rightButton.left = 10 + app.canvas.size.x - 9 - 6 - 2 + 1\
rightButton.width = 1\
rightButton.top = 0\
rightButton.bgcolor = colors.lightBlue\
rightButton.forecolor2 = colors.white\
rightButton.onClick = function(sender)\
    if shouldScroll then\
        scroll = scroll - 37\
        if scroll > 0 then scroll = 0 end\
    end\
end\
\
local panel = widgets.Panel.Create(taskbar, \"Panel\")\
panel.top = 0\
panel.height = 2\
panel.width = app.canvas.size.x - 9 - 6 - 2 + 4\
panel.left = 6\
panel.bgcolor = colors.lightBlue\
--app.canvas:fillrect(1, 1, app.canvas.size.x, 1, colors.lightBlue)\
\
panel.onRefresh = function(sender)\
    local hwnds = os.getValidHWNDList(true)\
\
    if processCount > 0 then\
        for i = 0, processCount do\
            sender.widgets[\"button_\" .. tostring(i)] = nil\
        end\
    end\
\
\
\
\
\
    if #hwnds > 6 then\
        shouldScroll = true\
        leftButton.visible = true\
        rightButton.visible = true\
\
        if processCount ~= #hwnds then\
            scroll = -35\
        end\
    else\
        shouldScroll = false\
        leftButton.visible = false\
        rightButton.visible = false\
        scroll = 0\
    end\
\
\
    processCount = #hwnds\
    sender.focusedWidget = nil\
\
\
\
\
    for i, v in ipairs(hwnds) do\
        local button = widgets.Button.Create(sender, \"button_\" .. tostring(i))\
        local info = os.getProcessInfo(v)\
        button.width = 5\
        button.left = scroll + button.width * (i - 1) + i \
        button.caption = info.title\
        button.tag = v\
        button.align = \"left\"\
        button.forecolor2 = colors.white\
                button.forecolor = colors.white\
                button.bgcolor = colors.lightBlue\
\
        if v == os.getActiveProcess() then\
            button.bgcolor = colors.blue\
            button.forecolor = colors.white\
            button.forecolor2 = colors.white\
        end\
\
        button.onClick = function(sender)\
            os.setActiveProcess(sender.tag)\
        end\
    end\
end\
\
\
local startMenu = widgets.PopupMenu.Create()\
startMenu.forecolor2 = colors.blue\
startMenu.forecolor = colors.black\
startMenu.bgcolor = colors.white\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|ShutDown     (I)\", function(sender) os.shell.shutdown() end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|Restart      <I>\", function(sender) os.shell.restart() end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|----------------\", nil))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|About System    \", function(sender) os.shell.run(\"winver.exe\") end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|Run App         \", function(sender) os.shell.run(\"exec.exe\") end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|Control Panel   \", function(sender) os.shell.run(\"control.exe\") end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|Computer        \", function(sender) os.shell.run(\"explorer.exe\") end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|----------------\", nil))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|Pictures        \", function(sender) os.shell.run(\"explorer \\\"\" .. os.getSystemPath() .. \"/userdata/Pictures/\\\"\") end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|Documents       \", function(sender) os.shell.run(\"explorer \\\"\" .. os.getSystemPath() .. \"/userdata/Documents/\\\"\") end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|Programs        \", function(sender) os.shell.run(\"explorer \\\"\" .. os.getSystemPath() .. \"/userdata/AppData/StartMenu/Programs/\\\"\") end))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|----------------\", nil))\
table.insert(startMenu.items, widgets.PopupMenu.CreateItem(\"~|WinCC 7         \", nil))\
\
local start = widgets.Button.Create(taskbar, \"Start\")\
start.left = 1\
start.top = 0\
start.width = 3\
start.bgcolor = colors.blue\
start.forecolor = colors.white\
start.forecolor2 = colors.white\
start.caption = \" #\"\
\
start.onClick = function(sender)\
    widgets.popupMenu(startMenu, 1, sender.parent:getCanvas().size.y)\
end\
\
\
taskbar.onRefresh = function(sender)\
    app.canvas:fillrect(1, 1, app.canvas.size.x, 1, colors.lightBlue)\
end\
\
taskbar.onTerminate = function(sender)\
    return false\
end\
\
\
os.startTimer(0.05, function() taskbar:refresh() end )\
app:run()",
      [ "notepad.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"NotePad\")\
local currentFileName = \"\"\
\
\
app:addForm(mainForm, \"NotePad\")\
mainForm:show()\
\
\
local textArea = widgets.TextArea.Create(mainForm, \"textArea\", widgets)\
textArea.left = 1\
textArea.top = 2\
textArea.bgcolor = colors.white\
textArea.height = app.canvas.size.y - 2\
textArea.width = app.canvas.size.x\
textArea.text = \"\"\
\
\
\
\
function loadFile(fileName)\
    local file = fs.open(fileName, \"r\")\
    local text = \"\"\
\
    if file ~= nil then\
        text = file.readAll()\
        file.close()\
    end\
\
    currentFileName = fileName\
    mainForm.name = \"\" .. os.extractFileName(fileName) .. \" - NotePad\"\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
\
    textArea:setText(text)\
    textArea:refresh()\
end\
\
\
function saveFile(fileName)\
    local file = fs.open(fileName, \"w\")\
    local text = textArea:getText()\
\
    if file ~= nil then\
        file.write(text)\
        file.close()\
    end\
\
    currentFileName = fileName\
    mainForm.name = \"\" .. os.extractFileName(fileName) .. \" - NotePad\"\
end\
\
\
\
\
\
\
local saveDialog = widgets.dialogs.SaveDialog.Create(mainForm, \"SaveDialog\")\
\
saveDialog.onExecute = function(sender)\
    local fileName = string.gsub(sender.fileName, \"home:/\", \"\", 1)\
    saveFile(fileName)\
end\
\
\
\
local openDialog = widgets.dialogs.OpenDialog.Create(mainForm, \"OpenDialog\")\
\
openDialog.onExecute = function(sender)\
    local fileName = string.gsub(sender.fileName, \"home:/\", \"\", 1)\
    loadFile(fileName)\
end\
\
\
\
function file_newClick()\
    os.shell.run(\"notepad\")\
    app:terminate()\
end\
\
function file_openClick()\
    openDialog:execute()\
end\
\
function file_saveClick()\
    if currentFileName ~= \"\" then\
        saveFile(currentFileName)\
    else\
        saveDialog:execute()\
    end\
end\
\
function file_saveAsClick()\
    saveDialog:execute()\
end\
\
function file_exitClick()\
    app:terminate()\
end\
\
\
\
\
local fileMenu = widgets.PopupMenu.Create()\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"New\", function(sender) file_newClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Open\", function(sender) file_openClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save\", function(sender) file_saveClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save As..\", function(sender) file_saveAsClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Exit\", function(sender) file_exitClick() end))\
\
local helpMenu = widgets.PopupMenu.Create()\
table.insert(helpMenu.items, widgets.PopupMenu.CreateItem(\"About\", function(sender) os.shell.run(\"winver Notepad\") end))\
\
\
local menu = widgets.MenuBar.Create(mainForm, \"Menu\")\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"File\", function(sender) widgets.popupMenu(fileMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Help\", function(sender) widgets.popupMenu(helpMenu, sender.left, sender.top + 2) end))\
\
\
\
\
if params[2] ~= nil then\
    loadFile(string.gsub(params[2], \"home:/\", \"\", 1))\
end\
\
\
\
\
app:run()",
      [ "photoedit.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"PhotoEdit\")\
local bgcolor = colors.black\
local forecolor = colors.white\
local char = \" \"\
\
local fileName = \"\"\
local saved = true\
\
\
\
app:addForm(mainForm, \"PhotoEdit\")\
mainForm:show()\
mainForm.bgcolor = colors.gray\
\
\
mainForm.onRefresh = function(sender)\
    if fileName ~= \"\" then\
        --error(fileName)\
        if saved then\
            mainForm.name = \"\" .. os.extractFileName(fileName) .. \" - PhotoEdit\"\
        else\
            mainForm.name = \"\" .. os.extractFileName(fileName) .. \"* - PhotoEdit\"\
        end\
    else\
        mainForm.name = \"PhotoEdit\"\
    end\
end\
\
\
\
function openFile()\
    if not saved then\
        os.messageBox(\"message\", \"Save changes in current file?\", \"Save Changes\", \
        { \
            {caption = \"Yes\", \
                onClick = function(sender)\
                    saveFile(fileName)\
                    os.hideMessageBox()\
                    saved = true\
                    mainForm.widgets.OpenDialog:execute()\
                end\
            },\
\
            {caption = \"No\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                    mainForm.widgets.OpenDialog:execute()\
                end\
            } \
\
        }, \"defText\")\
    else\
        mainForm.widgets.OpenDialog:execute()\
    end\
end\
\
\
function saveFile()\
    if fileName == \"\" then\
        mainForm.widgets.SaveDialog:execute()\
        fileName = mainForm.widgets.SaveDialog.fileName\
    else\
        mainForm.widgets.SaveDialog.fileName = fileName\
        mainForm.widgets.SaveDialog:onExecute()\
    end\
end\
\
\
local paintBox = widgets.PaintBox.Create(mainForm, \"PaintBox\")\
paintBox.top = 3\
paintBox.left = 7\
paintBox.height = 10\
paintBox.width = 15\
\
\
\
--app:showMessage(params[2])\
if params[2] ~= nil then\
    --mainForm.name = \"[\" .. params[2] .. \"] - PhotoEdit\"\
    --error(params[2])\
    local canvas = user.loadCanvas(params[2])\
    if canvas ~= nil then\
        paintBox.height = canvas.size.y\
        paintBox.width = canvas.size.x\
        paintBox.pheight = canvas.size.y\
        paintBox.pwidth = canvas.size.x\
        paintBox.canvas = canvas\
        fileName = params[2]\
    end\
    saved = true\
end\
\
\
\
local saveDialog = widgets.dialogs.SaveDialog.Create(mainForm, \"SaveDialog\")\
local openDialog = widgets.dialogs.OpenDialog.Create(mainForm, \"OpenDialog\")\
--saveDialog:execute()\
\
\
local statusBar = widgets.Label.Create(mainForm, \"StatusBar\")\
statusBar.top = app.canvas.size.y - 1\
statusBar.left = 7\
statusBar.width = app.canvas.size.x\
statusBar.caption = \" \"\
\
\
\
\
\
--[[local resizer = widgets.Label.Create(mainForm, \"resizer\")\
resizer.top = paintBox.top + paintBox.height\
resizer.left = paintBox.left + paintBox.width\
resizer.height = 1\
resizer.width = 1\
resizer.caption = \"*\"\
resizer.bgcolor = colors.gray\
resizer.forecolor = colors.lightBlue]]\
\
--mainForm.onMouseDrag = function(sender, button, x, y)\
--  resizer.left = x\
--  resizer.top = y\
--end\
\
\
\
saveDialog.onExecute = function(sender)\
    user.saveCanvas(paintBox.canvas, sender.fileName)\
    saved = true\
    fileName = sender.fileName\
end\
\
openDialog.onExecute = function(sender)\
    local canvas = user.loadCanvas(sender.fileName)\
    if canvas ~= nil then\
        paintBox.height = canvas.size.y\
        paintBox.width = canvas.size.x\
        paintBox.canvas = canvas\
    end\
    saved = true\
    fileName = sender.fileName\
end\
\
\
\
\
\
local palette = widgets.Panel.Create(mainForm, \"Palette\")\
palette.left = 0\
palette.width = 6\
palette.top = 2\
palette.height = app.canvas.size.y - 2\
palette.bgcolor = colors.lightGray\
\
\
function onPaletteItemClick(sender)\
    bgcolor = sender.bgcolor\
end\
\
function onPaletteItemPopup(sender)\
    forecolor = sender.bgcolor\
end\
\
\
palette.widgets.bgcolor = widgets.Label.Create(palette, \"bgcolor\")\
palette.widgets.bgcolor.top = 10\
palette.widgets.bgcolor.left = 2\
palette.widgets.bgcolor.height = 2\
palette.widgets.bgcolor.width = 3\
palette.widgets.bgcolor.caption = \" \"\
\
palette.widgets.bgcolor.onRefresh = function(sender)\
    sender.bgcolor = bgcolor\
end\
\
\
palette.widgets.forecolor = widgets.Label.Create(palette, \"forecolor\")\
palette.widgets.forecolor.top = 12\
palette.widgets.forecolor.left = 3\
palette.widgets.forecolor.height = 1\
palette.widgets.forecolor.width = 3\
palette.widgets.forecolor.caption = \" \"\
\
palette.widgets.forecolor.onRefresh = function(sender)\
    sender.bgcolor = forecolor\
end\
\
\
palette.widgets.char = widgets.Edit.Create(palette, \"char\")\
palette.widgets.char.top = 14\
palette.widgets.char.left = 2\
palette.widgets.char.height = 1\
palette.widgets.char.width = 4\
palette.widgets.char.text = \" \"\
\
palette.widgets.char.onRefresh = function(sender)\
    --if string.len(sender.text) > 0 then\
    --  char = sender.text--string.sub(sender.text, 1, 2)\
    --end\
end\
\
\
paintBox.onMouseClick = function(sender, button, x, y)\
    --if string.len(palette.widgets.char.text) > 0 then\
        char = palette.widgets.char.text--string.sub(sender.text, 1, 2)\
    --end\
\
    sender.canvas.bgcolor = bgcolor\
    sender.canvas.forecolor = forecolor\
    sender.canvas:point(x - sender.left, y - sender.top, char)\
    statusBar.caption = \"[x = \" .. x - sender.left .. \", y = \" .. y - sender.top .. \", char = \" .. char .. \"]\"\
    saved = false\
end\
\
paintBox.onMouseDrag = paintBox.onMouseClick\
\
\
\
\
palette.widgets.forecolor2 = widgets.Label.Create(palette, \"forecolor2\")\
palette.widgets.forecolor2.top = 11\
palette.widgets.forecolor2.left = 5\
palette.widgets.forecolor2.height = 2\
palette.widgets.forecolor2.width = 1\
palette.widgets.forecolor2.caption = \" \"\
palette.widgets.forecolor2.onRefresh = palette.widgets.forecolor.onRefresh\
\
\
\
palette.widgets[\"orange\"] = widgets.Label.Create(palette, \"orange\")\
palette.widgets[\"orange\"].bgcolor = colors.orange\
palette.widgets[\"orange\"].caption = \" \"\
palette.widgets[\"orange\"].left = 2\
palette.widgets[\"orange\"].width = 2\
palette.widgets[\"orange\"].top = 1\
palette.widgets[\"orange\"].onClick = onPaletteItemClick\
palette.widgets[\"orange\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"magenta\"] = widgets.Label.Create(palette, \"magenta\")\
palette.widgets[\"magenta\"].bgcolor = colors.magenta\
palette.widgets[\"magenta\"].caption = \" \"\
palette.widgets[\"magenta\"].left = 4\
palette.widgets[\"magenta\"].width = 2\
palette.widgets[\"magenta\"].top = 1\
palette.widgets[\"magenta\"].onClick = onPaletteItemClick\
palette.widgets[\"magenta\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"lightBlue\"] = widgets.Label.Create(palette, \"lightBlue\")\
palette.widgets[\"lightBlue\"].bgcolor = colors.lightBlue\
palette.widgets[\"lightBlue\"].caption = \" \"\
palette.widgets[\"lightBlue\"].left = 2\
palette.widgets[\"lightBlue\"].width = 2\
palette.widgets[\"lightBlue\"].top = 2\
palette.widgets[\"lightBlue\"].onClick = onPaletteItemClick\
palette.widgets[\"lightBlue\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"yellow\"] = widgets.Label.Create(palette, \"yellow\")\
palette.widgets[\"yellow\"].bgcolor = colors.yellow\
palette.widgets[\"yellow\"].caption = \" \"\
palette.widgets[\"yellow\"].left = 4\
palette.widgets[\"yellow\"].width = 2\
palette.widgets[\"yellow\"].top = 2\
palette.widgets[\"yellow\"].onClick = onPaletteItemClick\
palette.widgets[\"yellow\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"lime\"] = widgets.Label.Create(palette, \"lime\")\
palette.widgets[\"lime\"].bgcolor = colors.lime\
palette.widgets[\"lime\"].caption = \" \"\
palette.widgets[\"lime\"].left = 2\
palette.widgets[\"lime\"].width = 2\
palette.widgets[\"lime\"].top = 3\
palette.widgets[\"lime\"].onClick = onPaletteItemClick\
palette.widgets[\"lime\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"pink\"] = widgets.Label.Create(palette, \"pink\")\
palette.widgets[\"pink\"].bgcolor = colors.pink\
palette.widgets[\"pink\"].caption = \" \"\
palette.widgets[\"pink\"].left = 4\
palette.widgets[\"pink\"].width = 2\
palette.widgets[\"pink\"].top = 3\
palette.widgets[\"pink\"].onClick = onPaletteItemClick\
palette.widgets[\"pink\"].onPopup = onPaletteItemPopup\
\
\
\
palette.widgets[\"lightGray\"] = widgets.Label.Create(palette, \"lightGray\")\
palette.widgets[\"lightGray\"].bgcolor = colors.lightGray\
palette.widgets[\"lightGray\"].caption = \" \"\
palette.widgets[\"lightGray\"].left = 2\
palette.widgets[\"lightGray\"].width = 2\
palette.widgets[\"lightGray\"].top = 4\
palette.widgets[\"lightGray\"].onClick = onPaletteItemClick\
palette.widgets[\"lightGray\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"gray\"] = widgets.Label.Create(palette, \"gray\")\
palette.widgets[\"gray\"].bgcolor = colors.gray\
palette.widgets[\"gray\"].caption = \" \"\
palette.widgets[\"gray\"].left = 4\
palette.widgets[\"gray\"].width = 2\
palette.widgets[\"gray\"].top = 4\
palette.widgets[\"gray\"].onClick = onPaletteItemClick\
palette.widgets[\"gray\"].onPopup = onPaletteItemPopup\
\
\
\
palette.widgets[\"cyan\"] = widgets.Label.Create(palette, \"cyan\")\
palette.widgets[\"cyan\"].bgcolor = colors.cyan\
palette.widgets[\"cyan\"].caption = \" \"\
palette.widgets[\"cyan\"].left = 2\
palette.widgets[\"cyan\"].width = 2\
palette.widgets[\"cyan\"].top = 5\
palette.widgets[\"cyan\"].onClick = onPaletteItemClick\
palette.widgets[\"cyan\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"purple\"] = widgets.Label.Create(palette, \"purple\")\
palette.widgets[\"purple\"].bgcolor = colors.purple\
palette.widgets[\"purple\"].caption = \" \"\
palette.widgets[\"purple\"].left = 4\
palette.widgets[\"purple\"].width = 2\
palette.widgets[\"purple\"].top = 5\
palette.widgets[\"purple\"].onClick = onPaletteItemClick\
palette.widgets[\"purple\"].onPopup = onPaletteItemPopup\
\
\
\
palette.widgets[\"blue\"] = widgets.Label.Create(palette, \"blue\")\
palette.widgets[\"blue\"].bgcolor = colors.blue\
palette.widgets[\"blue\"].caption = \" \"\
palette.widgets[\"blue\"].left = 2\
palette.widgets[\"blue\"].width = 2\
palette.widgets[\"blue\"].top = 6\
palette.widgets[\"blue\"].onClick = onPaletteItemClick\
palette.widgets[\"blue\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"brown\"] = widgets.Label.Create(palette, \"brown\")\
palette.widgets[\"brown\"].bgcolor = colors.brown\
palette.widgets[\"brown\"].caption = \" \"\
palette.widgets[\"brown\"].left = 4\
palette.widgets[\"brown\"].width = 2\
palette.widgets[\"brown\"].top = 6\
palette.widgets[\"brown\"].onClick = onPaletteItemClick\
palette.widgets[\"brown\"].onPopup = onPaletteItemPopup\
\
\
\
palette.widgets[\"green\"] = widgets.Label.Create(palette, \"green\")\
palette.widgets[\"green\"].bgcolor = colors.green\
palette.widgets[\"green\"].caption = \" \"\
palette.widgets[\"green\"].left = 2\
palette.widgets[\"green\"].width = 2\
palette.widgets[\"green\"].top = 7\
palette.widgets[\"green\"].onClick = onPaletteItemClick\
palette.widgets[\"green\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"red\"] = widgets.Label.Create(palette, \"red\")\
palette.widgets[\"red\"].bgcolor = colors.red\
palette.widgets[\"red\"].caption = \" \"\
palette.widgets[\"red\"].left = 4\
palette.widgets[\"red\"].width = 2\
palette.widgets[\"red\"].top = 7\
palette.widgets[\"red\"].onClick = onPaletteItemClick\
palette.widgets[\"red\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"black\"] = widgets.Label.Create(palette, \"black\")\
palette.widgets[\"black\"].bgcolor = colors.black\
palette.widgets[\"black\"].caption = \" \"\
palette.widgets[\"black\"].left = 2\
palette.widgets[\"black\"].width = 2\
palette.widgets[\"black\"].top = 8\
palette.widgets[\"black\"].onClick = onPaletteItemClick\
palette.widgets[\"black\"].onPopup = onPaletteItemPopup\
\
\
palette.widgets[\"white\"] = widgets.Label.Create(palette, \"white\")\
palette.widgets[\"white\"].bgcolor = colors.white\
palette.widgets[\"white\"].caption = \" \"\
palette.widgets[\"white\"].left = 4\
palette.widgets[\"white\"].width = 2\
palette.widgets[\"white\"].top = 8\
palette.widgets[\"white\"].onClick = onPaletteItemClick\
palette.widgets[\"white\"].onPopup = onPaletteItemPopup\
\
\
\
\
\
\
function file_newClick()\
    os.shell.run(\"PhotoEdit\")\
    app:terminate()\
end\
\
function file_openClick()\
    --openDialog:execute()\
    openFile()\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
function file_saveClick()\
    saveFile()\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
function file_saveAsClick()\
    saveDialog:execute()\
    fileName = saveDialog.fileName\
    --saveFile()\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
function file_exitClick()\
    app:terminate()\
end\
\
function edit_resizeClick()\
    os.messageBox(\"input\", \"New canvas size: (eg. \" .. app.canvas.size.x .. \"x\" .. app.canvas.size.y .. \")\", \"Resize Canvas\", \
        { \
            {caption = \"Apply\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                    local size = sender.parent.widgets.edit.text\
\
                    if size ~= nil then\
                        if string.find(size, \"x\") then\
                            local data = user.split(size, \"x\")\
                            local x = tonumber(data[1])\
                            local y = tonumber(data[2])\
\
                            if x ~= nil and y ~= nil then\
                                paintBox.height = y\
                                paintBox.width = x + 1\
                                os.sendMessage(hwnd, {msg = \"refresh\"})\
                            end\
                        end\
                    end\
                end\
            },\
\
            {caption = \"Cancel\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            },\
        }, paintBox.width - 1 .. \"x\" .. paintBox.height)\
end\
\
\
\
\
local fileMenu = widgets.PopupMenu.Create()\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"New\", function(sender) file_newClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Open\", function(sender) file_openClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save\", function(sender) file_saveClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Save As..\", function(sender) file_saveAsClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Exit\", function(sender) file_exitClick() end))\
\
local editMenu = widgets.PopupMenu.Create()\
table.insert(editMenu.items, widgets.PopupMenu.CreateItem(\"Resize\", function(sender) edit_resizeClick() end))\
\
local helpMenu = widgets.PopupMenu.Create()\
table.insert(helpMenu.items, widgets.PopupMenu.CreateItem(\"About\", function(sender) os.shell.run(\"winver PhotoEdit\") end))\
\
\
local menu = widgets.MenuBar.Create(mainForm, \"Menu\")\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"File\", function(sender) widgets.popupMenu(fileMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Edit\", function(sender) widgets.popupMenu(editMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Help\", function(sender) widgets.popupMenu(helpMenu, sender.left, sender.top + 2) end))\
\
\
--os.startTimer(0.05, function() mainForm:refresh() end )\
os.sendMessage(hwnd, {msg = \"refresh\"})\
app:run()",
      [ "opendlg.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"Open with\")\
app:addForm(mainForm, \"Open with\")\
mainForm:show()\
\
\
local args = params\
local customName = \"\"\
local customPath = \"\"\
\
function firstToUpper(str)\
    return (str:gsub(\"^%l\", string.upper))\
end\
\
\
function listInstalledSoftware()\
    keys = os.getRegistryBranchKeys(\"installed\")\
    list = {}\
    for i, v in ipairs(keys) do\
        list[v] = os.getRegistryKeyValue(\"installed\", v, \"\")\
    end\
    return list\
end\
\
\
\
local openDialog = widgets.dialogs.OpenDialog.Create(mainForm, \"OpenDialog\")\
openDialog.onExecute = function(sender)\
    if sender.fileName ~= nil then\
        customName = firstToUpper(string.gsub(os.extractFileName(sender.fileName), \"%.exe\", \"\"))\
        customPath = \"\\\"\" .. sender.fileName .. \"\\\" \\\"%FILENAME%\\\"\" \
        sender.parent.widgets.appList:add(customName)\
    end\
\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
\
\
local lbl1 = widgets.Label.Create(mainForm, \"lbl1\")\
lbl1.left = 2\
lbl1.top = 2\
lbl1.caption = \"Choose program you want to use:\"\
lbl1.width = app.canvas.size.x - 2\
lbl1.height = 1\
\
\
local appList = widgets.ListBox.Create(mainForm, \"appList\")\
appList.top = 4\
appList.height = app.canvas.size.y - 9\
appList.width = app.canvas.size.x + 1\
appList.left = 0\
\
local installed = listInstalledSoftware()\
for k, v in pairs(installed) do\
    appList:add(k)\
end\
\
\
local chbRemember = widgets.CheckBox.Create(mainForm, \"chbRemember\")\
chbRemember.bgcolor = colors.lightGray\
chbRemember.width = 25\
chbRemember.left = 2\
chbRemember.top = app.canvas.size.y - 4\
chbRemember.checked = true\
chbRemember.caption = \"Always use this program\"\
if args[2] == \"?\" then\
    chbRemember.checked = false\
    chbRemember.grayed = false\
end\
\
\
\
\
local btnOpen = widgets.Button.Create(mainForm, \"btnOpen\")\
btnOpen.width = 8\
btnOpen.left = app.canvas.size.x - btnOpen.width - btnOpen.width - 1\
btnOpen.top = app.canvas.size.y - 2\
btnOpen.caption = \"Ok\"\
btnOpen.onClick = function(sender)\
    if chbRemember.checked then\
        os.setRegistryKeyValue(\"extensions\", args[2], installed[appList.list[appList.index]])\
    end\
    --error(tostring(args[3]))\
    os.shell.run(string.gsub(installed[appList.list[appList.index]], \"%%FILENAME%%\", tostring(args[3])))\
    app:terminate()\
end\
\
local btnCancel = widgets.Button.Create(mainForm, \"btnCancel\")\
btnCancel.width = 8\
btnCancel.left = app.canvas.size.x - btnCancel.width \
btnCancel.top = app.canvas.size.y - 2\
btnCancel.caption = \"Cancel\"\
btnCancel.onClick = function(sender)\
    app:terminate()\
end\
\
local btnBrowse = widgets.Button.Create(mainForm, \"btnBrowse\")\
btnBrowse.width = 8\
btnBrowse.left = app.canvas.size.x - btnBrowse.width\
btnBrowse.top = app.canvas.size.y - 4\
btnBrowse.caption = \"Browse\"\
btnBrowse.onClick = function(sender)\
    openDialog:execute()\
end\
\
\
app:run()",
      [ "taskmgr.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"Task Manager\")\
\
app:addForm(mainForm, \"Task Manager\")\
mainForm:show()\
\
\
local procList = widgets.ListBox.Create(mainForm, \"procList\")\
procList.top = 3\
procList.height = app.canvas.size.y - 6\
procList.width = app.canvas.size.x + 1\
procList.left = 0\
procList.infoList = {}\
procList.columns = 4\
procList.columnWidth = { 14, app.canvas.size.x - 12 - 4 - 5 - 9, 5}\
\
\
\
local lblInfo = widgets.Label.Create(mainForm, \"lblInfo\")\
lblInfo.width = app.canvas.size.x\
lblInfo.top = 2\
lblInfo.left = 1\
lblInfo.bgcolor = colors.lightGray\
lblInfo.caption = \"Name          Process\"\
local s = string.rep(\" \", app.canvas.size.x - string.len(lblInfo.caption) - 12 - 1 - string.len(\"RAM\") - 1)\
lblInfo.caption = lblInfo.caption .. s .. \" PID\" .. \"  \" .. \"Memory\"\
\
function termDialog()\
    if procList.list[procList.index][3] > 0 then\
        os.messageBox(\"message\", \"Do you want to end this pro-\\ncess? You will lose any un-\\nsaved data.\", \"Task Manager\", \
        { \
            {caption = \"Cancel\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"End Task\", \
                onClick = function(sender)\
                    os.killProcess(procList.list[procList.index][3])\
                    sender.parent:refresh()\
                    os.hideMessageBox()\
                end\
            }\
        }, \"defText\")\
    end\
end\
\
local btnTerm = widgets.Button.Create(mainForm, \"btnTerm\")\
btnTerm.width = 10\
btnTerm.left = app.canvas.size.x - btnTerm.width\
btnTerm.top = app.canvas.size.y - 2\
btnTerm.caption = \"End Task\"\
\
btnTerm.onClick = function(sender)\
    termDialog()\
end\
\
--[[local btnSwch = widgets.Button.Create(mainForm, \"btnSwch\")\
btnSwch.tag = v\
btnSwch.width = 10\
btnSwch.left = app.canvas.size.x - btnTerm.width - btnSwch.width - 1\
btnSwch.top = app.canvas.size.y - 2\
btnSwch.caption = \"Switch\"\
\
btnSwch.onClick = function(sender)\
    os.setActiveProcess(sender.tag)\
end]]\
\
local btnNew = widgets.Button.Create(mainForm, \"btnNew\")\
btnNew.width = 10\
btnNew.left = app.canvas.size.x - btnTerm.width - --[[btnSwch.width - 1 -]] btnNew.width - 1\
btnNew.top = app.canvas.size.y - 2\
btnNew.caption = \"New Task\"\
\
btnNew.onClick = function(sender)\
    file_newClick()\
end\
\
--[[lblPath = widgets.Label.Create(mainForm, \"lblPath\")\
lblPath.width = app.canvas.size.x - btnTerm.width - btnNew.width -  4\
lblPath.top = app.canvas.size.y - 2\
lblPath.left = 2\
lblPath.forecolor = colors.gray\
\
lblPath.onRefresh = function(sender)\
    if procList.list[procList.index] ~= nil then\
        local info = os.getProcessInfo(procList.list[procList.index][3])\
        sender.caption = \"home:/\" .. (info.fileName or \"\")\
\
        if sender.caption == \"home:/\" then sender.caption = \"\" end\
    end\
end]]\
\
\
\
function GetProcessMemory(pid)\
    return os.getProcessUsedMemory(pid)\
end\
\
function GetSystemMemory()\
    return os.getProcessUsedMemory(-1)\
end\
\
function FormatProcessMemory(mem)\
    if mem == -1 then\
        return \"\"\
    else\
        local kBytes = mem / 1024\
\
        if kBytes > 1000 then\
            return tostring(user.round(mem / 1024 / 1024, 2)) .. \" Mb\"\
        elseif kBytes > 100 then\
            return tostring(user.round(mem / 1024, 1)) .. \" Kb\"   \
        else\
            return tostring(user.round(mem / 1024, 2)) .. \" Kb\"\
        end\
    end\
end\
\
\
\
\
\
mainForm.onRefresh = function(sender)\
end\
\
\
function refreshData(sender)\
    sender.widgets.procList:clear()\
    sender.widgets.procList.infoList = {}\
\
    sender.widgets.procList:add({\"System\", \" \", 0, FormatProcessMemory(GetSystemMemory()), 0})\
    table.insert(sender.widgets.procList.infoList, {fileName = \" \", hwnd = 0})\
\
    for i, v in ipairs(os.getValidHWNDList(false)) do\
        local info = os.getProcessInfo(v)\
\
        sender.widgets.procList:add({info.title, os.extractFileName(info.fileName), info.hwnd, \
            FormatProcessMemory(GetProcessMemory(v)), tostring(info.etime / config.PROCESS_TIMER * 100) .. \"%\"})\
        table.insert(sender.widgets.procList.infoList, {fileName = info.fileName, hwnd = v})\
    end\
end\
\
\
\
\
\
\
\
\
function file_newClick()\
    os.shell.run(\"exec.exe\")\
end\
\
\
function help_aboutClick()\
end\
\
\
\
local fileMenu = widgets.PopupMenu.Create()\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"New Task (Run...)\", function(sender) file_newClick() end))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
table.insert(fileMenu.items, widgets.PopupMenu.CreateItem(\"Exit\", function(sender) app:terminate() end))\
\
local helpMenu = widgets.PopupMenu.Create()\
table.insert(helpMenu.items, widgets.PopupMenu.CreateItem(\"About\", function(sender) help_aboutClick() end))\
\
local shutDownMenu = widgets.PopupMenu.Create()\
table.insert(shutDownMenu.items, widgets.PopupMenu.CreateItem(\"Turn Off\", function(sender) os.shell.shutdown() end))\
table.insert(shutDownMenu.items, widgets.PopupMenu.CreateItem(\"Restart\", function(sender) os.shell.restart() end))\
\
local menu = widgets.MenuBar.Create(mainForm, \"Menu\")\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"File\", function(sender) widgets.popupMenu(fileMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Shut Down\", function(sender) widgets.popupMenu(shutDownMenu, sender.left, sender.top + 2) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Help\", function(sender) widgets.popupMenu(helpMenu, sender.left, sender.top + 2) end))\
\
\
os.startTimer(1, function()\
    refreshData(mainForm)\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end )\
\
refreshData(mainForm)\
app:run()",
      [ "explorer.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local desktop = form.Create(\"Explorer\")\
local lastTime = 0\
local lastPlacesTime = 0\
local lastSearchTime = 0\
\
local showPlaces = true\
local showSearch = false\
\
\
local frmWarning = form.Create(\"Warning\")\
app:addForm(frmWarning, \"Warning\")\
frmWarning.controlBox = false\
\
\
app:addForm(desktop, \"Explorer\")\
desktop:show()\
desktop.bgcolor = colors.white\
\
\
desktop.onTerminate = function(sender)\
    --return false\
    return true\
end\
\
\
\
local lblWarning = widgets.Label.Create(frmWarning, \"lblWarning\")\
lblWarning.left = 2\
lblWarning.top = 2\
lblWarning.width = app.canvas.size.x - 4\
lblWarning.caption = \"The following files were not copied:\"\
\
local lstWarning = widgets.ListBox.Create(frmWarning, \"lstWarning\")\
lstWarning.top = 4\
lstWarning.left = 0\
lstWarning.width = app.canvas.size.x + 1\
lstWarning.height = app.canvas.size.y - 4 - 3\
\
local btnWarning = widgets.Button.Create(frmWarning, \"btnWarning\")\
btnWarning.width = 9\
btnWarning.left = app.canvas.size.x - btnWarning.width\
btnWarning.top = app.canvas.size.y - 2\
btnWarning.caption = \"OK\"\
\
btnWarning.onClick = function(sender)\
    desktop:show()\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
\
\
\
\
local listView = widgets.FileListView.Create(desktop, \"listView\")\
listView.bgcolor = colors.white\
listView.top = 1 + 3 + 1\
listView.left = 1\
listView.width = app.canvas.size.x\
listView.height = app.canvas.size.y - 1 - 3 - 1\
--listView.top = 2\
--listView.left = 1\
--istView.width = app.canvas.size.x\
--listView.height = app.canvas.size.y - 2\
\
listView.path = \"home:/\"\
listView:refreshList()\
\
listView.onClick = function(sender)\
    listView.isCtrlDown = app:isCtrlDown()\
\
    local time = os.time()\
\
    if (time - lastTime) * 10 < config.PROCESS_TIMER then\
        local selected = listView.selectedList\
        if #selected > 0 then\
            --listView:navigate(listView.list[selected[1]].name, true, os)\
            --listView.selectedList = {}\
            if listView.list[selected[1]].dir then\
                listView:navigate(listView.list[selected[1]].name, true, os)\
                listView.selectedList = {}\
            else\
                local fileName = string.gsub(\"home:/\" .. listView.path .. \"/\" .. listView.list[selected[1]].name, \"//\", \"/\")\
                os.shell.run(fileName)\
            end\
        end\
    end\
\
    lastTime = time\
end\
\
listView.onNavigate = function(sender, path)\
    sender.parent.widgets[\"Panel\"].widgets[\"AddressBar\"].text = path\
    sender.selectedList = {}\
end\
\
listView.onContextMenu = function(sender, item, x, y)\
    local menu = widgets.PopupMenu.Create()\
    --menu.bgcolor = colors.lightGray\
    menu.tag = item\
    local selList = listView.selectedList\
    if #selList < 1 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"New folder\", function(sender)\
            os.messageBox(\"input\", \"New folder name:\", \"Create Folder...\", \
            { \
            {caption = \"OK\", \
                    onClick = function(sender)\
                        local fileName = sender.parent.widgets.edit.text\
    \
                        if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                            string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                            string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                            string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                            string.find(fileName, \"%|\") then\
                            app:showMessage(\"Invalid folder name.\")\
                        else\
                            app:showMessage(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                            if fs.exists(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName) then\
                                os.messageBox(\"message\", \"\\\"\" .. fileName .. \"\\\"Already exists. Delete?\", \"Warning\", \
                                { \
                                    {caption = \"Yes\", \
                                        onClick = function(sender)\
                                            fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
    \
                                            fs.makeDir(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
    \
                                            os.hideMessageBox()\
                                        end\
                                    },\
    \
                                    {caption = \"No\",\
                                        onClick = function(sender)\
                                            os.hideMessageBox()\
                                        end\
                                    } \
    \
                                }, \"defText\")\
                            else\
                                fs.makeDir(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                            end\
                        end\
    \
                        listView:refreshList()\
                        desktop:refresh()\
                        os.hideMessageBox()\
                    end\
                },\
    \
                {caption = \"Cancel\",\
                    onClick = function(sender)\
                        os.hideMessageBox()\
                    end\
                } \
    \
            }, \"New Folder\")  \
    end))   \
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"New...\", function(sender)\
            os.messageBox(\"input\", \"New file name:\", \"Create File...\", \
            { \
                {caption = \"OK\", \
                    onClick = function(sender)\
                        local fileName = sender.parent.widgets.edit.text\
    \
                        if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                            string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                            string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                            string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                            string.find(fileName, \"%|\") then\
                            app:showMessage(\"Invalid file name.\")\
                        else\
                            app:showMessage(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                            if fs.exists(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName) then\
                                os.messageBox(\"message\", \"\\\"\" .. fileName .. \"\\\"Already exists. Delete?\", \"Warning\", \
                                { \
                                    {caption = \"Yes\", \
                                        onClick = function(sender)\
                                            fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
    \
                                            local f = fs.open(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName, \"w\")\
                                            f.write(\"\\r\\n\")\
                                            f.close()\
    \
                                            os.hideMessageBox()\
                                        end\
                                    },\
    \
                                    {caption = \"No\",\
                                        onClick = function(sender)\
                                            os.hideMessageBox()\
                                        end\
                                    } \
    \
                                }, \"defText\")\
                            else\
                                local f = fs.open(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName, \"w\")\
                                f.write(\"\\r\\n\")\
                                f.close()\
                            end\
                        end\
    \
                        listView:refreshList()\
                        desktop:refresh()\
                        os.hideMessageBox()\
                    end\
                },\
    \
                {caption = \"Cancel\",\
                    onClick = function(sender)\
                        os.hideMessageBox()\
                    end\
                } \
    \
            }, \"New File.txt\")    \
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    end\
    local selList = listView.selectedList\
    if #selList > 0 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Rename\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        os.messageBox(\"input\", \"New file name:\", \"Rename \\\"\" .. listView.list[selList[1]].name .. \"\\\"\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    local fileName = sender.parent.widgets.edit.text\
\
                    if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                        string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                        string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                        string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                        string.find(fileName, \"%|\") then\
                        app:showMessage(\"Invalid file name.\")\
                    else\
                        fs.move(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. listView.list[selList[1]].name,\
                            string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"Cancel\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, listView.list[selList[1]].name)\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Delete\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        os.messageBox(\"message\", \"Are you sure?\", \"Delete File(s)\", \
        { \
            {caption = \"Yes\", \
                onClick = function(sender)\
                    for i, v in ipairs(listView.selectedList) do\
                        fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. listView.list[v].name)\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"No\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, \"defText\")\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Create shortcut\", function(sender)\
    if #(listView.selectedList) > 0 then\
        os.shell.run(\"lnkcreate \\\"\" .. listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\" \\\"\" ..\
            listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \".lnk\\\"\")\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Copy\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        local fileList = { action = \"_COPY\", files = {} }\
\
        for i, v in ipairs(listView.selectedList) do\
            table.insert(fileList.files, listView.path .. \"/\" .. listView.list[v].name)\
        end\
\
        os.copyToClipboard(fileList, \"_FILELIST\")\
    end\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList < 1 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Paste\", function(sender)\
    local fileList = os.pasteFromClipboard(\"_FILELIST\")\
    local conflictList = {}\
\
    if (fileList ~= nil) and (fileList.files ~= nil) then\
        --error(\"paste\")\
\
        for i, v in ipairs(fileList.files) do\
            local from = string.gsub(v, \"home:/\", \"\", 1)\
            local to = string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. os.extractFileName(from)\
\
            if fs.exists(to) then\
                table.insert(conflictList, {from = from, to = to})\
            else\
                if fileList.action == \"_COPY\" then\
                    fs.copy(from, to)\
                else\
                    fs.move(from, to)\
                end\
            end\
        end\
\
        if #conflictList > 0 then\
            frmWarning.widgets.lstWarning.list = {}\
\
            for i, v in ipairs(conflictList) do\
                table.insert(frmWarning.widgets.lstWarning.list, \"home:/\" .. v.from)\
            end\
\
            frmWarning:show()\
            os.sendMessage(hwnd, {msg = \"refresh\"})\
        end\
\
        -----------------------\
        listView:refreshList()\
        desktop:refresh()\
    end\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList > 0 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Cut\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        local fileList = { action = \"_MOVE\", files = {} }\
\
        for i, v in ipairs(listView.selectedList) do\
            table.insert(fileList.files, listView.path .. \"/\" .. listView.list[v].name)\
        end\
\
        os.copyToClipboard(fileList, \"_FILELIST\")\
    end\
    end))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Open with...\",\
    function(sender)\
        if #(listView.selectedList) > 0 then\
            local s = listView.list[listView.selectedList[1]].name\
            local ext = \"?\"\
            if (string.len(s) > 0) and (string.find(s, \"%.\") and s[0] ~= \".\" ) then\
                local fn = user.split(s, \".\")\
                ext = fn[#fn]\
            end\
\
            os.shell.run(\"opendlg \" .. ext .. \" \\\"\" ..\
                listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\"\")\
        end\
    end))\
\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Run in CraftOS Mode\", \
    function(sender)\
        if #(listView.selectedList) > 0 then\
            os.shell.run(\"ncvm.exe \\\"\" .. listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\"\")\
        end\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList > 0 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Open\", function(sender)\
        os.shell.run(\"\\\"\" .. listView.path .. \"/\" .. listView.list[listView.selectedList[1]].name .. \"\\\"\")\
    end))\
    end\
    local selList = listView.selectedList\
    if #selList < 1 then\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"-\", nil))\
    table.insert(menu.items, widgets.PopupMenu.CreateItem(\"Refresh\", function(sender) listView:refreshList() desktop:refresh() end))\
    end\
\
\
    widgets.popupMenu(menu, x + 1, y + 1)\
end\
\
\
\
local panel = widgets.Panel.Create(desktop, \"Panel\")\
panel.top = 1\
panel.left = 0\
panel.width = app.canvas.size.x\
panel.height = 3\
panel.bgcolor = colors.lightBlue\
\
\
local backButton = widgets.Button.Create(panel, \"BackButton\")\
backButton.left = 2\
backButton.top = 2\
backButton.height = 1\
backButton.width = 4\
backButton.bgcolor = colors.blue\
backButton.forecolor2 = colors.white\
backButton.align = \"center\"\
backButton.caption = \" <-\"\
\
backButton.onClick = function(sender)\
    listView:goBack()\
end\
\
\
local addressBar = widgets.Edit.Create(panel, \"AddressBar\")\
addressBar.left = 2 + 9 + 1\
addressBar.top = 2\
addressBar.height = 1\
addressBar.width = app.canvas.size.x - 2 - 4 - 1 - 5 - 15\
addressBar.text = \"home:/\"\
\
addressBar.onRefresh = function(sender)\
    sender.text = string.gsub(sender.text, \"%/%/\", \"%/\")\
end\
\
\
\
local goButton = widgets.Button.Create(panel, \"GoButton\")\
goButton.left = 2 + 4 + 1\
goButton.top = 2\
goButton.height = 1\
goButton.width = 4\
goButton.bgcolor = colors.blue\
goButton.forecolor2 = colors.white\
goButton.align = \"center\"\
goButton.caption = \" ->\"\
\
goButton.onClick = function(sender)\
    if addressBar.text:find(\"home:/\") then\
        listView:navigate(addressBar.text)\
    else\
        listView:navigate(\"home:/\" .. addressBar.text)\
    end\
end\
\
\
local function OpenWithText(fname)\
    local p = user.split(fname, \".\")\
\
    if #p == 1 then\
        return \"Run in Emulator\"\
    elseif string.lower(p[#p]) == \"app\" then\
        return \"Run\"\
    else\
        return \"Open\"\
    end\
end\
\
\
\
\
\
\
\
\
\
\
\
\
local organizeMenu = widgets.PopupMenu.Create()\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"Cut\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        local fileList = { action = \"_MOVE\", files = {} }\
\
        for i, v in ipairs(listView.selectedList) do\
            table.insert(fileList.files, listView.path .. \"/\" .. listView.list[v].name)\
        end\
\
        os.copyToClipboard(fileList, \"_FILELIST\")\
    end\
end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"Copy\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        local fileList = { action = \"_COPY\", files = {} }\
\
        for i, v in ipairs(listView.selectedList) do\
            table.insert(fileList.files, listView.path .. \"/\" .. listView.list[v].name)\
        end\
\
        os.copyToClipboard(fileList, \"_FILELIST\")\
    end\
end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"Paste\", function(sender)\
    local fileList = os.pasteFromClipboard(\"_FILELIST\")\
    local conflictList = {}\
\
    if (fileList ~= nil) and (fileList.files ~= nil) then\
        --error(\"paste\")\
\
        for i, v in ipairs(fileList.files) do\
            local from = string.gsub(v, \"home:/\", \"\", 1)\
            local to = string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. os.extractFileName(from)\
\
            if fs.exists(to) then\
                table.insert(conflictList, {from = from, to = to})\
            else\
                if fileList.action == \"_COPY\" then\
                    fs.copy(from, to)\
                else\
                    fs.move(from, to)\
                end\
            end\
        end\
\
        if #conflictList > 0 then\
            frmWarning.widgets.lstWarning.list = {}\
\
            for i, v in ipairs(conflictList) do\
                table.insert(frmWarning.widgets.lstWarning.list, \"home:/\" .. v.from)\
            end\
\
            frmWarning:show()\
            os.sendMessage(hwnd, {msg = \"refresh\"})\
        end\
\
        -----------------------\
        listView:refreshList()\
        desktop:refresh()\
    end\
end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"-\", function(sender)  end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"V Popular Places\",\
    function(sender)\
        if showPlaces then\
            sender.text = \"  Popular Places\"\
        else\
            sender.text = \"V Popular Places\"\
        end\
        showPlaces = not showPlaces\
        RepositionEverything()\
    end))\
\
--[[table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"  Search\",\
    function(sender)\
        if showSearch then\
            sender.text = \"  Search\"\
        else\
            sender.text = \"V Search\"\
        end\
        showSearch = not showSearch\
        RepositionEverything()\
    end))]]\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"-\", function(sender)  end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"Delete\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        os.messageBox(\"message\", \"Are you sure?\", \"Deleting Files\", \
        { \
            {caption = \"Yes\", \
                onClick = function(sender)\
                    for i, v in ipairs(listView.selectedList) do\
                        fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. listView.list[v].name)\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"No\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, \"defText\")\
    end\
end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"Rename\", function(sender)\
    local selList = listView.selectedList\
    if #selList > 0 then\
        os.messageBox(\"input\", \"New file name:\", \"Rename \\\"\" .. listView.list[selList[1]].name .. \"\\\"\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    local fileName = sender.parent.widgets.edit.text\
\
                    if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                        string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                        string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                        string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                        string.find(fileName, \"%|\") then\
                        app:showMessage(\"Invalid file name.\")\
                    else\
                        fs.move(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. listView.list[selList[1]].name,\
                            string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"Cancel\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, listView.list[selList[1]].name)\
    end\
end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"-\", function(sender)  end))\
table.insert(organizeMenu.items, widgets.PopupMenu.CreateItem(\"Close\", function(sender) app:terminate() end))\
\
\
\
\
\
\
\
\
\
\
\
\
\
\
\
\
\
\
\
\
local helpMenu = widgets.PopupMenu.Create()\
table.insert(helpMenu.items, widgets.PopupMenu.CreateItem(\"About\", function(sender) os.shell.run(\"winver Explorer\") end))\
\
\
\
\
\
\
\
local searchBox = widgets.Edit.Create(panel, \"searchBox\")\
searchBox.top = 2\
searchBox.left = 37\
searchBox.width = 14\
searchBox.height = 1\
searchBox.visible = true\
searchBox.text = \"Under Construction\"\
\
local searchList = widgets.ListBox.Create(desktop, \"searchList\")\
searchList.top = listView.top\
searchList.left = 14\
searchList.width = 38\
searchList.height = listView.height\
searchList.visible = false\
searchList.onMouseClick = function(sender, button, x, y)\
\
\
\
desktop.onKeyPress = function(sender, key, char)\
    if searchBox.focused then\
        if key == 28 then\
        searchBox.visible = true\
        desktop.focusedWidget = nil\
\
        listView.visible = false\
        oldListViewLeft = listView.left\
\
        listView.left = app.canvas.size.x + 2\
        searchList.visible = true\
        searchBox.visible = true\
        desktop.focusedWidget = nil\
            if not app:createThread(function()\
                local function searchIn(path)\
                    local list = fs.list(path)\
                    for i, v in ipairs(list) do\
                        if string.find(v, searchBox.text) ~= nil then\
                            searchList:add(path .. \"/\" .. v)\
                        end\
                        coroutine.yield()\
                        if fs.isDir(path .. \"/\" .. v) then\
                            searchIn(path .. \"/\" .. v)\
                        end\
                    end\
                end\
\
                searchIn(\"/\")\
            end) then error(\"Unable to create search thread!\") end\
        end\
    end\
end\
\
\
    local time = os.time()\
    if (time - lastSearchTime) * 10 < config.PROCESS_TIMER then\
        if (#(searchList.list) > 0) and (x < sender.left + sender.width - 1) then\
            local nav = string.gsub(searchList.list[searchList.index], \"//\", \"/\")\
            if not fs.isDir(nav) then\
                nav = os.extractFilePath(nav)\
            end\
            if not user.stringstarts(nav, \"home:/\") then\
                nav = \"home:/\" .. nav\
            end\
\
            os.shell.run(\"explorer.exe \\\"\" .. nav .. \"\\\"\")\
        end\
    end\
\
    lastSearchTime = time\
end\
\
\
local searchPanel = widgets.PaintBox.Create(desktop, \"searchPanel\")\
searchPanel.top = listView.height - 10 + 5\
searchPanel.left = 0\
searchPanel.width = 14\
searchPanel.height = 10\
searchPanel.bgcolor = colors.blue\
searchPanel:refresh()\
\
local MikuSprites = {}\
MikuSprites[\"idle\"]    = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/idle.pic\")\
MikuSprites[\"s1\"]      = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/s1.pic\")\
MikuSprites[\"s2\"]      = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/s2.pic\")\
MikuSprites[\"happy1\"]  = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/happy1.pic\")\
MikuSprites[\"happy2\"]  = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/happy2.pic\")\
MikuSprites[\"up\"]      = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/up.pic\")\
MikuSprites[\"down\"]    = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/down.pic\")\
MikuBalloonPic         = user.loadCanvas(os.getSystemPath() .. \"/assets/Miku/balloon.pic\")\
\
local MikuEnabled = false\
local MikuJustEnabled = false\
local MikuShowingBalloon = false\
local MikuCurrent = \"lifting\"  -- \"lifting\", \"idle\", \"searching\", \"happy\", \"comingdown\"\
local MikuCurrentText = \"\"\
local MikuCurrentWord = 0\
local MikuCurrentTextSplit = {}\
local MikuPartStr = \"\"\
local MikuCounter = 0\
local MikuBeforeActionCounter = 0\
local MikuSaying = 0\
local MikuGoingToIdle = false\
local MikuGoingToExit = false\
local oldListViewLeft = 0\
\
\
listView.onAfterRefresh = function(sender)\
    if MikuShowingBalloon then\
        if sender.canvas ~= nil then\
            sender.canvas:draw(-1, 0, MikuBalloonPic, nil, true, colors.purple)\
            sender.canvas:setCursorPos(4, 3)\
            sender.canvas.forecolor = colors.black\
            sender.canvas:write(MikuPartStr)\
\
            if searchBox.visible then\
                desktop.focusedWidget = searchBox\
            end\
        end\
    end\
end\
\
\
searchPanel.mouseClick = function(sender)\
    if (MikuCurrent == \"idle\") and (MikuSaying == 0) then\
        MikuCurrent = \"happy\"\
        MikuCounter = 0\
        MikuBeforeActionCounter = 0\
        MikuShowingBalloon = false\
    end\
\
    if (MikuCurrent == \"idle\") and (MikuSaying == 2) then\
        searchBox.visible = false\
        desktop.focusedWidget = nil\
        MikuShowingBalloon = false\
        MikuSaying = 3\
        MikuBeforeActionCounter = 0\
        MikuCurrent = \"searching\"\
\
        listView.visible = false\
        oldListViewLeft = listView.left\
\
        searchList.top = listView.top\
        searchList.left = listView.left\
        searchList.width = listView.width\
        searchList.height = listView.height\
\
        listView.left = app.canvas.size.x + 2\
        searchList.visible = true\
        searchBox.visible = false\
        desktop.focusedWidget = nil\
\
        if not app:createThread(function()\
            local function searchIn(path)\
                local list = fs.list(path)\
                for i, v in ipairs(list) do\
                    if string.find(v, searchBox.text) ~= nil then\
                        searchList:add(path .. \"/\" .. v)\
                    end\
                    coroutine.yield()\
                    if fs.isDir(path .. \"/\" .. v) then\
                        searchIn(path .. \"/\" .. v)\
                    end\
                end\
            end\
\
            MikuSaying = 6\
            searchIn(\"/\")\
            MikuSaying = 4\
            MikuGoingToIdle = true\
        end) then error(\"Unable to create search thread!\") end\
    end\
\
    if (MikuCurrent == \"idle\") and (MikuSaying == 4) then\
        MikuSaying = 5\
        MikuGoingToIdle = false\
        MikuGoingToExit = true\
        MikuCounter = 0\
        MikuCurrent = \"happy\"\
        searchList:clear()\
        MikuAnimate()\
        searchPanel.visible = false\
        MikuBeforeActionCounter = 0\
        os.sendMessage(hwnd, {msg = \"refresh\"})\
    end\
\
    --[[if (MikuCurrent == \"searching\") and MikuSaying == 6 then\
        MikuSaying = 5\
        MikuGoingToIdle = true\
        MikuGoingToExit = false\
        MikuCounter = 0\
        MikuCurrent = \"happy\"\
        MikuBeforeActionCounter = 0\
        app.threads = {}\
    end]]\
end\
\
\
function MikuSay(text)\
    if text ~= MikuCurrentText then\
        MikuCurrentText = text\
        MikuCurrentTextSplit = user.split(text, \" \")\
        MikuCurrentWord = 0\
        MikuPartStr = \"\"\
    end\
\
    if MikuCurrentWord < #MikuCurrentTextSplit then\
        MikuCurrentWord = MikuCurrentWord + 1\
        MikuPartStr = MikuPartStr .. MikuCurrentTextSplit[MikuCurrentWord] .. \" \"\
    end\
end\
\
\
function MikuAnimate()\
    if MikuJustEnabled then\
        MikuCurrent = \"idle\"\
        MikuCounter = 0\
        MikuEnabled = true\
        MikuJustEnabled = false\
        MikuSaying = 0\
    end\
\
    if MikuEnabled then\
        if MikuCurrent == \"idle\" then\
            MikuCounter = MikuCounter + 1\
\
            if MikuSaying == 0 then\
                if MikuCounter == 1 then\
                    searchPanel.canvas:clear()\
                    searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"idle\"])\
                elseif MikuCounter == 3 then\
                    MikuShowingBalloon = true\
                    MikuSay(\"\")\
                elseif (MikuCounter >= 5) and (MikuCounter < 12) then\
                    MikuSay(\"Hi! I'm Miku.\")\
                elseif (MikuCounter >= 12) and (MikuCounter < 16) then\
                    MikuSay(\"I am here to\")\
                elseif (MikuCounter >= 16) and (MikuCounter < 22) then\
                    MikuSay(\"find files.\")\
                elseif (MikuCounter >= 22) and (MikuCounter < 25) then\
                    MikuSay(\"Click me!\")\
                end\
            end\
\
            if MikuSaying == 1 then\
                if MikuCounter == 1 then\
                    searchPanel.canvas:clear()\
                    searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"idle\"])\
                elseif MikuCounter == 3 then\
                    MikuShowingBalloon = true\
                    MikuSay(\"\")\
                elseif (MikuCounter >= 5) and (MikuCounter < 8) then\
                    MikuSay(\"Tell me what\")\
                elseif (MikuCounter >= 8) and (MikuCounter < 12) then\
                    MikuSay(\"should I\")\
                elseif (MikuCounter >= 12) and (MikuCounter < 17) then\
                    MikuSay(\"look for:\")\
                elseif MikuCounter == 17 then\
                    searchBox.visible = true\
                    desktop.focusedWidget = searchBox\
                    MikuSaying = 2\
                end\
            end\
\
            if MikuSaying == 4 then\
                if MikuCounter == 1 then\
                    searchPanel.canvas:clear()\
                    searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"idle\"])\
                elseif MikuCounter == 3 then\
                    MikuShowingBalloon = true\
                    MikuSay(\"\")\
                elseif (MikuCounter >= 5) and (MikuCounter < 8) then\
                    if #(searchList.list) > 0 then\
                        MikuSay(\"Look what I found!\")\
                    else\
                        MikuSay(\"I found nothing!\")\
                    end\
                end\
            end\
        elseif MikuCurrent == \"happy\" then\
            MikuCounter = MikuCounter + 1\
            MikuBeforeActionCounter = MikuBeforeActionCounter + 1\
\
            if MikuBeforeActionCounter == 12 then\
                if not MikuGoingToExit then\
                    MikuBeforeActionCounter = 0\
                    MikuCounter = 0\
                    MikuSaying = MikuSaying + 1\
                    MikuCurrent = \"idle\"\
                else\
                    MikuGoingToExit = false\
                    showSearch = false\
                    os.shell.run(\"explorer.exe \\\"\" .. listView.path .. \"\\\"\")\
                    app:terminate()\
                    RepositionEverything()\
                end\
            end\
\
            if MikuCounter == 1 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"happy1\"])\
            elseif MikuCounter == 3 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"happy2\"])\
            elseif MikuCounter == 5 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"happy1\"])\
                MikuCounter = 0\
            end\
        elseif MikuCurrent == \"searching\" then\
            MikuCounter = MikuCounter + 1\
\
            if MikuCounter == 1 then\
                searchPanel.canvas:clear()\
            elseif MikuCounter == 2 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 4, MikuSprites[\"up\"])\
            elseif MikuCounter == 3 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 8, MikuSprites[\"up\"])\
            elseif MikuCounter == 4 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 9, MikuSprites[\"up\"])\
            elseif MikuCounter == 5 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"down\"])\
            elseif MikuCounter == 6 then\
                if MikuGoingToIdle then\
                    MikuCurrent = \"idle\"\
                    MikuCounter = 0\
                    return nil\
                end\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"s1\"])\
            elseif MikuCounter == 10 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"s2\"])\
            elseif MikuCounter == 14 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"s1\"])\
            elseif MikuCounter == 18 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"s2\"])\
            elseif MikuCounter == 22 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 10, MikuSprites[\"s1\"])\
            elseif MikuCounter == 23 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 9, MikuSprites[\"down\"])\
            elseif MikuCounter == 24 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 8, MikuSprites[\"down\"])\
            elseif MikuCounter == 25 then\
                searchPanel.canvas:clear()\
                searchPanel.canvas:draw(0, searchPanel.height - 4, MikuSprites[\"down\"])\
            elseif MikuCounter == 26 then\
                searchPanel.canvas:clear()\
            elseif MikuCounter >= 30 then\
                MikuCounter = 0\
            end\
        end\
    else\
        MikuShowingBalloon = false\
\
        if searchList.visible then\
            listView.left = oldListViewLeft\
            listView.visible = true\
            searchList.visible = false\
            desktop.focusedWidget = nil\
        end\
\
        if searchBox.visible then\
            searchBox.visible = false\
            desktop.focusedWidget = nil\
        end\
    end\
end\
\
\
\
searchPanel.canvas.effect = {\
    getbgcolor = function(self, x, y, bgcolor, forecolor, char)\
        if bgcolor == colors.white then\
            return searchPanel.bgcolor\
        end\
        if bgcolor == colors.purple then\
            return colors.white\
        end\
        return bgcolor\
    end,\
    getforecolor = function(self, x, y, bgcolor, forecolor, char)\
        return forecolor\
    end,\
    getchar = function(self, x, y, bgcolor, forecolor, char)\
        return char\
    end,\
}\
\
searchPanel.canvas.bgcolor = colors.blue\
--searchPanel.canvas:draw(0, 0, MikuSprites[\"idle\"])\
\
\
\
local lblPlaces = widgets.Label.Create(desktop, \"lblPlaces\")\
lblPlaces.top = 5\
lblPlaces.left = 1\
lblPlaces.width = 14\
lblPlaces.height = 1\
lblPlaces.bgcolor = colors.white\
lblPlaces.caption = \"Places:\"\
lblPlaces.visible = false\
\
local popularPlaces = widgets.ListBox.Create(desktop, \"popularPlaces\")\
popularPlaces.top = 5\
popularPlaces.left = 0\
popularPlaces.width = 14\
popularPlaces.height = listView.height - searchPanel.height\
popularPlaces.bgcolor = colors.white\
\
places_titles = {}\
table.insert(places_titles, \"Home\")\
table.insert(places_titles, \"Documents\")\
table.insert(places_titles, \"Desktop\")\
table.insert(places_titles, \"System\")\
table.insert(places_titles, \"ROM\")\
\
places_locations = {\
    Home = \"home:/\",\
    Documents = \"home:/$WIN$/userdata/Documents/\",\
    Desktop = \"home:/$WIN$/userdata/Desktop/\",\
    System = \"home:/$WIN$/\",\
    ROM = \"home:/rom/\",\
}\
\
for i, v in ipairs(places_titles) do\
    popularPlaces:add(v)\
end\
\
\
sides = peripheral.getNames()\
for i, v in ipairs(sides) do\
    if peripheral.getType(v) == \"drive\" then\
        places_locations[disk.getMountPath(v)] = \"home:/\" .. disk.getMountPath(v)\
        table.insert(places_titles, disk.getMountPath(v))\
        popularPlaces:add(disk.getMountPath(v))\
    end\
end\
\
\
popularPlaces.onClick = function(sender)\
local nav = string.gsub(places_locations[sender.list[sender.index]], \"%$WIN%$\", os.getSystemPath())\
listView:navigate(nav)\
listView.selectedList = {}\
end\
\
\
\
function RepositionEverything()\
    if showPlaces or showSearch then\
        listView.left = 14\
        listView.width = app.canvas.size.x - 13\
    else\
        listView.left = 1\
        listView.width = app.canvas.size.x\
    end\
\
    if showPlaces and showSearch then\
        searchPanel.top = listView.height - 10 + 5\
        searchPanel.height = 10\
        searchPanel.visible = true\
        popularPlaces.height = listView.height - searchPanel.height\
        popularPlaces.visible = true\
    else\
        if showPlaces then\
            searchPanel.visible = false\
            popularPlaces.height = listView.height\
            popularPlaces.visible = true\
        elseif showSearch then\
            popularPlaces.visible = false\
            searchPanel.top = 5\
            searchPanel.height = listView.height\
            searchPanel.visible = true\
        else\
            popularPlaces.visible = false\
            searchPanel.visible = false\
        end\
    end\
\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
\
\
\
\
local menu = widgets.MenuBar.Create(desktop, \"Menu\")\
menu.top = 4\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"Organize\", function(sender) widgets.popupMenu(organizeMenu, sender.left, sender.top + 5) end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"About system\", function(sender) os.shell.run(\"winver\") end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"New file\", function(sender)\
        os.messageBox(\"input\", \"New file name:\", \"Create File...\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    local fileName = sender.parent.widgets.edit.text\
\
                    if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                        string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                        string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                        string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                        string.find(fileName, \"%|\") then\
                        app:showMessage(\"Invalid file name.\")\
                    else\
                        app:showMessage(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                        if fs.exists(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName) then\
                            os.messageBox(\"message\", \"\\\"\" .. fileName .. \"\\\"Already exists. Delete?\", \"Warning\", \
                            { \
                                {caption = \"Yes\", \
                                    onClick = function(sender)\
                                        fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
\
                                        local f = fs.open(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName, \"w\")\
                                        f.write(\"\\r\\n\")\
                                        f.close()\
\
                                        os.hideMessageBox()\
                                    end\
                                },\
\
                                {caption = \"No\",\
                                    onClick = function(sender)\
                                        os.hideMessageBox()\
                                    end\
                                } \
\
                            }, \"defText\")\
                        else\
                            local f = fs.open(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName, \"w\")\
                            f.write(\"\\r\\n\")\
                            f.close()\
                        end\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"Cancel\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, \"New File.txt\")    \
end))\
table.insert(menu.items, widgets.MenuBar.CreateItem(\"New folder\", function(sender)\
        os.messageBox(\"input\", \"New folder name:\", \"Create Folder...\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    local fileName = sender.parent.widgets.edit.text\
\
                    if string.find(fileName, \"%/\") or string.find(fileName, \"%\\\\\") or\
                        string.find(fileName, \"%:\") or string.find(fileName, \"%*\") or\
                        string.find(fileName, \"%?\") or string.find(fileName, \"%\\\"\") or\
                        string.find(fileName, \"%<\") or string.find(fileName, \"%>\") or\
                        string.find(fileName, \"%|\") then\
                        app:showMessage(\"Invalid folder name.\")\
                    else\
                        app:showMessage(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                        if fs.exists(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName) then\
                            os.messageBox(\"message\", \"\\\"\" .. fileName .. \"\\\"Already exists. Delete?\", \"Warning\", \
                            { \
                                {caption = \"Yes\", \
                                    onClick = function(sender)\
                                        fs.delete(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
\
                                        fs.makeDir(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
\
                                        os.hideMessageBox()\
                                    end\
                                },\
\
                                {caption = \"No\",\
                                    onClick = function(sender)\
                                        os.hideMessageBox()\
                                    end\
                                } \
\
                            }, \"defText\")\
                        else\
                            fs.makeDir(string.gsub(listView.path, \"home:/\", \"\", 1) .. \"/\" .. fileName)\
                        end\
                    end\
\
                    listView:refreshList()\
                    desktop:refresh()\
                    os.hideMessageBox()\
                end\
            },\
\
            {caption = \"Cancel\",\
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            } \
\
        }, \"New Folder\")  \
end))\
\
\
RepositionEverything()\
\
\
if params[2] ~= nil then\
    listView:navigate(params[2])\
else\
    listView:navigate(\"home:/\")\
end\
\
\
\
local lastTimerTime = os.time()\
local delta = 0.05\
\
local function timerRefresh()\
    if lastTimerTime > 0 then\
        delta = 0.25 / ((os.time() - lastTimerTime) * 60 * 6 * 6)\
        --error(tostring(delta))\
        --app:showMessage(tostring(delta), \"\")\
    end\
\
    os.startTimer(delta, timerRefresh)\
    lastTimerTime = os.time()\
end\
\
os.startTimer(0.05, timerRefresh)\
\
app:run()",
      [ "exec.exe" ] = "local app = application.Create(os.getProcessInfo(os.getCurrentProcess()), os)\
local mainForm = form.Create(\"Run\")\
app:addForm(mainForm, \"Run\")\
mainForm:show()\
\
\
local openDialog = widgets.dialogs.OpenDialog.Create(mainForm, \"OpenDialog\")\
openDialog.onExecute = function(sender)\
    sender.parent.widgets.txtCmd.text = sender.fileName or \"\"\
    os.sendMessage(hwnd, {msg = \"refresh\"})\
end\
\
local txtCmd = widgets.Edit.Create(mainForm, \"txtCmd\")\
txtCmd.left = 8\
txtCmd.top = 5\
txtCmd.width = app.canvas.size.x - 8\
txtCmd.text = \"\"\
\
\
local btnCmd = widgets.Button.Create(mainForm, \"btnCmd\")\
btnCmd.width = 8\
btnCmd.left = app.canvas.size.x - btnCmd.width - btnCmd.width - btnCmd.width - 2\
btnCmd.top = app.canvas.size.y - 2\
btnCmd.caption = \"Ok\"\
btnCmd.onClick = function(sender)\
    if (txtCmd.text == nil) or (txtCmd.text == \"\") then\
        os.messageBox(\"message\", \"Please specify any command.\", \"Error\", \
        { \
            {caption = \"OK\", \
                onClick = function(sender)\
                    os.hideMessageBox()\
                end\
            },\
        }, \"defText\")\
    else\
        os.shell.run(txtCmd.text)\
        app:terminate()\
    end\
end\
\
local btnCancel = widgets.Button.Create(mainForm, \"btnCancel\")\
btnCancel.width = 8\
btnCancel.left = app.canvas.size.x - btnCancel.width - btnCancel.width  - 1\
btnCancel.top = app.canvas.size.y - 2\
btnCancel.caption = \"Cancel\"\
btnCancel.onClick = function(sender)\
    app:terminate()\
end\
\
local btnBrowse = widgets.Button.Create(mainForm, \"btnBrowse\")\
btnBrowse.width = 8\
btnBrowse.left = app.canvas.size.x - btnBrowse.width\
btnBrowse.top = app.canvas.size.y - 2\
btnBrowse.caption = \"Browse\"\
btnBrowse.onClick = function(sender)\
    openDialog:execute()\
end\
\
\
local lblOpen = widgets.Label.Create(mainForm, \"lblOpen\")\
lblOpen.left = 2\
lblOpen.top = 5\
lblOpen.caption = \"Open:\"\
lblOpen.width = 5\
lblOpen.height = 1\
\
local lblExec = widgets.Label.Create(mainForm, \"lblExec\")\
lblExec.left = 2\
lblExec.top = 2\
lblExec.caption = \"Type the name of a program, and WinCC will open\"\
lblExec.width = app.canvas.size.x - 2\
lblExec.height = 1\
\
local lblExec = widgets.Label.Create(mainForm, \"lblExec2\")\
lblExec.left = 2\
lblExec.top = 3\
lblExec.caption = \"it for you.\"\
lblExec.width = app.canvas.size.x - 2\
lblExec.height = 1\
\
local lblExec = widgets.Label.Create(mainForm, \"lblExec3\")\
lblExec.left = 2\
lblExec.top = 7\
lblExec.caption = \"Memo:\"\
lblExec.width = 5\
lblExec.height = 1\
\
-----------------------------------------------------------\
local helpLst = widgets.ListBox.Create(mainForm, \"helpLst\")\
helpLst.top = 7\
helpLst.left = 7\
helpLst.width = app.canvas.size.x - 6\
helpLst.height = app.canvas.size.y - 9 - 1\
\
table.insert(mainForm.widgets.helpLst.list, \"exec          Run\")\
table.insert(mainForm.widgets.helpLst.list, \"taskmgr       Task Manager\")\
table.insert(mainForm.widgets.helpLst.list, \"explorer      Explorer\")\
table.insert(mainForm.widgets.helpLst.list, \"winver        System Version\")\
table.insert(mainForm.widgets.helpLst.list, \"lnkcreate     Create Icon\")\
table.insert(mainForm.widgets.helpLst.list, \"logoff        Classic Log Off\")\
table.insert(mainForm.widgets.helpLst.list, \"ncvm          Command Prompt\")\
table.insert(mainForm.widgets.helpLst.list, \"control       Control Panel\")\
-----------------------------------------------------------\
\
app:run()",
    },
    UserData = {
      AppData = {
        LimeText = {
          [ "limetext.ico" ] = "pic|3|4|80 50 80 80 80 50 50 80 75 75 75 75 ",
          [ "limetext.ini" ] = "[debug]\
args = ",
          [ "logo.pic" ] = "pic|10|14|70 80 80 80 50 50 50 80 80 80 80 80 80 70 78 80 80 80 50 50 50 80 80 80 80 80 80 78 00 80 80 80 50 50 50 80 80 80 80 80 80 00 00 80 80 80 50 50 50 80 80 80 80 80 80 00 00 80 80 80 50 50 50 50 50 50 80 80 80 00 00 80 80 80 50 50 50 50 50 50 80 80 80 00 00 70 70 70 70 70 70 70 70 70 70 70 70 00 00 70 70 70 70 70 70 70 70 70 70 70 70 00 08 08 08 08 08 08 08 08 08 08 08 08 08 08 88 88 88 88 88 88 88 88 88 88 88 88 88 88 ",
        },
        [ "NotePad+" ] = {
          [ "npadplus.ini" ] = "[debug]\
args = ",
          [ "npadplus.ico" ] = "pic|3|4|5d=5d=5d=5d=5d=5dN5d+5d=07=07=07=07=",
        },
        StartMenu = {
          Programs = {
            [ "LimeText.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/limetext.exe\
icon = home:/WinCC/UserData/AppData/LimeText/limetext.ico",
            [ "NotePad+.lnk" ] = "[shortcut]\
file = npadplus\
icon = home:/WinCC/UserData/AppData/NotePad+/npadplus.ico",
            [ "PhotoEdit.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/photoedit.exe\
icon = home:/WinCC/system/iconres/pic.ico",
            [ "NotePad.lnk" ] = "[shortcut]\
file = notepad\
icon = home:/WinCC/system/iconres/Notepad.ico",
            AdministrativeTools = {
              [ "Run.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/exec.exe\
icon = home:/WinCC/system/iconres/Run.ico",
              [ "TaskManager.lnk" ] = "[shortcut]\
file = home://WinCC/ProgramFiles/taskmgr.exe\
icon = home:/WinCC/System/IconRes/Taskmgr.ico",
              [ "ControlPanel.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/control.exe\
icon = home:/WinCC/system/iconres/Control.ico",
              [ "CommandPrompt.lnk" ] = "[shortcut]\
file = home://WinCC/ProgramFiles/ncvm.exe\
icon = home:/WinCC/System/IconRes/Cmd.ico",
              [ "Explorer.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/explorer.exe\
icon = home:/WinCC/system/iconres/Computer.ico",
            },
          },
        },
      },
      Pictures = {
        [ "Welcome.pic" ] = "pic|11|31|00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 00 50 00 00 50 00 00 50 50 00 00 50 00 00 50 00 00 50 50 0f 0f 50 50 50 e0 e0 40 40 b0 b0 0f 00 50 00 00 50 00 50 00 00 50 00 50 50 50 50 00 50 00 00 50 00 00 00 0f 0f 0f 0f 0f 0f 0f 0f 00 50 50 50 00 00 50 50 50 50 00 00 50 50 00 00 50 00 00 50 00 10 00 10 0f 10 10 0f 10 10 0f 00 50 00 00 50 00 50 00 00 50 00 00 50 50 00 0f 50 0f 0f 50 0f 10 0f 10 0f 10 0f 0f 10 0f 0f 00 50 00 00 50 00 50 00 00 50 00 00 50 50 00 0f 0f 50 50 0f 0f 0f 10 0f 0f 10 10 0f 10 0f 0f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 91 91 91 91 31 31 31 31 31 31 11 11 11 11 11 11 11 11 11 11 10 31 31 31 31 31 30 91 91 91 90 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 00 01M01o01d01i01f01i01c01a01t01i01o01n00 01f01o01r00 01C01C01W01i01n0f 01(01C01)0f 0110150f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f 0f ",
      },
      Documents = {
        [ "Test.txt" ] = "I'm a test file, you can delete me",
      },
      Desktop = {
        [ "LimeText.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/limetext.exe\
icon = home:/WinCC/UserData/AppData/LimeText/limetext.ico",
        [ "NotePad+.lnk" ] = "[shortcut]\
file = npadplus\
icon = home:/WinCC/UserData/AppData/NotePad+/npadplus.ico",
        [ "PhotoEdit.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/photoedit.exe\
icon = home:/WinCC/system/iconres/pic.ico",
        [ "NotePad.lnk" ] = "[shortcut]\
file = notepad\
icon = home:/WinCC/system/iconres/Notepad.ico",
        [ "Computer.lnk" ] = "[shortcut]\
file = home:/WinCC/ProgramFiles/explorer.exe\
icon = home:/WinCC/system/iconres/Computer.ico",
      },
    },
  },
}

local function run(tArgs)

  local fnFile, err = loadstring(files['startup'], 'startup')
  if err then
    error(err)
  end

  local function split(str, pat)
     local t = {}
     local fpat = "(.-)" .. pat
     local last_end = 1
     local s, e, cap = str:find(fpat, 1)
     while s do
        if s ~= 1 or cap ~= "" then
     table.insert(t,cap)
        end
        last_end = e+1
        s, e, cap = str:find(fpat, last_end)
     end
     if last_end <= #str then
        cap = str:sub(last_end)
        table.insert(t, cap)
     end
     return t
  end

  local function resolveTreeForPath(path, single)
    local _files = files
    local parts = split(path, '/')
    if parts then
      for i, v in ipairs(parts) do
        if #v > 0 then
          if _files[v] then
            _files = _files[v]
          else
            _files = nil
            break
          end
        end
      end
    elseif #path > 0 and path ~= '/' then
      _files = _files[path]
    end
    if not single or type(_files) == 'string' then
      return _files
    end
  end

  local oldFs = fs
  local env
  env = {
    fs = {
      list = function(path)
              local list = {}
              if fs.exists(path) then
            list = fs.list(path)
              end
        for k, v in pairs(resolveTreeForPath(path)) do
          if not fs.exists(path .. '/' ..k) then
            table.insert(list, k)
          end
        end
        return list
      end,

      exists = function(path)
        if fs.exists(path) then
          return true
        elseif resolveTreeForPath(path) then
          return true
        else
          return false
        end
      end,

      isDir = function(path)
        if fs.isDir(path) then
          return true
        else
          local tree = resolveTreeForPath(path)
          if tree and type(tree) == 'table' then
            return true
          else
            return false
          end
        end
      end,

      isReadOnly = function(path)
        if not fs.isReadOnly(path) then
          return false
        else
          return true
        end
      end,

      getName = fs.getName,

      getSize = fs.getSize,

      getFreespace = fs.getFreespace,

      makeDir = fs.makeDir,

      move = fs.move,

      copy = fs.copy,

      delete = fs.delete,

      combine = fs.combine,

      open = function(path, mode)
        if fs.exists(path) then
          return fs.open(path, mode)
        elseif type(resolveTreeForPath(path)) == 'string' then
          local handle = {close = function()end}
          if mode == 'r' then
            local content = resolveTreeForPath(path)
            handle.readAll = function()
              return content
            end

            local line = 1
            local lines = split(content, '\n')
            handle.readLine = function()
              if line > #lines then
                return nil
              else
                return lines[line]
              end
              line = line + 1
            end
                      return handle
          else
            error('Cannot write to read-only file (compilr archived).')
          end
        else
          return fs.open(path, mode)
        end
      end
    },

    io = {
      input = io.input,
      output = io.output,
      type = io.type,
      close = io.close,
      write = io.write,
      flush = io.flush,
      lines = io.lines,
      read = io.read,
      open = function(path, mode)
        if fs.exists(path) then
          return io.open(path, mode)
        elseif type(resolveTreeForPath(path)) == 'string' then
          local content = resolveTreeForPath(path)
          local f = fs.open(path, 'w')
          f.write(content)
          f.close()
          if mode == 'r' then
            return io.open(path, mode)
          else
            error('Cannot write to read-only file (compilr archived).')
          end
        else
          return io.open(path, mode)
        end
      end
    },

    loadfile = function( _sFile )
        local file = env.fs.open( _sFile, "r" )
        if file then
            local func, err = loadstring( file.readAll(), fs.getName( _sFile ) )
            file.close()
            return func, err
        end
        return nil, "File not found: ".._sFile
    end,

    dofile = function( _sFile )
        local fnFile, e = env.loadfile( _sFile )
        if fnFile then
            setfenv( fnFile, getfenv(2) )
            return fnFile()
        else
            error( e, 2 )
        end
    end
  }

  setmetatable( env, { __index = _G } )

  local tAPIsLoading = {}
  env.os.loadAPI = function( _sPath )
      local sName = fs.getName( _sPath )
      if tAPIsLoading[sName] == true then
          printError( "API "..sName.." is already being loaded" )
          return false
      end
      tAPIsLoading[sName] = true

      local tEnv = {}
      setmetatable( tEnv, { __index = env } )
      local fnAPI, err = env.loadfile( _sPath )
      if fnAPI then
          setfenv( fnAPI, tEnv )
          fnAPI()
      else
          printError( err )
          tAPIsLoading[sName] = nil
          return false
      end

      local tAPI = {}
      for k,v in pairs( tEnv ) do
          tAPI[k] =  v
      end

      env[sName] = tAPI
      tAPIsLoading[sName] = nil
      return true
  end

  env.shell = shell

  setfenv( fnFile, env )
  fnFile(unpack(tArgs))
end

local function extract()
 term.clear()
 function centerText(text, line)
    x,y = term.getSize()
    term.setCursorPos(math.ceil((x / 2) - (text:len() / 2)), line)
    term.write(text)
 end
 local w, h = term.getSize()
 term.setTextColor(colors.white)
 centerText("WinCC is loading files...", h - 5)
 term.setCursorPos(2, h - 3)
 term.setBackgroundColor(colors.lightGray)
 term.write("                                                 ")
    local function node(path, tree)
        if type(tree) == 'table' then
        local w, h = term.getSize()
        local oldx, oldy = term.getCursorPos()
        term.setCursorPos(2, h - 3)
            fs.makeDir(path)
            for k, v in pairs(tree) do
                node(path .. '/' .. k, v)
            end
        term.setBackgroundColor(colors.white)
        term.setCursorPos(oldx, h - 3)
        term.write("  ")
        else
        local w, h = term.getSize()
        local oldx, oldy = term.getCursorPos()
        term.setCursorPos(2, h - 3)
            local f = fs.open(path, 'w')
            if f then
                f.write(tree)
                f.close()
            end
        term.setBackgroundColor(colors.white)
        term.setCursorPos(oldx, h - 3)
        term.write("  ")
        end

    end
    node('', files)
 term.setCursorPos(2, h - 3)
 term.setBackgroundColor(colors.black)
 term.write("                                                  ")
 term.setCursorPos(2, h - 3)
 term.setBackgroundColor(colors.white)
 term.write("                                                 ")
os.reboot()
end


  extract()