git.shiar.nl
/
descalc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
release 1.14pre1
[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
# 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;
# clear;
# addstr($set{height}+1, 0, "> "); # prompt
$main->Label(-text=>"> ")->pack;
-}; #
refresh
+}; #
showall
push @{$hook{showentry}}, sub {
$main->Label(-text=>$_[0])->pack;
push @{$hook{showentry}}, sub {
$main->Label(-text=>$_[0])->pack;