iframe-proxy | Sunbelt Computer Software

59 lines (51 loc) · 1.8 KB

-- config ui for suspendmanager
local gui = require("gui")
local widgets = require("gui.widgets")
local suspendmanager = require("plugins.suspendmanager")
-- Suspendmanager
SuspendmanagerWindow = defclass(SuspendmanagerWindow, widgets.Window)
SuspendmanagerWindow.ATTRS{
    frame_title = "Suspendmanager",
    frame = {w=38, h=11},
function SuspendmanagerWindow:init()
    self:addviews{
        widgets.ToggleHotkeyLabel{
            frame={t=0, l=0, w=34},
            label="Suspendmanager is",
            key="CUSTOM_CTRL_E",
            options={{value=true, label="Enabled", pen=COLOR_GREEN},
                     {value=false, label="Disabled", pen=COLOR_RED}},
            initial_option = suspendmanager.isEnabled(),
            on_change=function(val) dfhack.run_command{val and "enable" or "disable", "suspendmanager"} end
        widgets.ToggleHotkeyLabel{
            frame={t=2, l=0, w=33},
            label="Prevent blocking jobs:",
            key="CUSTOM_ALT_B",
            options={{value=true, label="Yes", pen=COLOR_GREEN},
                     {value=false, label="No", pen=COLOR_RED}},
            initial_option = suspendmanager.suspendmanager_preventBlockingEnabled(),
            on_change=function(val)
                dfhack.run_command('suspendmanager', 'set', 'preventblocking', tostring(val))
-- SuspendmanagerScreen
SuspendmanagerScreen = defclass(SuspendmanagerScreen, gui.ZScreen)
SuspendmanagerScreen.ATTRS{focus_path = "suspendmanager"}
function SuspendmanagerScreen:init()
    self:addviews{SuspendmanagerWindow{}}
function SuspendmanagerScreen:onDismiss()
    view = nil
if not dfhack.isMapLoaded then
    qerror("suspendmanager requires a map to be loaded")
view = view and view:raise() or SuspendmanagerScreen{}:show()

Sunbelt Computer Software

PL/B Language Development and Support

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Uh oh!

Sunbelt Computer Software

PL/B Language Development and Support

Uh oh!

FilesExpand file tree

suspendmanager.lua

Latest commit

History

suspendmanager.lua

File metadata and controls