Text-Widget hat Probleme mit Umlauten (Graphische Oberflächen)

[thread]13761[/thread]

Text-Widget hat Probleme mit Umlauten

Leser: 22

Articles: hide open all | hide show old branches

+10 replies
Winki

2009-07-21 14:31

User since
2007-08-31
14 Artikel
BenutzerIn

Hallo,
ich habe folgendes Problem:
In meiner Tk-GUI verwende ich ein Text-Widget um Dateiinhalte anzuzeigen und zu editieren. Wenn ich hier Umlaute eingebe werden diese über den letzten Buchstaben geschrieben.
Wenn ich den Text wieder öffne wird er normal angezeigt, der Cursor rechts vom Umlaut positioniert aber um eine Stelle nach links versetzt (bzw um zwei Stellen wenn zwei Umlaute in der Zeile stehen). Das sorgt für etwas Verwirrung.
use utf8;
ist eingetragen. In einer Listbox im selben Fenster funktioniert der Umgang mit Umlauten auch problemlos.

Vielen Dank im Voraus für jeden Tip
Winki
- +9 replies
- Crian
  
  2009-07-22 12:04
  
  User since
  2003-08-04
  5871 Artikel
  ModeratorIn
  
  Auf was für einem System tritt das Problem auf? Könntest du uns ein Minimalbeispiel basteln, bei dem es passiert?
  s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
  
  use strict; use warnings; Link zu meiner Perlseite
  - +8 replies
  - Winki
    
    2009-07-23 11:04
    User since
    2007-08-31
    14 Artikel
    BenutzerIn
    
    Hallo Crian,
    danke schon mal für die prompte Reaktion.
    Das System ist ein Win XP Rechner mit ActivePERL 5.8.7
    
    Hier ein kleiner 9 Zeiler, bei dem das Problem auch schon auftritt.
    Nach Start wird der vorgegebene Text normal angezeigt, wenn ich aber mit der Maus z.B an das Ende des Textes positionieren will, rückt der Cursor um die Anzahl der verwendeten Umlaute nach links. Noch lustiger ist das Ergebnis, wenn ich links von einem Umlaut positioniere.
    
    Code: (dl )
    
    1 2 3 4 5 6 7 8 9
    
    use Tk; use utf8; $Text = "Übungstext zum üben mit überflüssigem Text."; $mw = MainWindow->new(); $Test_txt = $mw->Text(-height=>'35', -width=>'90')->pack(); $Test_txt->insert('end', $Text); MainLoop;
    
    Vielen Dank nochmal für deine Mühen
    Winki
    - +7 replies
    - Crian
      
      2009-07-23 11:13
      
      User since
      2003-08-04
      5871 Artikel
      ModeratorIn
      
      Bisher war das ja noch keine Mühe *lächelt*
      
      Ich hab dein Programm mal laufen lassen. Die Textbox ist leer, folgende Meldungen bekomme ich:
      
      Quote
      Malformed UTF-8 character (unexpected non-continuation byte 0x62, immediately after start byte 0xdc) at tk_und_umlaute.pl line 4.
      Malformed UTF-8 character (unexpected non-continuation byte 0x62, immediately after start byte 0xfc) at tk_und_umlaute.pl line 4.
      Malformed UTF-8 character (unexpected non-continuation byte 0x62, immediately after start byte 0xfc) at tk_und_umlaute.pl line 4.
      Malformed UTF-8 character (unexpected non-continuation byte 0x73, immediately after start byte 0xfc) at tk_und_umlaute.pl line 4.
      
      Allerdings tritt das Phänomen in der Textbox nicht auf, tippe ich selbst Umlaute ein, verhalten die sich ganz normal.
      
      (Unter Windows XP Professional.)
      Last edited: 2009-07-23 11:14:58 +0200 (CEST)
      s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
      
      use strict; use warnings; Link zu meiner Perlseite
      - +6 replies
      - Winki
        
        2009-07-23 12:08
        
        User since
        2007-08-31
        14 Artikel
        BenutzerIn
        
        Merkwürdig,
        ich bekomme gar keine Meldungen, aber der Fehler in der Textbox ist unbestreitbar da.
        Ich habe das gleiche Programm jetzt aber mal auf einem anderen WinXP Pro Rechner laufen lassen und da läuft es problemlos.
        Augenfälligster Unterschied: Auf dem zweiten Rechner läuft ActivePERL 5.8.8
        
        Werde den Fehler mal da suchen (oder mal ganz woanders ...)
        
        Trotzdem vielen Dank für die "keine Mühe" :-)
        
        PS.: FYI: Habe PERL einmal entfernt und neu installiert. Problem behoben.
        
        Winki
        Last edited: 2009-07-24 10:13:53 +0200 (CEST)
        
        Crian
        
        2009-07-24 11:30
        
        User since
        2003-08-04
        5871 Artikel
        ModeratorIn
        
        Danke. Das muss wirklich ein seltsamer Fehler gewesen sein, aber gut, dass er nun fort ist.
        s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;
        
        use strict; use warnings; Link zu meiner Perlseite
        
        +4 replies
        
        Kalle
        
        2009-07-24 22:58
        
        User since
        2007-03-18
        48 Artikel
        BenutzerIn
        
        Haaalt Winki, noch nicht gehen :)
        Hast du bei der Neuinstallation das gleiche 'alte' Perl benutzt oder ein neueres ?
        
        Ich habe das Problem nämlich auch. XP Pro, Perl 5.8.7 813
        
        Gruß
        
        Kalle
        
        +3 replies
        
        Winki
        
        2009-07-27 08:44
        
        User since
        2007-08-31
        14 Artikel
        BenutzerIn
        
        Sorry Kalle,
        da war ich wohl schon weg :-(
        Um deine Frage zu beantworten:
        Ich habe bei der Neuinstallation die Version 5.8.9 826 benutzt.
        Die 5.10 hatte ich auch versucht, hatte da aber das Problem, dass sie ohne Tk daherkam und ich hier in der Firma Probleme habe über ppm Pakete zu installieren.
        5.8.9 von ActivePerl lief aber problemlos.
        Hoffe ich konnte helfen
        
        Winki
        
        +2 replies
        
        Kalle
        
        2009-07-27 09:18
        
        User since
        2007-03-18
        48 Artikel
        BenutzerIn
        
        Danke Winki. Dann wurde das Problem anscheinend zwischen Build 813 und 826 gelöst. Bis 820 darf ich glaub ich noch updaten (wegen PDK6) und dann muss ich wohl anfangen mich zu überreden, nochmal 195$ für PDK8 auszugeben *grummel*
        
        Gruß
        
        Kalle
        
        Kalle
        
        2009-08-04 22:07
        
        User since
        2007-03-18
        48 Artikel
        BenutzerIn
        
        Kurzer Nachtrag: Habe Build 820 installiert. Umlautprobleme in Textwidgets sind weg.
        
        Gruß
        
        Kalle

View all threads created 2009-07-21 14:31.