X-Git-Url: http://git.shiar.net/descalc.git/blobdiff_plain/4e1d9535fda6685e53ce570ca4e4cd6c260f55d3..HEAD:/09_disp_qt.pm diff --git a/09_disp_qt.pm b/09_disp_qt.pm index e055729..1ee134f 100644 --- a/09_disp_qt.pm +++ b/09_disp_qt.pm @@ -58,11 +58,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;