GitHub/Basalt
1
0
Fork 0
Code Issues 28 Pull Requests 3 Actions Packages Projects Releases 9 Wiki Activity

Small onError/onDone event fix

Browse Source
This commit is contained in:
Robert Jelic
2022-09-24 16:13:31 +02:00
parent 1f299153d0
commit 58c92277bd
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Basalt/objects/Program.lua
View File

@@ -435,14 +435,14 @@ return function(name, parent)
local function resumeProcess(self, event, ...) local function resumeProcess(self, event, ...)
local ok, result = curProcess:resume(event, ...) local ok, result = curProcess:resume(event, ...)
if (ok==false)and(result~=nil)and(result~="Terminated")then if (ok==false)and(result~=nil)and(result~="Terminated")then
local val = self:sendEvent("program_error", self, result) local val = self:sendEvent("program_error", result)
if(val~=false)then if(val~=false)then
error("Basalt Program - "..result) error("Basalt Program - "..result)
end end
end end
if(curProcess:getStatus()=="dead")then if(curProcess:getStatus()=="dead")then
self:sendEvent("program_done", self) self:sendEvent("program_done")
end end
end end
@@ -540,6 +540,7 @@ return function(name, parent)
pWindow.setBackgroundColor(self.bgColor) pWindow.setBackgroundColor(self.bgColor)
pWindow.setTextColor(self.fgColor) pWindow.setTextColor(self.fgColor)
pWindow.basalt_setVisible(true) pWindow.basalt_setVisible(true)
resumeProcess(self) resumeProcess(self)
paused = false paused = false
if(self.parent~=nil)then if(self.parent~=nil)then