pkg-perl-maintainers team mailing list archive

[Yaswanth Menni <yaswanth.menni@xxxxxxxxx>]

Public bug reported:

Hi Team,

I am trying to run sample code given in documentation. In Ubuntu 18.04
it is not working as expected.

Same code working in Ubuntu 14.04 without any issues.

Code:

=========================
#!/usr/bin/perl -w

use strict;
use Curses::UI;
my $cui = new Curses::UI( -color_support => 0 );

my @menu = (
  { -label => 'File',
    -submenu => [
   { -label => 'Exit      ^Q', -value => \&exit_dialog  }
                ]
   },
);
sub exit_dialog()
{
        my $return = $cui->dialog(
                -message   => "Do you really want to quit?",
                -title     => "Are you sure???",
                -buttons   => ['yes', 'no'],

        );

exit(0) if $return;
}
my $menu = $cui->add(
        'menu','Menubar',
        -menu => \@menu,
        -fg  => "blue",
);
my $win1 = $cui->add(
                     'win1', 'Window',
                     -border => 1,
                     -y    => 1,
                     -bfg  => 'red',
             );
my $texteditor = $win1->add("text", "TextEditor",
                         -text => "Here is some text\n"
                                . "And some more");
$cui->set_binding(sub {$menu->focus()}, "\cX");
$cui->set_binding( \&exit_dialog , "\cQ");
$texteditor->focus();
$cui->mainloop();
=========================================

* Please find attachment for screen shots.

** Affects: libcurses-perl (Ubuntu)
     Importance: Undecided
         Status: New

** Attachment added: "perl_ui_box.png"
   https://bugs.launchpad.net/bugs/1821886/+attachment/5249722/+files/perl_ui_box.png

** Description changed:

  Hi Team,
  
- I am trying to run sample code giving in documentation on Ubuntu 18.04
- and it is not working as expected.
+ I am trying to run sample code given in documentation. In Ubuntu 18.04
+ it is not working as expected.
  
  Same code working in Ubuntu 14.04 without any issues.
  
  Code:
  
  =========================
  #!/usr/bin/perl -w
-  
+ 
  use strict;
  use Curses::UI;
  my $cui = new Curses::UI( -color_support => 0 );
  
  my @menu = (
-   { -label => 'File', 
-     -submenu => [
-    { -label => 'Exit      ^Q', -value => \&exit_dialog  }
-                 ]
-    },
+   { -label => 'File',
+     -submenu => [
+    { -label => 'Exit      ^Q', -value => \&exit_dialog  }
+                 ]
+    },
  );
  sub exit_dialog()
  {
-         my $return = $cui->dialog(
-                 -message   => "Do you really want to quit?",
-                 -title     => "Are you sure???", 
-                 -buttons   => ['yes', 'no'],
-  
-         );
-  
+         my $return = $cui->dialog(
+                 -message   => "Do you really want to quit?",
+                 -title     => "Are you sure???",
+                 -buttons   => ['yes', 'no'],
+ 
+         );
+ 
  exit(0) if $return;
  }
  my $menu = $cui->add(
-         'menu','Menubar', 
-         -menu => \@menu,
-         -fg  => "blue",
+         'menu','Menubar',
+         -menu => \@menu,
+         -fg  => "blue",
  );
  my $win1 = $cui->add(
-                      'win1', 'Window',
-                      -border => 1,
-                      -y    => 1,
-                      -bfg  => 'red',
-              );
+                      'win1', 'Window',
+                      -border => 1,
+                      -y    => 1,
+                      -bfg  => 'red',
+              );
  my $texteditor = $win1->add("text", "TextEditor",
-                          -text => "Here is some text\n"
-                                 . "And some more");
+                          -text => "Here is some text\n"
+                                 . "And some more");
  $cui->set_binding(sub {$menu->focus()}, "\cX");
  $cui->set_binding( \&exit_dialog , "\cQ");
  $texteditor->focus();
  $cui->mainloop();
  =========================================
  
  * Please find attachment for screen shots.

-- 
You received this bug notification because you are a member of Debian
Perl Group, which is subscribed to libcurses-perl in Ubuntu.
https://bugs.launchpad.net/bugs/1821886

Title:
  Window border is not clear in Ubuntu 18.04

To manage notifications about this bug go to:
https://bugs.launchpad.net/ubuntu/+source/libcurses-perl/+bug/1821886/+subscriptions