release 1.14pre0

[descalc.git] / 08_disp_tk.pm

diff --git a/08_disp_tk.pm b/08_disp_tk.pm
index 918b77fde473c7c41016333de4c1f4e0230d283e..f7d4e275b8d38283773d5422ee9acc8b6c922977 100644 (file)
--- a/08_disp_tk.pm
+++ b/08_disp_tk.pm
@@ -57,11 +57,11 @@ print $_;
 #      clrtoeol($set{height}-@stack, 1);
 }; # showstack
 
-push @{$hook{refresh}}, sub {
+push @{$hook{showall}}, sub {
 #      clear;
 #      addstr($set{height}+1, 0, "> ");  # prompt
        $main->Label(-text=>"> ")->pack;
-}; # refresh
+}; # showall
 
 push @{$hook{showentry}}, sub {
        $main->Label(-text=>$_[0])->pack;