1 # key bindings for DCT, by Shiar
3 # 1.10.1 200410150045 - set initial value to prevent crash when no undos set
4 # 1.10.0 200410150000 - single-level undo from main
11 push @{$hook{preaction}}, sub {
12 $undo = [@stack] if $_[0]>=0; # type>=0 for stack-modifying operations
15 $action{undo} = [-1, sub { ($undo, @stack) = ([@stack], @$undo) }]; # undo/redo
19 title => "simple undo",