X-Git-Url: http://git.shiar.net/descalc.git/blobdiff_plain/4e1d9535fda6685e53ce570ca4e4cd6c260f55d3..090ac304afe801cb3e72ced0941ff2a874a98cc9:/28_undo.pm diff --git a/28_undo.pm b/28_undo.pm deleted file mode 100644 index ba39c7f..0000000 --- a/28_undo.pm +++ /dev/null @@ -1,22 +0,0 @@ -# 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", -}; -