Skip Menu |
 

This queue is for tickets about the Curses-UI CPAN distribution.

Report information
The Basics
Id: 54182
Status: open
Priority: 0/
Queue: Curses-UI

People
Owner: Nobody in particular
Requestors: harvie [...] email.cz
Cc:
AdminCc:

Bug Information
Severity: Critical
Broken in: 0.9607
Fixed in: (no value)



Subject: [Curses::UI] problems with diacritics (UTF-8) - cursor moves ahead 2 times faster
For example in TextEditor (i believe it is not only issue in TextEditor) when i try to type characters like "ěščřžýáíé", all characters appears like they are supposed to, but cursor moves 2 characters ahead with each single character i type and there is some "space" for each character at the end of the line. i have to hit backspace 2x to delete such character (first time it deletes the space and then it deletes the character itself). when i delete the character from left (character and then the space) it transforms to another character until i remove the rest. this is very misleading and it makes editing text with "diacritics" almost impossible. BTW when i add exact same characters directly from code, everything is rendered OK until i try to edit or delete it (but isn't text editor supposed to edit?): my $texteditor = $win1->add("text", "TextEditor", -text => "Here is some text ěščřžýáíé\n" . "And some more"); i have attached code and screenshot (on screenshot you can see what i have actually typed and where is the cursor located)
Subject: terminal-curses-ui.png
terminal-curses-ui.png
Subject: curses.pl
Download curses.pl
text/x-perl 4.2k
#!/usr/bin/env perl #pacman -S perl-curses-ui use strict; use warnings; use Curses::UI; #use I18N::Collate; #setlocale('LC_COLLATE', 'cs_CZ.utf8'); #use utf8; #use encoding; #binmode(STDOUT, ":crlf"); #binmode(STDIN, ":crlf"); binmode(STDOUT, ":encoding(utf8)"); binmode(STDIN, ":encoding(utf8)"); my $cui = new Curses::UI( -color_support => 1, -compat => 0 ); #Create a menu ^ my @menu = ( { -label => 'File', -submenu => [ { -label => 'Exit ^Q', -value => \&exit_dialog } ] }, ); #In order to describe the structure of a menu Curses::UI uses a rather ugly construct out of hash and arrayrefs. See Curses::UI::Menubar for details. What you do at this point is to create a Menubar with just one entry and one submenu. The entry is 'File' and the submenu is 'Exit'. The value of this menu item is a reference to a sub called exit_dialog. #Dialogs ^ 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; } #The dialog method of Curses::UI gives us an easy and convenient way to create dialogs on the main screen. A dialog is a way to interact with the user in order to ask him a question or give him important information. This dialog is a more complex one, which asks the question whether or not you really want to exit. As the button for "yes" would return us a true value, you can easily exit on this return value. #Add the Menubar ^ my $menu = $cui->add( 'menu','Menubar', -menu => \@menu, -fg => "blue", ); #To finally add the Menubar to our root object, you have to call the add method on the Curses UI object. You specify the internal name of the widget as the first argument, the widget type as the second argument (like Label, TextViewer, etc.) and the menu structure you created at the beginning as an array reference as third object. Because you want the Menubar to have a blue theme, you give him the -fg option "blue". There are a couple of colors you can use, see Curses::UI::Color for details. #Add a window ^ my $win1 = $cui->add( 'win1', 'Window', -border => 1, -y => 1, -bfg => 'red', ); #There are only two types of object you can add to the Curses::UI root object: Menubars and Windows. All other widgets have to be inserted into a window. Of course you can add a Menubar to a window, but not vice versa ;-). The add method always has the same two first arguments: the internal name and the widget type. The internal name can be used to find an object. The method getobj takes this name and returns us the corresponding object out of the hierarchy. See Curses::UI for details. Again you want some fancy colors, so you tell the window to have a border, leave some space for the Menubar (-y => 1) and set the border foreground color to red. #Add a widget ^ my $texteditor = $win1->add("text", "TextEditor", -text => "Here is some text ěščřžýáíé\n" . "And some more"); #The next step is to add a useful widget to our new small Curses::UI app. Here you take a TextEditor widget which performs basic tasks as a text editor. You add some initial text to the widget to make it not seem that empty. #Making keybindings ^ $cui->set_binding(sub {$menu->focus()}, "\cX"); $cui->set_binding( \&exit_dialog , "\cQ"); #You want to be able to focus the Menubar if you finished editing in the TextEditor widget. Therefore you set a binding to the focus function of the menu and the key sequence Control (specified by \c) combined with X. Now you can easily return to the menu after editing. Because it is easier to have a shortcut for closing the application you add a binding for the sequence Control-Q to our nice exit_dialog method. #The final steps ^ $texteditor->focus(); $cui->mainloop();
Download (untitled) / with headers
text/plain 200b
Hello, Please try to apply my patch from https://rt.cpan.org/Ticket/Display.html?id=56695 Then specify -utf8 switch and test this issue. The problem should be fixed. Kind regards, Dmytro Gorbunov


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.