Diverse Fragen zu Perl/Tk - #44374 (Graphische Oberflächen)

renee

2005-08-16 12:09

User since
2003-08-04
14371 Artikel
ModeratorIn

Ich stoße im Moment auf mehrere Probleme/Fragen:

*) Ich habe ein Widget geschrieben, in dem ich mit Tk::Font arbeite. Ich erzeuge darin ein Objekt von Tk::Font:

Code: (dl )

my $font;

sub new{
[...]
$font = $cw->Font('{arial} 6 {normal}');
[...]
}

Wenn ich jetzt ein zweites Objekt meines Widgets erzeuge, dann bekomme ich folgende Fehlermeldung:

Code: (dl )

Tk::Error: named font "{arial} 6 {normal}" already exists at C:/usr/lib/Tk/Font.pm line 76.
   at C:/usr/lib/Tk/Widget.pm line 256
   Tk callback for .toplevel
   Tk callback for .toplevel.displaydatabase.frame
   Tk callback for font
   Tk callback for .toplevel.button
   <ButtonRelease-1>
   (command bound to event)

*) Ich habe in einer HList ein Entry als Item. Wie kann ich den Cursor in diesen Entry bringen??
mit

Code: (dl )

$hlist->itemCget($index,0,-widget)->configure(-takefocus => 1);

bzw.

Code: (dl )

$hlist->itemCget($index,0,-widget)->insert('end','');

klappt es nicht...

Mein System:
OS: WinXP Home
Perl: ActiveState Perl 5.8.6
Tk: Tk 804.027

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/