From c6fe68c76d40e48fcd04757b061d2a8a6b5926ad Mon Sep 17 00:00:00 2001 From: Karl Blomster Date: Wed, 6 May 2009 12:25:08 +0000 Subject: [PATCH] Add Aegisub::Script::set_undo_point() to auto4-perl. Currently not all that useful since auto4-perl currently only supports macros and nothing else, and using a macro sets an undo point after execution automatically anyway. Originally committed to SVN as r2903. --- aegisub/src/auto4_perl.cpp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/aegisub/src/auto4_perl.cpp b/aegisub/src/auto4_perl.cpp index f8053853a..c3c89f7ba 100644 --- a/aegisub/src/auto4_perl.cpp +++ b/aegisub/src/auto4_perl.cpp @@ -212,6 +212,22 @@ namespace Automation4 { XSRETURN_UNDEF; } + XS(perl_script_set_undo_point) + { + wxTRACE_FUNC(Aegisub::Script::set_undo_point); + dXSARGS; + + wxString desc; + if(items > 0) + desc = wxString(SvPV_nolen(ST(0)), pl2wx); + else + desc = _T("Auto4Perl"); + + AssFile::top->FlagAsModified(desc); + + XSRETURN_YES; + } + /* Aegisub::Progress */ XS(perl_progress_set) { @@ -270,6 +286,7 @@ namespace Automation4 { } } + /* Aegisub::PerlConsole */ XS(perl_console_register) { @@ -343,6 +360,7 @@ namespace Automation4 { newXS("Aegisub::text_extents", perl_text_extents, __FILE__); newXS("Aegisub::Script::set_info", perl_script_set_info, __FILE__); newXS("Aegisub::Script::register_macro", perl_script_register_macro, __FILE__); + newXS("Aegisub::Script::set_undo_point", perl_script_set_undo_point, __FILE__); newXS("Aegisub::Progress::set_progress", perl_progress_set, __FILE__); newXS("Aegisub::Progress::set_task", perl_progress_task, __FILE__); newXS("Aegisub::Progress::set_title", perl_progress_title, __FILE__);