# key bindings for DCT, by Shiar

# 1.10.1 200410150045 - set initial value to prevent crash when no undos set
# 1.10.0 200410150000 - single-level undo from main

use strict;
use warnings;

my $undo = [];

push @{$hook{preaction}}, sub {
	$undo = [@stack] if $_[0]>=0;  # type>=0 for stack-modifying operations
}; # preaction

$action{undo}  = [-1, sub { ($undo, @stack) = ([@stack], @$undo) }]; # undo/redo

return {
	author  => "Shiar",
	title   => "simple undo",
	version => "1.10.1",
};

