Commit 90c9f480 authored by Christian Fibich's avatar Christian Fibich Committed by Stefan Tauner
Browse files

Actually allow cancelling a Test edit in Sequence Mode

parent 39a045e5
......@@ -1052,9 +1052,12 @@ sub remove_test ($) {
sub edit_test {
my ($self, $i) = @_;
my $test = @{$self->{'tests'}->{'tests'}}[$i];
my $original_test = @{$self->{'tests'}->{'tests'}}[$i];
my $test = clone($original_test);
my $db = $self->{'mw'}->FIJIModalDialog(
-title => "Edit Test $i",
-buttons => [qw/OK Cancel/]
);
$db->geometry("576x300");
my $tf = $db->FIJITestFrame(-test => $test, -settings => $self->{'settings'}, -scrolled=>1)->pack(-expand => 1, -fill => "both");
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment