epicknex/VisualNovelCreator
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

working on some stuff

Browse Source
This commit is contained in:
Ryan Ward 2019-06-29 11:58:26 -04:00
parent 59dc3d1da7
commit 63f3f165ca
1 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
Visual Novel/VNCore/debug.lua
View File

@ -6,17 +6,41 @@ end
local debug = {} local debug = {}
local taskmanagerDetails = {} local taskmanagerDetails = {}
local debugF = gui:newFrame("DebugFrame",0,0,0,0,0,0,1,1) local debugF = gui:newFrame("DebugFrame",0,0,0,0,0,0,1,1)
debugF.Visibility = 0--.5 debugF.Visibility = .5
debugF.Color = Color.Black debugF.Color = Color.Black
vncore.getWorkspace().Active = false vncore.getWorkspace().Active = false
vncore.getWorkspace().Visibility = 1 vncore.getWorkspace().Visibility = 1
-- debugF.Visible = false -- debugF.Visible = false
local taskmanager = debugF:newFrame("TaskManager",0,0,400,500,0,0) local taskmanager = debugF:newFrame("TaskManager",0,0,400,500,0,0)
taskmanager.scroll = taskmanager:newFrame("ScrollBar",-20,30,20,-60,1,0,0,1) taskmanager.scroll = taskmanager:newFrame("ScrollBwar",-20,30,20,-60,1,0,0,1)
taskmanager.scroll.mover = taskmanager.scroll:newFrame("Mover",0,0,20,20)
taskmanager.scroll.mover.Color = Color.Lighten(Color.Saddle_brown,.25)
local lock = false
taskmanager.scroll.mover:OnPressed(function(b,self)
lock = true
end)
taskmanager.scroll.mover:OnReleased(function(b,self)
lock = false
end)
taskmanager.scroll:OnClicked(function(b,self,x,y)
if lock then
love.mouse.setX(self.x+10)
end
taskmanager.scroll.mover:SetDualDim(nil,y-10)
print(taskmanager.scroll.mover.offset.pos.y)
if taskmanager.scroll.mover.offset.pos.y <= 0 then
taskmanager.scroll.mover:SetDualDim(nil,0)
elseif taskmanager.scroll.mover.offset.pos.y >= taskmanager.scroll.height-20 then
taskmanager.scroll.mover:SetDualDim(nil,taskmanager.scroll.height-20)
end
end)
taskmanager.header = taskmanager:newTextLabel(" Task Manager","Task Manager",1,1,-2,29,0,0,1) taskmanager.header = taskmanager:newTextLabel(" Task Manager","Task Manager",1,1,-2,29,0,0,1)
taskmanager.header.X = taskmanager.header:newTextButton("X","X",-25,5,20,20,1) taskmanager.header.X = taskmanager.header:newTextButton("X","X",-25,5,20,20,1)
taskmanager.header.X.Color = Color.Red taskmanager.header.X.Color = Color.Red
taskmanager.header.X:setRoundness(4,4,60) taskmanager.header.X:setRoundness(4,4,60)
taskmanager.header.X:OnReleased(function()
debug:hide()
end)
taskmanager.details = taskmanager:newTextLabel(" Details","",1,-31,-2,30,0,1,1) taskmanager.details = taskmanager:newTextLabel(" Details","",1,-31,-2,30,0,1,1)
taskmanager.header:AddDrawRuleE(function(self) taskmanager.header:AddDrawRuleE(function(self)
love.graphics.line(self.x, self.y+self.height, self.x+self.width, self.y+self.height) love.graphics.line(self.x, self.y+self.height, self.x+self.width, self.y+self.height)
@ -42,13 +66,17 @@ function debug:show(frame)
end end
end end
function debug:hide(frame) function debug:hide(frame)
vncore.getWorkspace().Active = true -- Reinstates the click events on the workspace multi.nextStep(function() -- There is no way to know the order of connections in the current step, so lets process this on the next step
if not frame then vncore.getWorkspace().Active = true -- Reinstates the click events on the workspace
-- Hide everything if not frame then
end debugF.Visible = false
end
end)
end end
local a = 0
multi:newThread("DebugHandler",function() multi:newThread("DebugHandler",function()
while true do while true do
a=a+1
thread.hold(function() thread.hold(function()
return debugF.Visible -- If the debug frame is not in view dont bother process any debug info return debugF.Visible -- If the debug frame is not in view dont bother process any debug info
end) end)