From b6daa3951fbc7a32d041bd027925c6a55ad9a605 Mon Sep 17 00:00:00 2001
From: JackMacWindows <jackmacwindowslinux@gmail.com>
Date: Wed, 11 Sep 2024 17:09:56 -0400
Subject: [PATCH] Create toggleButton.lua

---
 toggleButton.lua | 69 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 69 insertions(+)
 create mode 100644 toggleButton.lua

diff --git a/toggleButton.lua b/toggleButton.lua
new file mode 100644
index 0000000..e8e29f5
--- /dev/null
+++ b/toggleButton.lua
@@ -0,0 +1,69 @@
+local PrimeUI = require "util" -- DO NOT COPY THIS LINE
+local expect = require "cc.expect".expect -- DO NOT COPY THIS LINE
+-- Start copying below this line. --
+
+--- Creates a clickable, toggleable button on screen with text.
+---@param win window The window to draw on
+---@param x number The X position of the button
+---@param y number The Y position of the button
+---@param textOn string The text to draw on the button when on
+---@param textOff string The text to draw on the button when off (must be the same length as textOn)
+---@param action function|string A function to call when clicked, or a string to send with a `run` event
+---@param fgColor color|nil The color of the button text (defaults to white)
+---@param bgColor color|nil The color of the button (defaults to light gray)
+---@param clickedColor color|nil The color of the button when clicked (defaults to gray)
+---@param periphName string|nil The name of the monitor peripheral, or nil (set if you're using a monitor - events will be filtered to that monitor)
+function PrimeUI.toggleButton(win, x, y, textOn, textOff, action, fgColor, bgColor, clickedColor, periphName)
+    expect(1, win, "table")
+    expect(1, win, "table")
+    expect(2, x, "number")
+    expect(3, y, "number")
+    expect(4, textOn, "string")
+    expect(5, textOff, "string")
+    if #textOn ~= #textOff then error("On and off text must be the same length", 2) end
+    expect(6, action, "function", "string")
+    fgColor = expect(7, fgColor, "number", "nil") or colors.white
+    bgColor = expect(8, bgColor, "number", "nil") or colors.gray
+    clickedColor = expect(9, clickedColor, "number", "nil") or colors.lightGray
+    periphName = expect(10, periphName, "string", "nil")
+    -- Draw the initial button.
+    win.setCursorPos(x, y)
+    win.setBackgroundColor(bgColor)
+    win.setTextColor(fgColor)
+    win.write(" " .. textOff .. " ")
+    local state = false
+    -- Get the screen position and add a click handler.
+    PrimeUI.addTask(function()
+        local screenX, screenY = PrimeUI.getWindowPos(win, x, y)
+        local buttonDown = false
+        while true do
+            local event, button, clickX, clickY = os.pullEvent()
+            if event == "mouse_click" and periphName == nil and button == 1 and clickX >= screenX and clickX < screenX + #textOn + 2 and clickY == screenY then
+                -- Initiate a click action (but don't trigger until mouse up).
+                buttonDown = true
+                -- Redraw the button with the clicked background color.
+                win.setCursorPos(x, y)
+                win.setBackgroundColor(clickedColor)
+                win.setTextColor(fgColor)
+                win.write(" " .. (state and textOn or textOff) .. " ")
+            elseif (event == "monitor_touch" and periphName == button and clickX >= screenX and clickX < screenX + #textOn + 2 and clickY == screenY)
+                or (event == "mouse_up" and button == 1 and buttonDown) then
+                -- Finish a click event.
+                state = not state
+                if clickX >= screenX and clickX < screenX + #textOn + 2 and clickY == screenY then
+                    -- Trigger the action.
+                    if type(action) == "string" then
+                        PrimeUI.resolve("toggleButton", action, state)
+                    else
+                        action(state)
+                    end
+                end
+                -- Redraw the original button state.
+                win.setCursorPos(x, y)
+                win.setBackgroundColor(bgColor)
+                win.setTextColor(fgColor)
+                win.write(" " .. (state and textOn or textOff) .. " ")
+            end
+        end
+    end)
+end