working on some stuff

Visual Novel/VNCore/debug.lua

@@ -6,17 +6,41 @@ end
 local debug = {}
 local taskmanagerDetails = {}
 local debugF = gui:newFrame("DebugFrame",0,0,0,0,0,0,1,1)
-debugF.Visibility = 0--.5
+debugF.Visibility = .5
 debugF.Color = Color.Black
 vncore.getWorkspace().Active = false
 vncore.getWorkspace().Visibility = 1
 -- debugF.Visible = false
 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.X = taskmanager.header:newTextButton("X","X",-25,5,20,20,1)
 taskmanager.header.X.Color = Color.Red
 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.header:AddDrawRuleE(function(self)
     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
 function debug:hide(frame)
+    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
         vncore.getWorkspace().Active = true -- Reinstates the click events on the workspace
         if not frame then
-        -- Hide everything
+            debugF.Visible = false
         end
+    end)
 end
+local a = 0
 multi:newThread("DebugHandler",function()
     while true do
+        a=a+1
         thread.hold(function()
             return debugF.Visible -- If the debug frame is not in view dont bother process any debug info
         end)