Aegisub/aegisub/automation/tests/config-dialog-test.lua
Amar Takhar a067bd560d SVN Transition Step 3/7
1. cd aegisub/
  2. svn mv *cpp *h src/
  3. svn mv Makefile.am MatroskaParser.c auto4_perldata.inc bitmaps boost \
     changelog.txt config gl include libosxutil libresrc md5.c msvc mythes.cxx \
     mythes.hxx res.rc src/
  4. cd ..
  5. svn mv FFmpegSource2/ INSTALL Makefile.am README  acinclude.m4 \
     autogen.sh automation/ bin build configure.in desktop dummy.txt lib \
     libass/ m4macros/ packages/ po/ scripts/ universalchardet/ aegisub/
  6. mkdir -p docs/wiki_convert
  7. svn add docs/wiki_convert
  8. cd docs
  9. svn mv aegisub_convert_docs.pl convert.bat output wiki_convert/

* See r2749 for full description.

Originally committed to SVN as r2752.
2009-03-08 08:30:39 +00:00

92 lines
2.2 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=""}}, {"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
aegisub.debug.out(key .. ': ' .. val .. '\n')
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)