Aegisub/aegisub/automation/tests/config-dialog-test.lua
Niels Martin Hansen cad5b98e1b Extend Auto 4 Lua config dialogues test case to cover most interesting cases of controls.
Updates #775 and #776 since they need those cases.

Originally committed to SVN as r2911.
2009-05-12 15:24:07 +00:00

114 lines
3.5 KiB
Lua

-- Automation 4 test file
-- Create a Filter feature that does some kara stuff
script_name = "Automation 4 test 7"
script_description = "Test config dialogs"
script_author = "Niels Martin Hansen"
script_version = "1"
include("utils.lua")
function test7(subtitles, selected_lines, active_line)
local a, b = aegisub.dialog.display({{class="label", label="Test..."}}, {})
report_dialog_result(a, b)
aegisub.progress.set(50)
a, b = aegisub.dialog.display(
{
{class="edit", name="foo", text="", x=0, y=0},
{class="intedit", name="e1", value=20, x=0, y=1},
{class="intedit", name="e2", value=30, min=10, max=50, x=1, y=1},
{class="floatedit", name="e3", value=19.95, x=0, y=2},
{class="floatedit", name="e4", value=123.63423, min=-4.3, max=2091, x=1, y=2},
{class="floatedit", name="e5", value=-4, step=0.21, x=2, y=2},
{class="floatedit", name="e6", value=22, min=0, max=100, step=1.4, x=3, y=2},
{class="textbox", name="e7", text="hmm wuzzis say?", x=0, y=3, width=4},
{class="dropdown", name="l1", items={"abc", "def", "ghi"}, value="def", x=0, y=4},
{class="dropdown", name="l2", items={"abc", "def", "ghi"}, value="doesnotexist", x=1, y=4},
{class="checkbox", name="b1", value=true, label='checked', x=0, y=5},
{class="checkbox", name="b2", value=false, label='cleared', x=1, y=5},
{class="color", name="c1", value="#00ff11", x=0, y=6},
{class="color", name="c2", value="&H0011ff00", x=1, y=6},
{class="coloralpha", name="c3", value="#aabbccdd", x=0, y=7},
{class="coloralpha", name="c4", value="&Hddccbbaa&", x=1, y=7},
{class="alpha", name="c5", value="#12", x=0, y=8},
{class="alpha", name="c6", value="&H12&", x=1, y=8}
},
{"foo", "bar"})
report_dialog_result(a, b)
end
function report_dialog_result(button, controls)
aegisub.debug.out("Dialog closed: ")
if button == false then
aegisub.debug.out("cancelled\n")
elseif button == true then
aegisub.debug.out("clicked Ok\n")
else
aegisub.debug.out("clicked '" .. button .. "'\n")
end
for key, val in pairs(controls) do
local printable = (val == true and "true") or (val == false and "false") or tostring(val)
aegisub.debug.out("%s: %s\n", key, printable)
end
aegisub.debug.out(" - - - - -\n")
end
function exporter(subs, config)
for i = 1, #subs do
local l = subs[i]
if l.class == "dialogue" and not l.comment then
if config.style == "" or l.style == config.style then
l.text = config.text .. l.text
subs[i] = l
end
end
end
end
function export_config_dialog(subs, store)
local styles = {""}
for i = 1, #subs do
local l = subs[i]
if l.class == "style" then
table.insert(styles, l.name)
end
end
return {
{
class = "label",
label = "This will insert a given text in\n" ..
"front of all dialogue lines of\n" ..
"the given style, or every line\n" ..
"if no specific style is selected.",
x = 0, y = 0, width = 2, height = 1
},
{
class = "label",
label = "Text to insert:",
x = 0, y = 1, width = 1, height = 1
},
{
class = "edit",
name = "text",
x = 1, y = 1, width = 1, height = 1
},
{
class = "label",
label = "Style to apply on:",
x = 0, y = 2, width = 1, height = 1
},
{
class = "dropdown",
name = "style",
value = "",
items = styles,
x = 1, y = 2, width = 1, height = 1
}
}
end
aegisub.register_macro("Config Dialog 1", "Show a stupid config dialog", test7, nil)
aegisub.register_filter("Export Config", "Test export filter config dialog stuff", 500, exporter, export_config_dialog)