Tastatur funktioniert nicht mehr: TK 804.027 (Graphische Oberflächen)

[E|B]

2005-08-31 20:46

User since
2003-08-08
2561 Artikel
HausmeisterIn

Hallo,

ich beobachte ein seltsames Verhalten eines Frames. Ich habe gestern meine Tk Version auf Tk804 upgedated. Seitdem funktioniert ein Script von mir nicht mehr korrekt. (bei Tk800 lief es!)
Das Verhalten: Das Script laesst keine Tastatureingaben mehr zu.
Im MainWindow befindet sich ein großes Textfeld, darunter ein Frame. Ich konnte das Problem auf den Frame zurückführen. Kommentiere ich nämlich die Stelle, an dem der Frame gepackt wird, aus, so laesst sich ein beliebiger Text in das Textfeld schreiben. Wird der Frame jedoch gepackt, so verweigert das Script scheinbar jegliche Eingabe ueber die Tastatur. Eine Meldung gibt es nicht. Es funktioniert einfach nichts mehr, was ueber die Tastatur geht.
Woran koennte das liegen? Hat jemand eine Vermutung?
Danke!

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

renee

2005-08-31 20:57

User since
2003-08-04
14371 Artikel
ModeratorIn

Zeig mal etwas Code...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

Crian

2005-09-01 14:40

User since
2003-08-04
5871 Artikel
ModeratorIn

Ja, zeigen .... bitte ein möglichst kleines lauffähiges Beispiel.

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

ptk

2005-09-01 16:02

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Benutzt du Tk::FastSplash?

[E|B]

2005-09-01 16:26

User since
2003-08-08
2561 Artikel
HausmeisterIn

[quote=ptk,01.09.2005, 14:02]Benutzt du Tk::FastSplash?[/quote]
Nein.

Der Code ist komplett objektorientiert gehalten und recht lang. (> 400 Zeilen)
Zu finden ist er hier... (ist ein .pm File, das aber fast den gesamten Code enthält)
Das entsprechende Frame befindet sich in Zeile 66.

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

ptk

2005-09-01 20:36

User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]

Ich bevorzuge ein lauffaehiges Skript. Ansonsten kann ich nicht debuggen (aber das geht sowieso nicht, weil ... URLAUB! :-)

Crian

2005-09-12 15:19

User since
2003-08-04
5871 Artikel
ModeratorIn

Ja, verkleiner den Code mal in ein lauffähiges Skript so weit, dass der Fehler gerade noch reproduzierbar auftritt.

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