From: Simon Ruderich <simon@ruderich.org>
Date: Wed, 27 Jan 2016 16:29:37 +0000 (+0100)
Subject: Screen::draw_prompt(): add debug() calls
X-Git-Url: https://ruderich.org/simon/gitweb/?a=commitdiff_plain;h=d9de4bc8ae027821a1829f5b73ae551aca416979;p=fcscs%2Ffcscs.git

Screen::draw_prompt(): add debug() calls
---

diff --git a/bin/fcscs b/bin/fcscs
index 66c8410..50faa1a 100755
--- a/bin/fcscs
+++ b/bin/fcscs
@@ -264,6 +264,8 @@ package Screen {
     sub draw_prompt {
         my ($self, $config) = @_;
 
+        $self->debug('draw_prompt', 'started');
+
         my $x = 0;
         my $y = $self->height - 1;
 
@@ -273,17 +275,20 @@ package Screen {
         # Draw prompt flags.
         if (defined (my $s = $self->{prompt}{flags})) {
             $s = "[$s]";
+            $self->debug('draw_prompt', $s);
             $self->draw_clipped($y, $x, $config->{attribute}{prompt_flags}, $s);
             $x += length($s) + 1; # space between next element
         }
         # Draw prompt name.
         if (defined (my $s = $self->{prompt}{name})) {
             $s = "[$s]";
+            $self->debug('draw_prompt', $s);
             $self->draw_clipped($y, $x, $config->{attribute}{prompt_name}, $s);
             $x += length($s) + 1;
         }
         # Draw prompt value, e.g. a search field.
         if (defined (my $s = $self->{prompt}{value})) {
+            $self->debug('draw_prompt', $s);
             $self->draw_clipped($y, $x, undef, $s);
             $x += length($s) + 1;
         }